06
2009
05

vbs脚本的base64编码解码函数

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


作者:Chikoo | 分类:每日问 | 浏览:2041 | 评论:0
‹‹ 1 ››