perl和js对web请求的base64 encode/decode
最近做个项目, 需要用js来进行base64 encode, 然后用perl来base64 decoce. 做完之后, 记录一下.首先是javascript的base64 encode, 查了下, 要么是用jquery, 要么就是自己定义base64encode的方法. 选择了后者.
var paraStr = "in=1&"+location.href.substring(location.href.indexOf("?")+1);
paraStr = base64Encode(paraStr);
var hostUrl = '';
var join = '?';
if(hostUrl.indexOf('?') != -1) join = '&';
window.top.location = hostUrl + join + 'redirect_data=' + paraStr;
// function uTF8Encode
function uTF8Encode(string){
string = string.replace(/\x0d\x0a/g, "\x0a");
var output = "";
for (var n = 0; n < string.length; n++) {
var c = string.charCodeAt(n);
if (c < 128) {
output += String.fromCharCode(c);
} else if ((c > 127) && (c < 2048)) {
output += String.fromCharCode((c >> 6) | 192);
output += String.fromCharCode((c & 63) | 128);
} else {
output += String.fromCharCode((c >> 12) | 224);
output += String.fromCharCode(((c >> 6) & 63) | 128);
output += String.fromCharCode((c & 63) | 128);
}
}
return output;
}
// function base64Encode
function base64Encode(input){
var keyString = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=";
var output = "";
var chr1, chr2, chr3, enc1, enc2, enc3, enc4;
var i = 0;
input = uTF8Encode(input);
while (i < input.length) {
chr1 = input.charCodeAt(i++);
chr2 = input.charCodeAt(i++);
chr3 = input.charCodeAt(i++);
enc1 = chr1 >> 2;
enc2 = ((chr1 & 3) > 4);
enc3 = ((chr2 & 15) > 6);
enc4 = chr3 & 63;
if (isNaN(chr2)) {
enc3 = enc4 = 64;
} else if (isNaN(chr3)) {
enc4 = 64;
}
output = output + keyString.charAt(enc1) + keyString.charAt(enc2) + keyString.charAt(enc3) + keyString.charAt(enc4);
}
return output;
}
其中uTF8Encode和base64Encode 来自jquery插件.类似的还有base64 decode的两个方法.
也可参考http://ntt.cc/2008/01/19/base64-encoder-decoder-with-javascript.html, 这里只是没有转utf-8.
至于perl的 就简单了, 直接引用模块:
use MIME::Base64 qw(encode_base64 decode_base64);
页:
[1]