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

拓海之舟

class Base64Class$ P+ I; W! h. ^; q. N4 f
　　rem Const / b$ E) l  D! ^0 r! B
　　dim sBASE_64_CHARACTERS'转化码 , ?4 z) u5 P, d% c, R! ?
　　dim lenString '计算字符串的长度 - W; j: T& E6 o% R+ g, A
　　dim iCount '计数器 $ w1 X* R: t) s# d9 N
　　dim returnValue '返回值 0 E2 r, Q2 k. ]" B% A# L
　　dim tempChar'缓存字符 0 \$ K. q" U7 z* r! S
　　dim tempString'缓存字符串
5 Z# u7 z7 A( g% S5 `7 r$ o　　dim paramString '参数字符串
( v, @  {; X4 L2 F　　dim temHex'缓存缓存十六进制 & R; Z' `5 I1 K# n3 ^
　　dim tempLow'缓存低位
" C; Z4 o& y* J0 G3 N/ t　　dim tempHigh'缓存高位 / ]8 N  j' V+ T% A0 h2 A
　　dim mod3String'
" x, A/ R" T2 J4 y, k  |% u　　dim mod4String' * W0 o; P7 |( x
　　dim tempBinary'
! y& M/ l  d2 R9 Q; C1 V8 T+ a/ o, i　　dim tempByteOne' " w! ~: d/ m; W4 |5 U
　　dim tempByteTwo'
5 N  V  Q6 Y! W' }　　dim tempByteThree' 3 c+ B8 u% Q+ g' V, w6 q4 d
　　dim tempByteFour' 0 L5 x9 T5 t. u# U. J4 _' ~$ x
　　dim tempSaveBitsOne'
! O1 [6 A# C$ X/ i　　dim tempSaveBitsTwo'
( A' H- H& [5 {6 k6 x  J8 h0 L0 ~　　'********************************************" r- U7 g# ^9 |3 s$ [# u9 _
　　'begin初始化类 # X- c& C6 f' L7 Y- Y( d; @
　　'******************************************** & m5 C* }. @% E' x* f
　　private sub Class_Initialize() 5 O" A! Y+ {1 i9 q
　　sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub
# T) G& m- j5 U% C3 s0 ~' @　　'******************************************** ( z' E0 l  H7 N* x9 J
　　'end初始化类 '
! V  M5 m! L+ N　　******************************************** 0 S0 Q: E; r# \; E, s$ b
　　'******************************************** * i5 i) m4 Z' U
　　'begin销毁类
. e# a) o6 u( E1 Q8 S& |　　'********************************************
' i' X3 U* q# L) Z: k! e  _$ p　　Private Sub Class_Terminate()
8 r5 j& ~* j; V6 c* d8 N& q' v　　sBASE_64_CHARACTERS="" end sub
' ?  K) N) V; ]" A　　'********************************************
1 a8 p0 @( L9 \! v5 |& J3 x, e　　'end销毁类
: S- F) h5 f, T5 b　　'********************************************
, G3 P# k* v$ c! Q' ~　　'******************************************** 3 x4 y2 o, Z7 C6 W
　　'begin将Ansi编码的字符串进行Base64编码 4 ~7 A0 m& }" X9 u4 n; q3 |% ~& Y
　　'******************************************** ' A8 O2 \2 R2 e) N- h8 l+ L1 P) |
　　public function Encode(paramString) 6 r) F, c0 S4 f' ]3 G4 |+ @$ R
　　tempString="" 8 m5 Z8 K- j6 m. \: \( \' s. l$ ^
　　returnValue="" 0 \2 o3 |0 E5 v0 q* m; L3 w
　　lenString=len(paramString)
' \" P% D1 y5 w9 k% e/ `7 w6 F　　if lenString<1 then
$ q$ K8 k( a* G5 B　　Encode=returnValue
* F1 L- k: _& l　　else
: N4 ^; H# ^( b( k9 N　　mod3String=lenString mod 3
# G# I7 Z) H. M: c) ?　　'补足位数是为了便于计算 / q/ Y* F* F: P1 _0 }" W
　　if mod3String>0 then
7 C- t! w5 d1 d' f5 l3 C　　lenString=lenString+3-mod3String
+ d, o7 l, M+ V7 w# C　　lenString=lenString-3 3 w. o1 @4 N) b4 k' U2 w; a2 \
　　end if