Perl MD5 Brute-Force (Word-List)

[Senhorli]

E ae galera blz? venho hoje trazendo um simples script para fazer brute-force utilizando Word-List para "quebrar" hash MD5....Eu sei que o script tah simples mas é funcional, e util para aqueles momentos que nenhuma ferramenta sua descriptografa a maldita hash... Bom.... Vamos ao script !

#!/usr/bin/perl -w 
#Codado por Senhor Li 
 
use Digest::MD5 qw(md5_hex); 
 
print q { 
+----[MD5 BF WL Attack]----+ 
|         By Senhor Li     |    
+-----------=BR=-----------+ 
Sua Hash: }; 
$hash = <STDIN>; chomp $hash; 
#-------------------------------- 
if (length($hash)==32){ 
#-------------------------------- 
print "Word-List: "; 
chomp($word = <STDIN>); 
open(Word, "$word"); 
while(<Word>) { 
my $word = $_; 
chomp $word; 
#-------------------------------- 
$codi = md5_hex($word); 
#-------------------------------- 
if ($codi eq $hash){ 
print "Encontrado -> $word\n"; 
}else{ 
print "Nao encontrado -> $word\n"; 
}}}else{ 
print "Esta hash nao parece ser MD5!\n"; 
} 
#Senhor Li ><