返回列表 发帖

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

class Base64Class; A( g. @* A  h' g* j: l. b
  rem Const
. e' W% N1 T. B3 Z/ H) E  dim sBASE_64_CHARACTERS'转化码
" P. ]3 S# ?& U/ B  dim lenString '计算字符串的长度
  p$ Q7 u, L5 ?. P  dim iCount '计数器
  M  \3 X" ^% r# A1 l! C$ l  dim returnValue '返回值
5 Q2 s$ L. J, u4 W6 ]& O  V, f$ @  dim tempChar'缓存字符
1 Q% [% j/ h6 w, o  dim tempString'缓存字符串 8 j( q' e$ M; d$ x( M( J! J) _
  dim paramString '参数字符串
5 I' D! _. v" v4 @- ^  dim temHex'缓存缓存十六进制
* `' S/ I( n' P3 L4 M  dim tempLow'缓存低位 / x) z% |$ J; W6 q3 ~
  dim tempHigh'缓存高位 ! n' ?& r& P, M2 K( V
  dim mod3String'
3 l" V( S. l9 F' b) z$ y. k$ @  dim mod4String' * s- e$ q1 w: n6 n! M
  dim tempBinary'
3 p& A* t$ X8 I- D7 H  dim tempByteOne' ) h# P7 @- O  |( n* q
  dim tempByteTwo'
/ i! ]4 H0 X9 W) T4 k) I  dim tempByteThree' * A6 k% y$ C& z$ e) ?; B: j& _
  dim tempByteFour'
. I- o" V9 `, [4 D, f  dim tempSaveBitsOne'
" z9 C" v0 q: l  \5 R' T) l: U  {  dim tempSaveBitsTwo'
5 k$ f& S$ l7 h3 @$ y( o, j  '********************************************+ C! `' ~' X  Y+ v* A
  'begin初始化类 & l; [2 u- U0 k
  '********************************************
! K2 }9 t, l0 V% m0 A  private sub Class_Initialize()
0 S7 M. V# C% i7 G" g) B  sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub . d% E% _8 j$ ]! e% Y
  '******************************************** & k7 d: `  z( r& w& P0 [6 v4 u" R
  'end初始化类 '% d6 ]9 Q. K  S
  ********************************************
4 W, J) f; X9 P7 o. X2 z! X9 z( t' ~+ _  '********************************************
, c' b6 _- q7 N5 w  'begin销毁类 ! X0 Y8 C) Y- X; |) n
  '********************************************
( q! B. t1 ?# z  A1 _8 B  Private Sub Class_Terminate()
. j+ a+ l9 N( N2 K) ^, f& m+ I: Q  sBASE_64_CHARACTERS="" end sub ) C* T0 N3 v' f
  '******************************************** " A( Y$ V1 `0 z
  'end销毁类 ( m- F8 S2 e; a+ {1 C: A
  '********************************************
5 r0 P6 `5 X4 ]# J1 e, P* C  '********************************************
# P7 k# X# R& c1 N  'begin将Ansi编码的字符串进行Base64编码 5 B9 G" S- D3 y2 o% I1 R
  '********************************************
" y9 k  f) M; N0 W  public function Encode(paramString) ( i* E) n% E6 ^0 K4 o: p- A9 H
  tempString=""
# P( h* f6 G, X  t  returnValue=""
: {% c. T- G; X  lenString=len(paramString)
0 [: s  f6 J6 [  if lenString<1 then
" l3 z$ S" ^4 W3 a  Encode=returnValue $ `$ X" X0 S- ]( X9 o
  else % r+ M0 h3 l+ r
  mod3String=lenString mod 3
- x# `0 _6 {2 |" l  '补足位数是为了便于计算
- J4 X4 {3 m3 D* I  if mod3String>0 then : j6 a, W. l5 W! e$ s
  lenString=lenString+3-mod3String
! R! z1 v# G* W: o. r& P- ~6 D  lenString=lenString-3 8 W- h" }' R# |
  end if

返回列表