/* to convert strings to a list of ascii values */
var sAscii = " !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ"
var sAscii = sAscii + "[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~";

/* convert integer to hex string */
var sHex = "0123456789ABCDEF";
function hex(i) {
        h = "";
        for(j = 0; j <= 3; j++) {
                h += sHex.charAt((i >> (j * 8 + 4)) & 0x0F) +
                        sHex.charAt((i >> (j * 8)) & 0x0F);
        }
        return h;
}

/* add, handling overflows correctly */
function add(x, y) {
        return ((x&0x7FFFFFFF) + (y&0x7FFFFFFF)) ^ (x&0x80000000) ^ (y&0x80000000);
}

/* MD5 rounds functions */
function R1(A, B, C, D, X, S, T) {
        q = add(add(A, (B & C) | (~B & D)), add(X, T));
        return add((q << S) | ((q >> (32 - S)) & (Math.pow(2, S) - 1)), B);
}

function R2(A, B, C, D, X, S, T) {
        q = add(add(A, (B & D) | (C & ~D)), add(X, T));
        return add((q << S) | ((q >> (32 - S)) & (Math.pow(2, S) - 1)), B);
}

function R3(A, B, C, D, X, S, T) {
        q = add(add(A, B ^ C ^ D), add(X, T));
        return add((q << S) | ((q >> (32 - S)) & (Math.pow(2, S) - 1)), B);
}

function R4(A, B, C, D, X, S, T) {
        q = add(add(A, C ^ (B | ~D)), add(X, T));
        return add((q << S) | ((q >> (32 - S)) & (Math.pow(2, S) - 1)), B);
}

