Basic Online MD5 Cracker


#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Request::Common;
$md5 = shift;
$lwp = LWP::UserAgent->new;
$lwa = $lwp->get('http://md5.rednoize.com/?p&s=md5&q='.$md5);
$hash = $lwa->content;
print "Result : $hash";