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
【用ASP编写的加密和解密类】相关文章：
★ 系统分配随机密码
★ 用ASP写组件