en
　　Encode=returnValue
　　else
　　mod3String=lenString mod 3
　　'补足位数是为了便于计算
　　if mod3String>0 then
　　lenString=lenString+3-mod3String
　　lenString=lenString-3
　　end if

　　'*************************begin
　　for iCount=1 to lenString step 3
　　tempBinary = Mid(paramString, iCount, 3)
　　'response.write tempBinary
　　tempByteOne= Asc(Mid(tempBinary, 1, 1)): tempSaveBitsOne = tempByteOne And 3
　　tempByteTwo = Asc(Mid(tempBinary, 2, 1)): tempSaveBitsTwo = tempByteTwo And 15
　　tempChar = Asc(Mid(tempBinary, 3, 1))
　　tempByteOne = Mid(sBASE_64_CHARACTERS, ((tempByteOne And 252) \ 4) + 1, 1)
　　tempByteTwo = Mid(sBASE_64_CHARACTERS, (((tempByteTwo And 240) \ 16) Or (tempSaveBitsOne * 16) And &HFF) + 1, 1)
　　tempByteThree = Mid(sBASE_64_CHARACTERS, (((tempChar And 192) \ 64) Or (tempSaveBitsTwo * 4) And &HFF) + 1, 1)
　　tempByteFour = Mid(sBASE_64_CHARACTERS, (tempChar And 63) + 1, 1)
　　tempString = tempByteOne & tempByteTwo & tempByteThree & tempByteFour returnValue=returnValue & tempString next
　　'*************************end
　　'*************************begin处理最后剩余的几个字符
　　if mod3String>0 then
　　tempBinary = Mid(paramString, iCount, mod3String)
　　if mod3String=1 then
　　tempString = tempBinary & Chr(64) & Chr(64) & Chr(64) '用@号补足位数
　　else tempString = tempBinary & Chr(64) & Chr(64) '用@号补足位数
　　end if
　　returnValue=returnValue & tempString
　　end if
　　'*************************end处理最后剩余的几个字符
　　Encode=returnValue end if end function
　　'******************

上一页  [1] [2] [3] [4] 下一页

在google里搜索更多用asp写个简单的加密和解密的类

	Web www.51ec.org

上一篇信息学院： 精彩:ASP遗留的二十大积习

下一篇信息学院： JavaScript在ASP中实现掩码文本框