#!/usr/bin/perl use Digest::MD5 'md5_hex'; @char = ('a'..'z', 'A'..'Z',0..9,'`','-','=','~','!','@','$','%','^', '&','*','(',')','_','+','{','}','|',':','"','<','>',' '); print "Enter the MD5 hash...\n"; chomp($hash = <STDIN>); $hash =~ s/^\s+//g; $hash =~ s/\s+$//g; &bad_use unless length($hash) eq 32; makelist(); sub makelist { for ($br = 1; $br <= 12; $br++) { for ($len1 = 0; $len1 <= 62; $len1++) { $word[1] = $char[$len1]; for ($len2 = 0; $len2 <= 83; $len2++) { $word[2] = $char[$len2]; if ($br <= 2) { add(@word); } else { for ($len3 = 0; $len3 <= 62; $len3++) { $word[3] = $char[$len3]; if ($br <= 3) { add(@word); } else { for ($len4 = 0; $len4 <= 62; $len4++) { $word[4] = $char[$len4]; if ($br <= 4) { add(@word); } else { for ($len5 = 0; $len5 <= 62; $len5++) { $word[5] = $char[$len5]; if ($br <= 5) { add(@word); } else { for ($len6 = 0; $len6 <= 62; $len6++) { $word[6] = $char[$len6]; if ($br <= 6) { add(@word); } else { for ($len7 = 0; $len7 <= 62; $len7++) { $word[7] = $char[$len7]; if ($br <= 7) { add(@word); } else { for ($len8 = 0; $len8 <= 62; $len8++) { $word[8] = $char[$len8]; if ($br <= 8) { add(@word); } else { for ($len9 = 0; $len9 <= 62; $len9++) { $word[9] = $char[$len9]; if ($br <= 9) { add(@word); } else { for ($len10 = 0; $len10 <= 62; $len10++) { $word[10] = $char[$len10]; if ($br <= 10) { add(@word); } else { for ($len11 = 0; $len11 <= 62; $len11++) { $word[11] = $char[$len11]; if ($br <= 11) { add(@word); } else { for ($len12 = 0; $len12 <= 62; $len12++) { $word[12] = $char[$len12]; if ($br <= 12) { add(@word); } else { for ($len13 = 0; $len13 <= 62; $len13++) { $word[13] = $char[$len13]; if ($br <= 13) { add(@word); } else { for ($len14 = 0; $len14 <= 62; $len14++) { $word[14] = $char[$len14]; if ($br <= 14) { add(@word); }}}}}}}}}}}}}}}}}}}}}}}}}}}}} sub add { @entry = @_; $ascii = join "", @entry; $md5 = md5_hex $ascii; print $md5."\n"; if ($md5 eq $hash){ print "\nFound Hash: ".$ascii."\n\n"; exit; } } sub bad_use { print "Enter a valid hash\n"; exit; }