asp base64加密的函数 测试可用，秒杀全网

函数 测试可用，秒杀全网"/>

asp base64加密的函数 测试可用，秒杀全网

 可能asp真的老了，最近要找一个asp版的base64加密方式，竟然全网搜到的代码测试都没用，其实也不是说没用，就是虽然用网上的这些asp版的函数进行base64编码了，但是在前端无法解密。最后在google上才找到答案（这谷歌搜技术问题确实比百度好，可能有人会问你咋上去的？我是找的一个搞外贸的前同事要的方式通过/?f=d3DaA上的。），废话不多说，以下是我做了些小修改，然后测试通过了的。直接调用函数Base64Encode即可。

<%
Function Base64Encode(sText)Dim oXML, oNodeSet oXML = CreateObject("Msxml2.DOMDocument.3.0")Set oNode = oXML.createElement("base64")oNode.dataType = "bin.base64"oNode.nodeTypedValue = Stream_StringToBinary(sText)Base64Encode = Replace(Replace(oNode.Text, Chr(10), ""), Chr(13), "")Set oNode = NothingSet oXML = Nothing
End Function
Private Function Stream_StringToBinary(Text)Const adTypeText = 2Const adTypeBinary = 1Dim BinaryStream 'As New StreamSet BinaryStream = CreateObject("ADODB.Stream")BinaryStream.Type = adTypeTextBinaryStream.Charset = "UTF-8"BinaryStream.OpenBinaryStream.WriteText TextBinaryStream.position = 0BinaryStream.Type = adTypeBinaryBinaryStream.position = 0Stream_StringToBinary = BinaryStream.ReadSet BinaryStream = Nothing
End Function
%>

 为什么要搞这个？是因为有个老古董网站是GBK的，而json传输中文总是会乱码，因此不得已用base64转码来规避这个问题。前端js解码简单，找到特征字符串然后解密替换即可。主要代码如下：
 

    //对msg中的base64编码进行解密let reg = /77u\/([^\s]+)/g;let result = "";   while(result = reg.exec(msg)) {   msg=msg.replace("77u/" + result[1], Base64.decode(result[1]));}

以上是假设返回的结果是msg，大家可以根据自己需要进行修改。