MoOnCrack

Descrição

Esconder código-fonte

#!/usr/bin/perl -w
use Digest::MD5 qw(md5_hex);
system("clear");
print "BC - MoOnCrack 1.0 - Be.Cool Lab's\n";
print "Crack de Md5 =) Testado satisfatoriamente em ambiente linux \n";
print "Good Luck ;) \n\n\n";
print "Digite o arquivo de palavras\n";
$palavras=<STDIN>;
chomp $palavras;
print "Digite o hash\n";
$hash=<STDIN>;
chomp $hash;
open (wordlist,$palavras) or die "Erro ao abrir lista de palavras";
@vai = <wordlist>;
close(wordlist) ;

foreach $wl(@vai)
{
chomp($wl);
$temp=md5_hex("$wl");
if ($hash eq $temp)
{
print "Hash quebrado com sucesso\n";
print "A senha é: $wl\n";
print "O hash original é : $hash\n";
print "O hash final é : $temp\n";
exit(0);
}
}
print "Não foi possivel quebrar o hash =/\n";