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

拓海之舟

class Base64Class- T0 A" Z  z3 X. _
　　rem Const ! ~- Q4 o7 e. `: ?
　　dim sBASE_64_CHARACTERS'转化码
/ }+ y: C0 N7 d　　dim lenString '计算字符串的长度
8 ^0 p( i, v3 n; Q　　dim iCount '计数器
, j) m1 I/ U! S' T3 {; f( M9 Q　　dim returnValue '返回值 " m0 m! t7 {) W0 }. E1 ~+ g0 |
　　dim tempChar'缓存字符
6 K* s1 m$ R5 Y　　dim tempString'缓存字符串
: V6 _& p! ]1 p( ~) j' ^. j/ F. e　　dim paramString '参数字符串
$ D0 X3 y3 \9 Y& A! g# V　　dim temHex'缓存缓存十六进制
, ~2 O) M( z7 d3 Z　　dim tempLow'缓存低位 ; Q3 j3 {+ L2 T0 W& z7 s1 L
　　dim tempHigh'缓存高位 # G$ E# H  r/ R6 W: d! [, l( E
　　dim mod3String' 7 i, ~! L# t$ [% k6 Y
　　dim mod4String'
5 ]3 O4 o/ e4 k　　dim tempBinary'   L, c: X0 q% b2 P
　　dim tempByteOne'
9 N2 g# G" @: n% y' W) l0 F　　dim tempByteTwo' ) d) D$ t9 r* Y3 @
　　dim tempByteThree' ( o( Z8 r& D+ F
　　dim tempByteFour'
; {; s! X, ~- F$ j/ w　　dim tempSaveBitsOne'
5 U% ?# }$ t  k0 b3 e/ a　　dim tempSaveBitsTwo'
$ o% G# F: Y) Y) v' ?1 l  O　　'********************************************
6 @% B- w: `% @　　'begin初始化类
4 Z6 f8 f( }5 P. Q4 y6 _9 M　　'********************************************
. `1 B% N  K5 ]% r1 n/ W　　private sub Class_Initialize() ( c' f3 E( g0 X
　　sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub % y- v- a' F: `% O8 t
　　'********************************************
. V  ~( E) x4 Z" D* K/ n( _# J% D　　'end初始化类 '' o+ G5 F; L/ @# o+ ?
　　********************************************
( m0 p  q0 ?8 w* N+ e# E& V5 A　　'******************************************** # D' ?5 l) D+ n4 G- ]/ X! x6 s
　　'begin销毁类
0 B9 u% R9 r, L　　'******************************************** 0 x  ~9 \! q0 H3 K- p7 q
　　Private Sub Class_Terminate()
! i7 j% h! q. Y, W; r　　sBASE_64_CHARACTERS="" end sub
/ R9 t  t, U! c! o" q3 U/ s0 U9 R　　'********************************************
' X4 p# _2 [, U3 ^7 R5 [4 |/ b( m　　'end销毁类
$ D" A, B0 Q8 T2 r9 `+ ], J+ \　　'********************************************
& L" h$ c/ J1 e% o- p9 b2 Q0 r4 n　　'******************************************** 4 T7 g+ {1 x7 n* X8 l+ y# F, C
　　'begin将Ansi编码的字符串进行Base64编码 3 I' }7 t3 j# ?- _  l; n
　　'********************************************
; a) v, \4 X; p& p! G" {; {　　public function Encode(paramString) # U; i+ }# `& N' @3 ^
　　tempString=""
* C8 i8 v# f9 Q' J6 ]　　returnValue="" " Z, @0 W5 y  V; J
　　lenString=len(paramString)
: n* ?5 E9 L, x6 @　　if lenString<1 then
6 ~% z4 q4 T6 w, G; c( a2 n9 _　　Encode=returnValue
3 f! r* n! o/ a　　else
2 H2 @8 f& l' P　　mod3String=lenString mod 3
2 D: g# M9 x1 a$ ?　　'补足位数是为了便于计算
: Y+ z0 |# L# {/ R2 U" {6 n　　if mod3String>0 then
8 o# R- k' t( v) [* Q& e　　lenString=lenString+3-mod3String ) E1 G4 V' D1 Z# V9 N8 z  U
　　lenString=lenString-3
1 z7 i$ u4 L( w( W  n, R　　end if