[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 

附酷播V4加密版下载：
http://www.52player.com/download/2017/0423/362.html

酷播base64加密版(视频地址简易型加密/防采集盗链)

这是简易地址字符串加密
酷播加密版相关提示：
* 酷播最新Base64加密版（永久免费），马上下载>>
* 酷播最新Base64加密版（跨平台支持PC/安卓/苹果/微信观看范例），查看范例>>
* 酷播最新Base64加密版（ASP范例），查看范例>
* 酷播最新Base64加密版（PHP范例），查看范例>>

酷播Base64加密版是基于酷播V4.0产品制作的，用base64函数对视频地址进行加密和解密，最终实现视频的播放，加密强度较弱，仅可对视频文件做最简单的防护，是完全免费的产品。