用ASP编写的加密和解密类

　　classBase64Class
remConst
dimsBASE_64_CHARACTERS转化码
dimlenString计算字符串的长度
dimiCount计数器
dimreturnValue返回值
dimtempChar缓存字符
dimtempString缓存字符串
dimparamString参数字符串
dimtemHex缓存缓存十六进制
dimtempLow缓存低位
dimtempHigh缓存高位
dimmod3String
dimmod4String
dimtempBinary
dimtempByteOne
dimtempByteTwo
dimtempByteThree
dimtempByteFour
dimtempSaveBitsOne
dimtempSaveBitsTwo
********************************************
begin初始化类
********************************************
privatesubClass_Initialize()
sBASE_64_CHARACTERS=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/endsub
********************************************
end初始化类
********************************************
********************************************
begin销毁类
********************************************
PrivateSubClass_Terminate()
sBASE_64_CHARACTERS=endsub
********************************************
end销毁类
********************************************
********************************************
begin将Ansi编码的字符串进行Base64编码
********************************************
publicfunctionEncode(paramString)
tempString=
returnValue=
lenString=len(paramString)
iflenString<1then
Encode=returnValue
else
mod3String=lenStringmod3
补足位数是为了便于计算
ifmod3String>0then
lenString=lenString+3-mod3String
lenString=lenString-3
endif