使用Microsoft XML Dom进行base64编码

本文介绍如何使用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