【3.A.S.T】网络安全爱好者 » 原创专区 » ASP编写的加密和解密类

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

ASP编写的加密和解密类

class Base64Class
BHoD Liw!b 　　rem Const
&[pEy-S ]qo 　　dim sBASE_64_CHARACTERS'转化码
DWmg7`
L 　　dim lenString '计算字符串的长度 O)um%K'vtE
　　dim iCount '计数器
S/X
CM!Ck
　　dim returnValue '返回值
rmIc9|Y 　　dim tempChar'缓存字符 FV,FXVZ1h
　　dim tempString'缓存字符串 *w4u
F@/q,plR|
　　dim paramString '参数字符串
3cS@@;nM 　　dim temHex'缓存缓存十六进制
4G/|J9G/P~$Xc 　　dim tempLow'缓存低位
W3]
cL u^-Q 　　dim tempHigh'缓存高位 Sw\Z"n&e
　　dim mod3String'
J}!mn E LGr 　　dim mod4String' 'k!Oa^qey)[ h
　　dim tempBinary'
C$\4hTb 　　dim tempByteOne' 9_)l h5l7b9`7i#O
　　dim tempByteTwo' Ty']!rY"c
　　dim tempByteThree' H!qX8o4a)Of
　　dim tempByteFour'
T/U$b/B;n:U1R 　　dim tempSaveBitsOne'
y
U(@o6wc
　　dim tempSaveBitsTwo' #o6O:g0I'~(l4yk[
　　'********************************************6NRh9kP:K5o0CJRn
　　'begin初始化类
/k8Zy _L$vdX 　　'******************************************** @ iW,z-yb!No
　　private sub Class_Initialize()
n2CGv{a@ 　　sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub
,t%XJg!A,lA 　　'********************************************
N W(^,V.YM 　　'end初始化类 '

e)H6@,v R'S.dR 　　******************************************** J0Ia;Az0]
　　'********************************************
(vLlSUR3V 　　'begin销毁类 oO$X/^uEH8fkM
　　'********************************************
l$E.e/l,T)X#Nt pC 　　Private Sub Class_Terminate()
/[[&UI2d b`%@J 　　sBASE_64_CHARACTERS="" end sub
4D
Pd z6x 　　'********************************************
K;x LkV#o/_6D'k"a 　　'end销毁类
L\.R1LF.I_x-U_6Y C2a 　　'********************************************
#M)G6h,m{ 　　'******************************************** h3^*]$\T,g
　　'begin将Ansi编码的字符串进行Base64编码
z+~]*?M|Z 　　'******************************************** r}#J;]Qc3u2@I
　　public function Encode(paramString)
j0COm:`f0V 　　tempString=""
p_&a%n!p ~-W)Gu*? 　　returnValue=""
0as gNg:D:t9T 　　lenString=len(paramString)
2b0V1N \/Ap 　　if lenString<1 then &O,J3C V%R
　　Encode=returnValue ZF1S%a&\ ~*s
　　else )i~N&no\\ ^
　　mod3String=lenString mod 3
s7]#j+elek(T2P:h p
_)[ 　　'补足位数是为了便于计算
7O\](A3O
S
\;S 　　if mod3String>0 then 9oe1kBmk
　　lenString=lenString+3-mod3String
O0r0Dz
^ m/a&J 　　lenString=lenString-3 $T {N-Zd[
　　end if

查看完整版本: ASP编写的加密和解密类