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

拓海之舟

class Base64Class- J/ n3 k8 p6 D, o& ~$ |
　　rem Const
' h0 L, H. i* {( G# h　　dim sBASE_64_CHARACTERS'转化码
% B# s& A, P* Z) u. f6 g　　dim lenString '计算字符串的长度 2 d9 K# E, e. Z. m
　　dim iCount '计数器
0 ~4 P$ ?( A  `; `　　dim returnValue '返回值 4 J# E2 d) L% Q$ V) _) ?
　　dim tempChar'缓存字符
6 [! s, i" v7 U- N　　dim tempString'缓存字符串
8 K3 K! V+ p; N, q$ Z　　dim paramString '参数字符串
2 y' ]: C/ R& b- b% R　　dim temHex'缓存缓存十六进制
& s! A* q" Y$ z' o　　dim tempLow'缓存低位 % g; V0 I) r- I* ?. n
　　dim tempHigh'缓存高位 8 j% \- p& N; L- p2 b9 [2 ]- N
　　dim mod3String'
2 d. x: X) Y" Q0 s; y7 Y　　dim mod4String' , ?: t+ p0 c6 j$ V/ l
　　dim tempBinary' ( |4 \: I* v+ ^
　　dim tempByteOne' 9 T0 Q. o* B# i8 q% m
　　dim tempByteTwo'
5 Y/ Y5 m0 \- e* w! {　　dim tempByteThree' ) @: k, L# F# H3 S0 m
　　dim tempByteFour'
9 H0 o! z- f2 s: j  ~& z. i　　dim tempSaveBitsOne'
; l3 s4 g; u, @# _+ N; t( s　　dim tempSaveBitsTwo'
. U" Y  y! x& C, d) E　　'********************************************
( l$ R0 O2 n- n: I1 [( x　　'begin初始化类 ; m  x# W4 {( z/ ^/ ^5 R, M" F- ~: Y
　　'******************************************** 4 [' K1 B) O5 s% O0 K9 u% X% \1 J
　　private sub Class_Initialize() ( t6 E7 i. o6 ~3 r
　　sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub 9 b3 S( _% c# k  r9 n: n  n, Q
　　'********************************************
: T, \+ L  C7 P* c) V; v3 W: x　　'end初始化类 '9 l# T5 @* j3 t# b- H4 ^/ b9 o
　　********************************************
, l7 a. W5 m8 l5 L" a" a　　'********************************************
, V  G! a8 W2 I: B/ [" Y　　'begin销毁类 3 |( x! N- t9 B6 K% V9 @6 ]2 [1 F" }% Q
　　'********************************************
* l+ [- e( w/ A; }: d  K* s1 z: W　　Private Sub Class_Terminate() + ^" W6 L0 N+ E. W0 R8 f" C# a
　　sBASE_64_CHARACTERS="" end sub
* v! W" M  K) W: y8 \7 E+ t) M) O　　'********************************************
# X' }6 [) {. m. m' G. z　　'end销毁类
% N  @# g" o7 x5 P& x& |　　'********************************************6 e  n. X% n( Z1 r3 j+ t2 }& G
　　'********************************************
: _$ q7 F' N9 }0 S+ \　　'begin将Ansi编码的字符串进行Base64编码 7 z; I( `; s) y0 j2 ?; H, c
　　'********************************************
7 K! E- }3 D0 B: J1 u4 G　　public function Encode(paramString) & I3 k, P- j( Y4 D7 h2 p% X' d$ e
　　tempString="" ' j/ H2 C: o# u5 F, J; [
　　returnValue=""
6 S# J* N$ D+ v% }  }: r5 C　　lenString=len(paramString) ; F9 j! W  h' F  q4 P% {+ ~6 n- N
　　if lenString<1 then
4 ]. O9 K3 \2 F+ n, h6 |　　Encode=returnValue
6 `! i/ V* q: ?, [　　else ( `' Q' e& e  {6 v& m
　　mod3String=lenString mod 3 ; ~; E5 g- `$ j; q' v
　　'补足位数是为了便于计算
, E$ ~; {/ I: J: u9 ~　　if mod3String>0 then : w! a6 v! }+ \7 v. @
　　lenString=lenString+3-mod3String
1 g8 p9 F! y1 x* I　　lenString=lenString-3
1 ~& q! A& M- _9 B2 ?# l　　end if