michael@0: var chrsz   = 8;  /* bits per input character. 8 - ASCII; 16 - Unicode      */
michael@0: function hex_md5(s){ return binl2hex(core_md5(str2binl(s), s.length * chrsz));}
michael@0: function core_md5(x, len) {
michael@0:     var a =  1732584193;
michael@0:     var b = -271733879;
michael@0:     var c = -1732584194;
michael@0:     var d =  271733878;
michael@0:     for(var i = 0; i < x.length; i += 16)
michael@0:         c = md5_ff(c, d, a, b, x[i+ 6], 17, -1473231341);
michael@0: }
michael@0: function md5_cmn(q, a, b, x, s, t) {
michael@0:     return safe_add(bit_rol(safe_add(safe_add(a, q), safe_add(x, t)), s),b);
michael@0: }
michael@0: function md5_ff(a, b, c, d, x, s, t) {
michael@0:     return md5_cmn((b & c) | ((~b) & d), a, b, x, s, t);
michael@0: }
michael@0: function safe_add(x, y) {
michael@0:     var lsw = (x & 0xFFFF) + (y & 0xFFFF);
michael@0:     var msw = (x >> 16) + (y >> 16) + (lsw >> 16);
michael@0:     return (msw << 16) | (lsw & 0xFFFF);
michael@0: }
michael@0: function bit_rol(num, cnt) {
michael@0:     return (num << cnt) | (num >>> (32 - cnt));
michael@0: }
michael@0: function str2binl(str) {
michael@0:     var bin = Array();
michael@0:     var mask = (1 << chrsz) - 1;
michael@0:     for(var i = 0; i < str.length * chrsz; i += chrsz)
michael@0:         bin[i>>5] |= (str.charCodeAt(i / chrsz) & mask) << (i%32);
michael@0:     return bin;
michael@0: }
michael@0: function binl2hex(binarray) {}
michael@0: var plainText = "Rebellious subjects, enemies to peace,\n\
michael@0: Throw your mistemper'd weapons to the ground,\n\
michael@0: To know our further pleasure in this case,\n\
michael@0: To old Free-town, our common judgment-place.\n\
michael@0: Once more, on pain of death, all men depart."
michael@0: for (var i = 0; i <4; i++)
michael@0:     plainText += plainText;
michael@0: var md5Output = hex_md5(plainText);