编码

js 16进制

function urlCrypt(str){
var s='';
	for(i=0;i<str.length;i++){
s += '%'+str.charCodeAt(i).toString(16);
	}
	return s;
}

function urlCryptDe(str){//16进制解码
	arr=str.split('%');
	var arr10=new Array();
	for(ar in arr)
	{
		arr10.push(parseInt(arr[ar],16));
	}
	return eval("String.fromCharCode("+arr10.join(',')+")");
}

    function urlCryptDe(str) {
        arr = str.split(/(?=(?:\d{2})+(?!\d))/);
        var arr10 = new Array();
        for (ar in arr) {
            arr10.push(parseInt(arr[ar], 16))
        }
        return eval("String.fromCharCode(" + arr10.join(',') + ")");
    }
    function urlCrypt(str) {
        var s = '';
        for (i = 0; i < str.length; i++) {
            s += str.charCodeAt(i).toString(16)
        }
        return s;
    }

按长度：/(?<=\G.{2})(?!$)/   //JS不支持

/(?=(?:\d{3})+(?!\d))/

/(?=(?:.{2})+\b)/

零宽断言

Function BytesToBstr(strBody, CodeBase)                        '使用Adodb.Stream对象提取字符串
    Dim objStream
    On Error Resume Next
    Set objStream = CreateObject("Adodb.Stream")
    With objStream
        .Type = 1                                                              '二进制
        .Mode = 3                                                             '读写
        .Open
        .Write strBody                                                       '二进制数组写入Adodb.Stream对象内部
        .Position = 0                                                         '位置起始为0
        .Type = 2                                                             '字符串
        .Charset = CodeBase                                            '数据的编码格式
        BytesToBstr = .ReadText                                       '得到字符串
    End With
    objStream.Close
    Set objStream = Nothing
    If Err.Number <> 0 Then BytesToBstr = ""
    On Error GoTo 0
End Function