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

拓海之舟

class Base64Class7 s& F9 \% a- q+ D
　　rem Const
( l& g/ b# Q' r2 i5 I8 }9 p　　dim sBASE_64_CHARACTERS'转化码 4 A% w9 W$ ~4 @, W- r" A
　　dim lenString '计算字符串的长度 % X  S: I+ I8 x6 S1 p& L' R
　　dim iCount '计数器 1 Q; R/ k; S) g! S' a: I
　　dim returnValue '返回值
  G, b& L# K5 }: Q( J' B　　dim tempChar'缓存字符 ; i+ Q3 |9 v1 X) P
　　dim tempString'缓存字符串 - z9 X9 F  I$ O  m: o! [2 u0 h  x
　　dim paramString '参数字符串 " m5 c3 @' o  ~
　　dim temHex'缓存缓存十六进制
' g- n1 u6 O# w0 m  Z6 {* X# |　　dim tempLow'缓存低位
( P: g, K% |9 p  M6 |4 f　　dim tempHigh'缓存高位 % Y3 Q/ T! L7 X# d: n; s% V
　　dim mod3String'
1 M) m- N$ _% D- K, Z! s% R& @) R　　dim mod4String'
& E, }  P% @  g5 l3 p8 P1 R　　dim tempBinary'
% U+ D0 Q( G0 ?( l: z5 C+ B　　dim tempByteOne'
/ {6 ?1 h( g4 T) f　　dim tempByteTwo'
8 b6 {1 |4 Z. J4 K1 z　　dim tempByteThree'
! e9 `4 f0 G: M/ o  Z' }$ P　　dim tempByteFour' + ^* Y( _' ~2 C8 q' N3 u1 s0 A: ~
　　dim tempSaveBitsOne'
, c% }1 o6 f3 {　　dim tempSaveBitsTwo'
" i$ ]" V; K' H3 G7 @! l　　'********************************************
9 k  W4 [" X1 g+ l1 M1 q　　'begin初始化类
" |2 v6 Q# Z! {( ~$ {! m: ^　　'******************************************** * C- \3 o# U& S( e1 b
　　private sub Class_Initialize()
% P! e" i. v6 j# g6 }. L& H& H　　sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub . r+ J, G3 r* K# \  G/ Z) E
　　'******************************************** * M0 X# R2 Q, ^( W
　　'end初始化类 '' D: E( L: z: j  l9 ^
　　******************************************** : C, [: T0 L0 a0 v( f/ i
　　'******************************************** ' J/ h6 @3 r' S& n0 U$ Q7 n
　　'begin销毁类 / B! i% O' P6 V( a# o- P  S8 b
　　'********************************************
& S0 a9 ~7 ?6 e( X. G　　Private Sub Class_Terminate() # s9 k3 `. B( ], w% r
　　sBASE_64_CHARACTERS="" end sub 4 T4 v) l* c1 |8 L4 O
　　'******************************************** . X8 T8 j+ P, }' I3 q: K, V
　　'end销毁类 0 O+ v0 c0 ~4 P/ T$ O6 o
　　'********************************************& d! b( Q/ k8 O: G
　　'********************************************
7 n# P  _& W4 v6 z　　'begin将Ansi编码的字符串进行Base64编码 3 J4 f% J0 Y' J6 q$ ^9 e: u+ T0 f
　　'******************************************** * X$ E1 r% ]2 d. d/ l, E- K3 y
　　public function Encode(paramString)
4 P6 ^) G' U2 A4 I0 O/ S  |; w　　tempString=""
! v3 I4 H% @; t" k& N/ [　　returnValue="" # ~0 b' V" ~7 I$ c5 j. e5 W1 R
　　lenString=len(paramString)
1 s0 Q9 W6 x) _! a2 R6 T; u8 |2 u　　if lenString<1 then ( }8 L  c. P% c/ w
　　Encode=returnValue
% `" Y; X7 L: }7 ^$ r& T9 J　　else
" Z8 ^$ f0 I: L: O　　mod3String=lenString mod 3 ) G! `  o% t$ T0 M
　　'补足位数是为了便于计算 ! X4 X4 q2 |9 Y* u! C' t8 O
　　if mod3String>0 then
3 d& P+ e; c% O7 G* r: _　　lenString=lenString+3-mod3String 9 G2 s  F5 c# H2 }; J& S% L& N0 V
　　lenString=lenString-3 * y6 p& b7 i& ]3 ?: d
　　end if