Crackeador MD5 5 en 1 Multiscanner

Descargar: underline;">

instalar esto primero para ejecutar el codigo

bueno para crackear hash pero busca en las 5 paginas reconcidad como estas
http://www.hashfind.info
http://md5decrypter.com
http://SPAM(103)
http://md5.hashcracking.com
http://milw0rm.com
http://md5search.org

use LWP::UserAgent;<br />use HTTP::Request::Common;<br />use HTTP::Cookies;<br /> <br /># By OzX<br />### BASE DE LAS PETICIONES ##############################################################################################<br />$browser = LWP::UserAgent->new();<br />$browser->timeout(10);<br />$browser->default_header(<br /> <br />"User-Agent" => "Mozilla/5.0 (Windows; U; Windows NT 5.1; es-ES; rv:1.9.0.1) Gecko/2008070208 Firefox/3.0.1",<br />"Accept" => "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8",<br />"Accept-Language" => "es-es,es;q=0.8,en-us;q=0.5,en;q=0.3",<br />"Referer" => "http://www.google.com"<br />);<br /> <br />#################################################################FUNCION GET Y POST<br />sub GETS{@code = split("\n",$content = $browser->request(GET $_[0])->content);return @code;}<br />sub POSTS{@code = split("\n",$content = $browser->request(POST $_[0], [%{$_[1]}])->content);return @code};<br />###############################################################################<br />$hash = $ARGV[0];<br />unless ($ARGV[0]) {<br /> print "MULTICRACKER 0.1 BY OZX \nCrackNB.pl <hash>\n";<br /> print "CrackNB.pl 202cb962ac59075b964b07152d234b70\n\n";<br /> exit 0;<br />}<br />########################################################<br />%webs = ('0' => "http://md5decrypter.com",<br /> '1' => "http://SPAM(103)",<br /> '2' => "http://md5.hashcracking.com",<br /> '3' => "http://milw0rm.com",<br /> '4' => "http://md5search.org",);<br /> <br />###PETICIONES ####################################<br />if ($hash =~/\w{32}/){<br />hashfind($hash);<br />for($i=0;$i<5;$i++){ pid =" fork();" pid ="=""> ".md5($i)."\n";<br /> exit 0;<br /> }<br /> }<br />}else{<br />print "<br /><br /> * HASH INVALIDO\n";<br /><br />exit;<br />}<br />#################################################<br />sub hashfind{<br />$hash = $_[0];<br />### COOKIE PARA http://www.hashfind.info <= ¬¬ $browser->cookie_jar(HTTP::Cookies->new(file => "cookie_hash.txt", autosave => 1));<br />@code = POSTS("http://www.hashfind.info/",{hash => $hash, button => Search});<br />@codex = GETS("http://www.hashfind.info/get.php?type=0 ");<br />print "http://www.hashfind.info :> @codex\n";<br />}<br /> <br />sub md5{<br />$id=$_[0];<br />$cracker[0]= crack_post($webs{$id},{hash => $hash, submit => Decrypt%21 },$hash,'.*Normal.*<\/b>','.*this hash wasn.*') ;<br />$cracker[1]= crack_get($webs{$id}."/qkhash.php?mode=txt&hash=",$hash,'.*><b>','<\/b><.*','.*\?',"<\/td><\/tr>");<br />$cracker[2]= crack_get($webs{$id}."/search.php?md5=",$hash,".*is ");<br />$cracker[3]= crack_post($webs{$id}."/cracker/search.php",{hash => $hash, Submit => Submit },$hash,"<\/TD><td align="\" nowrap="\" width="90">cracked.*",".*<tr class="\">.*nowrap=\"nowrap\" width=90>");<br />$cracker[4]= crack_post($webs{$id}."/index.php",{hash => $hash , server => all ,token => md5s , tryb => search, submit =>MD5Search%28%29},"<font.*size=\"-1\">.*nbsp",".*class=\"wyniksz\">","<\/font><\/td><\/tr><\/table><\/td><\/tr><\/table>.*p>","<\/font><\/td><\/tr>");<br /> <br />return $cracker[$id];<br />}<br /> <br />sub crack_post{<br />($url,$data,$match,@reg1) = @_;<br />@code = POSTS($url,$data);<br /> for $linea (@code){<br /> if ($linea=~/$match/i){<br /> for $reg (@reg1){<br /> $linea=~s/$reg//;<br /> }<br /> <br />return $linea;<br /> }<br /> <br /> }<br /> }<br /> <br />sub crack_get{<br />($url,$hash,@reg1) = @_;<br />@code = GETS($url.$hash);<br />for $linea (@code){<br /> if ($linea=~/$hash/i){<br /> for $reg (@reg1){<br /> $linea=~s/$reg//;<br /> <br /> }<br /> return $linea;<br /> }<br /> }<br /> }