[原创文章] ASP编写的加密和解密类 ASP, 解密, 编写

拓海之舟

class Base64Class
* w$ u, J6 N$ i% ?5 x　　rem Const , h# G% }9 f" n( q& Z5 h4 ]! @
　　dim sBASE_64_CHARACTERS'转化码
, {" k$ l' q: z" U$ b! ?　　dim lenString '计算字符串的长度
9 Q% c! W" ~$ P3 Z　　dim iCount '计数器 ; T& L' W- G( v) Y/ _
　　dim returnValue '返回值 * e- R" m" Q- J9 [6 @/ x: ]
　　dim tempChar'缓存字符
4 X4 c4 \* @6 @! z- S　　dim tempString'缓存字符串
/ b1 [6 {6 M3 d  S7 C　　dim paramString '参数字符串 ! }1 e7 v' n. ]& C% W; `
　　dim temHex'缓存缓存十六进制 9 T4 \3 V- Q# l; v  u) b
　　dim tempLow'缓存低位 + y5 ?, D$ `$ k: m
　　dim tempHigh'缓存高位
- w6 A+ G" j9 H6 ?- D　　dim mod3String' ! H  D5 \4 f# d2 o
　　dim mod4String' ' i* M+ q8 M) P8 ]
　　dim tempBinary'
4 A, |/ k# A5 ]) F4 }* s9 N* r. Q: G　　dim tempByteOne'
) r2 J8 U$ N* C% s　　dim tempByteTwo'
. M4 c4 }% ^/ Z; i; e　　dim tempByteThree'
: U% P* G7 U# ?　　dim tempByteFour' " d% q. s1 O. r! `5 D6 S
　　dim tempSaveBitsOne'
% N. @9 s" \$ T- ]; b3 s　　dim tempSaveBitsTwo' $ u( y& n; T' t: [+ w; }( k8 j4 k
　　'********************************************
0 X1 c8 [6 j1 Z+ \. B3 u2 L　　'begin初始化类 5 Q  m( U1 }  w9 I
　　'******************************************** " y) w) q5 J+ T
　　private sub Class_Initialize() " t6 Y; c) D& {' |$ r9 v) M+ V; e
　　sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub
3 N* V( Y" f( B! D　　'******************************************** 7 d+ T) a% R6 X2 g% A
　　'end初始化类 '
. ^$ n8 w& X: z% m　　******************************************** 6 K; _' U  V  E1 X( g
　　'******************************************** 9 ?, g4 n: ^7 A, i* Z
　　'begin销毁类 9 @8 `8 w$ ^3 g# Y
　　'********************************************
/ ?$ b0 l- w8 E1 ^! \% J6 J' @　　Private Sub Class_Terminate()
" q$ G' W/ M2 R4 y& S' O9 W　　sBASE_64_CHARACTERS="" end sub
3 Y+ j8 \: f+ ~0 T　　'******************************************** 6 A  r1 ?. U9 A, b
　　'end销毁类
: q* c4 I+ C, P- [3 A& ?* v5 r8 `2 q　　'********************************************" K7 O) ~5 g( T+ x4 ~
　　'******************************************** 9 n$ Z+ Q0 z: e" Z2 h
　　'begin将Ansi编码的字符串进行Base64编码 - U! \! [2 h& X2 h
　　'********************************************
1 u: b8 O! i/ L7 c　　public function Encode(paramString)
/ p8 p1 o; B: m8 M  l　　tempString="" 5 x* v. a9 t' X* ~( I% _3 D
　　returnValue=""
" R& v% @. t% x' b- p$ c5 T　　lenString=len(paramString) # E0 X' r4 I/ m4 `" B* N
　　if lenString<1 then & H  q- H- F: V8 @! ?# z7 D
　　Encode=returnValue % O) z$ C" p9 a( @5 v
　　else
( X3 O! C( V1 H　　mod3String=lenString mod 3
1 o, f* t  [9 ^　　'补足位数是为了便于计算
8 t* ^2 {+ g, v  P4 I　　if mod3String>0 then , K& ?( S$ l" S4 B  h- z
　　lenString=lenString+3-mod3String ! V, ?8 M2 R9 d7 }( H  S8 i( {
　　lenString=lenString-3 8 H9 P1 N3 K2 a# w; J
　　end if