Bueno aca les dejo un programa basado en perl para q crackeen sus hash de MD5 es facil de ejecutar como ya saben copiamos el code al bloc de notas y lo guardamos con la extension: .pl y le ponemos todos los archivos.
Luego nos vamos al DOS inicio-ejecutar-cmd y ponemos perl md5cracker.pl y ahi nos pedira q pongamos el hash lo ponemos y luego nos pide un diccionario eso lo pueden hacer ustedes abriendo el bloc de notas y van poniendo no se a su imaginacion y lo q les de crean su propio diccionario q este bien variado eso si jeje ahi se los dejo..
#!/usr/bin/perl
#MD5 Cracker Powered By DevilAuron
#Visit http://devilsnight.altervista.org
use Digest::MD5 qw( md5_hex );
&lol;
sub lol{
system("cls");
print q{
-----------------------------------------------------------------
Powered By
.___ .__.__
__| _/_______ _|__| | _____ __ _________ ____ ____
/ __ |/ __ \ \/ / | | \__ \ | | \_ __ \/ _ \ / \
/ /_/ \ ___/\ /| | |__ / __ \| | /| | \( <_> ) | \
\____ |\___ >\_/ |__|____/ (____ /____/ |__| \____/|___| /
\/ \/ \/ \/
www.devilsnight.altervista.org
-----------------------------------------------------------------
};
print "Insert MD5 Hash: ";
chomp($hash = <STDIN>);
print "Insert WordList Path (C:/wordlist.txt): ";
chomp($wl = <STDIN>);
if (!-e $wl)
{ &main; }
else
{
open( WL, "<", $wl);
@brute=<WL>;
$wlist = scalar(@brute);
for($i = 0; $i <= $wlist; $i++){
$psw = @brute[$i];
$md = md5_hex($psw);
if($md == $hash)
{
print "\nPassword trovata: $psw\n\n - Powered By DevilAuron \n -
http://devilsnight.altervista.org \n";
system("pause");
&lol;
}
else {
print "\nPassword Non Trovata\n\n - Powered By DevilAuron \n -
http://devilsnight.altervista.org \n";
system("pause");
&lol;
}
}};
}
Autor