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