Tipps & Tricks

 

* Startseite     * Über...     * Archiv     * Gästebuch     * Kontakt     * Abonnieren



* Letztes Feedback






MD5 Hash Crack [Perl]

Ich habe hier mal einen MD5 Hash-Cracker in Perl, geuploadet:

 +++++++++++++++++++++++++++++++++++++++++++++++

#!/usr/bin/perl

print q(
____________,,,,,,,,,,,,,,,,,,_______________
____________badrh0@hotmail.com_______________
____________^^^^^^^^^^^^^^^^^^_______________
);

use IO::Socket;

sub findmd5
{
my ($md5, $host, $uri, $pdata, $regexp) = @_;
my $pdata .= $md5;
$datalen = length $pdata ;
syswrite STDOUT, "\n\n\tSearching on $host ";
my $sock = new IO::Socket::INET (
PeerAddr => "$host",
PeerPort => "80",
Proto => "tcp",
);

if(!$sock){
print " [!] Connection time out : $!\n";
return false;
}
else
{

print $sock "POST /$uri"."$md5"." HTTP/1.1\n";
print $sock "Host: $host\n";
print $sock "Referer: $host\n";
print $sock "Accept-Language: en-us\n";
print $sock "Content-Type: application/x-www-form-urlencoded\n";
print $sock "User-Agent: MoX-Zilla\n";
print $sock "Connection: Keep-Alive\n";
print $sock "Cache-Control: no-cache\n";
print $sock "Content-Length: $datalen\n\n";
print $sock "$pdata\n";

while ($answer = <$sock>
{
if ($answer =~ /$regexp/ )
{
print "Cracked ! \n\n\n\t";
sleep(1);
print "Plaintext is : ".$1."\n\n\t";
print "\t[+] Merci $host :P Enjoy \n\n";
exit(0);
}
}
close($sock);
}
}

print q(
Enter MD5 hash
Example : b2f3d1e0efcb5d60e259a34ecbbdbe00
Hash MD5: );
$hash=<STDIN>;
chomp ($hash);
unless($hash =~ /[0-9a-fA-Z]{32}/) {die "not a md5 hash :-/ !\n"};
print "Searching ....\n";

@sites = (
["passcracking.ru","/index.php?xD=","datafromuser=","lor=#FF0000>(.*?)<\/td>.*?<\/td><\/"],
["md5.benramsey.com","/md5.php?hash=","","TA.(.*?)..><\/s"],
["md5.noisette.ch","/md5.php?hash=","","TA.(.*?)..><\/s"],
["gdataonline.com","qkhash.php?mode=xml&hash=","","t>(.*?)<\/re"],
["md52.altervista.org","index.php?md5=","","d: .*?ed\">[^\[](.*?)<\/font><\/b"]
);

$si = 0;

foreach (@sites){
$site = $sites[$si][0];
$uri = $sites[$si][1];
$pdata = $sites[$si][2];
$regex = $sites[$si][3];
findmd5($hash,$site,$uri,$pdata,$regex);
$si++;
}

print "\n\nThis hash is was not found on the net, must brut-force :-(\n\n";

+++++++++++++++++++++++++++++++++++++++++++++++++

 

Viel Spaß :D Ein Tutorial dazu findet ihr auf Youtube:

http://www.youtube.com/watch?v=wftWOaj3c3w

3.4.11 20:13
 


Werbung


bisher 1 Kommentar(e)     TrackBack-URL


Frans (10.7.11 20:10)
Its'w not working !

Name:
Email:
Website:
E-Mail bei weiteren Kommentaren
Informationen speichern (Cookie)



 Smileys einfügen



Verantwortlich für die Inhalte ist der Autor. Dein kostenloses Blog bei myblog.de! Datenschutzerklärung
Werbung