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

拓海之舟

class Base64Class8 T$ a' Y6 B. g3 @: `
　　rem Const
2 J' D0 h9 {2 |* T  f7 y, Z6 z　　dim sBASE_64_CHARACTERS'转化码
% j6 C3 d2 @& I  W) S　　dim lenString '计算字符串的长度
; z0 @- @0 l4 m$ r, }. Z　　dim iCount '计数器
3 L% g. u3 j+ X. Q  `/ ^0 m" j　　dim returnValue '返回值
1 ?. v; e/ H0 b, F　　dim tempChar'缓存字符 ( D) u+ B8 U: B0 z& w$ t* v& K
　　dim tempString'缓存字符串 & r+ y: B- a' j7 t+ H/ l$ S
　　dim paramString '参数字符串 . U  l. l6 V$ {5 Z6 q6 G
　　dim temHex'缓存缓存十六进制 + ^. }- Y$ T* N( v) V4 {
　　dim tempLow'缓存低位
& T; k. @, P! u. n) @　　dim tempHigh'缓存高位
9 ]  h6 Q4 f* N2 O* B0 \' [　　dim mod3String' 6 L) O9 z3 r. W% `: C
　　dim mod4String' 0 t5 x5 i. U# f# X0 \* {9 m
　　dim tempBinary'
: ?. C7 T3 ?: o　　dim tempByteOne' * l1 {2 P' J* I4 R7 \  V. q
　　dim tempByteTwo'
' [) L' u$ p7 Z% h" l　　dim tempByteThree' ' G/ \- f- }1 Y1 y
　　dim tempByteFour'
8 h# L4 A; b) u! M: ?& x2 v　　dim tempSaveBitsOne'
0 b7 E3 N7 \. F# R　　dim tempSaveBitsTwo' : g3 ~- o2 J* p* r) b
　　'********************************************! C" A& y  [* {  n8 b
　　'begin初始化类 7 d# F0 K1 w! D& B1 T! O* _9 ?
　　'******************************************** ; v" N- u8 ?5 ?' o' N* ]
　　private sub Class_Initialize()
, e( @/ S4 r* T: h& D& a; y: Q　　sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub % S4 n# Q) l! z, d8 ?! p! T- \- o* Y- X3 s
　　'******************************************** ) D# b* n9 p1 H$ N$ k  Z
　　'end初始化类 '
$ K) v- w( |2 E. j2 O, c　　********************************************
/ f  o4 v8 \9 P% K0 X　　'********************************************
! P; T3 q! s, K9 }: z　　'begin销毁类 , U  z4 X4 Z: C# B) u' ~
　　'********************************************
) s% \9 j0 A0 E- G　　Private Sub Class_Terminate() + q; {( s  ~7 {; I
　　sBASE_64_CHARACTERS="" end sub
0 R: p1 m5 s7 H, `5 U6 e& b3 j2 W- C　　'******************************************** : j6 A! b( {  r) F
　　'end销毁类 * l2 a4 H* B7 ~/ T  i* e$ E8 O
　　'********************************************
) C$ X( j( P' ^9 z　　'********************************************
. D2 y. g& _/ R  R* ~& S　　'begin将Ansi编码的字符串进行Base64编码 4 H) Q9 ?. `+ W+ k
　　'********************************************
  t" [9 B7 a4 k+ a　　public function Encode(paramString)
8 H- u3 o# f: l" H　　tempString=""
2 M7 H; o) y) B9 s* ?　　returnValue="" 8 `" c9 _! u1 b! V2 i! _2 t
　　lenString=len(paramString) ) z) i, I$ V- M4 i, x  a) Y$ k
　　if lenString<1 then
, E' V+ T# E7 \　　Encode=returnValue
1 e# c/ `5 Q' K" u. q5 n　　else
) H5 a9 Z5 q* \9 U- B　　mod3String=lenString mod 3 7 f& j7 i$ N+ N" J6 Z
　　'补足位数是为了便于计算
; W# ]7 R) R" E# i8 s* e6 ?　　if mod3String>0 then   C' [! M/ a4 g" j9 {- S: {
　　lenString=lenString+3-mod3String 6 M, N0 k- G0 f5 h4 l
　　lenString=lenString-3 ' _7 e* i$ ?( ~! b) K6 b
　　end if