#!/usr/bin/perl 

print q{ 
-[----------------------------------------------------------------------]- 

                          RooT Md5 Database Online 
                  Url = http://h4ckingworld.altervista.org 
                     Thx gdataonline.com 4 your DataBase ! 

-[----------------------------------------------------------------------]- 

}; 

use IO::Socket; 

print q( 
RooT Md5 Database Online 
); 

print q( 
° Insert Your Hash Here!!! - Example : 670b14728ad9902aecba32e22fa4f6bd 
° Md5 Hash: ); 
$hash=<STDIN>; 
chop ($hash); 

$url= "gdataonline.com"; 
$host = "$url"."/qkhash.php?mode=txt&hash="; 
$postit = "$host"."$hash"; 

$lrg = length $postit; 


my $sock = new IO::Socket::INET ( 
                                 PeerAddr => "$url", 
                                 PeerPort => "80", 
                                 Proto => "tcp", 
                                ); 

die "\nConnection Refused : $!\n" unless $sock; 

print $sock "POST /qkhash.php?mode=txt&hash="."$hash"." HTTP/1.1\n"; 
print $sock "Host: $url\n"; 
print $sock "Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5\n"; 
print $sock "Referer: $url\n"; 
print $sock "Accept-Language: en-us\n"; 
print $sock "Content-Type: application/x-www-form-urlencoded\n"; 
print $sock "User-Agent: Mozilla/5.0 (BeOS; U; BeOS X.6; en-US; rv:1.7.8) Gecko/20050511 Firefox/1.0.4\n"; 
print $sock "Content-Length: $lrg\n\n"; 
print $sock "$postit\n"; 
close($sock); 

use LWP::Simple; 

$res = "http://"."$url"."/qkhash.php?mode=xml&hash="."$hash"; 
$results = get($res); 
print "\n"."$results"."\n\n";