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

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

ASP编写的加密和解密类

class Base64Class
　　rem Const
　　dim sBASE_64_CHARACTERS'转化码
　　dim lenString '计算字符串的长度
　　dim iCount '计数器 x)Fb8Wd#i7|#j4xa~
　　dim returnValue '返回值 -~%p3V&x \|3b8_
　　dim tempChar'缓存字符 |tR U^
　　dim tempString'缓存字符串
　　dim paramString '参数字符串 2[g4lG1j ]6lh+~
　　dim temHex'缓存缓存十六进制 4X8j q*j9U*`'^#xs:_v^
　　dim tempLow'缓存低位 #u|]%N!Pa0P.o_zl
　　dim tempHigh'缓存高位 G!H.Lx?&z
　　dim mod3String'
　　dim mod4String' 2j.pI[ F _;y6Z3h9ud{
　　dim tempBinary' a3F3n}*B;b
　　dim tempByteOne' @:_6_+X\ocl*K5E
　　dim tempByteTwo'
　　dim tempByteThree'
　　dim tempByteFour'
　　dim tempSaveBitsOne' ]c!\Pn^K
　　dim tempSaveBitsTwo'
　　'********************************************
　　'begin初始化类 VyW!F8I0m V
　　'******************************************** 1d!_{YW#[(vJJ.[
　　private sub Class_Initialize() 2?JUO^K L&M/{i
　　sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub
　　'******************************************** v4D.~7Vg+T6|
　　'end初始化类 '
　　******************************************** C.Z5HP|/@
　　'********************************************
　　'begin销毁类 8o`J}&^})ag
　　'******************************************** W8C0g_0T M"a}.OCH7~o
　　Private Sub Class_Terminate()
　　sBASE_64_CHARACTERS="" end sub 5N5j8V;Kg||i
　　'********************************************
　　'end销毁类
　　'********************************************Cq,d"asKH"X8?
　　'******************************************** uO)pM-x$@b'l
　　'begin将Ansi编码的字符串进行Base64编码
　　'********************************************
　　public function Encode(paramString) !ndp VXQ|1i
　　tempString="" w!P(UPc8k
　　returnValue="" q~C HmE0Dj4c5h
　　lenString=len(paramString)
　　if lenString<1 then a#]y(jA}4]
　　Encode=returnValue 8n9e;mcJC4^9Az!d`Gr
　　else
　　mod3String=lenString mod 3
　　'补足位数是为了便于计算
　　if mod3String>0 then :~J.Sl+h
　　lenString=lenString+3-mod3String
　　lenString=lenString-3
　　end if

页: [1]

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

ASP编写的加密和解密类