/* main entry point */
function calcMD5(sInp) {

        /* Calculate length in machine words, including padding */
        wLen = (((sInp.length + 8) >> 6) + 1) << 4;
        var X = new Array(wLen);

        /* Convert string to array of words */
        j = 4;
        for (i = 0; (i * 4) < sInp.length; i++) {
                X[i] = 0;
                for (j = 0; (j < 4) && ((j + i * 4) < sInp.length); j++) {
                        X[i] += (sAscii.indexOf(sInp.charAt((i * 4) + j)) + 32) << (j * 8);
                }
        }

        /* Append padding bits and length */
        if (j == 4) {
                X[i++] = 0x80;
        }
        else {
                X[i - 1] += 0x80 << (j * 8);
        }
        for(; i < wLen; i++) {
                X[i] = 0;
        }
        X[wLen - 2] = sInp.length * 8;

        /* hard-coded initial values */
        a = 0x67452301;
        b = 0xefcdab89;
        c = 0x98badcfe;
        d = 0x10325476;

        /* Process each 16-word block in turn */
        for (i = 0; i < wLen; i += 16) {
                aO = a;
                bO = b;
                cO = c;
                dO = d;

                a = R1(a, b, c, d, X[i+ 0], 7 , 0xd76aa478);
                d = R1(d, a, b, c, X[i+ 1], 12, 0xe8c7b756);
                c = R1(c, d, a, b, X[i+ 2], 17, 0x242070db);
                b = R1(b, c, d, a, X[i+ 3], 22, 0xc1bdceee);
                a = R1(a, b, c, d, X[i+ 4], 7 , 0xf57c0faf);
                d = R1(d, a, b, c, X[i+ 5], 12, 0x4787c62a);
                c = R1(c, d, a, b, X[i+ 6], 17, 0xa8304613);
                b = R1(b, c, d, a, X[i+ 7], 22, 0xfd469501);
                a = R1(a, b, c, d, X[i+ 8], 7 , 0x698098d8);
                d = R1(d, a, b, c, X[i+ 9], 12, 0x8b44f7af);
                c = R1(c, d, a, b, X[i+10], 17, 0xffff5bb1);
                b = R1(b, c, d, a, X[i+11], 22, 0x895cd7be);
                a = R1(a, b, c, d, X[i+12], 7 , 0x6b901122);
                d = R1(d, a, b, c, X[i+13], 12, 0xfd987193);
                c = R1(c, d, a, b, X[i+14], 17, 0xa679438e);
                b = R1(b, c, d, a, X[i+15], 22, 0x49b40821);

                a = R2(a, b, c, d, X[i+ 1], 5 , 0xf61e2562);
                d = R2(d, a, b, c, X[i+ 6], 9 , 0xc040b340);
                c = R2(c, d, a, b, X[i+11], 14, 0x265e5a51);
                b = R2(b, c, d, a, X[i+ 0], 20, 0xe9b6c7aa);
                a = R2(a, b, c, d, X[i+ 5], 5 , 0xd62f105d);
                d = R2(d, a, b, c, X[i+10], 9 , 0x2441453);
                c = R2(c, d, a, b, X[i+15], 14, 0xd8a1e681);
                b = R2(b, c, d, a, X[i+ 4], 20, 0xe7d3fbc8);
                a = R2(a, b, c, d, X[i+ 9], 5 , 0x21e1cde6);
                d = R2(d, a, b, c, X[i+14], 9 , 0xc33707d6);
                c = R2(c, d, a, b, X[i+ 3], 14, 0xf4d50d87);
                b = R2(b, c, d, a, X[i+ 8], 20, 0x455a14ed);
                a = R2(a, b, c, d, X[i+13], 5 , 0xa9e3e905);
                d = R2(d, a, b, c, X[i+ 2], 9 , 0xfcefa3f8);
                c = R2(c, d, a, b, X[i+ 7], 14, 0x676f02d9);
                b = R2(b, c, d, a, X[i+12], 20, 0x8d2a4c8a);

                a = R3(a, b, c, d, X[i+ 5], 4 , 0xfffa3942);
                d = R3(d, a, b, c, X[i+ 8], 11, 0x8771f681);
                c = R3(c, d, a, b, X[i+11], 16, 0x6d9d6122);
                b = R3(b, c, d, a, X[i+14], 23, 0xfde5380c);
                a = R3(a, b, c, d, X[i+ 1], 4 , 0xa4beea44);
                d = R3(d, a, b, c, X[i+ 4], 11, 0x4bdecfa9);
                c = R3(c, d, a, b, X[i+ 7], 16, 0xf6bb4b60);
                b = R3(b, c, d, a, X[i+10], 23, 0xbebfbc70);
                a = R3(a, b, c, d, X[i+13], 4 , 0x289b7ec6);
                d = R3(d, a, b, c, X[i+ 0], 11, 0xeaa127fa);
                c = R3(c, d, a, b, X[i+ 3], 16, 0xd4ef3085);
                b = R3(b, c, d, a, X[i+ 6], 23, 0x4881d05);
                a = R3(a, b, c, d, X[i+ 9], 4 , 0xd9d4d039);
                d = R3(d, a, b, c, X[i+12], 11, 0xe6db99e5);
                c = R3(c, d, a, b, X[i+15], 16, 0x1fa27cf8);
                b = R3(b, c, d, a, X[i+ 2], 23, 0xc4ac5665);

                a = R4(a, b, c, d, X[i+ 0], 6 , 0xf4292244);
                d = R4(d, a, b, c, X[i+ 7], 10, 0x432aff97);
                c = R4(c, d, a, b, X[i+14], 15, 0xab9423a7);
                b = R4(b, c, d, a, X[i+ 5], 21, 0xfc93a039);
                a = R4(a, b, c, d, X[i+12], 6 , 0x655b59c3);
                d = R4(d, a, b, c, X[i+ 3], 10, 0x8f0ccc92);
                c = R4(c, d, a, b, X[i+10], 15, 0xffeff47d);
                b = R4(b, c, d, a, X[i+ 1], 21, 0x85845dd1);
                a = R4(a, b, c, d, X[i+ 8], 6 , 0x6fa87e4f);
                d = R4(d, a, b, c, X[i+15], 10, 0xfe2ce6e0);
                c = R4(c, d, a, b, X[i+ 6], 15, 0xa3014314);
                b = R4(b, c, d, a, X[i+13], 21, 0x4e0811a1);
                a = R4(a, b, c, d, X[i+ 4], 6 , 0xf7537e82);
                d = R4(d, a, b, c, X[i+11], 10, 0xbd3af235);
                c = R4(c, d, a, b, X[i+ 2], 15, 0x2ad7d2bb);
                b = R4(b, c, d, a, X[i+ 9], 21, 0xeb86d391);

                a = add(a, aO);
                b = add(b, bO);
                c = add(c, cO);
                d = add(d, dO);
        }
       
        return hex(a) + hex(b) + hex(c) + hex(d);
}
</script>
<input type="text" id="m"><input type=button value="md5加密" onclick=txt.innerText=calcMD5(m.value)>
<span id="txt"></span>
//--------------------以下是 JScript 代码--------------------

