返回列表 发帖

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

class Base64Class5 k/ S+ v9 W9 V/ G
  rem Const
4 T" T7 w4 l$ o% U  dim sBASE_64_CHARACTERS'转化码
" |6 v4 L5 o1 d& W  dim lenString '计算字符串的长度
& r9 z6 l; a- v0 [3 H; i, I  dim iCount '计数器
& m( Q9 ~# o8 e  j  dim returnValue '返回值
+ b1 u0 Z, F+ _8 l. y* T# y  dim tempChar'缓存字符
% z* P9 v. L0 ~8 b* ^7 h% V  dim tempString'缓存字符串 7 ~1 L( ^$ j. e2 R+ A
  dim paramString '参数字符串 0 F5 b0 j  C* |) r$ `$ {
  dim temHex'缓存缓存十六进制 7 q$ X9 Q0 X* K4 _3 }
  dim tempLow'缓存低位
/ v0 C: U: F/ o- |6 T9 D; R  dim tempHigh'缓存高位 9 a, `! h3 D2 N5 y/ [8 Q% `
  dim mod3String' , n9 S9 m' w4 h, Q3 S
  dim mod4String' ) R3 g7 a5 |' r' j5 ]
  dim tempBinary' 0 E, G' w4 f+ b: M5 t0 l, `% X
  dim tempByteOne' 1 g+ T6 |; P* {
  dim tempByteTwo' : j9 d- M9 X; |9 h7 H( X, L/ R
  dim tempByteThree'
# T5 ^/ K8 k' I. [: S1 W  dim tempByteFour'
* p, g! Z7 Q4 z8 e2 F* k  dim tempSaveBitsOne' , _. ~2 |9 i) r1 C) g6 q
  dim tempSaveBitsTwo'
! J2 |9 R, u3 ~7 P. q  '********************************************  ]! {* A6 W1 `' E3 Q
  'begin初始化类
  B4 h' r& k0 J  ^! i  '********************************************
5 \( Q7 n/ a% O( G1 Z& Y  private sub Class_Initialize() / T- b4 A- E: F% y0 T4 I& f. y
  sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub
& G1 `% g6 R. l. Q1 A  '********************************************
7 l' v+ n$ z, o* D; M  'end初始化类 '
0 J5 h8 s. |; E- D; ?# ?' e- l  ********************************************
8 S# N) W) d8 \$ J  '******************************************** & n- \0 \% A3 y% C2 f/ x
  'begin销毁类
. o. Y8 G" ]. n" R% y- _  '********************************************
" e1 r* C, x/ p6 G0 P  {, s  Private Sub Class_Terminate()
$ t1 M0 k, A+ s* e7 N  sBASE_64_CHARACTERS="" end sub 9 N" D; L# o& t4 ^! R& B
  '******************************************** ) \7 P4 z: ]0 Z# n7 x3 l7 n
  'end销毁类
8 ^) X, ~  ~4 t" g  '********************************************
9 Z' @$ q3 X, v4 ]1 o# M8 v6 r# C1 J  '********************************************
$ J' J5 V3 j9 Y0 j& G* L; y( c3 i# P  'begin将Ansi编码的字符串进行Base64编码 ' Q) {: ~! V" C6 J+ P( I
  '******************************************** , z8 m3 ^2 L' C/ P  t: L, o/ o
  public function Encode(paramString) ' x: ?' V: R, V' Y
  tempString=""
& i/ f2 c" q+ U9 a( P  returnValue="" ' @3 M+ w5 l( r+ n* c( b- }
  lenString=len(paramString)
4 k/ T, C  A& q6 i9 C8 z  if lenString<1 then
3 k  A, \( i: Q2 _" W1 X6 V  Encode=returnValue
* M( {) x7 I$ l/ k* T) w( N  else 3 D6 W+ d' |% a0 @. F! f- p  d1 p
  mod3String=lenString mod 3
- C) U, n; ?9 Q) [  ~5 M& T5 l  '补足位数是为了便于计算 + d0 K' h$ b3 u" U
  if mod3String>0 then , T: h  W! n% V4 v1 \9 h5 K
  lenString=lenString+3-mod3String
& N3 f& d: a0 B- O4 C* |  lenString=lenString-3 8 M: z, _2 i! J( z& A
  end if

返回列表