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