Merge.

[irc/quakenet/qwebirc.git] / js / md5.js

/*\r
 * A JavaScript implementation of the RSA Data Security, Inc. MD5 Message\r
 * Digest Algorithm, as defined in RFC 1321.\r
 * Copyright (C) Paul Johnston 1999 - 2000.\r
 * See http://pajhome.org.uk/site/legal.html for details.\r
 */\r
\r
/*\r
 * Converted freestanding JavaScript code to fully encapsulated object.\r
 * Andrew Collins, andrewrcollins@yahoo.com, 2000-11-28\r
 */\r
\r
/*\r
 * MD5\r
 *\r
 * Usage:\r
 *\r
 *   var object = new MD5()\r
 *\r
 *     Returns a MD5 object.\r
 *\r
 *   object.digest(input)\r
 *\r
 *     Returns MD5 message digest of input.\r
 *\r
 * Example:\r
 *\r
 *   var object = new MD5();\r
 *\r
 *   // Examples drawn from RFC1321 test suite\r
 *   object.digest("");\r
 *   // d41d8cd98f00b204e9800998ecf8427e\r
 *\r
 *   object.digest("a");\r
 *   // 0cc175b9c0f1b6a831c399e269772661\r
 *\r
 *   object.digest("abc");\r
 *   // 900150983cd24fb0d6963f7d28e17f72\r
 *\r
 *   object.digest("message digest");\r
 *   // f96b697d7cb7938d525a2f31aaf161d0\r
 *\r
 *   object.digest("abcdefghijklmnopqrstuvwxyz");\r
 *   // c3fcd3d76192e4007dfb496cca67e13b\r
 *\r
 *   object.digest("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789");\r
 *   // d174ab98d277d9f5a5611c2c9f419d9f\r
 *\r
 *   object.digest("12345678901234567890123456789012345678901234567890123456789012345678901234567890");\r
 *   // 57edf4a22be3c955ac49da2e2107b67a\r
 */\r
