最近做了一些涉及base64的东西,用多种语言写了这个函数,手头有这个vbs脚本的函数(非原创),在此记忆一下
MsgBox "abc的base64编码是 : " & base64Encode("abc"),64,"abc的base64编码是" MsgBox "编码再解码是 : " & base64uncode(base64Encode("abc")),64,"编码再解码" Function base64Encode(sString) If sString = "" or IsNull(sString) Then base64Encode = "" Exit Function End If Dim xml_dom, Node Set xml_dom = CreateObject("Microsoft.XMLDOM") With xml_dom