MD5crack.frink

View or download MD5crack.frink in plain text format


// Program to try and hack the fake MD5 hash in the Heroes website:
// http://www.primatechpaper.com/career.shtml

// The fake value from function checkThisl(form).  The designers of this site
// are bloody clever.  It's odd that they chose a hash that was so close
// to the real hash, though.  It's the only reason I succeeded in my earlier
// break.  Of course, this can't be a real hash because there's an "s" in
// what are supposed to be hexadecimal digits.
primac = "f90ad64d3e6fc85b784c2b11595c1sa0"

// The *real* value from function checkThis1(form)  hidden cleverly
// in _common.js.  The weird thing is that the fake value gives such a close
// hash code that let me break in in the first place.
// Bloody clever by the designers.  They could have made it harder on me by
// choosing a fake hash that's really far away.
// This one is actually hashed *twice*.
primac = "133946763392c2f3896f7fd6c4e00747";

// The wordlist files are part of the Moby wordlist project, available at:
//   http://icon.shef.ac.uk/Moby/
files = ["file://///home/eliasen/prog/mobydict/mwords/singlewords.txt",
"file://///home/eliasen/prog/mobydict/mwords/compoundwords.txt",
"file://///home/eliasen/prog/mobydict/mwords/names.txt",
"file://///home/eliasen/prog/mobydict/mwords/places.txt",
"file://///home/eliasen/prog/mobydict/mlang/french.txt",
"file://///home/eliasen/prog/mobydict/mlang/german.txt",
"file://///home/eliasen/prog/mobydict/mlang/italian.txt",
"file://///home/eliasen/prog/mobydict/mlang/japanese.txt",
"file://///home/eliasen/prog/mobydict/mlang/spanish.txt"]

suffixes = ["", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "s", "es"]

println["Processing numbers"]
for n = 1 to 1000000
{
   line = "$n"
   h = messageDigest[messageDigest[line, "MD5"], "MD5"]
   left = substrLen[h, 0, 10]
   e = editDistance[h, primac]
   if e < 20
      println["$line\t$h\t$e"]
}

for suffix1 = suffixes
   for suffix2 = suffixes
   {
      suffix = "$suffix1$suffix2"
      println["Trying suffix $suffix"]

      // Load in the wordfiles
      for file = files
      {
//         println["Processing $file"]
         for line = lines[file]
         {
            // The real crack runs MD5 twice.  Damn ass clever!
            h = messageDigest[messageDigest["$line$suffix", "MD5"], "MD5"]
            e = editDistance[h, primac]
            if e < 19
               println["$line$suffix\t$h\t$e"]

         }
      }
   }


View or download MD5crack.frink in plain text format


This is a program written in the programming language Frink.
For more information, view the Frink Documentation or see More Sample Frink Programs.

Alan Eliasen was born 17596 days, 22 hours, 3 minutes ago.