md5 Perl Bruteforcer

[Suicide]

#!/usr/bin/perl

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

-]-

RooT Md5 Database Online
http://www.free-hack.com
Greetz to FrEe, LordBlubb, Kugelblitz & Rip

-[---------------------------------------------------------------------

-]-

};

use IO::Socket;

print q(
RooT Md5 Database Online
);

print q(
° Euer Hash hier!! - Beispiel : 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/pla

in;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";

[locos]

Dazu sag ich mal nix :wink:

http://h4ckingworld.netsons.org/H4ckingworld_TooLz/MD5_BruteForce_Perl.txt