ASP加密解密类

类base64class
REM const
昏暗的sbase_64_characters'conversion代码
昏暗的lenstring计算一个字符串的长度
昏暗的多台
朦胧中的返回值
昏暗的tempchar'cached字符
昏暗的tempstring'cache字符串
昏暗的paramstring参数字符串
昏暗的temhex'caching缓存十六
昏暗的templow'cache低点
昏暗的temphigh'cache高
昏暗的mod3string
昏暗的mod4string
昏暗的tempbinary
昏暗的tempbyteone
昏暗的tempbytetwo
昏暗的tempbytethree
昏暗的tempbytefour
昏暗的tempsavebitsone
昏暗的tempsavebitstwo
********************************************
开始初始化类
********************************************
私有子class_initialize()
sbase_64_characters =abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz0123456789 + / End Sub
********************************************
结束初始化类
********************************************
********************************************
开始销毁类
********************************************
私有子class_terminate()
sbase_64_characters = End Sub
********************************************
最终破坏类
********************************************
********************************************
开始编码由ANSI为Base64编码的字符串
********************************************
公共功能编码(paramstring)
tempstring =
返回值=
lenstring = Len(paramstring)
如果lenstring<1
将编码=
其他的
mod3string = lenstring mod 3
补数是为了便于计算。
如果mod3string > 0
lenstring = lenstring + 3-mod3string
LenString=lenString-3
最后如果