Crackeador MD5 [Recomendado]

#!usr/bin/perl

# NOTA:
# NO ME HAGO RESPONSABLE POR EL USO
# QUE LE DEN AL PROGRAMA, EL USUARIO
# ES EL QUE SE HACE RESPONSABLE.
# SaLuDos :) [by W4rL0cK] (Algunos derechos reservados) 2oo8 [C]
#
#      Ultima actualizacion: 17.Marzo.2008

use strict;
use LWP::UserAgent;
use HTTP::Request qw(post);

my $hash = shift || &banner();
my $agent = "Mozilla/4.0 (compatible; Lotus-Notes/5.0; Windows-NT)";

sub banner {
print "\n";
print "MD5 CRACKER\n";
print "\n";
print "perl x.pl <hash>\n";
print "perl x.pl eec4832f1db196790d523a4ab628a899\n";
print "\n";
exit;
}

sub banner2 {
print "\n";
print "MD5 CRACKER\n";
print "\n";
print "[+] Comprobando el hash: $hash\n";
&comprobarhash($hash);
print "[+] Buscando .. \n";
}

sub comprobarhash {
$hash=shift(@_);
if (length($hash)==32) {
print "[+] Hash correcto\n";
} else {
print "[-] Hash invalido\n";
print "[x] Saliendo\n";
exit;
}
}

&banner2();
&cracker0($hash,$agent);
&cracker1($hash,$agent);
&cracker2($hash,$agent);
&cracker3($hash,$agent);
&cracker4($hash,$agent);
&cracker5($hash,$agent);
&cracker6($hash,$agent);
&cracker8($hash,$agent);
&cracker9($hash,$agent);
&cracker10($hash,$agent);
&cracker11($hash,$agent);
&cracker12($hash,$agent);
&cracker13($hash,$agent);
&cracker14($hash,$agent);
&cracker15($hash,$agent);
&cracker7($hash,$agent);
&cracker16($hash,$agent);
&cracker17($hash,$agent);
&cracker18($hash,$agent);

#busca en md5.thekaine.de
sub cracker1 {
$hash=shift(@_);
$agent=shift(@_);
my $url = "http://md5.thekaine.de/?hash=$hash";
my $conexion = LWP::UserAgent->new();
$conexion->agent($agent);
my $resultado = $conexion->get($url);

my $code1 = "<td colspan=\"2\"><br><br><b>";
my $code2 = "</b></td><td></td>";
print "md5.thekaine.de          |   ";
if ($resultado->content =~ m/$code1(.*)$code2/) {
if ($resultado->content =~ /not found/) {
print "Not Found\n";
} else {
print "Cracked: $1\n";
}
} else {
print "Not Found\n";
}
}

#busca en nz.md5.crysm.net
sub cracker2 {
$hash=shift(@_);
$agent=shift(@_);
my $url = "http://nz.md5.crysm.net/find?md5=$hash";
my $conexion = LWP::UserAgent->new();
$conexion->agent($agent);
my $resultado = $conexion->get($url);

my $code1 = "<li>";
my $code2 = "</li>";
print "nz.md5.crysm.net         |   ";
if ($resultado->content =~ m/$code1(.*)$code2/) {
print "Cracked: $1\n";
} else {
print "Not Found\n";
}
}

#busca en www.tydal.nu/php/sakerhet/
sub cracker3 {
$hash=shift(@_);
$agent=shift(@_);
my $url = "http://www.tydal.nu/php/sakerhet/md5.php?q=$hash";
my $conexion = LWP::UserAgent->new();
$conexion->agent($agent);
my $resultado = $conexion->get($url);

my $code1 = "";
my $code2 = "</b></h5>";
print "www.tydal.nu             |   ";
if ($resultado->content =~ m/$code1(.*)$code2/) {
if ($resultado->content =~ /Ingen/) {
print "Not Found\n";
} else {
print "Cracked: $1\n";
}
} else {
print "Not Found\n";
}
}

#busca en www.milw0rm.com/cracker
sub cracker4 {
$hash=shift(@_);
$agent=shift(@_);
my $url = "http://milw0rm.com/cracker/search.php";
my $conexion = LWP::UserAgent->new();
$conexion->agent($agent);
my $resultado = $conexion->get($url);

my $request = $conexion->post($url, ["hash" => $hash, "Submit" => "Submit"]); 
my $content = $request->content; 

my $code1 = "</TD><TD align=\"middle\" nowrap=\"nowrap\" width=90>";
my $code2 = "</TD><TD align=\"middle\" nowrap=\"nowrap\" width=90>cracked</TD></TR>";
print "www.milw0rm.com          |   ";
if ($request->content =~ m/$code1(.*)$code2/) {
print "Cracked: $1\n";
} else {
print "Not Found\n";
}
}

#busca en gdataonline.com
sub cracker5 {
$hash=shift(@_);
$agent=shift(@_);
my $url = "http://gdataonline.com/qkhash.php?mode=txt&hash=$hash";
my $conexion = LWP::UserAgent->new();
$conexion->agent($agent);
my $resultado = $conexion->get($url);

my $code1 = "</td><td width=\"35%\"><b>";
my $code2 = "</b></td></tr>";
print "gdataonline.com          |   ";
if ($resultado->content =~ m/$code1(.*)$code2/) {
print "Cracked: $1\n";
} else {
print "Not Found\n";
}
}

