[Perl] MD5-Searcher

[-=Player=-]

hab gestern angefangen perl zu lernen um selber exploits zu schreiben. Hier ein kleines Projekt was aus langerweile entstanden ist.
Er überprüft ein hash über 6 online hash cracker.

#!/usr/bin/perl by player
use LWP::UserAgent;
use HTTP::Cookies;
print "[>] ++++++++++++++++++++++++++++++++++\n";
print "[>] +   MD5-Searcher by -=Player=-   +\n";
print "[>] +          ICQ:282246419         +\n";
print "[>] ++++++++++++++++++++++++++++++++++\n";
print "[>] +              visit             +\n";
print "[>] +        www.Free-Hack.com       +\n";
print "[>] ++++++++++++++++++++++++++++++++++\n";
print "\n[>] MD5-Hash: ";
$usid = <STDIN>;
chomp $usid;
$www = new LWP::UserAgent;
$sql = "http://md5.rednoize.com/?q=$usid/*";
$res = $www -> get($sql) or err();
$res -> content() =~ /"result" >(.*)</ or err();
print "\n[>] MD5.Rednoize.com\t: $1 \n\n";
$sql = "http://gdataonline.com/qkhash.php?mode=txt&hash=$usid/*";
$res = $www -> get($sql) or err();
$res -> content() =~ /[b](.*)</ or err();
print "[>] GDataOnline.com\t: $1 \n\n";
$sql = "http://www.tydal.nu/php/sakerhet/md5.php?q=$usid/*";
$res = $www -> get($sql) or err();
$res -> content() =~ /<h5>[b](.*)</ or err();
print "[>] Tydal.nu\t\t: $1 \n\n";
$sql = "http://alimamed.pp.ru/md5/?md5e=&md5d=$usid/*";
$res = $www -> get($sql) or err();
$res -> content() =~ /àí: [b](.*)</ or err();
print "[>] Alimamed.pp.ru\t: $1 \n\n";
$sql = "http://md5.xpzone.de/?mode=decrypt&string=$usid/*";
$res = $www -> get($sql) or err();
$res -> content() =~ /Code: [b](.*)</ or err();
print "[>] MD5.xpzone.de\t: $1 \n\n";
$sql = "http://xml.hashreverse.com/index.php?hash=$usid/*";
$res = $www -> get($sql) or err();
$res -> content() =~ /<Result>(.*)</ or err();
print "[>] XML.Hashreverse.com\t: $1 \n\n";
sub err()
{}

[hinxX]

Man du kannst ja wirklich alles bald :>
Danke, bei mir gehts super, ist weiterzuempfehlen, da es sehr viel Zeit spart :-)

[Nemo.A]

Irgendwie lame. Glaube nicht dass du etwas von dem Projekt gelernt hast.
Wieso machst du es nicht mit normalen Sockets, und den ganzen HTTP Abfragen, da lernst du wenigstens mit Sockets und HTTP umzugehen. Wird dir mehr bringen.

[-=Player=-]

hab ja nicht gesagt, das es zum lernen dient, ist ja nur aus langerweile entstanden, jaaaaa ich weiß dabei könnte man auch was lerne.

[Sunfire]

Man fängt doch immer mal an also für die erste arbeit gar nicht mal so schlecht.

[Trii]

hm ich find das ding recht cool .. aber mehrere seiten wären besser

vllt noch diese hier
www.plain-text.info