返回列表 发帖

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

class Base64Class; y$ T1 I. ]( D
  rem Const ( d- q2 I" n/ z0 B; ?& `
  dim sBASE_64_CHARACTERS'转化码 ( I3 P* f: e7 o) z; g
  dim lenString '计算字符串的长度
& U0 F; A. i3 K" ~4 E: q' {  dim iCount '计数器
" ?3 M  |% M( ?2 x6 D  dim returnValue '返回值
$ O3 b7 l$ z4 n+ y  dim tempChar'缓存字符 " v! A' Z( P  m5 {
  dim tempString'缓存字符串 + X! S7 A5 h) b+ e9 E; Q
  dim paramString '参数字符串
& Z! R0 p& t5 n% z. E% d  dim temHex'缓存缓存十六进制 1 D1 b- p* m+ K; t% u( f
  dim tempLow'缓存低位
8 U  w' t# d+ ^) D( U6 w+ r* b1 U  dim tempHigh'缓存高位
7 E3 i6 Z+ Q' Z" B  dim mod3String'
) H9 _* P" p2 u5 Z/ H" s1 k& d& o4 Z  dim mod4String' # i4 c; y% c8 w; z/ R+ C
  dim tempBinary'
3 c' w' a# D+ N1 v) H* P5 P- B  X  dim tempByteOne' . H" \2 i4 H; x9 V0 F' ^
  dim tempByteTwo'
1 ~! M8 g/ _; ~4 U5 b  dim tempByteThree' ' C6 W* q$ F% a( F! ?
  dim tempByteFour' & X" [# S! q8 ~1 X
  dim tempSaveBitsOne' 7 B- [! I2 g1 p/ |  L4 Q
  dim tempSaveBitsTwo' 3 O+ B" d4 s3 T4 R* u' \
  '********************************************2 Y) c& a; t" F) Z% H* c/ i
  'begin初始化类
& ?5 V* |! h2 o: h, B0 r  y  '********************************************
  \( y2 x8 T8 W  private sub Class_Initialize() ' [, n4 h: J$ k1 S# ?8 h# ?. e2 _
  sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub 2 Y0 E( V+ v  Y# k" T
  '********************************************
" M) ?+ r) q0 N! e" X5 l  'end初始化类 '
. n- s* m( o2 o7 i4 r- o  ******************************************** : v6 f. B! b9 z
  '******************************************** 8 b0 a9 ]# T# u$ \; q+ s
  'begin销毁类 ' g) B" T3 X* x; T7 u
  '********************************************
5 F! l5 J* S: `. {/ R/ e& [3 p  Private Sub Class_Terminate()
4 A$ `8 P: ^; n5 m5 N  sBASE_64_CHARACTERS="" end sub
8 D$ l2 A6 j7 G: W  S  '******************************************** ' O" m5 I. B7 |4 e: H. c( O' X
  'end销毁类 6 P7 O) A2 V5 t1 R& s
  '********************************************) |8 |8 u  t7 j; R9 d4 A
  '******************************************** 7 P- q3 m/ Z9 D: P* O
  'begin将Ansi编码的字符串进行Base64编码
$ J- z. K/ t3 n  '********************************************
7 v( s: v( W: @7 R' J" S1 R  public function Encode(paramString) 5 l! Q; q# `3 Y+ S
  tempString="" # \% g# T3 P* @9 |: l
  returnValue="" ' {. c4 K7 W$ D) |4 H4 Z& L
  lenString=len(paramString) * b* R  Y! _( F8 s; m5 p% G
  if lenString<1 then
: v3 R, b5 B! N  Encode=returnValue $ E* i- Y: Q+ x7 l; c
  else 9 d0 _6 u/ h7 F4 l% }5 E3 z
  mod3String=lenString mod 3
6 G: j( n/ r: ~5 ]# ?  '补足位数是为了便于计算
4 k! J0 ^) w! V8 F6 W( c  |7 [  if mod3String>0 then ! X) e# p* O) O% p$ C
  lenString=lenString+3-mod3String
1 W+ B4 T7 l! Y9 F* G  lenString=lenString-3
/ ^% x) i" V& v5 x/ X" Z  end if

返回列表