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

拓海之舟

class Base64Class. ~6 |( }/ K: ^& r% E
　　rem Const
6 Z' \  j1 v3 F+ G! K  W% ~　　dim sBASE_64_CHARACTERS'转化码 . q+ O! Q* k. h) }. C: M
　　dim lenString '计算字符串的长度
2 ~; C2 Q$ u$ r& f　　dim iCount '计数器 . N, ~) C7 S4 y; p. V$ J
　　dim returnValue '返回值
' b+ S  ^& E0 G" |　　dim tempChar'缓存字符 8 r2 q# |4 ~5 ]* [( Y/ ~) B! X" _3 X
　　dim tempString'缓存字符串 + I6 n$ q# o" |" {& P( V
　　dim paramString '参数字符串
$ Y( l& Y+ l5 \% g0 A$ \. Y; x　　dim temHex'缓存缓存十六进制 4 r$ D3 O& m& Y6 |
　　dim tempLow'缓存低位
. V1 ?* N/ Y6 f' c+ @　　dim tempHigh'缓存高位
% g7 g; ]8 y  r　　dim mod3String' 6 E) b, x1 f) }! m
　　dim mod4String' / `7 {% f4 d4 E  c
　　dim tempBinary' , g1 N. Z6 i( C: T
　　dim tempByteOne'
+ C# B" g+ V) [* O$ L/ [　　dim tempByteTwo' 2 H7 a" K- C: N" d$ Q
　　dim tempByteThree'
! L( r$ J% R2 k9 H8 Y2 Y3 X　　dim tempByteFour'
, Q7 P$ r% |3 \　　dim tempSaveBitsOne'
1 l" ^7 W5 {. ^1 s* q1 s　　dim tempSaveBitsTwo'
4 D  r* w8 J; X$ S* b* U1 X3 c　　'********************************************' c7 k" Z2 n: J4 p9 B1 d3 ?
　　'begin初始化类 2 ~  L# a$ R( c# R  d
　　'******************************************** , Q; k7 c) t. F: U( o7 f5 W
　　private sub Class_Initialize() + z3 y- d  b& _  \2 H
　　sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub
2 C, J# H# h* g5 i+ v  V7 K' j' Q　　'******************************************** + ^( G& C/ {% n4 U
　　'end初始化类 '; z) r# k; {& P( T! v" w+ [3 {
　　******************************************** ( x  G7 Q% Y3 a. v9 V5 W
　　'******************************************** 3 V' x" A# W" F+ F5 q( J' @
　　'begin销毁类 # _* p/ n' i9 c8 b* E( _! ?/ ]
　　'********************************************   P9 {  u/ O" G) M
　　Private Sub Class_Terminate()
  R7 j! D3 h" L7 H0 `. [　　sBASE_64_CHARACTERS="" end sub
0 }) K6 C6 n1 A( q3 `" p2 V! d　　'******************************************** & Y0 ]# c7 |. A4 O- e, b0 d' A
　　'end销毁类
' J: \9 U0 _  m& c$ R, Y　　'********************************************! }6 [3 `8 p3 ]4 M2 r( e% ]  f- l
　　'********************************************
3 o" k1 [; n* \' s& h　　'begin将Ansi编码的字符串进行Base64编码   {- c9 |# i, U
　　'********************************************
4 b# ]9 Q5 C8 ~: |' Q9 [3 G　　public function Encode(paramString)
4 t/ ~3 l! R6 Y; v　　tempString="" ! T8 I: J' O; U- w* i( G
　　returnValue=""
) ^! o2 Y% q1 X% Y& ]) s　　lenString=len(paramString)
/ G9 x# h9 |5 Q　　if lenString<1 then ' H7 v! X# ]8 i
　　Encode=returnValue 1 v; F' d/ h. b  J. P8 T
　　else
  L6 r" w1 Z" q" n  ?8 p　　mod3String=lenString mod 3 ; G1 {# F& Y: E' @: ]; \
　　'补足位数是为了便于计算 $ |4 c! q6 E5 k1 y' H
　　if mod3String>0 then
# J4 u5 l8 Y8 q6 ~5 _5 v1 C. \( b3 D* t　　lenString=lenString+3-mod3String
9 s2 ~4 z% R2 [) \* Z7 p& m, R& }　　lenString=lenString-3
" l! t* b8 h% }　　end if