本文介绍如何使用Microsoft的XML支持实现base64编码。
[使用语言VB、VC++等]
以下实例使用VB编写,大家可以方便的将其转换成VC++或其它编程语言。
1. Base64编码函数
Function Base64Encode(Source() As Byte) As String
Dim MainXml As New DOMDocument
MainXml.loadXML "<root />"
MainXml.documentElement.dataType = "bin.base64"
MainXml.documentElement.nodeTypedValue = Source
Base64Encode = MainXml.documentElement.Text
End Function
2. Base64解码函数
Function Base64Decode(Source As String) As Byte()
Dim MainXml As New DOMDocument
MainXml.loadXML "<root />"
MainXml.documentElement.dataType = "bin.base64"
MainXml.documentElement.Text = Source
Base64Decode = MainXml.documentElement.nodeTypedValue
End Function