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

拓海之舟

class Base64Class, j6 q, c) Y  u( Q
　　rem Const
/ \4 @4 ^# y$ i3 i( F. ?# w4 w　　dim sBASE_64_CHARACTERS'转化码
1 e8 o. P$ v$ X　　dim lenString '计算字符串的长度
& E9 Q! V1 s0 ~3 X- q　　dim iCount '计数器
4 I5 o7 T9 e; n0 f! l5 z' O. W& K　　dim returnValue '返回值 1 r, z/ l3 n9 ?5 d- U
　　dim tempChar'缓存字符 3 l2 w/ P1 t( ]+ p  a
　　dim tempString'缓存字符串 # b8 p$ F8 [' Q$ w
　　dim paramString '参数字符串
2 n) I! t7 f2 @: W+ y) ^4 S. P　　dim temHex'缓存缓存十六进制 ) V4 x. F1 K7 i3 K0 Z; j2 n6 u$ B8 X3 \" S
　　dim tempLow'缓存低位 ( `1 g- w% U  \! Y' H
　　dim tempHigh'缓存高位
' N9 a1 `$ d( ^　　dim mod3String' " C: R! N% T8 W" R/ a6 q# ^
　　dim mod4String' 5 E$ ?: M. c; T8 R! i* H
　　dim tempBinary' * P7 t( f( x' ?- M, ?) N' ]
　　dim tempByteOne'
- y% ~. H( }! u/ Z) `% t　　dim tempByteTwo' & D7 O, d* d2 b
　　dim tempByteThree' 2 n5 G6 f2 n" M' {) S8 p
　　dim tempByteFour'
' `% ]4 T. w4 L, j　　dim tempSaveBitsOne'
/ F' U! S/ [' h! d　　dim tempSaveBitsTwo'
, n/ ?& R1 I3 s" f8 t$ S　　'********************************************
3 U6 |+ J# m# {3 d5 z- {9 T　　'begin初始化类 ) W# ~& H- a& p. H) V* c
　　'********************************************
  S. D% b- j) G5 ~, P  a. j　　private sub Class_Initialize() ( B+ [6 z! e& _# c( C
　　sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub
4 s& d+ b* G. K2 q　　'******************************************** ! x2 r; N4 S1 X8 H2 T1 G* X
　　'end初始化类 '5 N( _7 G* Z. Y! j6 i- o: C/ O
　　******************************************** + e4 S# m% Y# ^! z  n
　　'******************************************** ; Z% r" h+ V" R. q* W% u: L. C
　　'begin销毁类
$ p" U, Q# `: G; |　　'********************************************
. E% z  t% a$ Q7 K7 o  V$ @　　Private Sub Class_Terminate() 9 o  @, ~: z$ g+ c
　　sBASE_64_CHARACTERS="" end sub & Z7 Z! i7 e3 l
　　'******************************************** 7 v) J4 O7 x8 R& j  b7 F3 }1 p
　　'end销毁类 8 J4 E% G1 q3 x) G8 ]+ b
　　'********************************************
' o$ Y: N/ W! r0 T8 H* Z　　'********************************************
6 e# O/ |. P  }4 B5 {' g. s　　'begin将Ansi编码的字符串进行Base64编码
: P: t( \" r$ c$ e9 p$ H1 \　　'********************************************
; A& e$ f: Y1 O, Z  f* x　　public function Encode(paramString)
/ g) D& H# e/ g) W　　tempString=""
+ y- [4 n# A: ^& x4 D' w2 }　　returnValue="" 3 H9 h; E7 `. t) y% E; l
　　lenString=len(paramString)
' [( L2 e4 }8 n, h# K' H　　if lenString<1 then
. l$ L( m  G0 H& g7 {　　Encode=returnValue , f1 E( Z. ]$ Q$ @) C+ e4 N
　　else & }$ c: Y& V" L& `& n
　　mod3String=lenString mod 3 ; y" I. \- J5 E2 |
　　'补足位数是为了便于计算 $ }* W1 M9 o; T/ `0 H+ h9 N* z
　　if mod3String>0 then
) v6 D# ^( f  q7 n4 a　　lenString=lenString+3-mod3String / a+ }* }& v3 r4 `: p! K0 X1 h
　　lenString=lenString-3
1 u* l% X$ ?7 Y9 W5 Y/ j　　end if