Perl MD5 Bruteforce em PERL

[andreol263]

#!/usr/bin/perl -w
#Coded by andreol263
use Digest::MD5 qw(md5 md5_hex md5_base64);

print "\tMD5 Bruteforce\n\n";
print "[+]Insert the hash to be brute-forced below:\n";
chomp($hash = <STDIN>);
if(length($hash) != 32){
	die "[!]This is not a MD5 Hash!\n";
}
print "[+]Insert the location of the wordlist:\n";
chomp($dir = <STDIN>);
unless (-e $dir){
die "[!]This file doesn't exists!\n";
}
open $OPEN, "<", $dir;
my @bru = <$OPEN>;
foreach $i (@bru) {
print "[+]Testing:$i\n";
$brut = md5_hex($i);
if($brut =~ $hash){
print "\n[+]Founded the key:$i\n";
}
}

E um simples MD5 Brute-forcer que pega de uma wordlist as senhas e as encrypta em MD5 e compara uma por uma com a hash original, tem 25 linhas, extremamente compacta, otima para estudos!!

[Senhorli]

Olá, você pode retirar a opção de mostrar a hash para deixa-lo mais "potente", da pra compactar um pouco mais hehe:

#!/usr/bin/perl 
use Digest::MD5 qw(md5 md5_hex md5_base64); 

print "\tMD5 Bruteforce\n\n Uso: $0 [hash][lista]\n"; 

if (length($ARGV[0])==""){ exit(); } 
if(length($ARGV[0]) != 32){ die "[!]This is not a MD5 Hash!\n"; 
unless (-e $ARGV[1]){ die "[!]This file doesn't exists!\n"; } 

open $OPEN, "<", $ARGV[1]; 
my @bru = <$OPEN>; 
foreach $i (@bru) { 
$brut = md5_hex($i); 
if($brut =~ $ARGV[0]){ 
 print "\n[+]Founded the key:$i\n"; 
} 
} 
}