VBS base64转码代码

以下是VBS代码示例，可以将一个字符串进行base64编码和解码。

' 编码函数
Function Base64Encode(strText)
    Dim objXML, objNode
    Set objXML = CreateObject("Msxml2.DOMDocument.3.0")
    Set objNode = objXML.CreateElement("base64")
    objNode.DataType = "bin.base64"
    objNode.nodeTypedValue = Stream_StringToBinary(strText)
    Base64Encode = objNode.Text
    Set objNode = Nothing
    Set objXML = Nothing
End Function

' 解码函数
Function Base64Decode(strText)
    Dim objXML, objNode
    Set objXML = CreateObject("Msxml2.DOMDocument.3.0")
    Set objNode = objXML.CreateElement("base64")
    objNode.DataType = "bin.base64"
    objNode.Text = strText
    Base64Decode = Stream_BinaryToString(objNode.nodeTypedValue)
    Set objNode = Nothing
    Set objXML = Nothing
End Function

' 辅助函数
Function Stream_StringToBinary(Text)
  Const adTypeText = 2
  Const adTypeBinary = 1
  Dim BinaryStream 'As New Stream
  Set BinaryStream = CreateObject("ADODB.Stream")
  BinaryStream.Type = adTypeText
  BinaryStream.Charset = "us-ascii"
  BinaryStream.Open
  BinaryStream.WriteText Text
  BinaryStream.Position = 0
  BinaryStream.Type = adTypeBinary
  BinaryStream.Read 3 ' skip BOM
  Stream_StringToBinary = BinaryStream.Read
  BinaryStream.Close
  Set BinaryStream = Nothing
End Function

Function Stream_BinaryToString(Binary)
  Const adTypeText = 2
  Const adTypeBinary = 1
  Dim BinaryStream 'As New Stream
  Set BinaryStream = CreateObject("ADODB.Stream")
  BinaryStream.Type = adTypeBinary
  BinaryStream.Open
  BinaryStream.Write Binary
  BinaryStream.Position = 0
  BinaryStream.Type = adTypeText
  BinaryStream.Charset = "us-ascii"
  Stream_BinaryToString = BinaryStream.ReadText
  BinaryStream.Close
  Set BinaryStream = Nothing
End Function

你可以将需要转码的字符串作为参数传入 `Base64Encode()` 函数，它将返回base64编码后的结果。同样，你也可以将base64编码后的字符串作为参数传入 `Base64Decode()` 函数，它将返回解码后的结果。