返回列表 发帖

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

class Base64Class" L6 H  [* j% G" G) I: n5 o
  rem Const . g+ T! o( [6 n8 E, b# f& y& z( H
  dim sBASE_64_CHARACTERS'转化码 ! j1 s3 X  r( J$ @8 S
  dim lenString '计算字符串的长度
0 R, M" a& d: d" P, Z  dim iCount '计数器 7 Q$ K" B$ c2 L2 S, Q3 Z
  dim returnValue '返回值 " }: X! Z6 ?' u7 G$ h0 ^) Y  t4 ~4 a
  dim tempChar'缓存字符   W2 ^0 O3 p) E# j
  dim tempString'缓存字符串 - i1 M6 I$ E! ]
  dim paramString '参数字符串 ) M/ ^/ ~2 h2 Q% G7 H/ w3 i
  dim temHex'缓存缓存十六进制 ' ~' h1 N6 O% {7 L* t, {, B
  dim tempLow'缓存低位 3 t0 Y9 |( r" x% U2 ]
  dim tempHigh'缓存高位
6 \6 V0 O; D+ h) C# U5 s  O  dim mod3String' 0 ]* @0 `- D- l
  dim mod4String'
, {8 a8 w' |* N" j0 F  c2 T7 U( b  dim tempBinary' 2 y6 g; c9 Y( E7 ~8 ^7 h( d3 ~
  dim tempByteOne' 0 a; }) L3 {% a0 Y4 }$ ]
  dim tempByteTwo' ; l% p: O9 t+ N9 g2 ~" l" `
  dim tempByteThree'
. v' M+ a. d& `2 e. f5 I  dim tempByteFour' 6 U1 f7 e  f, e/ a* N
  dim tempSaveBitsOne'
! R% T- R( S5 V: u$ v  dim tempSaveBitsTwo' : E9 S* \, T- d% T. E: a$ H
  '********************************************
$ E  {& Q: z! M& P  s+ A7 ?  'begin初始化类
2 _+ s! \! @: o, E7 C/ [  '******************************************** ' l% E  t( [' j1 }0 T
  private sub Class_Initialize()
) Y1 {/ b, D3 d' _' ~/ y6 U9 j; K  sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub 0 u( n* m+ N  y+ y! |. t
  '********************************************
5 I2 ~1 o8 y" `  O  'end初始化类 '9 J3 W+ j- D4 F9 {( K; t+ C
  ******************************************** & t2 m. m' ~8 a' H# {0 @6 J7 G/ _, I
  '********************************************
! x, R: D9 r1 i  'begin销毁类
7 j( m; I5 ?  S; V5 a2 `  '********************************************
8 X* K$ C, N  {( f& V. ~, h  Private Sub Class_Terminate() ! V% {5 W5 Y! t  y8 s* G- d) M) }# Q- T
  sBASE_64_CHARACTERS="" end sub
9 d' M: |2 ^5 ^3 ^  '********************************************
4 r: _% Q: S2 y& Q! |3 h  'end销毁类
5 ?. g4 i2 `9 d8 O0 d8 Q9 z/ X7 k  '********************************************
1 m0 T" b. q1 Z5 h7 v. i( o, y  '********************************************
/ n/ P! e1 I* i* B$ t, Q7 b, C  'begin将Ansi编码的字符串进行Base64编码
- I1 l1 k2 i8 ^7 c$ S  '******************************************** " a2 T0 X& _! a1 {
  public function Encode(paramString)
% x3 G. f( ~, a- c7 M$ `% \1 F  tempString="" 1 o& {7 x# {1 T3 n' [3 m* J; \
  returnValue=""
  ?) U! D% T# h" L5 `3 [7 {  lenString=len(paramString) ; i: s* l, ~0 _) d
  if lenString<1 then
4 [; `9 J& z  G4 P  D4 g  Encode=returnValue # I9 y% C' C3 O, q% Y6 I/ J
  else
' t( J: z* j* |# f4 X  mod3String=lenString mod 3
8 H: L' t. t) L9 W  '补足位数是为了便于计算
* \/ q3 i$ `$ T% @" j& C/ x8 i0 \* T  if mod3String>0 then % h' [& A5 [  G" o. l1 ?7 W
  lenString=lenString+3-mod3String % B% C; G* n' x9 }1 |" @
  lenString=lenString-3 3 K( V0 K4 q* b; Q6 H
  end if

返回列表