标题:
[原创文章]
ASP编写的加密和解密类
[打印本页]
作者:
拓海之舟
时间:
2010-11-6 17:24
标题:
ASP编写的加密和解密类
class Base64Class
! m: x+ G8 r) T4 V
rem Const
9 z5 N, S4 m" r( f! n0 }
dim sBASE_64_CHARACTERS'转化码
9 N5 a2 {3 [. @; v. W4 r3 B& h
dim lenString '计算字符串的长度
" U9 }# s/ y1 E7 ]. i8 [/ `5 b* c
dim iCount '计数器
) D1 |2 I" P6 `# s F0 L: d
dim returnValue '返回值
) e5 C2 L8 t1 d( W
dim tempChar'缓存字符
1 u+ Q- H3 R, L7 \
dim tempString'缓存字符串
7 q0 S' M2 n5 f9 |. K' {, a: D$ z
dim paramString '参数字符串
6 _* K3 B o% ~* R7 {5 L
dim temHex'缓存缓存十六进制
: T; _' Q+ X2 H" D8 t" `! O
dim tempLow'缓存低位
- S5 B/ a: G+ h% d5 }* d" Z7 [
dim tempHigh'缓存高位
' l, V" v1 t+ c8 U: C
dim mod3String'
, [( }7 X. F" ?: n; k
dim mod4String'
( q& e% K/ U n3 f' S
dim tempBinary'
$ ]. x8 F& q3 o5 Y3 M' I0 ^
dim tempByteOne'
4 v9 O9 ?- e9 ?# |) l, K
dim tempByteTwo'
; c0 Q' i: \6 O# W+ C( z
dim tempByteThree'
w% z. w$ O: ^9 Q" Y9 ~3 @2 }
dim tempByteFour'
3 M# e! e; S7 O$ J4 O
dim tempSaveBitsOne'
: R9 m4 Q2 \' X# L
dim tempSaveBitsTwo'
% M. G. b7 E' B, ^, B$ b
'********************************************
1 R( V5 f: `3 H
'begin初始化类
, s. c. N$ F5 a, C+ f# |1 ~- {+ g
'********************************************
2 s0 F- [7 v6 c: R
private sub Class_Initialize()
* h* d4 u6 V6 H8 E$ L8 ?
sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub
# L/ i+ i+ Q K" L
'********************************************
( G9 n9 z1 d# G% O
'end初始化类 '
4 Z* R0 {( X$ U6 t8 q) ~8 n
********************************************
5 E" P _) j% L. n# q
'********************************************
; g3 k* n+ ?# G" M2 r& C0 y9 W
'begin销毁类
! e# n; ~6 R" N7 L5 p. h
'********************************************
, F1 y( R- K. M N ]- Y- ?
Private Sub Class_Terminate()
* O5 y' g- @: m( L: b: E- ^* I
sBASE_64_CHARACTERS="" end sub
3 A# a5 y2 N o) V
'********************************************
- k. q4 v) J5 C7 L
'end销毁类
3 u! A8 M8 T/ F5 w8 y' o4 S
'********************************************
4 K' Z" {6 F: ~ i5 t/ J
'********************************************
* f0 w& C1 f$ k a! G
'begin将Ansi编码的字符串进行Base64编码
( ^+ n$ ]# V' v# Z6 ^! H" K6 {
'********************************************
9 S: e) B m* I0 e
public function Encode(paramString)
# q& ]$ {0 ~# H1 y; Q
tempString=""
4 X; e/ e6 A: K( v# E
returnValue=""
7 F1 ^" O8 C# V1 B& p
lenString=len(paramString)
0 o$ m! c J# s5 Z( H
if lenString<1 then
- {! Q( C# d; }6 R0 R
Encode=returnValue
- q7 G+ `: ~, G
else
$ R8 u; F9 {, z: l2 ~: k
mod3String=lenString mod 3
$ i' `7 d! D9 l2 C' u
'补足位数是为了便于计算
5 z; y4 |6 F( g9 T, L7 w
if mod3String>0 then
( J; S, e# \+ S6 e M2 @
lenString=lenString+3-mod3String
5 `/ c4 L: h( y8 t
lenString=lenString-3
( f0 [' }) r. c
end if
欢迎光临 【3.A.S.T】网络安全爱好者 (http://3ast.com./)
Powered by Discuz! 7.2
