java hexbin_bin.base64和bin.hex编码与解码

Function EncodeBase64(bytesData)

Dim objXd

Set objXd=Server.CreateObject("msxml.domdocument")

Call objXd.loadXml("")

objXd.DocumentElement.DataType="bin.base64"

objXd.DocumentElement.NodeTypedValue=bytesData

EncodeBase64=objXd.DocumentElement.text

End Function

Function Base64Decode(strData)

Dim objXd

Set objXd=Server.CreateObject("msxml.domdocument")

Call objXd.loadXml("")

objXd.DocumentElement.DataType="bin.base64"

objXd.DocumentElement.text=strData

Base64Decode=objXd.DocumentElement.NodeTypedValue

End Function

Function Save2Local(imgs,tofile)

Set objStream=Server.CreateObject("Adodb.Stream")

objStream.Mode=3

objStream.Type=1

objStream.Open

objStream.Write imgs

objStream.SaveToFile tofile,2

objStream.Close

Set objStream=Nothing

End Function

上面的bin.base64换成bin.hex就可以解hex的了

参考：