ASP编写的加密和解密类(页 1) - 原创专区 - 【3.A.S.T】网络安全爱好者 -- 网络安全，势在必行

拓海之舟 发表于 2010-11-6 17:24

ASP编写的加密和解密类

class Base64Class
　　rem Const
　　dim sBASE_64_CHARACTERS'转化码 O7Q&[D.Z+G*W,[
　　dim lenString '计算字符串的长度 qYos d~
　　dim iCount '计数器 !C*f}7a7xgE
　　dim returnValue '返回值 2b JbI]}-V
　　dim tempChar'缓存字符 Aqu@0ZBKV
　　dim tempString'缓存字符串
　　dim paramString '参数字符串 \;?%~ ~-s%\
　　dim temHex'缓存缓存十六进制 "swfeS%g
　　dim tempLow'缓存低位
　　dim tempHigh'缓存高位
　　dim mod3String' 2Db*Y[So/qp
　　dim mod4String' %}"Qe-B1c)L
　　dim tempBinary'
　　dim tempByteOne' -QlRw'P!~e,v:?1y?
　　dim tempByteTwo' *\9[d@|/c/y_B
　　dim tempByteThree'
　　dim tempByteFour' 9@J*D$zp$c
　　dim tempSaveBitsOne'
　　dim tempSaveBitsTwo'
　　'********************************************I;H'K}%\&nIN2V(^V
　　'begin初始化类 ?tFwP p
　　'******************************************** 7r4F,Yg_nHI
　　private sub Class_Initialize() @|d/ZfKd k8W;?%Z
　　sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub 4O#juT gQZ
　　'******************************************** U(pr-~!be
　　'end初始化类 '
　　******************************************** E$I|s[;SF;P
　　'********************************************
　　'begin销毁类
　　'********************************************
　　Private Sub Class_Terminate()
　　sBASE_64_CHARACTERS="" end sub
　　'******************************************** .P}O HX5x7s g
　　'end销毁类
　　'********************************************-`*RH2j.zZ.`B a0a
　　'******************************************** 3I\ XU6P0X
　　'begin将Ansi编码的字符串进行Base64编码 O5rZJ4|'q
　　'******************************************** 6D(rG\9\m5L(eS
　　public function Encode(paramString) ew9Qq8C)h4a
　　tempString=""
　　returnValue="" \ s9t-o4E9[$v(qY~
　　lenString=len(paramString)
　　if lenString<1 then
　　Encode=returnValue
　　else ,O |CTDZl
　　mod3String=lenString mod 3
　　'补足位数是为了便于计算 `1C'mOUxH
　　if mod3String>0 then _.\H7k*pe5}
　　lenString=lenString+3-mod3String
　　lenString=lenString-3
　　end if

页: [1]

【3.A.S.T】网络安全爱好者's Archiver

ASP编写的加密和解密类