-
md5 Perl Bruteforcer
Code:
#!/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";
-
