1// Copyright 2013 the V8 project authors. All rights reserved.
2// Redistribution and use in source and binary forms, with or without
3// modification, are permitted provided that the following conditions are
4// met:
5//
6//     * Redistributions of source code must retain the above copyright
7//       notice, this list of conditions and the following disclaimer.
8//     * Redistributions in binary form must reproduce the above
9//       copyright notice, this list of conditions and the following
10//       disclaimer in the documentation and/or other materials provided
11//       with the distribution.
12//     * Neither the name of Google Inc. nor the names of its
13//       contributors may be used to endorse or promote products derived
14//       from this software without specific prior written permission.
15//
16// THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
17// "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
18// LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
19// A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
20// OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
21// SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
22// LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
23// DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
24// THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25// (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
26// OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27//
28// A JavaScript implementation of the RSA Data Security, Inc. MD5 Message
29// Digest Algorithm, as defined in RFC 1321.
30// Version 2.1 Copyright (C) Paul Johnston 1999 - 2002.
31// Other contributors: Greg Holt, Andrew Kepert, Ydnar, Lostinet
32// Distributed under the BSD License
33// See http://pajhome.org.uk/crypt/md5 for more info.
34//
35
36function hex_md5(s) {
37  return binl2hex(core_md5(str2binl(s), s.length * 8));
38}
39
40function core_md5(x, len) {
41  /* append padding */
42  x[len >> 5] |= 0x80 << ((len) % 32);
43  x[(((len + 64) >>> 9) << 4) + 14] = len;
44
45  var a =  1732584193;
46  var b = -271733879;
47  var c = -1732584194;
48  var d =  271733878;
49
50  for (var i = 0; i < x.length; i += 16) {
51    var olda = a;
52    var oldb = b;
53    var oldc = c;
54    var oldd = d;
55
56    a = md5_ff(a, b, c, d, x[i+ 0], 7 , -680876936);
57    d = md5_ff(d, a, b, c, x[i+ 1], 12, -389564586);
58    c = md5_ff(c, d, a, b, x[i+ 2], 17,  606105819);
59    b = md5_ff(b, c, d, a, x[i+ 3], 22, -1044525330);
60    a = md5_ff(a, b, c, d, x[i+ 4], 7 , -176418897);
61    d = md5_ff(d, a, b, c, x[i+ 5], 12,  1200080426);
62    c = md5_ff(c, d, a, b, x[i+ 6], 17, -1473231341);
63    b = md5_ff(b, c, d, a, x[i+ 7], 22, -45705983);
64    a = md5_ff(a, b, c, d, x[i+ 8], 7 ,  1770035416);
65    d = md5_ff(d, a, b, c, x[i+ 9], 12, -1958414417);
66    c = md5_ff(c, d, a, b, x[i+10], 17, -42063);
67    b = md5_ff(b, c, d, a, x[i+11], 22, -1990404162);
68    a = md5_ff(a, b, c, d, x[i+12], 7 ,  1804603682);
69    d = md5_ff(d, a, b, c, x[i+13], 12, -40341101);
70    c = md5_ff(c, d, a, b, x[i+14], 17, -1502002290);
71    b = md5_ff(b, c, d, a, x[i+15], 22,  1236535329);
72
73    a = md5_gg(a, b, c, d, x[i+ 1], 5 , -165796510);
74    d = md5_gg(d, a, b, c, x[i+ 6], 9 , -1069501632);
75    c = md5_gg(c, d, a, b, x[i+11], 14,  643717713);
76    b = md5_gg(b, c, d, a, x[i+ 0], 20, -373897302);
77    a = md5_gg(a, b, c, d, x[i+ 5], 5 , -701558691);
78    d = md5_gg(d, a, b, c, x[i+10], 9 ,  38016083);
79    c = md5_gg(c, d, a, b, x[i+15], 14, -660478335);
80    b = md5_gg(b, c, d, a, x[i+ 4], 20, -405537848);
81    a = md5_gg(a, b, c, d, x[i+ 9], 5 ,  568446438);
82    d = md5_gg(d, a, b, c, x[i+14], 9 , -1019803690);
83    c = md5_gg(c, d, a, b, x[i+ 3], 14, -187363961);
84    b = md5_gg(b, c, d, a, x[i+ 8], 20,  1163531501);
85    a = md5_gg(a, b, c, d, x[i+13], 5 , -1444681467);
86    d = md5_gg(d, a, b, c, x[i+ 2], 9 , -51403784);
87    c = md5_gg(c, d, a, b, x[i+ 7], 14,  1735328473);
88    b = md5_gg(b, c, d, a, x[i+12], 20, -1926607734);
89
90    a = md5_hh(a, b, c, d, x[i+ 5], 4 , -378558);
91    d = md5_hh(d, a, b, c, x[i+ 8], 11, -2022574463);
92    c = md5_hh(c, d, a, b, x[i+11], 16,  1839030562);
93    b = md5_hh(b, c, d, a, x[i+14], 23, -35309556);
94    a = md5_hh(a, b, c, d, x[i+ 1], 4 , -1530992060);
95    d = md5_hh(d, a, b, c, x[i+ 4], 11,  1272893353);
96    c = md5_hh(c, d, a, b, x[i+ 7], 16, -155497632);
97    b = md5_hh(b, c, d, a, x[i+10], 23, -1094730640);
98    a = md5_hh(a, b, c, d, x[i+13], 4 ,  681279174);
99    d = md5_hh(d, a, b, c, x[i+ 0], 11, -358537222);
100    c = md5_hh(c, d, a, b, x[i+ 3], 16, -722521979);
101    b = md5_hh(b, c, d, a, x[i+ 6], 23,  76029189);
102    a = md5_hh(a, b, c, d, x[i+ 9], 4 , -640364487);
103    d = md5_hh(d, a, b, c, x[i+12], 11, -421815835);
104    c = md5_hh(c, d, a, b, x[i+15], 16,  530742520);
105    b = md5_hh(b, c, d, a, x[i+ 2], 23, -995338651);
106
107    a = md5_ii(a, b, c, d, x[i+ 0], 6 , -198630844);
108    d = md5_ii(d, a, b, c, x[i+ 7], 10,  1126891415);
109    c = md5_ii(c, d, a, b, x[i+14], 15, -1416354905);
110    b = md5_ii(b, c, d, a, x[i+ 5], 21, -57434055);
111    a = md5_ii(a, b, c, d, x[i+12], 6 ,  1700485571);
112    d = md5_ii(d, a, b, c, x[i+ 3], 10, -1894986606);
113    c = md5_ii(c, d, a, b, x[i+10], 15, -1051523);
114    b = md5_ii(b, c, d, a, x[i+ 1], 21, -2054922799);
115    a = md5_ii(a, b, c, d, x[i+ 8], 6 ,  1873313359);
116    d = md5_ii(d, a, b, c, x[i+15], 10, -30611744);
117    c = md5_ii(c, d, a, b, x[i+ 6], 15, -1560198380);
118    b = md5_ii(b, c, d, a, x[i+13], 21,  1309151649);
119    a = md5_ii(a, b, c, d, x[i+ 4], 6 , -145523070);
120    d = md5_ii(d, a, b, c, x[i+11], 10, -1120210379);
121    c = md5_ii(c, d, a, b, x[i+ 2], 15,  718787259);
122    b = md5_ii(b, c, d, a, x[i+ 9], 21, -343485551);
123
124    a = safe_add(a, olda);
125    b = safe_add(b, oldb);
126    c = safe_add(c, oldc);
127    d = safe_add(d, oldd);
128  }
129  return Array(a, b, c, d);
130}
131
132function md5_cmn(q, a, b, x, s, t) {
133  return safe_add(bit_rol(safe_add(safe_add(a, q), safe_add(x, t)), s),b);
134}
135
136function md5_ff(a, b, c, d, x, s, t) {
137  return md5_cmn((b & c) | ((~b) & d), a, b, x, s, t);
138}
139
140function md5_gg(a, b, c, d, x, s, t) {
141  return md5_cmn((b & d) | (c & (~d)), a, b, x, s, t);
142}
143
144function md5_hh(a, b, c, d, x, s, t) {
145  return md5_cmn(b ^ c ^ d, a, b, x, s, t);
146}
147
148function md5_ii(a, b, c, d, x, s, t) {
149  return md5_cmn(c ^ (b | (~d)), a, b, x, s, t);
150}
151
152function safe_add(x, y) {
153  var lsw = (x & 0xFFFF) + (y & 0xFFFF);
154  var msw = (x >> 16) + (y >> 16) + (lsw >> 16);
155  return (msw << 16) | (lsw & 0xFFFF);
156}
157
158function bit_rol(num, cnt) {
159  return (num << cnt) | (num >>> (32 - cnt));
160}
161
162function str2binl(str) {
163  var bin = Array();
164  var mask = (1 << 8) - 1;
165  for(var i = 0; i < str.length * 8; i += 8)
166    bin[i>>5] |= (str.charCodeAt(i / 8) & mask) << (i%32);
167  return bin;
168}
169
170function binl2hex(binarray) {
171  var hex_tab = "0123456789abcdef";
172  var str = "";
173  for(var i = 0; i < binarray.length * 4; i++) {
174    str += hex_tab.charAt((binarray[i>>2] >> ((i%4)*8+4)) & 0xF) +
175           hex_tab.charAt((binarray[i>>2] >> ((i%4)*8  )) & 0xF);
176  }
177  return str;
178}
179
180var plainText = "Rebellious subjects, enemies to peace,\n\
181Profaners of this neighbour-stained steel,--\n\
182Will they not hear? What, ho! you men, you beasts,\n\
183That quench the fire of your pernicious rage\n\
184With purple fountains issuing from your veins,\n\
185On pain of torture, from those bloody hands\n\
186Throw your mistemper'd weapons to the ground,\n\
187And hear the sentence of your moved prince.\n\
188Three civil brawls, bred of an airy word,\n\
189By thee, old Capulet, and Montague,\n\
190Have thrice disturb'd the quiet of our streets,\n\
191And made Verona's ancient citizens\n\
192Cast by their grave beseeming ornaments,\n\
193To wield old partisans, in hands as old,\n\
194Canker'd with peace, to part your canker'd hate:\n\
195If ever you disturb our streets again,\n\
196Your lives shall pay the forfeit of the peace.\n\
197For this time, all the rest depart away:\n\
198You Capulet; shall go along with me:\n\
199And, Montague, come you this afternoon,\n\
200To know our further pleasure in this case,\n\
201To old Free-town, our common judgment-place.\n\
202Once more, on pain of death, all men depart.\n"
203
204for (var i = 0; i < 4; ++i) {
205  plainText += plainText;
206}
207
208assertEquals(hex_md5("abc"), "900150983cd24fb0d6963f7d28e17f72");
209for (var i = 0; i < 11; ++i) {
210  assertEquals(hex_md5(plainText), "1b8719c72d5d8bfd06e096ef6c6288c5");
211}
212