FORUM DARKERS

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

legal DG !

parabens se o code fosse seu mereceria um ponto!

hehehe

Na verdade esse script só faz a busca no database do GData.

Uma forma de simplificar sua vida, assim como os scripts que fazem consultas no Netcraft.

HadeS

eu vi q soh faz a busca mas msm assim foi legal =)

um bom exemplo de uso de socks em perl

muito bom!!

merece um up

heys! Sim realmente eh mt util mas eu tenho aqui uma hash em md5 e nao ha meio de cracka la pois nao esta nas DBs de diversos sites de cracking de md5....

Abraços,

gostei porque eles tem dsoul (501f52ecb7dc1ff842a3dd6392109883) na db deles ;x