标题:
[原创文章]
ASP编写的加密和解密类
[打印本页]
作者:
拓海之舟
时间:
2010-11-6 17:24
标题:
ASP编写的加密和解密类
class Base64Class
/ F1 F9 u! p. k$ G. q& s* o! C& R' l
rem Const
; d, g, o- F" J6 z h, Q
dim sBASE_64_CHARACTERS'转化码
5 a" g) U, }' h# j' o
dim lenString '计算字符串的长度
- y' V0 i0 J9 M5 y2 y9 U( B
dim iCount '计数器
% c& N( J; B( o& B& V2 N
dim returnValue '返回值
+ @/ B% s& Q/ s7 t8 U6 m9 B
dim tempChar'缓存字符
8 b/ \! o1 A T" r3 r$ v
dim tempString'缓存字符串
1 `. a9 {5 }3 {0 c& R9 ]. z
dim paramString '参数字符串
8 e. \$ L! q1 V# j" N# T; Q2 |
dim temHex'缓存缓存十六进制
9 o5 W' F5 h; [ y9 _% m" x% {5 u. r9 r
dim tempLow'缓存低位
. \! f( H ^& A9 L( X# W
dim tempHigh'缓存高位
6 B" j9 t* r% [0 _
dim mod3String'
# S5 s( I$ I( F, X
dim mod4String'
; Q& L/ b- B$ k9 L. U% f4 g
dim tempBinary'
( I7 Y2 d& M# _) w
dim tempByteOne'
/ T) ^1 q5 G8 g. O: J# B0 j
dim tempByteTwo'
0 Z& ?$ k! e4 I; y
dim tempByteThree'
5 n0 [; P! K4 F# G
dim tempByteFour'
5 s' u( p* Y$ y0 K% x$ k7 C
dim tempSaveBitsOne'
$ g7 l/ g& \! l9 a$ Q! ^5 Y7 ^7 v
dim tempSaveBitsTwo'
2 J5 e/ c* J: n% ^
'********************************************
5 d+ m4 G* y- f8 r, F5 p
'begin初始化类
4 y1 t$ M& A3 i( h
'********************************************
* F% f6 ?+ w! i% r) ^
private sub Class_Initialize()
2 k" o' d* `% n; V# I
sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub
: o6 l* }0 I6 B/ k- G1 Z; Y; R
'********************************************
+ s: U* m+ D9 s, L' \
'end初始化类 '
( Z9 ]( p2 { H2 m( u
********************************************
* q% X" a/ B$ c+ z" r
'********************************************
% n3 w( [ @! O( y% ?& Y# @& X
'begin销毁类
1 ?6 y4 n0 G- r" O8 S
'********************************************
5 R" o4 [; ~7 Y
Private Sub Class_Terminate()
: o& m" G4 P r$ W
sBASE_64_CHARACTERS="" end sub
1 X" a4 C! Z1 @; V5 A |
'********************************************
- c# O% S; [2 w+ n/ y
'end销毁类
6 _5 t Y! g9 N
'********************************************
* V: G1 @8 g0 r% [2 J
'********************************************
$ {7 m$ O/ ~4 t6 l+ g+ P. w! a
'begin将Ansi编码的字符串进行Base64编码
' T5 [# ~; m% D$ R7 A5 k
'********************************************
8 V. _. B* F) E8 X' ^
public function Encode(paramString)
8 {" o7 [9 H4 @' [! S1 N
tempString=""
; n: @' q. `# a2 o
returnValue=""
$ e0 s! L, _5 _+ h% h' R: G
lenString=len(paramString)
4 `, e) o) w1 H* D4 [( b, R
if lenString<1 then
! ?2 X |* W2 M; \
Encode=returnValue
* O/ @7 j, a$ \& [2 _0 _
else
% L: E0 K0 @+ R. D2 ?1 Y: ?8 ]
mod3String=lenString mod 3
$ p2 s4 [4 l% x. B- ^; H: Z n+ v
'补足位数是为了便于计算
. D/ h$ n- d; F% q
if mod3String>0 then
# C+ I% c' `, o4 v$ _) W/ Z6 k( M1 c
lenString=lenString+3-mod3String
1 _0 M' c1 s* w* ]+ ?- Z3 R
lenString=lenString-3
* m4 e/ Y- V) l I2 G6 _
end if
欢迎光临 【3.A.S.T】网络安全爱好者 (http://3ast.com/)
Powered by Discuz! 7.2
