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

拓海之舟

class Base64Class( m8 H# X) q! A. W" b
　　rem Const
6 W& `+ N$ G! u+ d　　dim sBASE_64_CHARACTERS'转化码 $ I: n8 M( a) u2 w" D
　　dim lenString '计算字符串的长度 # A$ @* D  p. _% B5 g
　　dim iCount '计数器
. A4 _. i8 I0 j9 |# d　　dim returnValue '返回值 5 f0 Z, j& ]* ^6 Q* v2 S
　　dim tempChar'缓存字符 1 U' j8 w& }3 W9 L& b# I% ~
　　dim tempString'缓存字符串
, |% ?# m; W' F4 }　　dim paramString '参数字符串 : [0 r  L0 M& `+ l, a  s4 K2 S
　　dim temHex'缓存缓存十六进制
, G. z% ^- C2 t+ _" u+ V　　dim tempLow'缓存低位 7 H( ]7 o1 Y) {! V4 _5 |
　　dim tempHigh'缓存高位
( x- L1 v" R1 G5 _5 o/ |- [　　dim mod3String' ; G* |4 G+ K4 e5 p) m" Z
　　dim mod4String' 7 B/ ~2 a, x: L: w3 _( K
　　dim tempBinary' 2 D* R1 d, h& _* i6 g- T
　　dim tempByteOne'   |1 I: p+ u- c
　　dim tempByteTwo'
" w) o1 X& T6 m2 C& z* H4 W$ q　　dim tempByteThree' ' C7 R  e$ c- i" I" b
　　dim tempByteFour'
0 o. ^& g4 P3 C1 y　　dim tempSaveBitsOne'
, _  B9 f  W% }# i8 S( l- c　　dim tempSaveBitsTwo'
( G* a  v; `# n6 ]  o, h　　'********************************************
) n2 c* o, _9 P- J+ Y1 b8 K' s6 \　　'begin初始化类 . ]$ K, p/ K$ @3 E6 x- x5 D
　　'******************************************** 6 Z' o0 ?" B5 A/ Y- P' J
　　private sub Class_Initialize() 9 _- G# u: L7 v* @3 X. ~
　　sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub
+ {7 k) T( R! g0 M( ~; D- k　　'******************************************** 1 ]3 U9 f; Q, R2 Q( Z+ R
　　'end初始化类 '
/ k# ]& M6 P. r$ F6 F. D　　********************************************
( Q* s9 D' A7 S7 p% [8 b　　'********************************************
/ c" x3 s5 X0 R5 c2 x) u3 b: a4 a　　'begin销毁类 1 p  m. I3 _: i" g4 F! X  Z
　　'********************************************
  N0 v8 \: {$ z8 I. A) }, c　　Private Sub Class_Terminate() " O- E& M( S! m: ]* l( ^* u" z
　　sBASE_64_CHARACTERS="" end sub
1 N  O3 |" z7 r6 O5 I* {　　'********************************************
$ e7 I( `7 S" t* X2 O　　'end销毁类 5 H6 A& C( o4 n1 V
　　'********************************************
2 |, ^2 W7 l2 m+ |3 y　　'********************************************
* `3 r: ~6 z% }　　'begin将Ansi编码的字符串进行Base64编码
% P& [4 @2 E. u" F　　'******************************************** # f( t3 G; e; d( U  k8 T) g3 X% a
　　public function Encode(paramString)
! d' i' L" J4 T　　tempString=""
' @+ r* ?. D2 {& u( @+ s3 a9 v9 ?　　returnValue=""
" I9 p( |5 M' `7 X1 i! u+ a; m　　lenString=len(paramString) ; ]; b3 K, d! R; g& [. t
　　if lenString<1 then . L# ?/ D' ~  f! G7 A# `, p
　　Encode=returnValue % c. q" l3 l3 r, z: S
　　else ; ?/ @  L5 W, `  T" ^4 s* G
　　mod3String=lenString mod 3
. S- I' T7 g1 R3 ^" p　　'补足位数是为了便于计算
+ O; f1 X" o" r% g- R. Z5 x　　if mod3String>0 then
1 u1 Q8 d3 I4 J, S　　lenString=lenString+3-mod3String 9 m4 |. P" G; P2 S, `
　　lenString=lenString-3 0 X0 {: `7 f) X4 c
　　end if