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

拓海之舟

class Base64Class
, ^. b* u) k- B' z# q　　rem Const ( `4 Y6 ^. r4 `) C
　　dim sBASE_64_CHARACTERS'转化码 1 B& K$ M0 T$ S3 p6 u+ V0 k
　　dim lenString '计算字符串的长度
& C# G1 l! ~! h2 [　　dim iCount '计数器 1 L/ a1 ~) O0 T/ |
　　dim returnValue '返回值
# b1 |, z: ^6 \3 v3 u  P　　dim tempChar'缓存字符
  D% V2 c9 {8 l! k( f4 N4 d　　dim tempString'缓存字符串
7 f6 R$ f8 e; X! N2 Z& U5 M　　dim paramString '参数字符串
) p% b2 G+ h; W: Y　　dim temHex'缓存缓存十六进制
4 W3 c$ K( w4 l! Z& R　　dim tempLow'缓存低位
  U( y: r8 R* f! r2 ?0 B　　dim tempHigh'缓存高位
( O* k7 O3 Z8 `& m　　dim mod3String' 8 m1 K5 Z$ ?* p6 ?6 W& Q
　　dim mod4String' & E4 I: i5 i# @
　　dim tempBinary'
1 y4 r: n; U# ?% i# M　　dim tempByteOne'
9 n* F7 e4 Y: l　　dim tempByteTwo'
. Q' Y! c9 _; C: E, r　　dim tempByteThree' 8 a4 x: U' S7 |' H4 D' P, ?
　　dim tempByteFour'
! E# M5 Z$ \. E9 T5 m2 G　　dim tempSaveBitsOne'
" a, W" P9 W- j　　dim tempSaveBitsTwo'
9 g6 D) U: R) _3 j8 n3 _　　'********************************************
! [7 C5 s+ R, N  D# f' \　　'begin初始化类 & }8 K" p6 X) g# `* q# }6 p) Z
　　'********************************************
- n3 ]8 L  W9 z　　private sub Class_Initialize() : v: B7 |2 R" W: O$ m
　　sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub
* _7 w8 e! D3 ^) V- C6 G0 l4 C0 {+ h8 e) i　　'********************************************
+ v' w: y0 l" X  H　　'end初始化类 '1 W) ^! x% Z  ?$ r/ F7 K5 V
　　******************************************** / K& e0 ?% t. S( |& V# ~4 r# \. C
　　'********************************************
' a8 B6 M$ }+ B. |; z. x　　'begin销毁类 * a) V" n* Y# H
　　'********************************************
2 E$ [+ i  l' w) u' d0 K　　Private Sub Class_Terminate()
/ r2 `) }! F. [, z+ i% x　　sBASE_64_CHARACTERS="" end sub
% l' N# n: X7 D2 s; {# a　　'********************************************
# z" A- D  j  P2 i( o  j8 s3 u　　'end销毁类 ; \0 G* U5 g8 v* {( W
　　'********************************************
* q- U) N7 W8 |% P# j2 T　　'********************************************
& e2 k) e7 F1 C% N3 Z　　'begin将Ansi编码的字符串进行Base64编码
* L  v2 B2 M/ D+ _& h. T: P　　'********************************************
; |) U* C8 e+ h' |: B# V5 S　　public function Encode(paramString) & C$ `* s0 F  x9 w/ ~6 `
　　tempString="" ; ^6 R! a3 z: j( a
　　returnValue=""
4 `' O6 Q0 ^- ^8 t5 {( i　　lenString=len(paramString)
: r# P' l- }0 k# x　　if lenString<1 then
! c! v" s2 L$ y　　Encode=returnValue
0 ^- a, M" |' u7 k! ?( M! j　　else ( H7 ~- B9 Y& D: W' N
　　mod3String=lenString mod 3
4 s* u5 _7 J$ C$ E( I　　'补足位数是为了便于计算 3 i# ?( V$ f3 O6 b4 ?6 `5 S
　　if mod3String>0 then
# M  S8 f% \, V) P) Z: o! O　　lenString=lenString+3-mod3String
3 E- O0 P. `8 k: k* f" p　　lenString=lenString-3
3 `1 F9 \" L& h4 w+ y　　end if