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

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

ASP编写的加密和解密类

class Base64Class
T4T__ o9A;Z'Q!w/a/S 　　rem Const EZ(I2^]R$Jvv
　　dim sBASE_64_CHARACTERS'转化码
1w;N"~!f/b 　　dim lenString '计算字符串的长度
#Lxdk%A 　　dim iCount '计数器
XA'L-@ jS Nc
uW 　　dim returnValue '返回值 _-]&x5D X0DQ k&P
　　dim tempChar'缓存字符
:SHI7Zyq 　　dim tempString'缓存字符串 3w+K.liD8|nK
　　dim paramString '参数字符串
'G$k1M%Q!Nz
s 　　dim temHex'缓存缓存十六进制
){1R`n;j]
t 　　dim tempLow'缓存低位 2tN8nL9p&l#\y
　　dim tempHigh'缓存高位 &x ~2daf}1hI CW
　　dim mod3String'
'hj6G-A+A0}D 　　dim mod4String' T5v]1KuRois!H
　　dim tempBinary'
&cm7Bn!\wg 　　dim tempByteOne' P%r b R y3@,?
l v#t
　　dim tempByteTwo'
'{5Xb-x#[z fAHa 　　dim tempByteThree' +j/Wt(j1aK
　　dim tempByteFour'
:z M"p5?"t:W 　　dim tempSaveBitsOne'
Jr m*Vs:De2d 　　dim tempSaveBitsTwo'
%^2X1W!}$pc 　　'********************************************
%T
W3`/W%]h E 　　'begin初始化类 )f7[F~4w
　　'******************************************** 3c?+}%sLW{0F!wgt
　　private sub Class_Initialize()
E9N Y_~h.c$Jm1I 　　sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub B|)I PXC6t{V
　　'******************************************** .b J Zai
　　'end初始化类 '
n!J&\3G\N2oH zx 　　********************************************
|7]C!X3H WO 　　'********************************************
8_/d0e4Mi {3qI+| 　　'begin销毁类 #IIq*\)CGv|(I`2~
　　'********************************************
pu.`,X
h,}9P 　　Private Sub Class_Terminate() :JH'B_}cZS
　　sBASE_64_CHARACTERS="" end sub #m3J2G,l J [xg*x/n
　　'******************************************** w@!qqD:@*c
　　'end销毁类
{8o]d)?)Mbb 　　'********************************************_jo"exP[jB*h
　　'********************************************

B0c&I-w#\P%z8N V!t 　　'begin将Ansi编码的字符串进行Base64编码
+HOUMn'r D 　　'********************************************
:H+Uq.q(a NxUc 　　public function Encode(paramString) xN$\lz/\:K
　　tempString=""
"d/C1y^Q.Vhc.gRI 　　returnValue=""
} J+f`r+sF 　　lenString=len(paramString)
D9}@.Loo 　　if lenString<1 then #s-xavNRc$w7E
　　Encode=returnValue
C;};KKz5Q6_9q6I 　　else
)\f'^3^ {p(J 　　mod3String=lenString mod 3 }!~I4Yp$O,A
　　'补足位数是为了便于计算
\i?Y7_|+N
　　if mod3String>0 then 8CxHj
B8_#J
　　lenString=lenString+3-mod3String )wYJs}M
　　lenString=lenString-3
7}w_ nW.N vM0b"K 　　end if

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