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

拓海之舟

class Base64Class
2 o5 v* v) x( E　　rem Const / }, e' a4 I$ i/ E4 Z& ~. C7 @  Y. q
　　dim sBASE_64_CHARACTERS'转化码
0 F( }# c# f" S- k/ M3 u! v* {　　dim lenString '计算字符串的长度
( j/ c; K+ D# N$ z  T, U　　dim iCount '计数器   n5 e# v1 r/ a
　　dim returnValue '返回值
: g4 j5 _, d4 P" H$ |　　dim tempChar'缓存字符 : ^- c+ b: s/ c% |5 M6 d3 T
　　dim tempString'缓存字符串 + B% F' Q$ g  u- j/ i2 F( j
　　dim paramString '参数字符串 : n6 L: Q* r3 g! P
　　dim temHex'缓存缓存十六进制
+ }1 K, V( \! Q　　dim tempLow'缓存低位
# W* F% ?1 }& T　　dim tempHigh'缓存高位
9 @" O6 t: T% o. V8 M2 m　　dim mod3String' # {8 n, U- {) S6 e/ b" G
　　dim mod4String' ! c% r7 Y; ^5 ], b
　　dim tempBinary'
+ z8 B+ B8 \; ?' Z2 `　　dim tempByteOne'
6 J! S; Y% m+ m) P  {$ N$ m0 M! x　　dim tempByteTwo'
0 t6 k1 x1 Z* j% n" _, v　　dim tempByteThree' 7 l' }# c: P+ x& l; t
　　dim tempByteFour' ) }. a+ G) f* q. u0 ?
　　dim tempSaveBitsOne'
* Q9 k8 a3 @( _　　dim tempSaveBitsTwo'
, }9 V1 Q  s' m: [4 P2 U　　'********************************************
5 x: j) {3 H7 y' F2 p　　'begin初始化类 9 I4 y. t) C) \8 b& {% @7 g, m
　　'******************************************** 8 L1 M" _" [" |; G( d& ~
　　private sub Class_Initialize() / Q: D6 M# z  j, Z5 H4 Q
　　sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub   D( X* n$ n+ x* B% V1 n$ \/ {
　　'********************************************   N6 f& g5 w0 H: X! S# P0 r9 K9 ~8 A
　　'end初始化类 '
- _# C* k% ~9 F7 Y+ A* }3 f　　********************************************
# c5 n, `! ^) p( f: ?　　'********************************************
( [& }* ?0 ]/ \" |+ U, \　　'begin销毁类 " L3 o5 |/ E7 H  L: d8 q
　　'********************************************
5 O5 }, j+ [- m　　Private Sub Class_Terminate() * y! h( G. S0 Y+ H+ m
　　sBASE_64_CHARACTERS="" end sub 0 t# e# ?6 O% c4 u" n
　　'******************************************** $ J4 H, ~0 \  `9 I
　　'end销毁类
7 \4 [7 z, k* u& y' H　　'********************************************
, ~% W) T, ^6 e　　'********************************************
$ V8 H7 V/ }( B& s% I) @5 d; l# J　　'begin将Ansi编码的字符串进行Base64编码 & n0 x" F. p5 Q+ T) p$ |4 K
　　'********************************************
7 t) {1 _4 ]( X　　public function Encode(paramString) 5 h4 W" r; ~; f. B/ m, i. B7 j0 Y: o
　　tempString="" " P" T" \& w0 R* Z' B6 N; ^' f
　　returnValue="" 2 E9 F; G7 k6 q# r5 G
　　lenString=len(paramString) 4 M  i" t0 D% t3 F) a6 w7 v
　　if lenString<1 then # m& v. K+ p/ P; E
　　Encode=returnValue 6 s5 X# \0 T) B+ K4 u& J, m2 R" f
　　else ) W/ \. w" ~) k2 m0 t, T
　　mod3String=lenString mod 3 0 m) E. j+ r% V7 p' M
　　'补足位数是为了便于计算 + I% E& Y" E% i' @; \* H
　　if mod3String>0 then
2 x+ \+ _: x( Y5 ]' ~　　lenString=lenString+3-mod3String * C0 U- n& o4 m3 M6 [2 I! ?
　　lenString=lenString-3   ^6 d7 ]7 E( i# Y% a0 U
　　end if