• Home
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
1/*
2 * A JavaScript implementation of the RSA Data Security, Inc. MD5 Message
3 * Digest Algorithm, as defined in RFC 1321.
4 * Version 2.1 Copyright (C) Paul Johnston 1999 - 2002.
5 * Other contributors: Greg Holt, Andrew Kepert, Ydnar, Lostinet
6 * Distributed under the BSD License
7 * See http://pajhome.org.uk/crypt/md5 for more info.
8 */
9
10/*
11 * Configurable variables. You may need to tweak these to be compatible with
12 * the server-side, but the defaults work in most cases.
13 */
14var hexcase = 0;  /* hex output format. 0 - lowercase; 1 - uppercase        */
15var b64pad  = ""; /* base-64 pad character. "=" for strict RFC compliance   */
16var chrsz   = 8;  /* bits per input character. 8 - ASCII; 16 - Unicode      */
17
18/*
19 * These are the functions you'll usually want to call
20 * They take string arguments and return either hex or base-64 encoded strings
21 */
22function hex_md5(s){ return binl2hex(core_md5(str2binl(s), s.length * chrsz));}
23function b64_md5(s){ return binl2b64(core_md5(str2binl(s), s.length * chrsz));}
24function str_md5(s){ return binl2str(core_md5(str2binl(s), s.length * chrsz));}
25function hex_hmac_md5(key, data) { return binl2hex(core_hmac_md5(key, data)); }
26function b64_hmac_md5(key, data) { return binl2b64(core_hmac_md5(key, data)); }
27function str_hmac_md5(key, data) { return binl2str(core_hmac_md5(key, data)); }
28
29/*
30 * Perform a simple self-test to see if the VM is working
31 */
32function md5_vm_test()
33{
34  return hex_md5("abc") == "900150983cd24fb0d6963f7d28e17f72";
35}
36
37/*
38 * Calculate the MD5 of an array of little-endian words, and a bit length
39 */
40function core_md5(x, len)
41{
42  /* append padding */
43  x[len >> 5] |= 0x80 << ((len) % 32);
44  x[(((len + 64) >>> 9) << 4) + 14] = len;
45
46  var a =  1732584193;
47  var b = -271733879;
48  var c = -1732584194;
49  var d =  271733878;
50
51  for(var i = 0; i < x.length; i += 16)
52  {
53    var olda = a;
54    var oldb = b;
55    var oldc = c;
56    var oldd = d;
57
58    a = md5_ff(a, b, c, d, x[i+ 0], 7 , -680876936);
59    d = md5_ff(d, a, b, c, x[i+ 1], 12, -389564586);
60    c = md5_ff(c, d, a, b, x[i+ 2], 17,  606105819);
61    b = md5_ff(b, c, d, a, x[i+ 3], 22, -1044525330);
62    a = md5_ff(a, b, c, d, x[i+ 4], 7 , -176418897);
63    d = md5_ff(d, a, b, c, x[i+ 5], 12,  1200080426);
64    c = md5_ff(c, d, a, b, x[i+ 6], 17, -1473231341);
65    b = md5_ff(b, c, d, a, x[i+ 7], 22, -45705983);
66    a = md5_ff(a, b, c, d, x[i+ 8], 7 ,  1770035416);
67    d = md5_ff(d, a, b, c, x[i+ 9], 12, -1958414417);
68    c = md5_ff(c, d, a, b, x[i+10], 17, -42063);
69    b = md5_ff(b, c, d, a, x[i+11], 22, -1990404162);
70    a = md5_ff(a, b, c, d, x[i+12], 7 ,  1804603682);
71    d = md5_ff(d, a, b, c, x[i+13], 12, -40341101);
72    c = md5_ff(c, d, a, b, x[i+14], 17, -1502002290);
73    b = md5_ff(b, c, d, a, x[i+15], 22,  1236535329);
74
75    a = md5_gg(a, b, c, d, x[i+ 1], 5 , -165796510);
76    d = md5_gg(d, a, b, c, x[i+ 6], 9 , -1069501632);
77    c = md5_gg(c, d, a, b, x[i+11], 14,  643717713);
78    b = md5_gg(b, c, d, a, x[i+ 0], 20, -373897302);
79    a = md5_gg(a, b, c, d, x[i+ 5], 5 , -701558691);
80    d = md5_gg(d, a, b, c, x[i+10], 9 ,  38016083);
81    c = md5_gg(c, d, a, b, x[i+15], 14, -660478335);
82    b = md5_gg(b, c, d, a, x[i+ 4], 20, -405537848);
83    a = md5_gg(a, b, c, d, x[i+ 9], 5 ,  568446438);
84    d = md5_gg(d, a, b, c, x[i+14], 9 , -1019803690);
85    c = md5_gg(c, d, a, b, x[i+ 3], 14, -187363961);
86    b = md5_gg(b, c, d, a, x[i+ 8], 20,  1163531501);
87    a = md5_gg(a, b, c, d, x[i+13], 5 , -1444681467);
88    d = md5_gg(d, a, b, c, x[i+ 2], 9 , -51403784);
89    c = md5_gg(c, d, a, b, x[i+ 7], 14,  1735328473);
90    b = md5_gg(b, c, d, a, x[i+12], 20, -1926607734);
91
92    a = md5_hh(a, b, c, d, x[i+ 5], 4 , -378558);
93    d = md5_hh(d, a, b, c, x[i+ 8], 11, -2022574463);
94    c = md5_hh(c, d, a, b, x[i+11], 16,  1839030562);
95    b = md5_hh(b, c, d, a, x[i+14], 23, -35309556);
96    a = md5_hh(a, b, c, d, x[i+ 1], 4 , -1530992060);
97    d = md5_hh(d, a, b, c, x[i+ 4], 11,  1272893353);
98    c = md5_hh(c, d, a, b, x[i+ 7], 16, -155497632);
99    b = md5_hh(b, c, d, a, x[i+10], 23, -1094730640);
100    a = md5_hh(a, b, c, d, x[i+13], 4 ,  681279174);
101    d = md5_hh(d, a, b, c, x[i+ 0], 11, -358537222);
102    c = md5_hh(c, d, a, b, x[i+ 3], 16, -722521979);
103    b = md5_hh(b, c, d, a, x[i+ 6], 23,  76029189);
104    a = md5_hh(a, b, c, d, x[i+ 9], 4 , -640364487);
105    d = md5_hh(d, a, b, c, x[i+12], 11, -421815835);
106    c = md5_hh(c, d, a, b, x[i+15], 16,  530742520);
107    b = md5_hh(b, c, d, a, x[i+ 2], 23, -995338651);
108
109    a = md5_ii(a, b, c, d, x[i+ 0], 6 , -198630844);
110    d = md5_ii(d, a, b, c, x[i+ 7], 10,  1126891415);
111    c = md5_ii(c, d, a, b, x[i+14], 15, -1416354905);
112    b = md5_ii(b, c, d, a, x[i+ 5], 21, -57434055);
113    a = md5_ii(a, b, c, d, x[i+12], 6 ,  1700485571);
114    d = md5_ii(d, a, b, c, x[i+ 3], 10, -1894986606);
115    c = md5_ii(c, d, a, b, x[i+10], 15, -1051523);
116    b = md5_ii(b, c, d, a, x[i+ 1], 21, -2054922799);
117    a = md5_ii(a, b, c, d, x[i+ 8], 6 ,  1873313359);
118    d = md5_ii(d, a, b, c, x[i+15], 10, -30611744);
119    c = md5_ii(c, d, a, b, x[i+ 6], 15, -1560198380);
120    b = md5_ii(b, c, d, a, x[i+13], 21,  1309151649);
121    a = md5_ii(a, b, c, d, x[i+ 4], 6 , -145523070);
122    d = md5_ii(d, a, b, c, x[i+11], 10, -1120210379);
123    c = md5_ii(c, d, a, b, x[i+ 2], 15,  718787259);
124    b = md5_ii(b, c, d, a, x[i+ 9], 21, -343485551);
125
126    a = safe_add(a, olda);
127    b = safe_add(b, oldb);
128    c = safe_add(c, oldc);
129    d = safe_add(d, oldd);
130  }
131  return Array(a, b, c, d);
132
133}
134
135/*
136 * These functions implement the four basic operations the algorithm uses.
137 */
138function md5_cmn(q, a, b, x, s, t)
139{
140  return safe_add(bit_rol(safe_add(safe_add(a, q), safe_add(x, t)), s),b);
141}
142function md5_ff(a, b, c, d, x, s, t)
143{
144  return md5_cmn((b & c) | ((~b) & d), a, b, x, s, t);
145}
146function md5_gg(a, b, c, d, x, s, t)
147{
148  return md5_cmn((b & d) | (c & (~d)), a, b, x, s, t);
149}
150function md5_hh(a, b, c, d, x, s, t)
151{
152  return md5_cmn(b ^ c ^ d, a, b, x, s, t);
153}
154function md5_ii(a, b, c, d, x, s, t)
155{
156  return md5_cmn(c ^ (b | (~d)), a, b, x, s, t);
157}
158
159/*
160 * Calculate the HMAC-MD5, of a key and some data
161 */
162function core_hmac_md5(key, data)
163{
164  var bkey = str2binl(key);
165  if(bkey.length > 16) bkey = core_md5(bkey, key.length * chrsz);
166
167  var ipad = Array(16), opad = Array(16);
168  for(var i = 0; i < 16; i++)
169  {
170    ipad[i] = bkey[i] ^ 0x36363636;
171    opad[i] = bkey[i] ^ 0x5C5C5C5C;
172  }
173
174  var hash = core_md5(ipad.concat(str2binl(data)), 512 + data.length * chrsz);
175  return core_md5(opad.concat(hash), 512 + 128);
176}
177
178/*
179 * Add integers, wrapping at 2^32. This uses 16-bit operations internally
180 * to work around bugs in some JS interpreters.
181 */
182function safe_add(x, y)
183{
184  var lsw = (x & 0xFFFF) + (y & 0xFFFF);
185  var msw = (x >> 16) + (y >> 16) + (lsw >> 16);
186  return (msw << 16) | (lsw & 0xFFFF);
187}
188
189/*
190 * Bitwise rotate a 32-bit number to the left.
191 */
192function bit_rol(num, cnt)
193{
194  return (num << cnt) | (num >>> (32 - cnt));
195}
196
197/*
198 * Convert a string to an array of little-endian words
199 * If chrsz is ASCII, characters >255 have their hi-byte silently ignored.
200 */
201function str2binl(str)
202{
203  var bin = Array();
204  var mask = (1 << chrsz) - 1;
205  for(var i = 0; i < str.length * chrsz; i += chrsz)
206    bin[i>>5] |= (str.charCodeAt(i / chrsz) & mask) << (i%32);
207  return bin;
208}
209
210/*
211 * Convert an array of little-endian words to a string
212 */
213function binl2str(bin)
214{
215  var str = "";
216  var mask = (1 << chrsz) - 1;
217  for(var i = 0; i < bin.length * 32; i += chrsz)
218    str += String.fromCharCode((bin[i>>5] >>> (i % 32)) & mask);
219  return str;
220}
221
222/*
223 * Convert an array of little-endian words to a hex string.
224 */
225function binl2hex(binarray)
226{
227  var hex_tab = hexcase ? "0123456789ABCDEF" : "0123456789abcdef";
228  var str = "";
229  for(var i = 0; i < binarray.length * 4; i++)
230  {
231    str += hex_tab.charAt((binarray[i>>2] >> ((i%4)*8+4)) & 0xF) +
232           hex_tab.charAt((binarray[i>>2] >> ((i%4)*8  )) & 0xF);
233  }
234  return str;
235}
236
237/*
238 * Convert an array of little-endian words to a base-64 string
239 */
240function binl2b64(binarray)
241{
242  var tab = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
243  var str = "";
244  for(var i = 0; i < binarray.length * 4; i += 3)
245  {
246    var triplet = (((binarray[i   >> 2] >> 8 * ( i   %4)) & 0xFF) << 16)
247                | (((binarray[i+1 >> 2] >> 8 * ((i+1)%4)) & 0xFF) << 8 )
248                |  ((binarray[i+2 >> 2] >> 8 * ((i+2)%4)) & 0xFF);
249    for(var j = 0; j < 4; j++)
250    {
251      if(i * 8 + j * 6 > binarray.length * 32) str += b64pad;
252      else str += tab.charAt((triplet >> 6*(3-j)) & 0x3F);
253    }
254  }
255  return str;
256}
257
258var plainText = "Rebellious subjects, enemies to peace,\n\
259Profaners of this neighbour-stained steel,--\n\
260Will they not hear? What, ho! you men, you beasts,\n\
261That quench the fire of your pernicious rage\n\
262With purple fountains issuing from your veins,\n\
263On pain of torture, from those bloody hands\n\
264Throw your mistemper'd weapons to the ground,\n\
265And hear the sentence of your moved prince.\n\
266Three civil brawls, bred of an airy word,\n\
267By thee, old Capulet, and Montague,\n\
268Have thrice disturb'd the quiet of our streets,\n\
269And made Verona's ancient citizens\n\
270Cast by their grave beseeming ornaments,\n\
271To wield old partisans, in hands as old,\n\
272Canker'd with peace, to part your canker'd hate:\n\
273If ever you disturb our streets again,\n\
274Your lives shall pay the forfeit of the peace.\n\
275For this time, all the rest depart away:\n\
276You Capulet; shall go along with me:\n\
277And, Montague, come you this afternoon,\n\
278To know our further pleasure in this case,\n\
279To old Free-town, our common judgment-place.\n\
280Once more, on pain of death, all men depart."
281
282for (var i = 0; i <4; i++) {
283    plainText += plainText;
284}
285
286var md5Output = hex_md5(plainText);
287