#!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;
my $agent = "Mozilla/4.0 (compatible; Lotus-Notes/5.0; Windows-NT)";
sub banner {
}
sub banner2 {
&comprobarhash($hash);
}
sub comprobarhash {
} else {
}
}
&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 {
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>";
if ($resultado->content =~ m/$code1(.*)$code2/) {
if ($resultado->content =~ /not found/) {
} else {
}
} else {
}
}
#busca en nz.md5.crysm.net
sub cracker2 {
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>";
if ($resultado->content =~ m/$code1(.*)$code2/) {
} else {
}
}
#busca en www.tydal.nu/php/sakerhet/
sub cracker3 {
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>";
if ($resultado->content =~ m/$code1(.*)$code2/) {
if ($resultado->content =~ /Ingen/) {
} else {
}
} else {
}
}
#busca en www.milw0rm.com/cracker
sub cracker4 {
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>";
if ($request->content =~ m/$code1(.*)$code2/) {
} else {
}
}
#busca en gdataonline.com
sub cracker5 {
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>";
if ($resultado->content =~ m/$code1(.*)$code2/) {
} else {
}
}
#busca en www.csthis.com
sub cracker6 {
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>";
if ($request->content =~ m/$code1(.*)$code2/) {
} else {
}
}
#busca en md5decrypter.com
sub cracker0 {
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 = "";
if ($request->content =~ m/$code1(.*)$code2/) {
} else {
}
}
#busca en plain-text.info
sub cracker7 {
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>";
if ($request->content =~ m/$code1(.*)$code2/s) {
my $cx1 = "<td>";
my $cx2 = "</td>";
if($1 =~ m/$cx1(.*)$cx1/s) {
}
} else {
}
}
#busca en md5pass.info
sub cracker8 {
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>";
if ($request->content =~ m/$code1(.*)$code2/) {
} else {
}
}
#busca en md5.hashcracking.com
sub cracker9 {
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 = "";
if ($resultado->content =~ m/$code1(.*)$code2/) {
} else {
}
}
#busca en md5decryption.com
sub cracker10 {
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/>";
if ($request->content =~ m/$code1(.*)$code2/) {
} else {
}
}
#busca en md5.xpzone.de
sub cracker11 {
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>";
if ($resultado->content =~ m/$code1(.*)$code2/) {
} else {
}
}
#busca en us.md5.crysm.net
sub cracker12 {
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>";
if ($resultado->content =~ m/$code1(.*)$code2/) {
} else {
}
}
#busca en www.hashreverse.com
sub cracker13 {
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>";
if ($request->content =~ m/$code1(.*)$code2/) {
} else {
}
}
#busca en www.neeao.com
sub cracker14 {
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 />";
if ($request->content =~ m/$code1(.*)$code2/) {
} else {
}
}
#busca en www.hashchecker.com
sub cracker15 {
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>";
if ($request->content =~ m/$code1(.*)$code2/) {
} else {
}
}
#busca en victorov.su/md5/
sub cracker16 {
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=\"\">";
if ($resultado->content =~ m/$code1(.*)$code2/) {
} else {
}
}
#busca en securitystats.com/tools
sub cracker17 {
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>".No tienes permisos para ver links.
Registrate o
Entra con tu cuenta($hash)." = "; my $code2 = "</td>";
if ($request->content =~ m/$code1(.*)$code2/) {
} else {
}
}
#busca en md5crack.it-helpnet.de
sub cracker18 {
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>";
if ($request->content =~ m/$code1(.*)$code2/) {
} else {
}
} else {
}
}
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies.