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)


Die Datenschuterklärung und die AGB habe ich gelesen, verstanden und akzeptiere sie. (Pflicht Angabe)

 Smileys einfügen



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