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

拓海之舟

class Base64Class
3 {. m/ E7 O& p" K2 k& l2 f3 [　　rem Const & Z7 ~# p% m$ A4 k
　　dim sBASE_64_CHARACTERS'转化码
( L% Q8 t, w, e; S　　dim lenString '计算字符串的长度 8 _8 m; m# |, x& W% P
　　dim iCount '计数器
3 g1 q$ g, J' e3 |4 ^* R　　dim returnValue '返回值 , _0 l+ v. p5 T9 S5 S1 J5 [
　　dim tempChar'缓存字符 8 |2 _3 M& y' i$ \" B! o
　　dim tempString'缓存字符串 ' g( K5 H) O+ s% x) D6 `4 [8 h( J1 P1 J
　　dim paramString '参数字符串
8 T0 r3 [2 d# T. ]- ^; y& q* C　　dim temHex'缓存缓存十六进制
; M. J9 w3 E/ I8 J　　dim tempLow'缓存低位
0 I* N( \& U8 x8 f　　dim tempHigh'缓存高位 ( M( f- M* X  t0 w: w" @/ C
　　dim mod3String' ) b3 q+ y' D0 O; n/ q
　　dim mod4String'
0 m: t) B: E* s+ W　　dim tempBinary' " ?6 w5 X! J3 Q, o" F* D" k
　　dim tempByteOne' * F3 E+ r% u3 R4 D! c: N
　　dim tempByteTwo' # u/ c# A2 v2 ]: t- U$ O
　　dim tempByteThree' # {* i0 J$ e3 J
　　dim tempByteFour' $ A, V, Y7 W+ y4 F+ k8 L9 D7 P- R2 t3 M; U
　　dim tempSaveBitsOne' ) b$ E# [. H& T( X
　　dim tempSaveBitsTwo'
  ?) ~9 T) k; j$ ]　　'********************************************! c1 ?0 H/ K1 n  p+ c
　　'begin初始化类
6 {# \' d$ D/ N' f" z　　'********************************************
* F9 y2 |; [# T" W/ D; k0 v　　private sub Class_Initialize()
0 o7 C+ r+ M# u　　sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub
  D6 _" y8 @& _" z5 w　　'********************************************
, [: E* q/ c( o9 Q9 m　　'end初始化类 ': e* d& x) E- _
　　********************************************
# w/ X5 @: z0 C$ Y9 j) z0 ~　　'******************************************** * t2 w# ~* \, s& r
　　'begin销毁类 - a: ^! \6 V! ^& O/ t& y2 M! g/ K
　　'******************************************** 8 c# S' N9 B+ x5 s
　　Private Sub Class_Terminate() 9 l7 t5 ~( u3 h" [. C4 y( ]
　　sBASE_64_CHARACTERS="" end sub / X, Q+ W5 P0 H/ `6 P3 |& W( B
　　'********************************************
" w# \+ i- t) L# c* W5 ~　　'end销毁类 0 U6 `$ L% [* A2 R: @' \$ }6 Z
　　'********************************************3 T3 [* I  z6 C, u- c! s
　　'********************************************
' c- _- }8 w- [: `; c/ A* c　　'begin将Ansi编码的字符串进行Base64编码 ) b# z' g! N& Y2 g7 C" k5 `
　　'******************************************** / e" ^% ^/ @, a  l: g. c
　　public function Encode(paramString)
4 P$ Z' W8 G: j3 p- j( a　　tempString=""
" g7 S; I+ ?) P　　returnValue=""
- x) c3 l! {5 M8 G. j; L6 M" D　　lenString=len(paramString) 6 B! P" B# p7 e  A; n- a8 m
　　if lenString<1 then
! X9 t. T. S- i7 P$ F. H2 Z　　Encode=returnValue
8 _. l1 n2 u4 A, L+ ]2 G　　else / V( Q; m- |  V# c, R. K" z
　　mod3String=lenString mod 3
6 m! c. A- {. q6 m　　'补足位数是为了便于计算
7 \# o, u" i( M  c  i; \9 O　　if mod3String>0 then
( ]8 Z5 q  {) d　　lenString=lenString+3-mod3String $ T* V. N! f$ z$ ^0 L' p3 L
　　lenString=lenString-3 $ S4 u) I. ~, R* Q. l2 F
　　end if