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

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

ASP编写的加密和解密类

class Base64ClasseJ7Y,oPn(b
　　rem Const
T2B6V^)jO$SN 　　dim sBASE_64_CHARACTERS'转化码
2k2T~*uc| 　　dim lenString '计算字符串的长度 zM~3E!zL(LU-s
　　dim iCount '计数器 jz)H-r6B\&S
C
　　dim returnValue '返回值 f/y
T[JK|/]:D
　　dim tempChar'缓存字符 W'K$dFX e i
　　dim tempString'缓存字符串 C\,f|h S:R
　　dim paramString '参数字符串
%CZc%H-L9v |$m 　　dim temHex'缓存缓存十六进制 6j3N_U w0DlF7Y!C
　　dim tempLow'缓存低位 D4Q&wC2k"iX t
　　dim tempHigh'缓存高位 SU8~;r Z
　　dim mod3String' 8wrVR?%ES
　　dim mod4String' 8t@.HL-W?Y T
　　dim tempBinary'
U{P6r#r Ak)ky 　　dim tempByteOne' X
Bo q S3OV`7WZ
　　dim tempByteTwo'
"Xf\9g1@f3H.? 　　dim tempByteThree'
VM)TaD}%d z7W 　　dim tempByteFour' !K(k&{W*Ge
　　dim tempSaveBitsOne'
m*xR!y:HM 　　dim tempSaveBitsTwo' KB:FX|%{E/j~O
　　'********************************************
q&G*MrY q)}.OZ] 　　'begin初始化类
rR[3j zh0G1H8FJ 　　'********************************************
c9`Ju3c-? 　　private sub Class_Initialize()
$jav+u2EPJ&^ 　　sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub
L"H6z/PO9H 　　'********************************************
#Dax TQw eEu 　　'end初始化类 '.OGS"{2z*D5U
　　******************************************** 6`Qb.e/CL
　　'********************************************
'B|oHv { 　　'begin销毁类 'd,wEXK~A,~Q@
　　'********************************************
PheKx 　　Private Sub Class_Terminate() .H/VB B$f.Y?8xv
　　sBASE_64_CHARACTERS="" end sub
2UyC9a3GI~)I 　　'********************************************
8J5n'k%Dj([$hR Ex 　　'end销毁类
K9O.g0cQZvu 　　'********************************************1It-i.CBf'K7Td/m
　　'********************************************
6ju | W&Z4@I 　　'begin将Ansi编码的字符串进行Base64编码
2a"@ YHe$[6xr 　　'********************************************
5A@ A,rF6yP0b^ 　　public function Encode(paramString) i4uK@5C4jE
　　tempString="" (KPK'Z[.E
　　returnValue=""
{u:ZiU 　　lenString=len(paramString)
)k2| kt\@ w3aT$v 　　if lenString<1 then
9y+FT6q5J,g
`k4p H 　　Encode=returnValue X4x8u7mpY)z
　　else
Jf8d})t'Y7A 　　mod3String=lenString mod 3 @Ii q)@S!o!sRc
　　'补足位数是为了便于计算
2`%wG&a[8\3]1g 　　if mod3String>0 then
"gh'`l/d$@ 　　lenString=lenString+3-mod3String ,~,j;@ hm ff
　　lenString=lenString-3 'JWx
?Pe
　　end if

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