ASP编写的加密和解密类(页 1) - 原创专区 - 【3.A.S.T】网络安全爱好者 -- 网络安全，势在必行

拓海之舟 发表于 2010-11-6 17:24

ASP编写的加密和解密类

class Base64ClassXM P4N)P,^/\$zv
　　rem Const 4aq:t5],|X
　　dim sBASE_64_CHARACTERS'转化码
　　dim lenString '计算字符串的长度
　　dim iCount '计数器
　　dim returnValue '返回值 '}2~Sh&Y'b8X~
　　dim tempChar'缓存字符
　　dim tempString'缓存字符串
　　dim paramString '参数字符串
　　dim temHex'缓存缓存十六进制
　　dim tempLow'缓存低位
　　dim tempHigh'缓存高位 V*A(C vZLy
　　dim mod3String'
　　dim mod4String'
　　dim tempBinary'
　　dim tempByteOne' t^;L.D+N O_%I(d
　　dim tempByteTwo' aSw:wG(O2A ~.yt
　　dim tempByteThree'
　　dim tempByteFour'
　　dim tempSaveBitsOne'
　　dim tempSaveBitsTwo' E!Tk?)u)``x8Lj0q
　　'********************************************1U$o-U!y8?
　　'begin初始化类
　　'********************************************
　　private sub Class_Initialize()
　　sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub "k)azWGwd
　　'******************************************** %|O8sWEzR
　　'end初始化类 '
　　******************************************** SX3w/t&f3JH
　　'********************************************
　　'begin销毁类 ;Kru!vo
　　'********************************************
　　Private Sub Class_Terminate() *tE qdvre
　　sBASE_64_CHARACTERS="" end sub
　　'********************************************
　　'end销毁类
　　'********************************************
　　'********************************************
　　'begin将Ansi编码的字符串进行Base64编码
　　'********************************************
　　public function Encode(paramString)
　　tempString=""
　　returnValue="" iaSD:cC?cp#y(x
　　lenString=len(paramString) /s1]8e2P$qu
　　if lenString<1 then r+\G"E|h WG
　　Encode=returnValue
　　else 8hYP:\'d0o/g
　　mod3String=lenString mod 3
　　'补足位数是为了便于计算
　　if mod3String>0 then
　　lenString=lenString+3-mod3String
　　lenString=lenString-3
　　end if

页: [1]

【3.A.S.T】网络安全爱好者's Archiver

ASP编写的加密和解密类