From:http://pajhome.org.uk/crypt/md5/md4src.html
<span class="comment">/*
* A JavaScript implementation of the RSA Data Security, Inc. MD4 Message
* Digest Algorithm, as defined in RFC 1320.
* Version 2.1 Copyright (C) Jerrad Pierce, Paul Johnston 1999 - 2002.
* Other contributors: Greg Holt, Andrew Kepert, Ydnar, Lostinet
* Distributed under the BSD License
* See http://pajhome.org.uk/crypt/md5 for more info.
*/</span>
<span class="comment">/*
* Configurable variables. You may need to tweak these to be compatible with
* the server-side, but the defaults work in most cases.
*/</span>
<span class="reserved_word">var</span> hexcase <span class="symbol">=</span> <span class="numeric">0</span><span class="symbol">;</span> <span class="comment">/* hex output format. 0 - lowercase; 1 - uppercase */</span>
<span class="reserved_word">var</span> b64pad <span class="symbol">=</span> <span class="string">""</span><span class="symbol">;</span> <span class="comment">/* base-64 pad character. "=" for strict RFC compliance */</span>
<span class="reserved_word">var</span> chrsz <span class="symbol">=</span> <span class="numeric">8</span><span class="symbol">;</span> <span class="comment">/* bits per input character. 8 - ASCII; 16 - Unicode */</span>
<span class="comment">/*
* These are the functions you'll usually want to call
*/</span>
<span class="reserved_word">function</span> hex_md4<span class="braces">(</span>s<span class="braces">)</span><span class="braces">{</span> <span class="reserved_word">return</span> binl2hex<span class="braces">(</span>core_md4<span class="braces">(</span>str2binl<span class="braces">(</span>s<span class="braces">)</span>, s.<span class="predefined_identifier">length</span> * chrsz<span class="braces">)</span><span class="braces">)</span><span class="symbol">;</span><span class="braces">}</span>
<span class="reserved_word">function</span> b64_md4<span class="braces">(</span>s<span class="braces">)</span><span class="braces">{</span> <span class="reserved_word">return</span> binl2b64<span class="braces">(</span>core_md4<span class="braces">(</span>str2binl<span class="braces">(</span>s<span class="braces">)</span>, s.<span class="predefined_identifier">length</span> * chrsz<span class="braces">)</span><span class="braces">)</span><span class="symbol">;</span><span class="braces">}</span>
<span class="reserved_word">function</span> str_md4<span class="braces">(</span>s<span class="braces">)</span><span class="braces">{</span> <span class="reserved_word">return</span> binl2str<span class="braces">(</span>core_md4<span class="braces">(</span>str2binl<span class="braces">(</span>s<span class="braces">)</span>, s.<span class="predefined_identifier">length</span> * chrsz<span class="braces">)</span><span class="braces">)</span><span class="symbol">;</span><span class="braces">}</span>
<span class="reserved_word">function</span> hex_hmac_md4<span class="braces">(</span>key, data<span class="braces">)</span> <span class="braces">{</span> <span class="reserved_word">return</span> binl2hex<span class="braces">(</span>core_hmac_md4<span class="braces">(</span>key, data<span class="braces">)</span><span class="braces">)</span><span class="symbol">;</span> <span class="braces">}</span>
<span class="reserved_word">function</span> b64_hmac_md4<span class="braces">(</span>key, data<span class="braces">)</span> <span class="braces">{</span> <span class="reserved_word">return</span> binl2b64<span class="braces">(</span>core_hmac_md4<span class="braces">(</span>key, data<span class="braces">)</span><span class="braces">)</span><span class="symbol">;</span> <span class="braces">}</span>
<span class="reserved_word">function</span> str_hmac_md4<span class="braces">(</span>key, data<span class="braces">)</span> <span class="braces">{</span> <span class="reserved_word">return</span> binl2str<span class="braces">(</span>core_hmac_md4<span class="braces">(</span>key, data<span class="braces">)</span><span class="braces">)</span><span class="symbol">;</span> <span class="braces">}</span>
<span class="comment">/*
* Perform a simple self-test to see if the VM is working
*/</span>
<span class="reserved_word">function</span> md4_vm_test<span class="braces">(</span><span class="braces">)</span>
<span class="braces">{</span>
<span class="reserved_word">return</span> hex_md4<span class="braces">(</span><span class="string">"abc"</span><span class="braces">)</span> <span class="symbol">=</span><span class="symbol">=</span> <span class="string">"a448017aaf21d8525fc10ae87aa6729d"</span><span class="symbol">;</span>
<span class="braces">}</span>
<span class="comment">/*
* Calculate the MD4 of an array of little-endian words, and a bit length
*/</span>
<span class="reserved_word">function</span> core_md4<span class="braces">(</span>x, len<span class="braces">)</span>
<span class="braces">{</span>
<span class="comment">/* append padding */</span>
x[len <span class="symbol">></span><span class="symbol">></span> <span class="numeric">5</span>] <span class="symbol">|</span><span class="symbol">=</span> <span class="numeric">0x80</span> <span class="symbol"><span class="symbol"> <span class="braces">(</span>len % <span class="numeric">32</span><span class="braces">)</span><span class="symbol">;</span>
x[<span class="braces">(</span><span class="braces">(</span><span class="braces">(</span>len + <span class="numeric">64</span><span class="braces">)</span> <span class="symbol">></span><span class="symbol">></span><span class="symbol">></span> <span class="numeric">9</span><span class="braces">)</span> <span class="symbol"><span class="symbol"> <span class="numeric">4</span><span class="braces">)</span> + <span class="numeric">14</span>] <span class="symbol">=</span> len<span class="symbol">;</span>
<span class="reserved_word">var</span> a <span class="symbol">=</span> <span class="numeric">1732584193</span><span class="symbol">;</span>
<span class="reserved_word">var</span> b <span class="symbol">=</span> -<span class="numeric">271733879</span><span class="symbol">;</span>
<span class="reserved_word">var</span> c <span class="symbol">=</span> -<span class="numeric">1732584194</span><span class="symbol">;</span>
<span class="reserved_word">var</span> d <span class="symbol">=</span> <span class="numeric">271733878</span><span class="symbol">;</span>
<span class="reserved_word">for</span><span class="braces">(</span><span class="reserved_word">var</span> i <span class="symbol">=</span> <span class="numeric">0</span><span class="symbol">;</span> i <span class="symbol"> x.<span class="predefined_identifier">length</span><span class="symbol">;</span> i +<span class="symbol">=</span> <span class="numeric">16</span><span class="braces">)</span>
<span class="braces">{</span>
<span class="reserved_word">var</span> olda <span class="symbol">=</span> a<span class="symbol">;</span>
<span class="reserved_word">var</span> oldb <span class="symbol">=</span> b<span class="symbol">;</span>
<span class="reserved_word">var</span> oldc <span class="symbol">=</span> c<span class="symbol">;</span>
<span class="reserved_word">var</span> oldd <span class="symbol">=</span> d<span class="symbol">;</span>
a <span class="symbol">=</span> md4_ff<span class="braces">(</span>a, b, c, d, x[i+ <span class="numeric">0</span>], <span class="numeric">3</span> <span class="braces">)</span><span class="symbol">;</span>
d <span class="symbol">=</span> md4_ff<span class="braces">(</span>d, a, b, c, x[i+ <span class="numeric">1</span>], <span class="numeric">7</span> <span class="braces">)</span><span class="symbol">;</span>
c <span class="symbol">=</span> md4_ff<span class="braces">(</span>c, d, a, b, x[i+ <span class="numeric">2</span>], <span class="numeric">11</span><span class="braces">)</span><span class="symbol">;</span>
b <span class="symbol">=</span> md4_ff<span class="braces">(</span>b, c, d, a, x[i+ <span class="numeric">3</span>], <span class="numeric">19</span><span class="braces">)</span><span class="symbol">;</span>
a <span class="symbol">=</span> md4_ff<span class="braces">(</span>a, b, c, d, x[i+ <span class="numeric">4</span>], <span class="numeric">3</span> <span class="braces">)</span><span class="symbol">;</span>
d <span class="symbol">=</span> md4_ff<span class="braces">(</span>d, a, b, c, x[i+ <span class="numeric">5</span>], <span class="numeric">7</span> <span class="braces">)</span><span class="symbol">;</span>
c <span class="symbol">=</span> md4_ff<span class="braces">(</span>c, d, a, b, x[i+ <span class="numeric">6</span>], <span class="numeric">11</span><span class="braces">)</span><span class="symbol">;</span>
b <span class="symbol">=</span> md4_ff<span class="braces">(</span>b, c, d, a, x[i+ <span class="numeric">7</span>], <span class="numeric">19</span><span class="braces">)</span><span class="symbol">;</span>
a <span class="symbol">=</span> md4_ff<span class="braces">(</span>a, b, c, d, x[i+ <span class="numeric">8</span>], <span class="numeric">3</span> <span class="braces">)</span><span class="symbol">;</span>
d <span class="symbol">=</span> md4_ff<span class="braces">(</span>d, a, b, c, x[i+ <span class="numeric">9</span>], <span class="numeric">7</span> <span class="braces">)</span><span class="symbol">;</span>
c <span class="symbol">=</span> md4_ff<span class="braces">(</span>c, d, a, b, x[i+<span class="numeric">10</span>], <span class="numeric">11</span><span class="braces">)</span><span class="symbol">;</span>
b <span class="symbol">=</span> md4_ff<span class="braces">(</span>b, c, d, a, x[i+<span class="numeric">11</span>], <span class="numeric">19</span><span class="braces">)</span><span class="symbol">;</span>
a <span class="symbol">=</span> md4_ff<span class="braces">(</span>a, b, c, d, x[i+<span class="numeric">12</span>], <span class="numeric">3</span> <span class="braces">)</span><span class="symbol">;</span>
d <span class="symbol">=</span> md4_ff<span class="braces">(</span>d, a, b, c, x[i+<span class="numeric">13</span>], <span class="numeric">7</span> <span class="braces">)</span><span class="symbol">;</span>
c <span class="symbol">=</span> md4_ff<span class="braces">(</span>c, d, a, b, x[i+<span class="numeric">14</span>], <span class="numeric">11</span><span class="braces">)</span><span class="symbol">;</span>
b <span class="symbol">=</span> md4_ff<span class="braces">(</span>b, c, d, a, x[i+<span class="numeric">15</span>], <span class="numeric">19</span><span class="braces">)</span><span class="symbol">;</span>
a <span class="symbol">=</span> md4_gg<span class="braces">(</span>a, b, c, d, x[i+ <span class="numeric">0</span>], <span class="numeric">3</span> <span class="braces">)</span><span class="symbol">;</span>
d <span class="symbol">=</span> md4_gg<span class="braces">(</span>d, a, b, c, x[i+ <span class="numeric">4</span>], <span class="numeric">5</span> <span class="braces">)</span><span class="symbol">;</span>
c <span class="symbol">=</span> md4_gg<span class="braces">(</span>c, d, a, b, x[i+ <span class="numeric">8</span>], <span class="numeric">9</span> <span class="braces">)</span><span class="symbol">;</span>
b <span class="symbol">=</span> md4_gg<span class="braces">(</span>b, c, d, a, x[i+<span class="numeric">12</span>], <span class="numeric">13</span><span class="braces">)</span><span class="symbol">;</span>
a <span class="symbol">=</span> md4_gg<span class="braces">(</span>a, b, c, d, x[i+ <span class="numeric">1</span>], <span class="numeric">3</span> <span class="braces">)</span><span class="symbol">;</span>
d <span class="symbol">=</span> md4_gg<span class="braces">(</span>d, a, b, c, x[i+ <span class="numeric">5</span>], <span class="numeric">5</span> <span class="braces">)</span><span class="symbol">;</span>
c <span class="symbol">=</span> md4_gg<span class="braces">(</span>c, d, a, b, x[i+ <span class="numeric">9</span>], <span class="numeric">9</span> <span class="braces">)</span><span class="symbol">;</span>
b <span class="symbol">=</span> md4_gg<span class="braces">(</span>b, c, d, a, x[i+<span class="numeric">13</span>], <span class="numeric">13</span><span class="braces">)</span><span class="symbol">;</span>
a <span class="symbol">=</span> md4_gg<span class="braces">(</span>a, b, c, d, x[i+ <span class="numeric">2</span>], <span class="numeric">3</span> <span class="braces">)</span><span class="symbol">;</span>
d <span class="symbol">=</span> md4_gg<span class="braces">(</span>d, a, b, c, x[i+ <span class="numeric">6</span>], <span class="numeric">5</span> <span class="braces">)</span><span class="symbol">;</span>
c <span class="symbol">=</span> md4_gg<span class="braces">(</span>c, d, a, b, x[i+<span class="numeric">10</span>], <span class="numeric">9</span> <span class="braces">)</span><span class="symbol">;</span>
b <span class="symbol">=</span> md4_gg<span class="braces">(</span>b, c, d, a, x[i+<span class="numeric">14</span>], <span class="numeric">13</span><span class="braces">)</span><span class="symbol">;</span>
a <span class="symbol">=</span> md4_gg<span class="braces">(</span>a, b, c, d, x[i+ <span class="numeric">3</span>], <span class="numeric">3</span> <span class="braces">)</span><span class="symbol">;</span>
d <span class="symbol">=</span> md4_gg<span class="braces">(</span>d, a, b, c, x[i+ <span class="numeric">7</span>], <span class="numeric">5</span> <span class="braces">)</span><span class="symbol">;</span>
c <span class="symbol">=</span> md4_gg<span class="braces">(</span>c, d, a, b, x[i+<span class="numeric">11</span>], <span class="numeric">9</span> <span class="braces">)</span><span class="symbol">;</span>
b <span class="symbol">=</span> md4_gg<span class="braces">(</span>b, c, d, a, x[i+<span class="numeric">15</span>], <span class="numeric">13</span><span class="braces">)</span><span class="symbol">;</span>
a <span class="symbol">=</span> md4_hh<span class="braces">(</span>a, b, c, d, x[i+ <span class="numeric">0</span>], <span class="numeric">3</span> <span class="braces">)</span><span class="symbol">;</span>
d <span class="symbol">=</span> md4_hh<span class="braces">(</span>d, a, b, c, x[i+ <span class="numeric">8</span>], <span class="numeric">9</span> <span class="braces">)</span><span class="symbol">;</span>
c <span class="symbol">=</span> md4_hh<span class="braces">(</span>c, d, a, b, x[i+ <span class="numeric">4</span>], <span class="numeric">11</span><span class="braces">)</span><span class="symbol">;</span>
b <span class="symbol">=</span> md4_hh<span class="braces">(</span>b, c, d, a, x[i+<span class="numeric">12</span>], <span class="numeric">15</span><span class="braces">)</span><span class="symbol">;</span>
a <span class="symbol">=</span> md4_hh<span class="braces">(</span>a, b, c, d, x[i+ <span class="numeric">2</span>], <span class="numeric">3</span> <span class="braces">)</span><span class="symbol">;</span>
d <span class="symbol">=</span> md4_hh<span class="braces">(</span>d, a, b, c, x[i+<span class="numeric">10</span>], <span class="numeric">9</span> <span class="braces">)</span><span class="symbol">;</span>
c <span class="symbol">=</span> md4_hh<span class="braces">(</span>c, d, a, b, x[i+ <span class="numeric">6</span>], <span class="numeric">11</span><span class="braces">)</span><span class="symbol">;</span>
b <span class="symbol">=</span> md4_hh<span class="braces">(</span>b, c, d, a, x[i+<span class="numeric">14</span>], <span class="numeric">15</span><span class="braces">)</span><span class="symbol">;</span>
a <span class="symbol">=</span> md4_hh<span class="braces">(</span>a, b, c, d, x[i+ <span class="numeric">1</span>], <span class="numeric">3</span> <span class="braces">)</span><span class="symbol">;</span>
d <span class="symbol">=</span> md4_hh<span class="braces">(</span>d, a, b, c, x[i+ <span class="numeric">9</span>], <span class="numeric">9</span> <span class="braces">)</span><span class="symbol">;</span>
c <span class="symbol">=</span> md4_hh<span class="braces">(</span>c, d, a, b, x[i+ <span class="numeric">5</span>], <span class="numeric">11</span><span class="braces">)</span><span class="symbol">;</span>
b <span class="symbol">=</span> md4_hh<span class="braces">(</span>b, c, d, a, x[i+<span class="numeric">13</span>], <span class="numeric">15</span><span class="braces">)</span><span class="symbol">;</span>
a <span class="symbol">=</span> md4_hh<span class="braces">(</span>a, b, c, d, x[i+ <span class="numeric">3</span>], <span class="numeric">3</span> <span class="braces">)</span><span class="symbol">;</span>
d <span class="symbol">=</span> md4_hh<span class="braces">(</span>d, a, b, c, x[i+<span class="numeric">11</span>], <span class="numeric">9</span> <span class="braces">)</span><span class="symbol">;</span>
c <span class="symbol">=</span> md4_hh<span class="braces">(</span>c, d, a, b, x[i+ <span class="numeric">7</span>], <span class="numeric">11</span><span class="braces">)</span><span class="symbol">;</span>
b <span class="symbol">=</span> md4_hh<span class="braces">(</span>b, c, d, a, x[i+<span class="numeric">15</span>], <span class="numeric">15</span><span class="braces">)</span><span class="symbol">;</span>
a <span class="symbol">=</span> safe_add<span class="braces">(</span>a, olda<span class="braces">)</span><span class="symbol">;</span>
b <span class="symbol">=</span> safe_add<span class="braces">(</span>b, oldb<span class="braces">)</span><span class="symbol">;</span>
c <span class="symbol">=</span> safe_add<span class="braces">(</span>c, oldc<span class="braces">)</span><span class="symbol">;</span>
d <span class="symbol">=</span> safe_add<span class="braces">(</span>d, oldd<span class="braces">)</span><span class="symbol">;</span>
<span class="braces">}</span>
<span class="reserved_word">return</span> <span class="predefined_type">Array</span><span class="braces">(</span>a, b, c, d<span class="braces">)</span><span class="symbol">;</span>
<span class="braces">}</span>
<span class="comment">/*
* These functions implement the basic operation for each round of the
* algorithm.
*/</span>
<span class="reserved_word">function</span> md4_cmn<span class="braces">(</span>q, a, b, x, s, t<span class="braces">)</span>
<span class="braces">{</span>
<span class="reserved_word">return</span> safe_add<span class="braces">(</span>rol<span class="braces">(</span>safe_add<span class="braces">(</span>safe_add<span class="braces">(</span>a, q<span class="braces">)</span>, safe_add<span class="braces">(</span>x, t<span class="braces">)</span><span class="braces">)</span>, s<span class="braces">)</span>, b<span class="braces">)</span><span class="symbol">;</span>
<span class="braces">}</span>
<span class="reserved_word">function</span> md4_ff<span class="braces">(</span>a, b, c, d, x, s<span class="braces">)</span>
<span class="braces">{</span>
<span class="reserved_word">return</span> md4_cmn<span class="braces">(</span><span class="braces">(</span>b <span class="symbol">&</span> c<span class="braces">)</span> <span class="symbol">|</span> <span class="braces">(</span><span class="braces">(</span>~b<span class="braces">)</span> <span class="symbol">&</span> d<span class="braces">)</span>, a, <span class="numeric">0</span>, x, s, <span class="numeric">0</span><span class="braces">)</span><span class="symbol">;</span>
<span class="braces">}</span>
<span class="reserved_word">function</span> md4_gg<span class="braces">(</span>a, b, c, d, x, s<span class="braces">)</span>
<span class="braces">{</span>
<span class="reserved_word">return</span> md4_cmn<span class="braces">(</span><span class="braces">(</span>b <span class="symbol">&</span> c<span class="braces">)</span> <span class="symbol">|</span> <span class="braces">(</span>b <span class="symbol">&</span> d<span class="braces">)</span> <span class="symbol">|</span> <span class="braces">(</span>c <span class="symbol">&</span> d<span class="braces">)</span>, a, <span class="numeric">0</span>, x, s, <span class="numeric">1518500249</span><span class="braces">)</span><span class="symbol">;</span>
<span class="braces">}</span>
<span class="reserved_word">function</span> md4_hh<span class="braces">(</span>a, b, c, d, x, s<span class="braces">)</span>
<span class="braces">{</span>
<span class="reserved_word">return</span> md4_cmn<span class="braces">(</span>b ^ c ^ d, a, <span class="numeric">0</span>, x, s, <span class="numeric">1859775393</span><span class="braces">)</span><span class="symbol">;</span>
<span class="braces">}</span>
<span class="comment">/*
* Calculate the HMAC-MD4, of a key and some data
*/</span>
<span class="reserved_word">function</span> core_hmac_md4<span class="braces">(</span>key, data<span class="braces">)</span>
<span class="braces">{</span>
<span class="reserved_word">var</span> bkey <span class="symbol">=</span> str2binl<span class="braces">(</span>key<span class="braces">)</span><span class="symbol">;</span>
<span class="reserved_word">if</span><span class="braces">(</span>bkey.<span class="predefined_identifier">length</span> <span class="symbol">></span> <span class="numeric">16</span><span class="braces">)</span> bkey <span class="symbol">=</span> core_md4<span class="braces">(</span>bkey, key.<span class="predefined_identifier">length</span> * chrsz<span class="braces">)</span><span class="symbol">;</span>
<span class="reserved_word">var</span> ipad <span class="symbol">=</span> <span class="predefined_type">Array</span><span class="braces">(</span><span class="numeric">16</span><span class="braces">)</span>, opad <span class="symbol">=</span> <span class="predefined_type">Array</span><span class="braces">(</span><span class="numeric">16</span><span class="braces">)</span><span class="symbol">;</span>
<span class="reserved_word">for</span><span class="braces">(</span><span class="reserved_word">var</span> i <span class="symbol">=</span> <span class="numeric">0</span><span class="symbol">;</span> i <span class="symbol"> <span class="numeric">16</span><span class="symbol">;</span> i++<span class="braces">)</span>
<span class="braces">{</span>
ipad[i] <span class="symbol">=</span> bkey[i] ^ <span class="numeric">0x36363636</span><span class="symbol">;</span>
opad[i] <span class="symbol">=</span> bkey[i] ^ <span class="numeric">0x5C5C5C5C</span><span class="symbol">;</span>
<span class="braces">}</span>
<span class="reserved_word">var</span> <span class="predefined_identifier">hash</span> <span class="symbol">=</span> core_md4<span class="braces">(</span>ipad.concat<span class="braces">(</span>str2binl<span class="braces">(</span>data<span class="braces">)</span><span class="braces">)</span>, <span class="numeric">512</span> + data.<span class="predefined_identifier">length</span> * chrsz<span class="braces">)</span><span class="symbol">;</span>
<span class="reserved_word">return</span> core_md4<span class="braces">(</span>opad.concat<span class="braces">(</span><span class="predefined_identifier">hash</span><span class="braces">)</span>, <span class="numeric">512</span> + <span class="numeric">128</span><span class="braces">)</span><span class="symbol">;</span>
<span class="braces">}</span>
<span class="comment">/*
* Add integers, wrapping at 2^32. This uses 16-bit operations internally
* to work around bugs in some JS interpreters.
*/</span>
<span class="reserved_word">function</span> safe_add<span class="braces">(</span>x, y<span class="braces">)</span>
<span class="braces">{</span>
<span class="reserved_word">var</span> lsw <span class="symbol">=</span> <span class="braces">(</span>x <span class="symbol">&</span> <span class="numeric">0xFFFF</span><span class="braces">)</span> + <span class="braces">(</span>y <span class="symbol">&</span> <span class="numeric">0xFFFF</span><span class="braces">)</span><span class="symbol">;</span>
<span class="reserved_word">var</span> msw <span class="symbol">=</span> <span class="braces">(</span>x <span class="symbol">></span><span class="symbol">></span> <span class="numeric">16</span><span class="braces">)</span> + <span class="braces">(</span>y <span class="symbol">></span><span class="symbol">></span> <span class="numeric">16</span><span class="braces">)</span> + <span class="braces">(</span>lsw <span class="symbol">></span><span class="symbol">></span> <span class="numeric">16</span><span class="braces">)</span><span class="symbol">;</span>
<span class="reserved_word">return</span> <span class="braces">(</span>msw <span class="symbol"><span class="symbol"> <span class="numeric">16</span><span class="braces">)</span> <span class="symbol">|</span> <span class="braces">(</span>lsw <span class="symbol">&</span> <span class="numeric">0xFFFF</span><span class="braces">)</span><span class="symbol">;</span>
<span class="braces">}</span>
<span class="comment">/*
* Bitwise rotate a 32-bit number to the left.
*/</span>
<span class="reserved_word">function</span> rol<span class="braces">(</span>num, cnt<span class="braces">)</span>
<span class="braces">{</span>
<span class="reserved_word">return</span> <span class="braces">(</span>num <span class="symbol"><span class="symbol"> cnt<span class="braces">)</span> <span class="symbol">|</span> <span class="braces">(</span>num <span class="symbol">></span><span class="symbol">></span><span class="symbol">></span> <span class="braces">(</span><span class="numeric">32</span> - cnt<span class="braces">)</span><span class="braces">)</span><span class="symbol">;</span>
<span class="braces">}</span>
<span class="comment">/*
* Convert a string to an array of little-endian words
* If chrsz is ASCII, characters >255 have their hi-byte silently ignored.
*/</span>
<span class="reserved_word">function</span> str2binl<span class="braces">(</span>str<span class="braces">)</span>
<span class="braces">{</span>
<span class="reserved_word">var</span> bin <span class="symbol">=</span> <span class="predefined_type">Array</span><span class="braces">(</span><span class="braces">)</span><span class="symbol">;</span>
<span class="reserved_word">var</span> mask <span class="symbol">=</span> <span class="braces">(</span><span class="numeric">1</span> <span class="symbol"><span class="symbol"> chrsz<span class="braces">)</span> - <span class="numeric">1</span><span class="symbol">;</span>
<span class="reserved_word">for</span><span class="braces">(</span><span class="reserved_word">var</span> i <span class="symbol">=</span> <span class="numeric">0</span><span class="symbol">;</span> i <span class="symbol"> str.<span class="predefined_identifier">length</span> * chrsz<span class="symbol">;</span> i +<span class="symbol">=</span> chrsz<span class="braces">)</span>
bin[i<span class="symbol">></span><span class="symbol">></span><span class="numeric">5</span>] <span class="symbol">|</span><span class="symbol">=</span> <span class="braces">(</span>str.charCodeAt<span class="braces">(</span>i <span class="symbol">/</span> chrsz<span class="braces">)</span> <span class="symbol">&</span> mask<span class="braces">)</span> <span class="symbol"><span class="symbol"> <span class="braces">(</span>i%<span class="numeric">32</span><span class="braces">)</span><span class="symbol">;</span>
<span class="reserved_word">return</span> bin<span class="symbol">;</span>
<span class="braces">}</span>
<span class="comment">/*
* Convert an array of little-endian words to a string
*/</span>
<span class="reserved_word">function</span> binl2str<span class="braces">(</span>bin<span class="braces">)</span>
<span class="braces">{</span>
<span class="reserved_word">var</span> str <span class="symbol">=</span> <span class="string">""</span><span class="symbol">;</span>
<span class="reserved_word">var</span> mask <span class="symbol">=</span> <span class="braces">(</span><span class="numeric">1</span> <span class="symbol"><span class="symbol"> chrsz<span class="braces">)</span> - <span class="numeric">1</span><span class="symbol">;</span>
<span class="reserved_word">for</span><span class="braces">(</span><span class="reserved_word">var</span> i <span class="symbol">=</span> <span class="numeric">0</span><span class="symbol">;</span> i <span class="symbol"> bin.<span class="predefined_identifier">length</span> * <span class="numeric">32</span><span class="symbol">;</span> i +<span class="symbol">=</span> chrsz<span class="braces">)</span>
str +<span class="symbol">=</span> String.fromCharCode<span class="braces">(</span><span class="braces">(</span>bin[i<span class="symbol">></span><span class="symbol">></span><span class="numeric">5</span>] <span class="symbol">></span><span class="symbol">></span><span class="symbol">></span> <span class="braces">(</span>i % <span class="numeric">32</span><span class="braces">)</span><span class="braces">)</span> <span class="symbol">&</span> mask<span class="braces">)</span><span class="symbol">;</span>
<span class="reserved_word">return</span> str<span class="symbol">;</span>
<span class="braces">}</span>
<span class="comment">/*
* Convert an array of little-endian words to a hex string.
*/</span>
<span class="reserved_word">function</span> binl2hex<span class="braces">(</span>binarray<span class="braces">)</span>
<span class="braces">{</span>
<span class="reserved_word">var</span> hex_tab <span class="symbol">=</span> hexcase ? <span class="string">"0123456789ABCDEF"</span> : <span class="string">"0123456789abcdef"</span><span class="symbol">;</span>
<span class="reserved_word">var</span> str <span class="symbol">=</span> <span class="string">""</span><span class="symbol">;</span>
<span class="reserved_word">for</span><span class="braces">(</span><span class="reserved_word">var</span> i <span class="symbol">=</span> <span class="numeric">0</span><span class="symbol">;</span> i <span class="symbol"> binarray.<span class="predefined_identifier">length</span> * <span class="numeric">4</span><span class="symbol">;</span> i++<span class="braces">)</span>
<span class="braces">{</span>
str +<span class="symbol">=</span> hex_tab.<span class="library_function">charAt</span><span class="braces">(</span><span class="braces">(</span>binarray[i<span class="symbol">></span><span class="symbol">></span><span class="numeric">2</span>] <span class="symbol">></span><span class="symbol">></span> <span class="braces">(</span><span class="braces">(</span>i%<span class="numeric">4</span><span class="braces">)</span>*<span class="numeric">8</span>+<span class="numeric">4</span><span class="braces">)</span><span class="braces">)</span> <span class="symbol">&</span> <span class="numeric">0xF</span><span class="braces">)</span> +
hex_tab.<span class="library_function">charAt</span><span class="braces">(</span><span class="braces">(</span>binarray[i<span class="symbol">></span><span class="symbol">></span><span class="numeric">2</span>] <span class="symbol">></span><span class="symbol">></span> <span class="braces">(</span><span class="braces">(</span>i%<span class="numeric">4</span><span class="braces">)</span>*<span class="numeric">8</span> <span class="braces">)</span><span class="braces">)</span> <span class="symbol">&</span> <span class="numeric">0xF</span><span class="braces">)</span><span class="symbol">;</span>
<span class="braces">}</span>
<span class="reserved_word">return</span> str<span class="symbol">;</span>
<span class="braces">}</span>
<span class="comment">/*
* Convert an array of little-endian words to a base-64 string
*/</span>
<span class="reserved_word">function</span> binl2b64<span class="braces">(</span>binarray<span class="braces">)</span>
<span class="braces">{</span>
<span class="reserved_word">var</span> tab <span class="symbol">=</span> <span class="string">"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"</span><span class="symbol">;</span>
<span class="reserved_word">var</span> str <span class="symbol">=</span> <span class="string">""</span><span class="symbol">;</span>
<span class="reserved_word">for</span><span class="braces">(</span><span class="reserved_word">var</span> i <span class="symbol">=</span> <span class="numeric">0</span><span class="symbol">;</span> i <span class="symbol"> binarray.<span class="predefined_identifier">length</span> * <span class="numeric">4</span><span class="symbol">;</span> i +<span class="symbol">=</span> <span class="numeric">3</span><span class="braces">)</span>
<span class="braces">{</span>
<span class="reserved_word">var</span> triplet <span class="symbol">=</span> <span class="braces">(</span><span class="braces">(</span><span class="braces">(</span>binarray[i <span class="symbol">></span><span class="symbol">></span> <span class="numeric">2</span>] <span class="symbol">></span><span class="symbol">></span> <span class="numeric">8</span> * <span class="braces">(</span> i %<span class="numeric">4</span><span class="braces">)</span><span class="braces">)</span> <span class="symbol">&</span> <span class="numeric">0xFF</span><span class="braces">)</span> <span class="symbol"><span class="symbol"> <span class="numeric">16</span><span class="braces">)</span>
<span class="symbol">|</span> <span class="braces">(</span><span class="braces">(</span><span class="braces">(</span>binarray[i+<span class="numeric">1</span> <span class="symbol">></span><span class="symbol">></span> <span class="numeric">2</span>] <span class="symbol">></span><span class="symbol">></span> <span class="numeric">8</span> * <span class="braces">(</span><span class="braces">(</span>i+<span class="numeric">1</span><span class="braces">)</span>%<span class="numeric">4</span><span class="braces">)</span><span class="braces">)</span> <span class="symbol">&</span> <span class="numeric">0xFF</span><span class="braces">)</span> <span class="symbol"><span class="symbol"> <span class="numeric">8</span> <span class="braces">)</span>
<span class="symbol">|</span> <span class="braces">(</span><span class="braces">(</span>binarray[i+<span class="numeric">2</span> <span class="symbol">></span><span class="symbol">></span> <span class="numeric">2</span>] <span class="symbol">></span><span class="symbol">></span> <span class="numeric">8</span> * <span class="braces">(</span><span class="braces">(</span>i+<span class="numeric">2</span><span class="braces">)</span>%<span class="numeric">4</span><span class="braces">)</span><span class="braces">)</span> <span class="symbol">&</span> <span class="numeric">0xFF</span><span class="braces">)</span><span class="symbol">;</span>
<span class="reserved_word">for</span><span class="braces">(</span><span class="reserved_word">var</span> j <span class="symbol">=</span> <span class="numeric">0</span><span class="symbol">;</span> j <span class="symbol"> <span class="numeric">4</span><span class="symbol">;</span> j++<span class="braces">)</span>
<span class="braces">{</span>
<span class="reserved_word">if</span><span class="braces">(</span>i * <span class="numeric">8</span> + j * <span class="numeric">6</span> <span class="symbol">></span> binarray.<span class="predefined_identifier">length</span> * <span class="numeric">32</span><span class="braces">)</span> str +<span class="symbol">=</span> b64pad<span class="symbol">;</span>
<span class="reserved_word">else</span> str +<span class="symbol">=</span> tab.<span class="library_function">charAt</span><span class="braces">(</span><span class="braces">(</span>triplet <span class="symbol">></span><span class="symbol">></span> <span class="numeric">6</span>*<span class="braces">(</span><span class="numeric">3</span>-j<span class="braces">)</span><span class="braces">)</span> <span class="symbol">&</span> <span class="numeric">0x3F</span><span class="braces">)</span><span class="symbol">;</span>
<span class="braces">}</span>
<span class="braces">}</span>
<span class="reserved_word">return</span> str<span class="symbol">;</span>
<span class="braces">}</span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span>Statement
The content of this article is voluntarily contributed by netizens, and the copyright belongs to the original author. This site does not assume corresponding legal responsibility. If you find any content suspected of plagiarism or infringement, please contact admin@php.cn
es6数组怎么去掉重复并且重新排序May 05, 2022 pm 07:08 PM去掉重复并排序的方法：1、使用“Array.from(new Set(arr))”或者“[…new Set(arr)]”语句，去掉数组中的重复元素，返回去重后的新数组；2、利用sort()对去重数组进行排序，语法“去重数组.sort()”。
JavaScript的Symbol类型、隐藏属性及全局注册表详解Jun 02, 2022 am 11:50 AM本篇文章给大家带来了关于JavaScript的相关知识，其中主要介绍了关于Symbol类型、隐藏属性及全局注册表的相关问题，包括了Symbol类型的描述、Symbol不会隐式转字符串等问题，下面一起来看一下，希望对大家有帮助。
原来利用纯CSS也能实现文字轮播与图片轮播！Jun 10, 2022 pm 01:00 PM怎么制作文字轮播与图片轮播？大家第一想到的是不是利用js，其实利用纯CSS也能实现文字轮播与图片轮播，下面来看看实现方法，希望对大家有所帮助！
JavaScript对象的构造函数和new操作符（实例详解）May 10, 2022 pm 06:16 PM本篇文章给大家带来了关于JavaScript的相关知识，其中主要介绍了关于对象的构造函数和new操作符，构造函数是所有对象的成员方法中，最早被调用的那个，下面一起来看一下吧，希望对大家有帮助。
JavaScript面向对象详细解析之属性描述符May 27, 2022 pm 05:29 PM本篇文章给大家带来了关于JavaScript的相关知识，其中主要介绍了关于面向对象的相关问题，包括了属性描述符、数据描述符、存取描述符等等内容，下面一起来看一下，希望对大家有帮助。
javascript怎么移除元素点击事件Apr 11, 2022 pm 04:51 PM方法：1、利用“点击元素对象.unbind("click");”方法，该方法可以移除被选元素的事件处理程序；2、利用“点击元素对象.off("click");”方法，该方法可以移除通过on()方法添加的事件处理程序。
整理总结JavaScript常见的BOM操作Jun 01, 2022 am 11:43 AM本篇文章给大家带来了关于JavaScript的相关知识，其中主要介绍了关于BOM操作的相关问题，包括了window对象的常见事件、JavaScript执行机制等等相关内容，下面一起来看一下，希望对大家有帮助。
20+道必知必会的Vue面试题（附答案解析）Apr 06, 2021 am 09:41 AM本篇文章整理了20+Vue面试题分享给大家，同时附上答案解析。有一定的参考价值，有需要的朋友可以参考一下，希望对大家有所帮助。
Hot AI Tools
Undresser.AI Undress
AI-powered app for creating realistic nude photos
AI Clothes Remover
Online AI tool for removing clothes from photos.
Undress AI Tool
Undress images for free
Clothoff.io
AI clothes remover
AI Hentai Generator
Generate AI Hentai for free.
Hot Article
Repo: How To Revive Teammates
1 months agoBy尊渡假赌尊渡假赌尊渡假赌
R.E.P.O. Energy Crystals Explained and What They Do (Yellow Crystal)
2 weeks agoBy尊渡假赌尊渡假赌尊渡假赌
Hello Kitty Island Adventure: How To Get Giant Seeds
1 months agoBy尊渡假赌尊渡假赌尊渡假赌
How Long Does It Take To Beat Split Fiction?
4 weeks agoByDDD
R.E.P.O. Save File Location: Where Is It & How to Protect It?
4 weeks agoByDDD
Hot Tools
SublimeText3 Mac version
God-level code editing software (SublimeText3)
SAP NetWeaver Server Adapter for Eclipse
Integrate Eclipse with SAP NetWeaver application server.
Atom editor mac version download
The most popular open source editor
mPDF
mPDF is a PHP library that can generate PDF files from UTF-8 encoded HTML. The original author, Ian Back, wrote mPDF to output PDF files "on the fly" from his website and handle different languages. It is slower than original scripts like HTML2FPDF and produces larger files when using Unicode fonts, but supports CSS styles etc. and has a lot of enhancements. Supports almost all languages, including RTL (Arabic and Hebrew) and CJK (Chinese, Japanese and Korean). Supports nested block-level elements (such as P, DIV),
SecLists
SecLists is the ultimate security tester's companion. It is a collection of various types of lists that are frequently used during security assessments, all in one place. SecLists helps make security testing more efficient and productive by conveniently providing all the lists a security tester might need. List types include usernames, passwords, URLs, fuzzing payloads, sensitive data patterns, web shells, and more. The tester can simply pull this repository onto a new test machine and he will have access to every type of list he needs.