/***************************************************************************** 
 * md5.js 
 * 
 * A JavaScript implementation of the RSA Data Security, Inc. MD5 
 * Message-Digest Algorithm. 
 * 
 * Copyright (C) Paul Johnston 1999. Distributed under the LGPL. 
 *****************************************************************************/ 

/* to convert strings to a list of ascii values */ 
var sAscii = " !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ" 
var sAscii = sAscii + "[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~"; 

/* convert integer to hex string */ 
var sHex = "0123456789ABCDEF"; 
function hex(i) { 
        h = ""; 
        for(j = 0; j <= 3; j++) { 
                h += sHex.charAt((i >> (j * 8 + 4)) & 0x0F) + 
                        sHex.charAt((i >> (j * 8)) & 0x0F); 
        } 
        return h; 
} 

/* add, handling overflows correctly */ 
function add(x, y) { 
        return ((x&0x7FFFFFFF) + (y&0x7FFFFFFF)) ^ (x&0x80000000) ^ (y&0x80000000); 
} 

/* MD5 rounds functions */ 
function R1(A, B, C, D, X, S, T) { 
        q = add(add(A, (B & C) | (~B & D)), add(X, T)); 
        return add((q << S) | ((q >> (32 - S)) & (Math.pow(2, S) - 1)), B); 
} 

function R2(A, B, C, D, X, S, T) { 
        q = add(add(A, (B & D) | (C & ~D)), add(X, T)); 
        return add((q << S) | ((q >> (32 - S)) & (Math.pow(2, S) - 1)), B); 
} 

function R3(A, B, C, D, X, S, T) { 
        q = add(add(A, B ^ C ^ D), add(X, T)); 
        return add((q << S) | ((q >> (32 - S)) & (Math.pow(2, S) - 1)), B); 
} 

function R4(A, B, C, D, X, S, T) { 
        q = add(add(A, C ^ (B | ~D)), add(X, T)); 
        return add((q << S) | ((q >> (32 - S)) & (Math.pow(2, S) - 1)), B); 
} 

