学习用ASP编写加密和解密类

class Base64Class
　　rem Const
　　dim sBASE_64_CHARACTERS´转化码

　　dim lenString ´计算字符串的长度
　　dim iCount ´计数器
　　dim returnValue ´返回值
　　dim tempChar´缓存字符
　　dim tempString´缓存字符串
　　dim paramString ´参数字符串
　　dim temHex´缓存缓存十六进制
　　dim tempLow´缓存低位
　　dim tempHigh´缓存高位
　　dim mod3String´

　　dim mod4String´

　　dim tempBinary´
　　dim tempByteOne´
　　dim tempByteTwo´
　　dim tempByteThree´
　　dim tempByteFour´
　　dim tempSaveBitsOne´
　　dim tempSaveBitsTwo´ 　　

´********************************************
　　´begin初始化类

　　´********************************************
　　private sub Class_Initialize()

　　sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub 　　´********************************************
　　´end初始化类´
　　******************************************** 　　´********************************************

　　´begin销毁类
　　´********************************************

　　Private Sub Class_Terminate()
　　sBASE_64_CHARACTERS="" end sub
　　´********************************************
　　´end销毁类

　　´********************************************
　　´********************************************
　　´begin将Ansi编码的字符串进行Base64编码
　　´********************************************
　　public function Encode(paramString)
　　tempString=""
　　returnValue=""

　　lenString=len(paramString)
　　if lenString<1 then
　　Encode=returnValue

　　else
　　mod3String=lenString mod 3
　　´补足位数是为了便于计算
　　if mod3String>0 then
　　lenString=lenString+3-mod3String
　　lenString=lenString-3

　　end if