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

拓海之舟

class Base64Class
# d+ f* ~; W/ V2 m  b# X　　rem Const
* L! @% T3 K% A% v8 b　　dim sBASE_64_CHARACTERS'转化码
1 }2 U( Q4 J' P$ ?　　dim lenString '计算字符串的长度 9 [/ ~( ~4 ?+ i$ x$ S' k. g0 @6 a
　　dim iCount '计数器 3 D( H1 s0 e5 j0 i; B' T
　　dim returnValue '返回值 0 e5 Y" Z8 \- U* {. F
　　dim tempChar'缓存字符
: z! i0 U' I2 b  J6 U9 d( o　　dim tempString'缓存字符串
8 V% |& }/ _+ ~5 q+ d　　dim paramString '参数字符串
* |3 D; c6 h) \: q5 X　　dim temHex'缓存缓存十六进制 1 M: @* L% f( _7 C! s4 @% f( s) v
　　dim tempLow'缓存低位 / B) h8 h# ^4 y# E# q! k3 k' _
　　dim tempHigh'缓存高位
' W% u, X  x- {0 M/ U5 m  ]6 t' z　　dim mod3String'
, h; p0 J+ e5 _4 |5 b: y　　dim mod4String' 3 A$ n) A+ p$ {0 I* B
　　dim tempBinary'
# q( X% m0 H1 G7 `1 p' g　　dim tempByteOne'
( b7 [* m* V* H! P/ z; G　　dim tempByteTwo' % \8 |+ ^$ w) N- }$ o0 \' C' m
　　dim tempByteThree' 5 c3 D& a" \1 a+ b" P, w4 d
　　dim tempByteFour'
, ]& S4 d6 H: M( e　　dim tempSaveBitsOne' 8 x# D6 [7 a# v
　　dim tempSaveBitsTwo'
$ c( i$ r! ]/ N  H7 c1 I# P　　'********************************************2 n, @, B. B. g4 Z+ A/ {
　　'begin初始化类
" \1 ^4 o8 |" U' K　　'******************************************** 9 ~# H; k( ]8 I# b/ z8 R
　　private sub Class_Initialize()
2 h* b6 z; D0 s# ?　　sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub , ?( c$ U. q9 h# N
　　'********************************************
' Z3 j8 _, y5 N6 ]　　'end初始化类 '
% r3 K! O2 b0 J　　********************************************
3 Y" r; ^. ]$ l/ X- D. d　　'********************************************
7 Z: B$ T2 i/ o  E& t2 u' I　　'begin销毁类 ) P8 R4 v: R4 C* o% |" @& l2 s
　　'********************************************   d; M7 j7 G6 u& d* k! `, p
　　Private Sub Class_Terminate() 2 o5 w7 y" z( U
　　sBASE_64_CHARACTERS="" end sub
7 r* z$ U2 k) N　　'********************************************
4 Y4 Z0 m3 L0 n$ u6 M) l　　'end销毁类
+ W, g  U' L* H' R/ y　　'********************************************
6 ^1 I# {2 k" f1 R! R) D) ~　　'********************************************
* }( `& H/ }) v! |. A. y1 T　　'begin将Ansi编码的字符串进行Base64编码
, B  d6 @+ E: i* `6 L+ \4 P　　'******************************************** 0 I3 G8 S3 _& z2 C
　　public function Encode(paramString) # l1 m; w4 i  B# y
　　tempString=""
5 s" e' g0 w2 d0 E( j) t　　returnValue="" 7 X3 }5 }. }) w8 C
　　lenString=len(paramString)
& C, j! w+ l4 x3 g* e+ f9 U　　if lenString<1 then   N4 V0 x0 L' E- M
　　Encode=returnValue
4 n+ r+ x: U, q7 f　　else & B5 V: y' O5 B2 i9 Q
　　mod3String=lenString mod 3 ! o$ M' B" a4 D7 O
　　'补足位数是为了便于计算 ; y1 Z1 v- m* U6 d- T% C
　　if mod3String>0 then
( ~) U+ m  W0 T2 J　　lenString=lenString+3-mod3String $ m9 g0 u& v0 G: C3 A* W2 o; D. R
　　lenString=lenString-3 4 o* y# Z) u" U/ a, Q; T  c
　　end if