#busca en www.csthis.com
sub cracker6 {
$hash=shift(@_);
$agent=shift(@_);
my $url = "http://www.csthis.com/md5/index.php";
my $conexion = LWP::UserAgent->new();
$conexion->agent($agent);
my $resultado = $conexion->get($url);

my $request = $conexion->post($url, ["h" => $hash]); 
my $content = $request->content; 

my $code1 = "resolves to:<br /><b><font color=#00CC66 size=6>";
my $code2 = "</b></font></font>  </p>";
print "www.csthis.com           |   ";
if ($request->content =~ m/$code1(.*)$code2/) {
print "Cracked: $1\n";
} else {
print "Not Found\n";
}
}

#busca en md5decrypter.com
sub cracker0 {
$hash=shift(@_);
$agent=shift(@_);
my $url = "http://md5decrypter.com/index.php";
my $conexion = LWP::UserAgent->new();
$conexion->agent($agent);
my $resultado = $conexion->get($url);

my $request = $conexion->post($url, ["hash" => $hash, "submit" => "Decrypt!"]); 
my $content = $request->content; 

my $code1 = "<br/><b class='red'>Normal Text: </b>";
my $code2 = "";
print "md5decrypter.com         |   ";
if ($request->content =~ m/$code1(.*)$code2/) {
print "Cracked: $1\n";
} else {
print "Not Found\n";
}
}

#busca en plain-text.info
sub cracker7 {
$hash=shift(@_);
$agent=shift(@_);
my $url = "http://plain-text.info/search/";
my $conexion = LWP::UserAgent->new();
$conexion->agent($agent);
$conexion->default_header('Host' => "plain-text.info", 'Connection' => "close", 'Accept-Encoding' => "base64", 'Accept' => "text/plain", 'Accept-Language' => "es", 'Referer' => "http://plain-text.info/search/", 'Content-type' => "application/x-www-form-urlencoded");
my $resultado = $conexion->get($url);

my $request = $conexion->post($url, ["searchhash" => $hash]); 
my $content = $request->content; 

my $code1 = "<td>$hash</td>";
my $code2 = "<td>cracked</td>";
print "plain-text.info          |   ";
if ($request->content =~ m/$code1(.*)$code2/s) {
my $cx1 = "<td>";
my $cx2 = "</td>";
if($1 =~ m/$cx1(.*)$cx1/s) {
my $longstrx = index($1,$cx2);
my $hashstrx = substr($1,0,$longstrx);
print "Cracked: $hashstrx\n";
}
} else {
print "Not Found\n";
}
}

#busca en md5pass.info
sub cracker8 {
$hash=shift(@_);
$agent=shift(@_);
my $url = "http://md5pass.info/index.php";
my $conexion = LWP::UserAgent->new();
$conexion->agent($agent);
my $resultado = $conexion->get($url);

my $request = $conexion->post($url, ["hash" => $hash, "get_pass" => "Get Pass"]); 
my $content = $request->content; 

my $code1 = "Password - <b>";
my $code2 = "</b>";
print "md5pass.info             |   ";
if ($request->content =~ m/$code1(.*)$code2/) {
print "Cracked: $1\n";
} else {
print "Not Found\n";
}
}

#busca en md5.hashcracking.com
sub cracker9 {
$hash=shift(@_);
$agent=shift(@_);
my $url = "http://md5.hashcracking.com/search.php?md5=$hash";
my $conexion = LWP::UserAgent->new();
$conexion->agent($agent);
my $resultado = $conexion->get($url);

my $code1 = "Cleartext of $hash is ";
my $code2 = "";
print "md5.hashcracking.com     |   ";
if ($resultado->content =~ m/$code1(.*)$code2/) {
print "Cracked: $1\n";
} else {
print "Not Found\n";
}
}

#busca en md5decryption.com
sub cracker10 {
$hash=shift(@_);
$agent=shift(@_);
my $url = "http://md5decryption.com";
my $conexion = LWP::UserAgent->new();
$conexion->agent($agent);
my $resultado = $conexion->get($url);

my $request = $conexion->post($url, ["hash" => $hash, "submit" => "Decrypt It!"]); 
my $content = $request->content; 

my $code1 = "<h2>Results</h2><b>Md5 Hash:</b> $hash<br/><b class='red'>Normal Text: </b>";
my $code2 = "<br/>";
print "www.md5decryption.com    |   ";
if ($request->content =~ m/$code1(.*)$code2/) {
print "Cracked: $1\n";
} else {
print "Not Found\n";
}
}

#busca en md5.xpzone.de
sub cracker11 {
$hash=shift(@_);
$agent=shift(@_);
my $url = "http://md5.xpzone.de/?string=$hash&mode=decrypt";
my $conexion = LWP::UserAgent->new();
$conexion->agent($agent);
my $resultado = $conexion->get($url);

my $code1 = "Code: <b>";
my $code2 = "</b><br>";
print "md5.xpzone.de            |   ";
if ($resultado->content =~ m/$code1(.*)$code2/) {
print "Cracked: $1\n";
} else {
print "Not Found\n";
}
}

