最近做了一些涉及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, No