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

拓海之舟

class Base64Class
. `0 J6 Q! f8 l& L3 ~& t+ ~$ ~　　rem Const
) U" e8 W2 H' z: p. V/ [　　dim sBASE_64_CHARACTERS'转化码
  X" B; E5 r  X. M0 C　　dim lenString '计算字符串的长度
/ |2 s6 z: i$ f3 [0 R, k( M9 q4 `- R　　dim iCount '计数器
# L0 N" Z4 u7 @) K　　dim returnValue '返回值 # \1 h" w7 |( x. R4 \6 Z" n
　　dim tempChar'缓存字符 ) k! a& T! s% {5 D; D# P$ r
　　dim tempString'缓存字符串 & z% P. u( Z: |
　　dim paramString '参数字符串
. g% Y- _9 `+ h% `7 l　　dim temHex'缓存缓存十六进制
- Z# s) t/ h) a0 V　　dim tempLow'缓存低位 4 e+ o5 |/ C; M+ r
　　dim tempHigh'缓存高位
' Z$ b  O/ o. J( M2 F　　dim mod3String'
$ v- F: I' x3 U; A" c　　dim mod4String'
" P6 \7 f8 X6 r+ C/ {　　dim tempBinary' 4 i0 O! ^3 Y# v$ B
　　dim tempByteOne'
( K* }7 A, t4 t1 e$ u9 y5 q( |　　dim tempByteTwo' + U9 ^& z& B/ r/ f8 g. _
　　dim tempByteThree'
/ O2 S+ j0 E8 j2 f+ t! p' l; t　　dim tempByteFour' 8 t4 B" D' |  a9 P
　　dim tempSaveBitsOne' 4 K3 w% l9 X0 G" @, o) z0 \
　　dim tempSaveBitsTwo' ; N" N. H' z, c, I5 e4 {+ E2 L+ I
　　'********************************************: z1 F9 R% ^) a: [, ]- r
　　'begin初始化类 5 i% T" Y/ E5 D4 f. `+ G
　　'********************************************
) ]0 k0 k% \3 _0 Z　　private sub Class_Initialize()
) h5 A4 f6 s& V5 o6 P* k　　sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub * V9 a" M8 b' j0 A8 }1 D
　　'******************************************** 7 `0 ~6 {9 g# S, k; F
　　'end初始化类 '# ~; N8 ^: U- c) n8 S; u7 s# c
　　******************************************** " r, w1 R' r8 L1 f* c. c
　　'******************************************** % y! b% {4 S2 y5 t; ~
　　'begin销毁类 , G% D. V+ X% o; N9 d7 ?/ W
　　'********************************************
: N! w1 w8 u  ^7 k　　Private Sub Class_Terminate()
! @7 a' J0 k, Y, \$ S　　sBASE_64_CHARACTERS="" end sub
, i$ M5 y+ F& t+ i6 G0 i/ Y' G　　'********************************************
1 v3 t1 N5 @2 _　　'end销毁类
% X; D3 Y3 ~  s* S! v/ R8 c6 P　　'********************************************7 p$ V0 k4 A* e5 w- [* S
　　'******************************************** , I% I' S  s% Y% n7 m
　　'begin将Ansi编码的字符串进行Base64编码 ! `! t8 v4 N) p! K2 d+ Q  J
　　'********************************************
) \/ M0 _. `$ F' H2 w: U* S　　public function Encode(paramString) ; D) P, W7 e* N0 l3 s
　　tempString="" # D  r# V2 J' \8 t- E! C
　　returnValue=""
( u+ p2 `! v; l& T% g9 J　　lenString=len(paramString) , D- }- I+ y2 p* v* H
　　if lenString<1 then
! Q2 h0 u9 l$ e! x7 W% x* K: ~3 @4 B　　Encode=returnValue 7 m! U$ l! J. ^8 m( i* A+ u
　　else
* i4 N7 T1 q! `# E, [- H; |　　mod3String=lenString mod 3
% H! D/ b$ O, h　　'补足位数是为了便于计算
5 i8 t/ {) ]  w4 Y" M/ I* T　　if mod3String>0 then
3 V! k6 K) ]1 Z( i　　lenString=lenString+3-mod3String % `: K- r3 E: U$ ?
　　lenString=lenString-3 5 E' l7 k$ @1 m- M* q
　　end if