#!/usr/bin/perl
print "\n\t*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*\n"; 
print "\t*       ===== Md5 Cracker  =====      *\n";
print "\t*  ===== WwW.Mafia-massa.net =====  *\n";
print "\t*    ===  01Xp01 [At] Gmail [dot] Com ===   *\n";  
print "\t-          Coded By The W0rm          -\n"; 
print "\t*                Ex:md5.pl md5_hash   *\n"; 
print "\t*-*-*-*-*-*-*-*-**-*-*-*-*-*-*-*-**-*-*\n"; 

use LWP::UserAgent;

use HTTP::Request::Common;


my $md5 = shift;


if (!$md5 | (length($md5) != 32)) {

   die "not found or this is not md5\n";

}
else {

$lwp = LWP::UserAgent->new;

$lwa = $lwp->get('http://md5.rednoize.com/?p&s=md5&q='.$md5);

$hash = $lwa->content;


if ($hash or die "Not Found.\n") {

   print "cracked: $hash\n";

}

}