asp编写的加密和解密类
来源: 编辑:duliying 更新日期:2008-7-30 15:34:44 浏览:136 次
Private Sub Class_Terminate()
sBASE_64_CHARACTERS="" end sub
‘********************************************
‘end销毁类
‘********************************************
‘********************************************
‘begin将Ansi编码的字符串进行Base64编码
‘********************************************
public function Encode(paramString)
tempString=""
returnValue=""
lenString=len(paramString)
if lenString<1 then
Encode=returnValue
else
mod3String=lenString mod 3
‘补足位数是为了便于计算
if mod3String>0 then
lenString=lenString+3-mod3String
lenString=lenString-3
end if
第1页/总1页
第一页 上一页
下一页 最后一页
【发表评论】