#busca en us.md5.crysm.net
sub cracker12 {
$hash=shift(@_);
$agent=shift(@_);
my $url = "http://us.md5.crysm.net/find?md5=$hash";
my $conexion = LWP::UserAgent->new();
$conexion->agent($agent);
my $resultado = $conexion->get($url);

my $code1 = "<li>";
my $code2 = "</li>";
print "us.md5.crysm.net         |   ";
if ($resultado->content =~ m/$code1(.*)$code2/) {
print "Cracked: $1\n";
} else {
print "Not Found\n";
}
}

#busca en www.hashreverse.com
sub cracker13 {
$hash=shift(@_);
$agent=shift(@_);
my $url = "http://www.hashreverse.com/index.php?action=view";
my $conexion = LWP::UserAgent->new();
$conexion->agent($agent);
my $resultado = $conexion->get($url);

my $request = $conexion->post($url, ["hash" => $hash, "convert" => "false", "Submit2" => "Search for a SHA1 or MD5 hash"]); 
my $content = $request->content; 

my $code1 = "Following results were found:<br><ul><li>";
my $code2 = "</li></ul>";
print "www.hashreverse.com      |   ";
if ($request->content =~ m/$code1(.*)$code2/) {
print "Cracked: $1\n";
} else {
print "Not Found\n";
}
}

#busca en www.neeao.com
sub cracker14 {
$hash=shift(@_);
$agent=shift(@_);
my $url = "http://www.neeao.com/md5/index.asp";
my $conexion = LWP::UserAgent->new();
$conexion->agent($agent);
my $resultado = $conexion->get($url);

my $request = $conexion->post($url, ["q" => $hash, "b" => "MD5-Search"]); 
my $content = $request->content; 

my $code1 = "</div>Result:";
my $code2 = "    Good Luck!<br />";
print "www.neeao.com            |   ";
if ($request->content =~ m/$code1(.*)$code2/) {
print "Cracked: $1\n";
} else {
print "Not Found\n";
}
}

#busca en www.hashchecker.com
sub cracker15 {
$hash=shift(@_);
$agent=shift(@_);
my $url = "http://www.hashchecker.com/index.php";
my $conexion = LWP::UserAgent->new();
$conexion->agent($agent);
my $resultado = $conexion->get($url);

my $request = $conexion->post($url, ["search_field" => $hash, "Submit" => "search"]); 
my $content = $request->content; 

my $code1 = "<td><li>Your md5 hash is :<br><li>$hash is <b>";
my $code2 = "</b> used charlist :2</td>";
print "www.hashchecker.com      |   ";
if ($request->content =~ m/$code1(.*)$code2/) {
print "Cracked: $1\n";
} else {
print "Not Found\n";
}
}

#busca en victorov.su/md5/
sub cracker16 {
$hash=shift(@_);
$agent=shift(@_);
my $url = "http://victorov.su/md5/?md5e=&md5d=$hash";
my $conexion = LWP::UserAgent->new();
$conexion->agent($agent);
my $resultado = $conexion->get($url);

my $code1 = "MD5 i°i ñi¸i¨i´i°i®i¢i i­: <b>";
my $code2 = "</b><br><form action=\"\">";
print "victorov.su              |   ";
if ($resultado->content =~ m/$code1(.*)$code2/) {
print "Cracked: $1\n";
} else {
print "Not Found\n";
}
}

#busca en securitystats.com/tools
sub cracker17 {
$hash=shift(@_);
$agent=shift(@_);
my $url = "http://securitystats.com/tools/hashcrack.php";
my $conexion = LWP::UserAgent->new();
$conexion->agent($agent);
my $resultado = $conexion->get($url);

my $request = $conexion->post($url, ["inputhash" => $hash, "type" => "MD5", "Submit" => "Submit"]); 
my $content = $request->content; 

my $code1 = "<font color=\"#FF0000\"><B><BR><BR>MD5 Hash Found!!</font></b><BR>".uc($hash)." = ";
my $code2 = "</td>";
print "securitystats.com        |   ";
if ($request->content =~ m/$code1(.*)$code2/) {
print "Cracked: $1\n";
} else {
print "Not Found\n";
}
}

#busca en md5crack.it-helpnet.de
sub cracker18 {
$hash=shift(@_);
$agent=shift(@_);
my $url = "http://md5crack.it-helpnet.de/index.php?op=search";
my $conexion = LWP::UserAgent->new();
$conexion->agent($agent);
my $resultado = $conexion->get($url);

my $request = $conexion->post($url, ["md5" => $hash, "submit" => "Search now"]); 
my $content = $request->content; 

my $code1 = "</td><td>$hash</td><td>";
my $code2 = "</td>";
print "md5crack.it-helpnet.de   |   ";
if ($request->content =~ m/$code1(.*)$code2/) {
if (length($1)==23) {
print "Not Found\n";
} else {
print "Cracked: $1\n";
}
} else {
print "Not Found\n";
}
}