[ASP]ASP的Base64加密解密

JS有Base64.js，PHP内建Base64支持，ASP处理Base64数据就没有那么幸运了，既没有Base64.asp，也没有内建的函数，这可怎么办？

ASP一般用到Base64的时候，都是处理二进制文件。简单的文本，就没有必要编码咯。ASP处理二进制又是一个弱项，有没有好的方法呢？xml中的bin.base64也许可以拿来用用。

'调用xml的编码，用于参照 
function Base64Encode(strData) 
    dim objAds,objXd 
    set objAds=createobject("adodb.stream") 
    objAds.Type=2 
    objAds.charset="unicode" 
    objAds.mode=3 
    call objAds.open() 
    objAds.writeText strData 
    objAds.Position=0 
    objAds.Type=1 
    'objAds.Position=2 
  
    set objXd=createobject("msxml.domdocument") 
    call objXd.loadXml("<root/>") 
    objXd.DocumentElement.DataType="bin.base64" 
    objXd.DocumentElement.NodeTypedValue=objAds.read() 
    Base64Encode=objXd.DocumentElement.text 
end function 
  
function Base64Decode(strData) 
    dim objXd 
    set objXd=createobject("msxml.domdocument") 
    call objXd.loadXml("<root/>") 
    objXd.DocumentElement.DataType="bin.base64" 
    objXd.DocumentElement.text=strData 
    Base64Decode=objXd.DocumentElement.NodeTypedValue 
end function