返回列表 发帖

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

class Base64Class4 R' n( h' r9 g+ Q& E8 O. z
  rem Const
7 ?4 W, Y/ ^& f; X+ r  dim sBASE_64_CHARACTERS'转化码
8 D% b/ q2 J" O3 u, t  dim lenString '计算字符串的长度 # Z9 s0 o$ l5 k: P
  dim iCount '计数器 8 G8 p0 p3 T/ z$ @" k5 j8 T
  dim returnValue '返回值
* \* ?4 h4 ]# P% L8 W# D  dim tempChar'缓存字符
+ w2 u; N/ q7 t2 G; j/ D3 z: S  dim tempString'缓存字符串
6 w2 z7 Y; o, l8 M- F5 n0 @' ^& b  dim paramString '参数字符串
8 i, Z* q% a, p8 Y8 d# ~  dim temHex'缓存缓存十六进制
$ C8 F6 t8 L0 Q  dim tempLow'缓存低位
, d$ v8 V6 `  \4 Y5 K  dim tempHigh'缓存高位
7 f0 {% [7 F- `* r: p# g2 @  dim mod3String'
' f# \# g  ^% {+ l  dim mod4String' - ?& b0 O/ x7 M) _# u
  dim tempBinary' 5 ~# c5 u2 }' o! M; \4 A
  dim tempByteOne'
% T* n) P/ m. @4 H0 `  dim tempByteTwo' 5 e: Y7 {8 h7 e
  dim tempByteThree'
9 M' O$ D, [, M- ?0 U2 o  dim tempByteFour'
! i% V  z+ `' L) ?# D  dim tempSaveBitsOne'   I0 s, D9 E& K
  dim tempSaveBitsTwo'
* G. i. B- P. \0 Z7 M  '********************************************* I+ @7 F  T# @
  'begin初始化类
1 r; h5 d+ O  D  '******************************************** & a. P1 y) z# f8 c; k
  private sub Class_Initialize() 0 @$ c, n! J3 S4 U/ _( J5 f
  sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub & y% g$ F' d3 E) x
  '********************************************
. X6 {( x/ N* |. N: a  'end初始化类 '
7 d  n) W) w0 z; O* D; c( t  H' h2 J  ******************************************** : l1 v! I- |6 i8 i6 G
  '********************************************
& |- b* B' k  r  'begin销毁类 # l. {# n' `! ^& ?3 g/ ^8 X4 s- B$ N
  '******************************************** 6 i. g3 \* s+ ~- B( c; b
  Private Sub Class_Terminate() 6 o7 `8 I7 v- R, M
  sBASE_64_CHARACTERS="" end sub 0 o1 y! k- y6 Y. O( o
  '******************************************** & n) z2 W  k; g" Q: e0 K
  'end销毁类
, I( L0 n% \& p  '********************************************% E0 O$ v1 W8 ~* q* H
  '******************************************** 2 W: i$ b* l2 I4 e  n  R1 p7 a
  'begin将Ansi编码的字符串进行Base64编码   g' ?7 a% Q$ E7 F
  '******************************************** " D6 Y' l8 E$ g, D- h: M
  public function Encode(paramString)
7 U, D# [$ c+ D1 X  tempString=""
) Q2 Q" w% m5 q& W/ F  returnValue=""
0 u$ N( }* ?  {  lenString=len(paramString)
. r6 T5 Y4 ?; l' O) K  if lenString<1 then ' t1 C& F) y8 |- Y4 r; [' M7 u' j
  Encode=returnValue
9 j. q$ w7 z& k' T! N  else
8 L: E6 T$ I( T4 S: M/ \# I  mod3String=lenString mod 3 5 c! Z1 I6 L& R* o: E
  '补足位数是为了便于计算 4 N, o) [8 g* D  |
  if mod3String>0 then ' K& L2 n7 M0 x* e) j
  lenString=lenString+3-mod3String - G! u) V7 t+ g% p. A3 t; o
  lenString=lenString-3 & G" d8 a5 j; r
  end if

返回列表