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

拓海之舟

class Base64Class$ c3 Z1 H9 U: h* w( f
　　rem Const 7 c  {* d6 |! E2 y6 ^# N
　　dim sBASE_64_CHARACTERS'转化码
$ k3 J' x" |* q- T* |　　dim lenString '计算字符串的长度 6 t  j5 P' ]( r' R* A
　　dim iCount '计数器
! W+ I& P+ T! `* n5 q% H　　dim returnValue '返回值 1 G) ]% M* k) {
　　dim tempChar'缓存字符
7 ]7 w* L6 ]0 ]9 ?2 j　　dim tempString'缓存字符串
) V9 \) m6 L$ b) {　　dim paramString '参数字符串 , s) v3 y& k, f+ j
　　dim temHex'缓存缓存十六进制
3 \- j/ N1 ?& m- q" h9 L　　dim tempLow'缓存低位 # @; [3 k& }  H4 b) v
　　dim tempHigh'缓存高位
. B5 }& y& Q0 c- @　　dim mod3String'
8 Q; M8 J3 m1 [2 I- q　　dim mod4String'
' p5 K7 P  w- E/ A　　dim tempBinary' ; I' a  {/ O. Z( l6 w# P" K
　　dim tempByteOne'
( k+ z, ~; g* e$ j　　dim tempByteTwo' " z5 `5 l8 Z0 c
　　dim tempByteThree' 6 h8 [& C! V+ ~9 o" G: i
　　dim tempByteFour'
* o* O3 z, b3 i0 w$ i+ s　　dim tempSaveBitsOne' % K2 M7 t. [$ A! s2 ^
　　dim tempSaveBitsTwo'
3 {" R% i% h, \+ ]5 ~( m/ z　　'********************************************* L0 j4 y4 T0 D
　　'begin初始化类
' q3 T7 j7 F6 x  ]' B' h) @　　'********************************************
: [5 ?' R2 N& s' Y6 @% K' w! D　　private sub Class_Initialize() + o& D' D4 a+ Z
　　sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub
; b6 d+ ~5 `2 G* u0 C1 `　　'********************************************
$ y$ J3 e" p& w) Q* z) m+ G　　'end初始化类 '
8 W. p% b8 r$ Z+ g　　******************************************** 5 G0 d$ d3 u. [" z5 q
　　'******************************************** ( E% g% C7 d/ z9 S
　　'begin销毁类
4 c' a( P6 {" V. u" \　　'********************************************
  x0 n( U5 v# W　　Private Sub Class_Terminate() # G4 j/ p! v+ Y: y9 u6 Q- {! @
　　sBASE_64_CHARACTERS="" end sub . S* r5 d7 V8 M* F$ |1 ^3 x
　　'********************************************
$ H" q9 r7 _5 i  k- Q' o　　'end销毁类 ( t" ^: f% P2 S6 {0 P, M0 P
　　'********************************************" u& n# l5 W7 @
　　'******************************************** / }$ y0 f, _! M; N. g- `
　　'begin将Ansi编码的字符串进行Base64编码
4 G' a/ O5 K& V( r$ F　　'********************************************
$ T' ~5 i, q* c　　public function Encode(paramString) ( p( W' v  M6 O
　　tempString=""
' p* X" p6 S2 Y! Q/ F9 m　　returnValue=""
) M6 _: n# U0 H" |　　lenString=len(paramString)
' |& I) `0 ~1 M3 b5 _3 F6 t1 g: H　　if lenString<1 then
6 i! ~1 @$ _" ?; c　　Encode=returnValue
. A" w  U% t- x& u. y0 c5 B　　else
% P7 t" d3 C" N/ @　　mod3String=lenString mod 3
( Z3 |& p0 @8 f$ U　　'补足位数是为了便于计算 ) b+ k3 P! l% X5 b7 E+ }2 a
　　if mod3String>0 then 3 \* [4 i0 ?. P  U4 {' G: D8 w* b
　　lenString=lenString+3-mod3String
* F0 J6 M$ E1 C4 \/ `8 f  a* q　　lenString=lenString-3 $ g& H+ E- N. X, q$ b2 r) P
　　end if