RooT Md5 Database Online

Betiv Cultivat Data inscrierii: 20/Iul/2008 Mesaje: 58

Cod:

#!/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";