Perl Perl Multi MD5 Search.

[Nax]

>#!/usr/bin/perl
# md5hash = e10adc3949ba59abbe56e057f20f883e = 123456
################################
# DelincuenteDigital #
# 2009 #
################################
# Greetz: Login-Root #
################################
use LWP::UserAgent;
use HTTP::Cookies;
print "[+] MD5 Search by FR34K\n";
$md5 = $ARGV[0];
chomp $md5;
if ($md5 eq "") {usage();};
if (length($md5)!=32) { die "No Es Un MD5 Valido\n";};
$www = new LWP::UserAgent;
$sitio = "http://md5.rednoize.com/?p&s=md5&q=$md5";
$contenido = $www -> get($sitio) or error();
$contenido -> content() =~ /(.*)/ or error();
print "\n[+] md5.rednoize.com\t: $1 \n";
$sitio = "http://gdataonline.com/qkhash.php?mode=txt&hash=$md5";
$contenido = $www -> get($sitio) or error();
$contenido -> content() =~ /td width="35%">(.*) or error();
@contenido = split(/,$1);
print "\n[+] gdataonline.com\t: $contenido[0] \n";
$sitio = "http://md52.altervista.org/?md5=$md5";
$contenido = $www -> get($sitio) or error();
$contenido -> content() =~ /"Red">(.*) or error();
@contenido = split(/"Red">/,$1);
@contenidofinal = split(/,$contenido[1]);
print "\n[+] md52.altervista.org\t: $contenidofinal[0] \n";
$sitio = "http://md5.hashcracking.com/search.php?md5=$md5";
$contenido = $www -> get($sitio) or error();
$contenido -> content() =~ /(.*)/ or error();
@contenido = split(/\s+/,$contenido -> content());
print "\n[+] md5.hashcracking.com\t: $contenido[4] \n";
sub error()
{}
sub usage{
print "\nModo de uso: perl md5search.pl ";
}