标题:
[原创文章]
ASP编写的加密和解密类
[打印本页]
作者:
拓海之舟
时间:
2010-11-6 17:24
标题:
ASP编写的加密和解密类
class Base64Class
. n0 [# @( o2 \* Y. ~! l( ^' x' F
rem Const
* m# K2 \% k$ d& @( j ~3 x
dim sBASE_64_CHARACTERS'转化码
% J8 h: |6 h; w S! N. l
dim lenString '计算字符串的长度
4 H3 w" H! ^( i
dim iCount '计数器
5 F" j- [. }4 a# s3 w5 m" Y4 M
dim returnValue '返回值
) q) u% d9 m; A. I, i
dim tempChar'缓存字符
) q4 M) B# ^0 p9 O
dim tempString'缓存字符串
& h' w& \) t4 `, E& R/ v
dim paramString '参数字符串
% m+ s& l5 ?' {3 q+ N4 z- \
dim temHex'缓存缓存十六进制
( F e# p$ \* Q* x$ U/ I
dim tempLow'缓存低位
) B# z3 z' ~! u
dim tempHigh'缓存高位
* u- V, Y! t+ C) O( g8 r; c, }
dim mod3String'
4 p* T% K( x9 d/ f% E
dim mod4String'
$ G: Q* ]: e7 j$ E) o6 Q
dim tempBinary'
& C/ \/ q1 Q& ], t2 c7 F
dim tempByteOne'
1 x" E) l4 W& C* p
dim tempByteTwo'
- y; O+ k. ?. W7 C. T
dim tempByteThree'
0 {0 _5 l- a& I5 h/ _
dim tempByteFour'
/ o7 M/ t3 }1 q' Q
dim tempSaveBitsOne'
( l6 \3 c* R k
dim tempSaveBitsTwo'
# V! P7 z# M. t6 b1 W+ L. X
'********************************************
$ K7 g7 i/ A' c" o
'begin初始化类
3 F8 @( c; y7 T" G5 V; [! b, X
'********************************************
# ?& v$ j6 X- E2 r
private sub Class_Initialize()
R% M# s. [" ], s7 Y" \$ m
sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub
+ x( K. n& S7 o/ N" }5 Y
'********************************************
" U# z5 \# K# X. G3 |, Y
'end初始化类 '
( l$ C4 ^# @+ v* x
********************************************
5 a% ]/ r+ x/ `5 n! E/ `
'********************************************
- t; p; \4 b6 w J( h* n; g3 m
'begin销毁类
6 J$ {# f6 m, E& C5 a) k
'********************************************
/ u' G6 N6 k+ w3 C
Private Sub Class_Terminate()
I. V. G, M" ~5 Z# E, o
sBASE_64_CHARACTERS="" end sub
; e& X2 q. U5 o
'********************************************
9 G6 z, Z; X& f/ S' l
'end销毁类
! a' F5 Z" }. v7 P( K, g. X; t# k# x
'********************************************
% q0 l: \; b9 D1 {9 m
'********************************************
( a/ B. k% H# c4 Y+ U8 k
'begin将Ansi编码的字符串进行Base64编码
( E" d; w1 N3 X* s0 e/ b1 a+ d# c. _
'********************************************
& U& y. e. F! q- u2 Z* `. O
public function Encode(paramString)
# ]2 F& w4 i ]( F& ~4 s- L8 i
tempString=""
4 x4 u+ A! u' e4 [# f, ~
returnValue=""
# V' [% z1 M" u1 |0 |5 c( I4 Q
lenString=len(paramString)
/ i* ?4 S. @: t1 q5 G
if lenString<1 then
3 |" [6 k) ]) f- Q8 Q
Encode=returnValue
7 ^7 Q. @8 H, y5 w* {
else
- a9 {6 I$ s5 v
mod3String=lenString mod 3
+ C M: [$ G& T" l; \
'补足位数是为了便于计算
) t& |" ~1 G% p; c$ ?) l4 c, T( ~7 w
if mod3String>0 then
6 s1 c, ]' Q% [4 J( U% ~
lenString=lenString+3-mod3String
% e- b4 Q( K! p+ o: ^' t
lenString=lenString-3
) ~" [/ A6 b6 f# _0 m
end if
欢迎光临 【3.A.S.T】网络安全爱好者 (http://3ast.com./)
Powered by Discuz! 7.2