/* main entry point */ 
function calcMD5(sInp) { 

        /* Calculate length in machine words, including padding */ 
        wLen = (((sInp.length + 8) >> 6) + 1) << 4; 
        var X = new Array(wLen); 

        /* Convert string to array of words */ 
        j = 4; 
        for (i = 0; (i * 4) < sInp.length; i++) { 
                X[i] = 0; 
                for (j = 0; (j < 4) && ((j + i * 4) < sIn

<p>
<input type=button value=发牌 onclick=cards(0)>
<input type=button value=自定 onclick=cards(1)>
<font color=#00aa00>正确</font><b id=correct style="width:30;height:;border:solid 1px #aaaa88;">0</b>
<font color=#aa0000>错误</font><b id=wrong style="width:30;height:;border:solid 1px #aaaa88;">0</b>
<font color=#0000aa>正确率</font><b id=yeild style="width:60;height:;border:solid 1px #aaaa88;">0</b>
</p>
</td>
<td>
<table cellspacing=2 cellpadding=2>
<tr>
<td colspan=4>
<b id=formula style="color:#000088;width:200;height:25;border:solid 1px #880000;">&nbsp;</b>
</td>
</tr>
<tr>
<td>
<input type=button value=+ style="width:30;height:30" onclick=add()>
</td>
<td>
<input type=button value=- style="width:30;height:30" onclick=minus()>
</td>
<td>
<input type=button value=* style="width:30;height:30" onclick=mult()>
</td>
<td>
<input type=button value=/ style="width:30;height:30" onclick=divd()>
</td>
</tr>
<tr>
<td>
<input type=button value=( style="width:30;height:30" onclick=lbr()>
</td>
<td>
<input type=button value=) style="width:30;height:30" onclick=rbr()>
</td>
<td>
<input type=button value== style="width:30;height:30" onclick=equ()>
</td>
<td>
<input type=button value=← style="width:30;height:30" onclick=bkspc()>
</td>
</tr>
<tr>
<td>
<input type=button value=重置 onclick=resetit()>
</td>
<td>
<input type=button value=无解 onclick=abort()>
</td>
<td colspan=2>
<input type=button value=查看答案 onclick=cal()>
</td>
</tr>
</table>
</td>
</tr>
</table>
<p id=showit style="color:#aa3388;width:300;height:150;border:solid 1px #008800;">&nbsp;</p>
<script>
function numToChar(n){  //数字的单个字符表示；
  return unescape('%u'+(n+1000));
}

function charToNum(c){  //单个字符表示对应的数字；
  return parseInt(escape(c).substring(2,100))-1000;
}

var cardInf='',cardInf0;
var cardS=new Array(0,'A',2,3,4,5,6,7,8,9,10,'J','Q','K');
var typ=new Array(0,1,2,3);
var typhtml=new Array(
'<font color=#000000>'+unescape('%u2660'),
'<font color=#000000>'+unescape('%u2663'),
'<font color=#ff0000>'+unescape('%u2665'),
'<font color=#ff0000>'+unescape('%u2666'));
for(var i=1;i<=13;i++){
  for(var j=0;j<4;j++){
    cardInf+=numToChar(i)+typ[j];
  }
}
cardInf0=cardInf;
var mode=new Array();
mode[0]='a+b+c+d';
mode[1]='a+b+c-d';
mode[2]='a+b-c-d';
mode[3]='a*b+c+d';
mode[4]='a*b*c+d';
mode[5]='a*b+c*d';
mode[6]='a*b*c*d';
mode[7]='a/b+c+d';
mode[8]='a/b/c+d';
mode[9]='a/b+c/d';
mode[10]='a*b*c/d';
mode[11]='a*b/c/d';
mode[12]='a*b/c+d';
mode[13]='a/b+c*d';
mode[14]='a*b-c-d';
mode[15]='a*b*c-d';
mode[16]='a*b-c*d';
mode[17]='a*b/c-d';
mode[18]='a*b+c-d';
mode[19]='(a+b+c)*d';
mode[20]='(a+b-c)*d';
mode[21]='(a*b+c)*d';
mode[22]='(a*b-c)*d';
mode[23]='(a/b+c)*d';
mode[24]='(a/b-c)*d';
mode[25]='(a+b+c)/d';
mode[26]='(a+b-c)/d';
mode[27]='(a*b+c)/d';
mode[28]='(a*b-c)/d';
mode[29]='(a/b+c)/d';
mode[30]='(a+b)*c+d';
mode[31]='(a-b)*c+d';
mode[32]='(a+b)/c+d';
mode[33]='(a-b)/c+d';
mode[34]='(a+b)*c-d';
mode[35]='(a-b)*c-d';
mode[36]='(a+b)/c-d';
mode[37]='(a+b)*c*d';
mode[38]='(a-b)*c*d';
mode[33]='(a+b)/c*d';
mode[40]='(a-b)/c*d';
mode[41]='(a+b)/c/d';
mode[42]='(a+b)*(c+d)';
mode[43]='(a+b)*(c-d)';
mode[44]='(a-b)*(c-d)';
mode[45]='(a+b)/(c+d)';
mode[46]='(a+b)/(c-d)';
mode[47]='a/b+c-d';
mode[48]='a+b/(c+d)';
mode[49]='a*b/(c+d)';
mode[50]='a+b/(c-d)';
mode[51]='a*b/(c-d)';
mode[52]='a/(b-c/d)';

var vari=new Array(
'0123',
'0132',
'0213',
'0231',
'0312',
'0321',
'1023',
'1032',
'1203',
'1230',
'1302',
'1320',
'2013',
'2031',
'2103',
'2130',
'2301',
'2310',
'3012',
'3021',
'3102',
'3120',
'3201',
'3210');

var z=new Array();
var zt=new Array();

function cards(ifmine){
  formula.innerHTML='';
  showit.innerHTML='';

if(ifmine){
  z[0]=prompt('第一张牌的数字：','');
  z[1]=prompt('第二张牌的数字：','');
  z[2]=prompt('第三张牌的数字：','');
  z[3]=prompt('第四张牌的数字：','');
  for(var i=0;i<4;i++){
    zt[i]='<font color=#000088>';
  }
}
else{
  for(var i=0;i<4;i++){
    var index=2*Math.floor(cardInf.length/2*Math.random());
    var cardN=cardInf.charAt(index);
    z[i]=charToNum(cardN);
    zt[i]=typhtml[parseInt(cardInf.charAt(index+1))];
    cardInf=cardInf.substring(0,index)+cardInf.substring(index+2,cardInf.length);
  }
  if(cardInf==''){
    alert('52张牌已全部发完！\n\n正确：'+correct.innerHTML+'；错误：'+wrong.innerHTML+'；正确率：'+yeild.innerHTML+'。\n\n\n再来一局！');
    cardInf=cardInf0;
    a2.innerHTML='';
    b2.innerHTML='';
    c2.innerHTML='';
    d2.innerHTML='';
    a2.style.backgroundColor='#ff8888';
    b2.style.backgroundColor='#ff8888';
    c2.style.backgroundColor='#ff8888';
    d2.style.backgroundColor='#ff8888';
    a1.value='';
    b1.value='';
    c1.value='';
    d1.value='';
    correct.innerHTML=0;
    wrong.innerHTML=0;
    yeild.innerHTML=0;
    return 0;
  }
}
  a1.value=z[0];
  b1.value=z[1];
  c1.value=z[2];
  d1.value=z[3];
  var m1='<br><center>',m2='</center></font>';
  a2.innerHTML=zt[0]+m1+cardS[z[0]]+m2;
  b2.innerHTML=zt[1]+m1+cardS[z[1]]+m2;
  c2.innerHTML=zt[2]+m1+cardS[z[2]]+m2;
  d2.innerHTML=zt[3]+m1+cardS[z[3]]+m2;
  a2.style.backgroundColor='#ffffee';
  b2.style.backgroundColor='#ffffee';
  c2.style.backgroundColor='#ffffee';
  d2.style.backgroundColor='#ffffee';
}

function cal(){
  showit.innerHTML='<br>标准答案：<br>';
  var p=0;
  for(i=0;i<mode.length;i++){
    for(j=0;j<24;j++){
      a=parseInt(z[vari[j].charAt(0)]);
      b=parseInt(z[vari[j].charAt(1)]);
      c=parseInt(z[vari[j].charAt(2)]);
      d=parseInt(z[vari[j].charAt(3)]);
      var s=mode[i];
      var result=eval(s);
      if(Math.abs(result-24)<1E-5){
        var ina=mode[i].indexOf('a');
        var inb=mode[i].indexOf('b');
        var inc=mode[i].indexOf('c');
        var ind=mode[i].indexOf('d');
        showit.innerHTML+=mode[i].substring(0,ina)+a+mode[i].substring(ina+1,inb)+b+mode[i].substring(inb+1,inc)+c+mode[i].substring(inc+1,ind)+d+mode[i].substring(ind+1,mode[i].length)+'=24\n';
        showit.innerHTML+='<br>';
        p=1;
        break;
      }
    }
  }
  if(p) return 0;
  else showit.innerHTML='无解';
}

function addN(v,n){
    formula.innerHTML+=v;
}
function add(){
  formula.innerHTML+='+';
}
function minus(){
  formula.innerHTML+='-';
}
function mult(){
  formula.innerHTML+='*';
}
function divd(){
  formula.innerHTML+='/';
}
function lbr(){
  formula.innerHTML+='(';
}
function rbr(){
  formula.innerHTML+=')';
}
function equ(){
  var v=eval(formula.innerHTML);
  if(v-Math.floor(v)<1E-5||v-Math.floor(v)>9E-6)
    v=Math.round(v);
  formula.innerHTML+='='+v;
  cal();
  var temp=showit.innerHTML;
  var rt=parseInt(correct.innerHTML);
  var wg=parseInt(wrong.innerHTML);
  if(v==24){
    showit.innerHTML='正确！'+temp;
    correct.innerHTML=rt+1;
  }
  else{
    showit.innerHTML='错误！'+temp;
    wrong.innerHTML=wg+1;
  }
  rt=parseInt(correct.innerHTML);
  wg=parseInt(wrong.innerHTML);
  yeild.innerHTML=Math.floor(rt/(rt+wg)*10000)/100+'%';
}
function bkspc(){
  var s=formula.innerHTML;
  formula.innerHTML=s.substring(0,s.length-1);
}
function resetit(){
  formula.innerHTML='';
}
function abort(){
  cal();
  var temp=showit.innerHTML;
  var rt=parseInt(correct.innerHTML);
  var wg=parseInt(wrong.innerHTML);
  if(showit.innerHTML=='无解'){
    showit.innerHTML='正确！<br>确实无解。'
    correct.innerHTML=rt+1;
  }
  else{
    showit.innerHTML='错误！'+temp;
    wrong.innerHTML=wg+1;
  }
  rt=parseInt(correct.innerHTML);
  wg=parseInt(wrong.innerHTML);
  yeild.innerHTML=Math.floor(rt/(rt+wg)*10000)/100+'%'; 
}
</script>
</html>