\r
qwebirc.util.crypto.MD5 = function() {\r
  this.digest = calcMD5;\r
\r
/*\r
 * Convert a 32-bit number to a hex string with ls-byte first\r
 */\r
  var hex_chr = "0123456789abcdef";\r
  function rhex(num)\r
  {\r
    var str = "";\r
    for(var j = 0; j <= 3; j++)\r
      str += hex_chr.charAt((num >> (j * 8 + 4)) & 0x0F) + hex_chr.charAt((num >> (j * 8)) & 0x0F);\r
    return str;\r
  }\r
\r
/*\r
 * Convert a string to a sequence of 16-word blocks, stored as an array.\r
 * Append padding bits and the length, as described in the MD5 standard.\r
 */\r
  function str2blks_MD5(str)\r
  {\r
    var nblk = ((str.length + 8) >> 6) + 1;\r
    var blks = new Array(nblk * 16);\r
    for(var i = 0; i < nblk * 16; i++) blks[i] = 0;\r
    for(var i = 0; i < str.length; i++)\r
      blks[i >> 2] |= str.charCodeAt(i) << ((i % 4) * 8);\r
    blks[i >> 2] |= 0x80 << ((i % 4) * 8);\r
    blks[nblk * 16 - 2] = str.length * 8;\r
    return blks;\r
  }\r
\r
/*\r
 * Add integers, wrapping at 2^32\r
 */\r
  function add(x, y)\r
  {\r
    return ((x&0x7FFFFFFF) + (y&0x7FFFFFFF)) ^ (x&0x80000000) ^ (y&0x80000000);\r
  }\r
\r
/*\r
 * Bitwise rotate a 32-bit number to the left\r
 */\r
function rol(num, cnt)\r
  {\r
    return (num << cnt) | (num >>> (32 - cnt));\r
  }\r
\r
/*\r
 * These functions implement the basic operation for each round of the\r
 * algorithm.\r
 */\r
  function cmn(q, a, b, x, s, t)\r
  {\r
    return add(rol(add(add(a, q), add(x, t)), s), b);\r
  }\r
  function ff(a, b, c, d, x, s, t)\r
  {\r
    return cmn((b & c) | ((~b) & d), a, b, x, s, t);\r
  }\r
  function gg(a, b, c, d, x, s, t)\r
  {\r
    return cmn((b & d) | (c & (~d)), a, b, x, s, t);\r
  }\r
  function hh(a, b, c, d, x, s, t)\r
  {\r
    return cmn(b ^ c ^ d, a, b, x, s, t);\r
  }\r
  function ii(a, b, c, d, x, s, t)\r
  {\r
    return cmn(c ^ (b | (~d)), a, b, x, s, t);\r
  }\r
\r
/*\r
 * Take a string and return the hex representation of its MD5.\r
 */\r
  function calcMD5(str)\r
  {\r
    var x = str2blks_MD5(str);\r
    var a = 0x67452301;\r
    var b = 0xEFCDAB89;\r
    var c = 0x98BADCFE;\r
    var d = 0x10325476;\r
\r
    for(var i = 0; i < x.length; i += 16)\r
    {\r
      var olda = a;\r
      var oldb = b;\r
      var oldc = c;\r
      var oldd = d;\r
\r
      a = ff(a, b, c, d, x[i+ 0], 7 , 0xD76AA478);\r
      d = ff(d, a, b, c, x[i+ 1], 12, 0xE8C7B756);\r
      c = ff(c, d, a, b, x[i+ 2], 17, 0x242070DB);\r
      b = ff(b, c, d, a, x[i+ 3], 22, 0xC1BDCEEE);\r
      a = ff(a, b, c, d, x[i+ 4], 7 , 0xF57C0FAF);\r
      d = ff(d, a, b, c, x[i+ 5], 12, 0x4787C62A);\r
      c = ff(c, d, a, b, x[i+ 6], 17, 0xA8304613);\r
      b = ff(b, c, d, a, x[i+ 7], 22, 0xFD469501);\r
      a = ff(a, b, c, d, x[i+ 8], 7 , 0x698098D8);\r
      d = ff(d, a, b, c, x[i+ 9], 12, 0x8B44F7AF);\r
      c = ff(c, d, a, b, x[i+10], 17, 0xFFFF5BB1);\r
      b = ff(b, c, d, a, x[i+11], 22, 0x895CD7BE);\r
      a = ff(a, b, c, d, x[i+12], 7 , 0x6B901122);\r
      d = ff(d, a, b, c, x[i+13], 12, 0xFD987193);\r
      c = ff(c, d, a, b, x[i+14], 17, 0xA679438E);\r
      b = ff(b, c, d, a, x[i+15], 22, 0x49B40821);\r
\r
      a = gg(a, b, c, d, x[i+ 1], 5 , 0xF61E2562);\r
      d = gg(d, a, b, c, x[i+ 6], 9 , 0xC040B340);\r
      c = gg(c, d, a, b, x[i+11], 14, 0x265E5A51);\r
      b = gg(b, c, d, a, x[i+ 0], 20, 0xE9B6C7AA);\r
      a = gg(a, b, c, d, x[i+ 5], 5 , 0xD62F105D);\r
      d = gg(d, a, b, c, x[i+10], 9 , 0x02441453);\r
      c = gg(c, d, a, b, x[i+15], 14, 0xD8A1E681);\r
      b = gg(b, c, d, a, x[i+ 4], 20, 0xE7D3FBC8);\r
      a = gg(a, b, c, d, x[i+ 9], 5 , 0x21E1CDE6);\r
      d = gg(d, a, b, c, x[i+14], 9 , 0xC33707D6);\r
      c = gg(c, d, a, b, x[i+ 3], 14, 0xF4D50D87);\r
      b = gg(b, c, d, a, x[i+ 8], 20, 0x455A14ED);\r
      a = gg(a, b, c, d, x[i+13], 5 , 0xA9E3E905);\r
      d = gg(d, a, b, c, x[i+ 2], 9 , 0xFCEFA3F8);\r
      c = gg(c, d, a, b, x[i+ 7], 14, 0x676F02D9);\r
      b = gg(b, c, d, a, x[i+12], 20, 0x8D2A4C8A);\r
\r
      a = hh(a, b, c, d, x[i+ 5], 4 , 0xFFFA3942);\r
      d = hh(d, a, b, c, x[i+ 8], 11, 0x8771F681);\r
      c = hh(c, d, a, b, x[i+11], 16, 0x6D9D6122);\r
      b = hh(b, c, d, a, x[i+14], 23, 0xFDE5380C);\r
      a = hh(a, b, c, d, x[i+ 1], 4 , 0xA4BEEA44);\r
      d = hh(d, a, b, c, x[i+ 4], 11, 0x4BDECFA9);\r
      c = hh(c, d, a, b, x[i+ 7], 16, 0xF6BB4B60);\r
      b = hh(b, c, d, a, x[i+10], 23, 0xBEBFBC70);\r
      a = hh(a, b, c, d, x[i+13], 4 , 0x289B7EC6);\r
      d = hh(d, a, b, c, x[i+ 0], 11, 0xEAA127FA);\r
      c = hh(c, d, a, b, x[i+ 3], 16, 0xD4EF3085);\r
      b = hh(b, c, d, a, x[i+ 6], 23, 0x04881D05);\r
      a = hh(a, b, c, d, x[i+ 9], 4 , 0xD9D4D039);\r
      d = hh(d, a, b, c, x[i+12], 11, 0xE6DB99E5);\r
      c = hh(c, d, a, b, x[i+15], 16, 0x1FA27CF8);\r
      b = hh(b, c, d, a, x[i+ 2], 23, 0xC4AC5665);\r
\r
      a = ii(a, b, c, d, x[i+ 0], 6 , 0xF4292244);\r
      d = ii(d, a, b, c, x[i+ 7], 10, 0x432AFF97);\r
      c = ii(c, d, a, b, x[i+14], 15, 0xAB9423A7);\r
      b = ii(b, c, d, a, x[i+ 5], 21, 0xFC93A039);\r
      a = ii(a, b, c, d, x[i+12], 6 , 0x655B59C3);\r
      d = ii(d, a, b, c, x[i+ 3], 10, 0x8F0CCC92);\r
      c = ii(c, d, a, b, x[i+10], 15, 0xFFEFF47D);\r
      b = ii(b, c, d, a, x[i+ 1], 21, 0x85845DD1);\r
      a = ii(a, b, c, d, x[i+ 8], 6 , 0x6FA87E4F);\r
      d = ii(d, a, b, c, x[i+15], 10, 0xFE2CE6E0);\r
      c = ii(c, d, a, b, x[i+ 6], 15, 0xA3014314);\r
      b = ii(b, c, d, a, x[i+13], 21, 0x4E0811A1);\r
      a = ii(a, b, c, d, x[i+ 4], 6 , 0xF7537E82);\r
      d = ii(d, a, b, c, x[i+11], 10, 0xBD3AF235);\r
      c = ii(c, d, a, b, x[i+ 2], 15, 0x2AD7D2BB);\r
      b = ii(b, c, d, a, x[i+ 9], 21, 0xEB86D391);\r
\r
      a = add(a, olda);\r
      b = add(b, oldb);\r
      c = add(c, oldc);\r
      d = add(d, oldd);\r
    }\r
    return rhex(a) + rhex(b) + rhex(c) + rhex(d);\r
  }\r
}\r