[Perl] MD5 MultiCracker

[php]
#!/usr/bin/perl
# Perl
# Md5 MultiCracker
# Author : Cod3rZ
# Usage : perl md5.pl [hash]
# Usage: perl md5.pl 27d34b40d7adafe2e00c3503543e0ca9
# Thanks to GrabberGhost

use LWP::UserAgent;
use HTTP::Request::Common;

system("cls");
print q{ ———————————————————————
:: Md5 MultiCracker ::
———————————————————————-
};
$hash = $ARGV[0];
chomp($hash);

if(!$hash) {
print q{ Usage: perl md5.pl [hash]
Usage: perl md5.pl 27d34b40d7adafe2e00c3503543e0ca9
———————————————————————
};
} else {

$lwp = LWP::UserAgent->new;

#Milw0rm

$ua = $lwp->request(POST ‚http://www.milw0rm.com/cracker/search.php‘,
[
hash => "$hash",
Submit => ‚Submit‘,
]);
@content = split(/[n]/, $ua->content);
@password = split( /[><]/, $content[46]);
if($password[1]) { print " Password cracked: $password[1] \n ———————————————————————"; }
else {

#Rednoize

$red = $lwp->request(GET ‚http://md5.rednoize.com/?p&s=md5&q=‘.$hash);
$content = $red->content;
if($content) {
print " Password cracked : $content \n ———————————————————————";
} else {

#GdataOnline

$gdo = $lwp->request(GET ‚http://gdataonline.com/qkhash.php?mode=xml&hash=‘.$hash);
@content = split(/<result>/, $gdo->content);
@password = split( /[><]/, $content[1]);
if(@password[0]) {
print " Password cracked: @password[0]\n ———————————————————————";
}
else { print " Password Not Cracked\n ———————————————————————"; }
} } }
[/php]