MD5 Hash Database
Hey, I'm creating a MD5 hash database so that cracking them may become much easier B)
To use the database, go on AIM and type in your hash to screen name "md5library". To add to the database, just type md5(stringhere).
If you have any comments, would like to give me a hash list to crack, or a dictionary to add, let me know :)
DarkRedRose: Nope.
A normal MD5 hash consists of the numbers zero through nine and the letters 'a' through 'f' (16 bit HEX), also it will be 32 characters long every time.
for an online md5 encryption tool, you may use:
thousandtoone: Yes, it is true that other have done this project. However, most tables only have a few million entries. I have created a script that will constantly update the database, so it will continue to grow until the alotted 5TB is used… then I'll buy more disk space and it will grow even more :) Currently there are over 35,000,000 entries
DarkRedRose wrote: so no Symbols? 1$puLS/iXj$4RUIMPkLWhkKpVAav1Zik/ <- the Hash…
The reason why that won't crack in his bot is because he's only cracking clean MD5 hexadecimal hashes. Your hash is salted, as you can see from it beginning with "$1".
BTW, a clean MD5 hash is 32 characters in length, while a salted MD5 hash is 34 chracters.
The following code will generate a clan MD5 hexadecimal hash:
#!/usr/bin/perl -w
# MD5 hex hash generator, written by n3w7yp3
use Digest::MD5;
use strict;
my $string = shift || &usage;
print "Encrypting \'$string\' with MD5...\n";
my $hex = Digest::MD5 -> new;
$hex -> add($string);
my $hex_hash = $hex -> hexdigest;
print "Your MD5 hexadecimal hash is: $hex_hash\n";
exit;
sub usage
{
print "Usage: $0 <string>\n";
die "String is the string to encrypt with MD5.\n";
}
# EOF
This bit will generate a salted hash, like you find in /etc/shadow:
#!/usr/bin/perl
# written by n3w7yp3
$plain = shift || &usage;
$salt = shift;
if($salt eq undef)
{
@numbers = (97..122);
$num_chars = @numbers;
foreach(1..8)
{
$salt1 .= chr($numbers[int(rand($num_chars))]);
}
$salt = "\$"."1"."\$".$salt1."\$";
}
else
{
if(length($salt) != 11 || length($salt) != 12)
{
die "length(): error: Salt is not the correct length.\n";
}
if($salt !~ /^\$1\$[a-z]{1,8}\$$/ || $salt !~ /^\$1\$[a-z]{1,8}$/)
{
die "regex: error: Salt is not tin the correct format.\n";
}
}
$hash = crypt($plain, $salt);
print "Encrytping \'$plain\' with MD5 using the salt \'$salt\'...\n";
print "MD5 hash: $hash\n";
exit;
sub usage
{
die "Usage: $0 <plaintext> [salt]\n";
}
# EOF