返回列表 发帖

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

class Base64Class, h& x4 ?2 `9 }+ N# S* }
  rem Const
: c- s0 r/ R0 X; [  dim sBASE_64_CHARACTERS'转化码
: }* z7 j/ J0 G: y  dim lenString '计算字符串的长度
6 o( A/ \3 o+ a! q% s& Q  dim iCount '计数器
5 O* P% O, r4 `& A1 }5 @  dim returnValue '返回值
9 x0 e; w& E9 j" ?1 w  dim tempChar'缓存字符
8 V2 Y" v1 G' F, X$ o( P# ]  dim tempString'缓存字符串
! F1 b) m' p3 c; g- q, @/ d! C, B  dim paramString '参数字符串 ! v1 I- B" \$ i6 v9 w
  dim temHex'缓存缓存十六进制
5 Z* ]) ]( V' q8 y% d& x! `8 C  dim tempLow'缓存低位 % g1 }6 C$ l; H2 o% |- \: S
  dim tempHigh'缓存高位
& U& ?1 v# P* M7 b  dim mod3String'
4 F& F  v/ k& p" a! [2 Z( e  dim mod4String'
4 q/ s! E$ l" @  dim tempBinary' 1 n6 ^) p3 d! |5 }$ M: N8 M- f* {
  dim tempByteOne'
0 t+ m7 O. V0 S$ B* B- c  dim tempByteTwo'   Z4 d; Q0 H4 `4 Y( n, ~
  dim tempByteThree' * E6 |% C6 F) l7 a
  dim tempByteFour' 1 `1 J/ V0 f0 Y% k, J/ T5 h5 p- _- Z
  dim tempSaveBitsOne' 9 _- [' y1 O8 P
  dim tempSaveBitsTwo' / e( I0 X+ g) Y7 Z1 T/ _
  '********************************************/ h7 g/ C: e2 Z4 ^" F/ I+ ?
  'begin初始化类
. i! Q8 c& S  B) U" |( c8 J  '********************************************
! J% |) j' ^4 F) L- h  private sub Class_Initialize() 8 l' ]7 @7 ~2 k! `5 i8 s$ U& J
  sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub + D. J' g5 ~  p$ `& Q0 G- p
  '********************************************
. F( G( c4 t$ F+ V, }  'end初始化类 '# q( l. y# H$ M; A# X8 m
  ******************************************** ( F) ~/ H8 K, q% W8 V" Y2 a
  '******************************************** , s2 b3 `/ j: q- a/ _9 F
  'begin销毁类
4 n' f# S2 m/ G# ^, y: M: ^  '********************************************
7 Z( a7 c1 B% R* D2 `' b, `5 P2 U  Private Sub Class_Terminate()
0 ^" ?" @+ S1 k4 M5 ~5 {5 N' `2 ~4 d  sBASE_64_CHARACTERS="" end sub
. C1 Q8 ?1 m* B  '********************************************
" [) |8 s) S4 P, S9 \$ V4 U8 M  'end销毁类
) B2 b7 q2 H8 `+ b  '********************************************
7 f: `3 L2 A/ {  '******************************************** & j% t2 H8 n* C7 C
  'begin将Ansi编码的字符串进行Base64编码
, |3 U6 [" k/ H0 ]  '******************************************** 6 |1 c, t- X4 G9 i
  public function Encode(paramString)
7 v: e/ o# W( b  tempString=""
1 w# o' K& l- j" k6 @4 g+ D- e  returnValue=""
3 h' x6 Z; T" U0 {! O- ^! p' @  lenString=len(paramString)
- Y% O7 ^8 Z; Q( i& L+ e5 f+ ]  if lenString<1 then
7 _: E1 i5 Z% T8 ]7 S/ h  Encode=returnValue
6 @% z7 H. Q3 J$ d0 p% ?6 U  else
4 h6 _9 V5 P! b4 ]% G% o/ [  mod3String=lenString mod 3
6 A7 u& X! o' |% X  '补足位数是为了便于计算 . J( \+ f+ t1 Y) r* U
  if mod3String>0 then
) V* N! t* U. u: V2 A+ D6 r% S  lenString=lenString+3-mod3String
* @$ i7 T9 d0 h9 O: i  H6 _  lenString=lenString-3
+ f5 D8 {+ {% d6 W: i: D  end if

返回列表