Post Reply 
 
Thread Rating:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
md5 cracker - the 5 best web databases
05-12-2010, 11:53 PM (This post was last modified: 09-04-2011 04:05 PM by Stephen.)
Post: #1
md5 cracker - the 5 best web databases
Code:

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

Need Game or IRC Hosting? Get it now on xShellz.com !

The best web hosting only on BeltHosting.com

[Image: logo.png]
User Tools
Quote this message in a reply
05-13-2010, 12:09 AM
Post: #2
RE: md5 cracker - the 5 best web databases
I use these online good decrypters, are the bests.
http://www.md5decrypter.co.uk/
http://gdataonline.com/seekhash.php
User Tools
Quote this message in a reply
05-25-2010, 03:49 PM
Post: #3
RE: md5 cracker - the 5 best web databases
(05-12-2010 11:53 PM)Stephen Wrote:  Code it's not myn.

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

Hm...Plz cn yu tell in sh0rt hw cn i use it Shy

.
User Tools
Quote this message in a reply
10-01-2011, 11:07 PM
Post: #4
RE: md5 cracker - the 5 best web databases
1) MD5 isn't an encryption, it's a hash, so it can't be decrypted. (And there's no such thing as "dehashing").

2) The best you can do is collide it. That means that the text you give it produces the same hash as the original text did. That means that if it's a password you stand a reasonable chance of getting in. But if it's, say, an email address, colliding it doesn't give you the original email address, it just gives you text that produces the same hash as the original email address. Which is totally useless.
User Tools
Quote this message in a reply
Post Reply 




User(s) browsing this thread:
1 Guest(s)