(adsbygoogle = window.adsbygoogle || []).push({}); Got bored and was looking through my old programs and found this that I wrote about 3 years ago for word experience.

SOURCE:

    



#!/usr/bin/perl





use Digest::MD5 qw(md5_hex);

use File::Basename;



my $input_hsh = @ARGV[0];

my $md5 = @ARGV[1];

my $fname = __FILE__;



if($input_hsh eq "" || $input_hsh > 32) {

print "\nUsage: perl $fname dictionary_file md5hash

\nExample: perl $fname wordlist.txt aaeedfd427958ed28a6fe90a2accfa33\n";

}



elsif($md5 eq "") {

print "\nUsage: perl $fname dictionary_file md5hash

\nExample: perl $fname wordlist.txt aaeedfd427958ed28a6fe90a2accfa33\n";

}

print "\n\nCODED BY T0BY! \@__t0by \n ";

print "\n========================================\n";

open(INP, $input_hsh) or die("Cannot open the dictionary file.");

@wordlist = <INP>;

close(INP);



foreach $zlj(@wordlist) {

$zlj =~ s/\n//;

$hashed = md5_hex($zlj);

if($hashed eq $md5) {



print "\nPassword was recovered.\n";

print "MD5 input: " . $md5 . "\n";

print "Cracked: " . $zlj . "\n";



}

}

Usage:

    

perl crack.pl dictionaryfile md5hash

perl crack.pl wordlist.txt aaeedfd427958ed28a6fe90a2accfa33

There is a bug that the script wouldn't read a very large file. On my next release (if I get a good feedback on this) I'll release a bug free version which will allow directory selecting rather than single dictionary selection.

Don't leach, enjoy.

i dont know what a md5 is.

? seriously??? it's an encryption function.

You must login or register to view this content.

Each password on NGU is stored on a database with MD5 encryption so no one can steal passwords without going threw MD5

you spelt through wrong and I'm sure NGU use salts as well.

Wikipedia FTW!