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

拓海之舟

class Base64Class, f  p, w/ ]# T  H2 q/ G
　　rem Const
% n; b) Z; N8 ~7 I; {: U0 _　　dim sBASE_64_CHARACTERS'转化码
: y* |9 G3 h; {  }) ~2 I　　dim lenString '计算字符串的长度
& r: i( u$ J- l7 F% p　　dim iCount '计数器 # X9 J' T. `1 m! I: P% t
　　dim returnValue '返回值 9 b6 z2 v- T. N) s" X
　　dim tempChar'缓存字符
0 e3 N. Y3 C* Y" y6 }　　dim tempString'缓存字符串 : o. R% R0 T; c9 X
　　dim paramString '参数字符串
6 Z' ]1 ?# }) B: r; m4 }/ j　　dim temHex'缓存缓存十六进制 ; L0 j0 N" L  P) T
　　dim tempLow'缓存低位
- L$ s8 ]1 H  h2 o* m* Z　　dim tempHigh'缓存高位 + x* B4 ^/ C: E$ E" @, b% V
　　dim mod3String' : c8 P9 w2 O& h9 i) \9 m
　　dim mod4String'
; ^2 j/ ^- |, l5 o　　dim tempBinary'
/ a6 F% n+ ?# ]1 b　　dim tempByteOne'
3 F: i" p: n& I　　dim tempByteTwo' " u4 `2 v4 W. y
　　dim tempByteThree' % D, w6 ^6 M1 z
　　dim tempByteFour' 4 ]# i+ u! P! x( G8 R+ ^9 C5 Q$ P
　　dim tempSaveBitsOne'
/ }2 x$ h/ N: a& W$ H　　dim tempSaveBitsTwo'
, A) o8 K: Q  h　　'********************************************
; g& c; p2 G% R- k% o# G' d　　'begin初始化类
" J' D2 b8 _8 i& K( l  `　　'********************************************   n/ B& @( A, W; f& U! c6 {
　　private sub Class_Initialize() 0 V* D9 ?9 I3 Q* |
　　sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub # a0 W- k. w! u
　　'********************************************
$ I; Y$ y, J  R% z( M. r- s　　'end初始化类 '
7 F3 O  U7 D8 v  Y  t7 P; ?　　********************************************
/ ]; Y; G' A- K; Y　　'********************************************
# C! t/ R; M4 p7 K6 e- G3 n* P　　'begin销毁类
) J/ `6 A# S6 z: @: h, u5 i　　'******************************************** ; v7 f! |! r) {  F0 L1 U
　　Private Sub Class_Terminate() + U5 R- _, b  C3 M* N  n
　　sBASE_64_CHARACTERS="" end sub : M: Q) y* e$ I2 s
　　'******************************************** 9 q) \/ r# t- V. s; s2 [
　　'end销毁类
) x' i0 V4 v: ^9 N( V　　'********************************************; [8 o  Z/ u  E, ?; L
　　'******************************************** 2 Y3 `, I3 s) F: \9 ~9 N3 z
　　'begin将Ansi编码的字符串进行Base64编码 3 u; }( K5 S# v
　　'******************************************** & v  d+ M* r& a. |% A
　　public function Encode(paramString) $ \0 A- `- A! I( [( }
　　tempString="" ) [9 e5 j+ Y- P( a' `8 V0 V
　　returnValue="" 4 F& Z' h" x5 a3 F% Y& p9 f
　　lenString=len(paramString) # Q* _! c3 C' K( |5 B6 p1 d3 B. M
　　if lenString<1 then
) g5 ~! h# o( ]! B　　Encode=returnValue
; Z* c& v  ^5 b( \( x* a　　else ; h, F3 K( o4 `1 R" U* a) e
　　mod3String=lenString mod 3 1 p+ n* C+ u* {6 H" p
　　'补足位数是为了便于计算
6 m% ?# V  E! A' E0 I' i  Q% R　　if mod3String>0 then
7 V% O% H; K6 ~* W8 u8 e2 `/ q　　lenString=lenString+3-mod3String
! O( ~- Z9 c( @  t) D　　lenString=lenString-3 # t* T8 a% p9 ~7 N0 Z# m0 d$ |$ `6 X
　　end if