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

拓海之舟

class Base64Class4 X, Q- O. O5 {
　　rem Const . d; M4 K+ h2 @: V" M
　　dim sBASE_64_CHARACTERS'转化码 6 L1 q+ o4 S. R  S
　　dim lenString '计算字符串的长度
4 `' I& V3 p* @; R: Q' C7 a　　dim iCount '计数器
: y) x! ~- V; w　　dim returnValue '返回值 / ]  E7 [2 Q9 F1 \* b
　　dim tempChar'缓存字符
. ~  g5 C( c2 J/ l! ?4 R( k2 J　　dim tempString'缓存字符串 " q, D. Z& Z# i* X
　　dim paramString '参数字符串 ' b: U5 y: |( d/ S# L/ s
　　dim temHex'缓存缓存十六进制
6 P& D! X+ |. y* n( l  e- o* \　　dim tempLow'缓存低位 6 r9 s0 G' Q& O. W+ U/ k: M* d
　　dim tempHigh'缓存高位 / J; _, P5 G* O: ]$ Y2 A
　　dim mod3String' 0 K  B( w5 r- J+ \$ U
　　dim mod4String'
" L" l% q2 c; S; o+ N' y6 t$ x+ o　　dim tempBinary' " X  ]5 ~0 L3 W, Y/ n3 C
　　dim tempByteOne'
) s0 B2 X! M( h0 y: w  i　　dim tempByteTwo' 1 `* D  k; p+ P" n! s* W0 L' Q
　　dim tempByteThree' " K+ O9 A  u" v& a
　　dim tempByteFour'
4 W! G6 F4 D! B6 B' E5 m　　dim tempSaveBitsOne'
" ~; _; D3 s  H, a8 _# H　　dim tempSaveBitsTwo'
$ }' x. F- ~/ m　　'********************************************/ @7 i9 ~% A& F& d2 b: i3 W
　　'begin初始化类 7 V$ Z% E/ W3 z! V5 h6 R
　　'******************************************** , R/ P: Q3 R4 M9 N9 a# l  C
　　private sub Class_Initialize()
- ^2 x# K7 r7 O! q# n　　sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub
) ~$ f' K3 |6 M( a+ i　　'******************************************** 4 n- R. n' ^) D0 I! f
　　'end初始化类 '* N% Q! N* R! j; V9 m7 c* F
　　******************************************** ! Z: K" t/ u/ w2 v# I: X
　　'********************************************
! S8 ?6 j) X3 @　　'begin销毁类
5 A4 z( {: {# [: F　　'********************************************
: f1 B6 t$ X3 ~/ D( E2 q# |2 P+ _7 t1 O　　Private Sub Class_Terminate() # i8 s9 I7 T$ h$ G8 Z6 Y7 t4 F% Y. c
　　sBASE_64_CHARACTERS="" end sub
( A/ F. d. n( s　　'******************************************** $ }% |0 L! l, Y. m
　　'end销毁类
" X+ y! a2 P; J) J, N5 k* r　　'********************************************
8 k0 D/ M* R5 C　　'******************************************** % ?/ y1 j$ `; p9 d# H# g
　　'begin将Ansi编码的字符串进行Base64编码
/ F( l% Y* h1 q1 n( _　　'******************************************** ; d# D  l  t7 C$ B2 n
　　public function Encode(paramString)
( u+ E$ N6 S( W# O. x) S　　tempString="" : w2 V% I* @  J  q6 L
　　returnValue="" $ L$ Y1 T6 Q8 v4 I+ [
　　lenString=len(paramString) 8 y8 [8 D+ O! i& L% Z3 q9 p: d
　　if lenString<1 then
4 [! i1 Y* K0 T1 G2 y6 m8 }) f　　Encode=returnValue
1 m4 X* e7 X# {& r* S2 n　　else & J3 _$ U+ J+ q9 r
　　mod3String=lenString mod 3
( m; l% v3 _, f: a6 q/ M/ E　　'补足位数是为了便于计算
: |1 O! u! @9 W4 s　　if mod3String>0 then
2 U+ q% W0 i+ X" f  d! X' P& X　　lenString=lenString+3-mod3String * A0 V' l! m! P+ W2 H1 T1 S
　　lenString=lenString-3
6 e% D/ c) C5 _　　end if