用wmlscript实现MD5和BASE64加密

啥也不说了，上代码！

一、实现MD5加密算法

MD5加密用到了三个wmlscript文件

- md5.wmls

- md5_aux.wmls

- ord.wmls

 

[md5.wmls]

 

/* * A WML Script implementation of the RSA Data Security, Inc. MD5 Message * Digest Algorithm, as defined in RFC 1321. * Copyright (C) Simon Wistow, 2001 */ use url md5aux "md5_aux.wmls"; extern function calcMD5(str) { var x = md5aux#str2blks_MD5(str); var a = 1732584193; var b = -271733879; var c = -1732584194; var d = 271733878; for(var i = 0; i < String.elements(x, '|'); i += 16) { var olda = a; var oldb = b; var oldc = c; var oldd = d; var abcd = a + '|' + b + '|' + c + '|' + d; abcd = md5aux#ff_four(abcd, x, i, 0, -680876936, -389564586, 606105819, -1044525330); abcd = md5aux#ff_four(abcd, x, i, 4, -176418897, 1200080426, -1473231341, -45705983); abcd = md5aux#ff_four(abcd, x, i, 8, 1770035416, -1958414417, -42063, -1990404162); abcd = md5aux#ff_four(abcd, x, i, 12, 1804603682, -40341101, -1502002290, 1236535329); abcd = md5aux#gg_four(abcd, x, i, 1, -165796510, -1069501632, 643717713, -373897302); abcd = md5aux#gg_four(abcd, x, i, 5, -701558691, 38016083, -660478335, -405537848); abcd = md5aux#gg_four(abcd, x, i, 9, 568446438, -1019803690, -187363961, 1163531501); abcd = md5aux#gg_four(abcd, x, i, 13, -1444681467, -51403784, 1735328473, -1926607734); abcd = md5aux#hh_four(abcd, x, i, 5, -378558, -2022574463, 1839030562, -35309556); abcd = md5aux#hh_four(abcd, x, i, 1, -1530992060, 1272893353, -155497632, -1094730640); abcd = md5aux#hh_four(abcd, x, i, 13, 681279174, -358537222, -722521979, 76029189); abcd = md5aux#hh_four(abcd, x, i, 9, -640364487, -421815835, 530742520, -995338651); abcd = md5aux#ii_four(abcd, x, i, 0, -198630844, 1126891415, -1416354905, -57434055); abcd = md5aux#ii_four(abcd, x, i, 12, 1700485571, -1894986606, -1051523, -2054922799); abcd = md5aux#ii_four(abcd, x, i, 8, 1873313359, -30611744, -1560198380, 1309151649); abcd = md5aux#ii_four(abcd, x, i, 4, -145523070, -1120210379, 718787259, -343485551); a = md5aux#add( md5aux#elt(abcd, 0), olda); b = md5aux#add( md5aux#elt(abcd, 1), oldb); c = md5aux#add( md5aux#elt(abcd, 2), oldc); d = md5aux#add( md5aux#elt(abcd, 3), oldd); } return md5aux#rhex(a) + md5aux#rhex(b) + md5aux#rhex(c) + md5aux#rhex(d); } extern function hash(str) { WMLBrowser.setVar("result",calcMD5(str)); WMLBrowser.refresh (); }

 

[md5_aux.wmls]

/* * A WML Script implementation of the RSA Data Security, Inc. MD5 Message * Digest Algorithm, as defined in RFC 1321. * Copyright (C) Simon Wistow, 2001 * * Auxillary functions - split into seperate files to keep each compiled * script down below the size of one UDP packet so all phones can use it */ use url ordlib "ord.wmls"; /* * Extract a value from one of our arrays. These are strings separated by the '|' character. */ extern function elt(str, index) { return String.elementAt (str, index, '|'); } /* * Extract a value from an array at offset: * base + ((group + offset) & 0xF) */ extern function elt2(str, base, group, offset) { return elt(str, base + ((group + offset) & 0xF)); } /* * Reduce size by turning this into a function. */ extern function combine (a, b, c, d) { return a + "|" + b + "|" + c + "|" + d; } /* * Take a string and return the hex representation of its MD5. */ extern function rhex(num) { var hex_chr = "0123456789abcdef"; var str = ""; for(var j = 0; j <= 3; j++) str += String.charAt(hex_chr, (num >> (j * 8 + 4)) & 0x0F) + String.charAt(hex_chr, (num >> (j * 8)) & 0x0F); return str; } /* * Convert a string to a sequence of 16-word blocks, stored as an array. * Append padding bits and the length, as described in the MD5 standard. */ extern function str2blks_MD5(str) { var nblk = ((String.length(str) + 8) >> 6) + 1; var blks = "0"; for(var i = 1; i < (nblk * 16); i++) blks += '|0'; for(i = 0; i <= String.length(str); i++) { var temp = String.elementAt(blks, i>>2, '|'); var ord_str = ordlib#ord_string(str); if (i != String.length(str)) temp |= String.elementAt(ord_str,i, '|') << ((i % 4) * 8); else temp |= 0x80 << ((i % 4) * 8); blks = String.replaceAt(blks, temp, i>>2, '|'); } blks = String.replaceAt(blks, String.length(str) * 8, nblk * 16 - 2, '|'); return blks; } /* * Add integers, wrapping at 2^32 */ extern function add(x, y) { var lsw = (x & 0xFFFF) + (y & 0xFFFF); var msw = (x >> 16) + (y >> 16) + (lsw >> 16); return (msw << 16) | (lsw & 0xFFFF); } /* * Bitwise rotate a 32-bit number to the left */ extern function rol(num, cnt) { return (num << cnt) | (num >>> (32 - cnt)); } /* * These functions implement the basic operation for each round of the * algorithm. */ extern function cmn(q, a, b, x, s, t) { return add(rol(add(add(a, q), add(x, t)), s), b); } extern function ff(a, b, c, d, x, s, t) { return cmn((b & c) | ((~b) & d), a, b, x, s, t); } extern function gg(a, b, c, d, x, s, t) { return cmn((b & d) | (c & (~d)), a, b, x, s, t); } extern function hh(a, b, c, d, x, s, t) { return cmn(b ^ c ^ d, a, b, x, s, t); } extern function ii(a, b, c, d, x, s, t) { return cmn(c ^ (b | (~d)), a, b, x, s, t); } extern function ff_four (abcd, x, i, offset, t1, t2, t3, t4) { var a = String.elementAt(abcd, 0, '|'); var b = String.elementAt(abcd, 1, '|'); var c = String.elementAt(abcd, 2, '|'); var d = String.elementAt(abcd, 3, '|'); i+=offset; a = ff(a, b, c, d, String.elementAt(x, i+ 0, '|'), 7, t1); d = ff(d, a, b, c, String.elementAt(x, i+ 1, '|'),12, t2); c = ff(c, d, a, b, String.elementAt(x, i+ 2, '|'),17, t3); b = ff(b, c, d, a, String.elementAt(x, i+ 3, '|'),22, t4); return a + '|' + b + '|' + c + '|' + d; } extern function gg_four (abcd, x, i, offset, t1, t2, t3, t4) { var a = elt(abcd, 0); var b = elt(abcd, 1); var c = elt(abcd, 2); var d = elt(abcd, 3); a = gg(a, b, c, d, elt2(x, i, offset, 0), 5, t1); d = gg(d, a, b, c, elt2(x, i, offset, 5), 9, t2); c = gg(c, d, a, b, elt2(x, i, offset, 10), 14, t3); b = gg(b, c, d, a, elt2(x, i, offset, 15), 20, t4); return combine (a, b, c, d); } /* * Do four hh calculations at once. */ extern function hh_four (abcd, x, i, offset, t1, t2, t3, t4) { var a = elt(abcd, 0); var b = elt(abcd, 1); var c = elt(abcd, 2); var d = elt(abcd, 3); a = hh(a, b, c, d, elt2(x, i, offset, 0), 4, t1); d = hh(d, a, b, c, elt2(x, i, offset, 3), 11, t2); c = hh(c, d, a, b, elt2(x, i, offset, 6), 16, t3); b = hh(b, c, d, a, elt2(x, i, offset, 9), 23, t4); return combine (a, b, c, d); } /* * Do four ii calculations at once. */ extern function ii_four (abcd, x, i, offset, t1, t2, t3, t4) { var a = elt(abcd, 0); var b = elt(abcd, 1); var c = elt(abcd, 2); var d = elt(abcd, 3); a = ii(a, b, c, d, elt2(x, i, offset, 0), 6, t1); d = ii(d, a, b, c, elt2(x, i, offset, 7), 10, t2); c = ii(c, d, a, b, elt2(x, i, offset, 14), 15, t3); b = ii(b, c, d, a, elt2(x, i, offset, 21), 21, t4); return combine (a, b, c, d); }

 

[ord.wmls]

/* * A WML Script implementation of the Ord function * which seems to be strangely missing. * Copyright (C) Simon Wistow, 2001 */ extern function ord_string (str) { var return_str; for (var i = 0; i< String.length(str); i++){ if (i>0) return_str += '|'; return_str += ord(String.charAt(str,i)); } return return_str; } extern function ord (char) { var ordstring = " !/"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[//]^_`abcdefghijklmnopqrstuvwxyz{|}~"; return String.find(ordstring, char) + 32; }

 

二、BASE64加密算法

 

一个文件：base64encode.wmls

[base64encode.wmls]

extern function base64Encode(str){ var base64EncodeChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"; // "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"; var out, i, len; var c1, c2, c3; len = String.length(str); i = 0; out = ""; while(i < len) { c1 = charCodeAt(str,i++) & 255; if(i == len) { out += String.charAt(base64EncodeChars,c1 >> 2); out += String.charAt(base64EncodeChars,((c1 & 3) << 4)); out += "=="; break; } c2 = charCodeAt(str,i++); if(i == len) { out += String.charAt(base64EncodeChars,c1 >> 2); out += String.charAt(base64EncodeChars,((c1 & 3) << 4) | ((c2 & 240) >> 4)); out += String.charAt(base64EncodeChars,(c2 & 15) << 2); out += "="; break; } c3 = charCodeAt(str,i++); out += String.charAt(base64EncodeChars, c1 >> 2); out += String.charAt(base64EncodeChars,((c1 & 3)<< 4) | ((c2 & 240) >> 4)); out += String.charAt(base64EncodeChars,((c2 & 15) << 2) | ((c3 & 192) >>6)); out += String.charAt(base64EncodeChars, c3 & 63); } return out; } extern function charCodeAt(str,index){ var char=String.charAt(str,index); var Allascii = " !/"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[//]^_`abcdefghijklmnopqrstuvwxyz{|}~"; return String.find(Allascii, char) + 32; }