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

拓海之舟

class Base64Class$ L# p" l" z0 j3 m, l1 d7 P
　　rem Const
- g) [, Z# ?* W9 ?: m" x5 p　　dim sBASE_64_CHARACTERS'转化码 * Y! F7 k  c: h. @9 s$ s
　　dim lenString '计算字符串的长度 ; v7 a( Z7 L6 r" F& g0 D& G/ H
　　dim iCount '计数器
2 r/ t% o3 g2 A5 \　　dim returnValue '返回值 0 s- L* a$ R! Z% B# r- D
　　dim tempChar'缓存字符 , o! C7 g! m3 y+ g
　　dim tempString'缓存字符串
0 v/ p* b' W$ h3 y% p　　dim paramString '参数字符串
' _0 t; k/ a* C+ g5 _5 F　　dim temHex'缓存缓存十六进制
- v# y4 B3 ]; }9 a7 h　　dim tempLow'缓存低位
: C, ]9 d6 M8 r, i' s　　dim tempHigh'缓存高位 ! r+ b$ C6 ]* ~2 F& Q5 D: Q4 G
　　dim mod3String' 0 k. o$ _( _0 m' n! V
　　dim mod4String'
8 Y  v8 K( c' l　　dim tempBinary'
6 K( [; |8 M! O. Z9 B　　dim tempByteOne'
0 d% L2 i# f6 d/ r0 W/ q+ P　　dim tempByteTwo' , Q4 |! G* ~2 w2 j* |! t0 G; d5 i
　　dim tempByteThree' & O# U8 V8 {# C  k
　　dim tempByteFour'
0 c& \% c4 q& L& J6 ]# O　　dim tempSaveBitsOne' 5 ?  Q/ S- D( H4 b% I
　　dim tempSaveBitsTwo'
, Z; P' A9 p, ~% u　　'********************************************1 c2 U% t1 p6 B
　　'begin初始化类
& @# s7 D+ p! Z7 n: P' ~　　'******************************************** 0 {0 T. F5 o, X. O
　　private sub Class_Initialize() 1 p7 p- B" W% @( J4 G) e+ V3 C- U
　　sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub
8 M! x& m/ E) B. \. B$ u0 {& [　　'******************************************** & ^" |+ E, ?2 h/ C. \
　　'end初始化类 '3 t( z: }7 ^/ H" k! `
　　********************************************
2 ]% R* C# z% S　　'********************************************
% A: D4 J4 j9 H　　'begin销毁类 % m) \$ j& ^! I1 U3 F6 P1 b
　　'********************************************
' A+ l& d' v: t( [2 I7 B　　Private Sub Class_Terminate()
6 |6 b; V" P$ B7 ~$ |　　sBASE_64_CHARACTERS="" end sub % z* U' T" C2 P! d8 f& o/ L# M/ Q
　　'********************************************
. p+ d; b! v3 [4 H　　'end销毁类 ) j4 [5 V0 s! k/ U7 [2 d( {
　　'********************************************9 }8 u$ e: B$ m& ^
　　'******************************************** , V3 G3 c3 E  A
　　'begin将Ansi编码的字符串进行Base64编码
& L! }! f6 D  \9 k8 g8 a　　'********************************************
5 ]. q. _: H  X　　public function Encode(paramString) 7 O, U2 m" G- I
　　tempString=""
* M4 h2 G  J, m7 b" y　　returnValue=""
" n4 l  Z" J7 ~/ [4 s2 W- l0 ^　　lenString=len(paramString)
" z% ?- Q  B/ Z# j: `　　if lenString<1 then # }1 c0 _/ e7 D: y- ^, _1 W, c+ e& V+ b( r8 G
　　Encode=returnValue 7 z3 o9 R$ N, k( b$ ^+ `
　　else 4 A; Y' V9 [( i7 w4 A6 Y
　　mod3String=lenString mod 3
+ ?# }* w  A5 [* W; n　　'补足位数是为了便于计算 ) X  ^3 b: {2 v. _% V. r" Z
　　if mod3String>0 then
: D" m+ }7 q' u) R0 b- {　　lenString=lenString+3-mod3String , g- \8 E" y) K8 t+ g
　　lenString=lenString-3 ! B6 z' A4 m- p9 C7 ^
　　end if