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

拓海之舟

class Base64Class( i# ]" W/ K# `0 O# A' X
　　rem Const 1 f3 b( I" `& }
　　dim sBASE_64_CHARACTERS'转化码 % z9 c, T, u- m( y% J3 v. |9 x; D
　　dim lenString '计算字符串的长度 - S9 e0 E. v4 M! d
　　dim iCount '计数器 3 B; U  o# @5 e- D! T1 q2 J
　　dim returnValue '返回值
- i- [& b' x( L' B' F) Y　　dim tempChar'缓存字符 * p& E8 {& r" c; N
　　dim tempString'缓存字符串
( X5 u9 M; x- F8 r' s4 o　　dim paramString '参数字符串
9 \  n" f4 r  m% i, W0 H　　dim temHex'缓存缓存十六进制 * ~- _# s4 y( Z% A- u
　　dim tempLow'缓存低位 & H" O& H: ^' b( E0 ?6 B
　　dim tempHigh'缓存高位
/ [" I$ Q; g" s8 _! i　　dim mod3String' 1 K5 F2 o/ W6 z* U6 i& i
　　dim mod4String' 9 c5 j! ~' ^+ [0 ^. F
　　dim tempBinary'
: e: ]( v% Q( I# c　　dim tempByteOne'
+ [* C9 r4 C! Z　　dim tempByteTwo'
$ ^: z% B8 a, W8 T　　dim tempByteThree' ! R8 h* E) ?( v  u! l* [' a  ~
　　dim tempByteFour'
) A7 N( O# g$ D. V　　dim tempSaveBitsOne' + n5 _' Q7 p3 P9 r5 C
　　dim tempSaveBitsTwo'
$ T8 P5 I$ D" a3 O  G3 T　　'********************************************( d# w3 |  o. }
　　'begin初始化类
: l8 p, t. p5 F% _, f　　'******************************************** : j9 C1 k7 v; \! E5 Q( v  t" r/ n
　　private sub Class_Initialize()
' L$ a% O# r7 w　　sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub
: l3 N' }/ q2 g3 E/ ^4 a4 y　　'********************************************
# s6 w' @- r3 `7 r, a' N3 ?- E　　'end初始化类 '$ Z9 n2 a. M8 M) ?: ]
　　******************************************** % X) ]& }7 c5 [0 P. y
　　'******************************************** # T9 S( x/ ^* j/ o2 m
　　'begin销毁类 8 u* t% ?4 ~/ o. O0 _) i% t
　　'********************************************
* O$ q, Z8 ^, K$ B; ~- R0 m9 W6 F: H　　Private Sub Class_Terminate() ( u' C5 X0 q* v* R0 A* ?$ j& }
　　sBASE_64_CHARACTERS="" end sub * u9 m3 W4 ~( s7 t, e/ T
　　'******************************************** 2 A8 T/ J8 q1 a! ^$ [& f/ p% ~0 H
　　'end销毁类 & g( H* [& [3 m% e+ g' m8 r
　　'********************************************
1 g1 s/ a* o% M1 S( E0 r% r! g　　'********************************************
3 Z+ k- G. n7 X' D  p4 {0 B+ s　　'begin将Ansi编码的字符串进行Base64编码
/ ?: b4 u" P; R　　'********************************************
- e- j8 ^0 c/ E; J　　public function Encode(paramString)
2 \3 B- P$ }3 R8 K5 g) U1 Z  [　　tempString=""
5 P0 T' d3 d% [3 }) K0 k* i3 \　　returnValue="" 4 t6 h, {. U( {9 b6 K2 b' F
　　lenString=len(paramString)
7 ?' d$ I2 ]# r1 H8 Y( ^: S　　if lenString<1 then
" E" z' @  w2 |　　Encode=returnValue 8 U- Q7 G0 `8 F2 Z2 V* a
　　else . U! S$ W: W( B: T+ g' m
　　mod3String=lenString mod 3 ' _9 W% c( Y$ W+ c/ O, D
　　'补足位数是为了便于计算 ( W" O' o1 _5 [% c# ^0 F3 y- }
　　if mod3String>0 then
% \4 |0 x6 |& f　　lenString=lenString+3-mod3String
) ^0 Y: \2 H! t! u# L　　lenString=lenString-3 / s: T, H' ^' r$ K) G8 n
　　end if