http://m.mxio.cn 傳播先進設計理念 推動原創設計發展 Mon, 23 Feb 2026 14:32:34 +0000 zh-Hans hourly 1 https://wordpress.org/?v=6.9.4 http://m.mxio.cn/1519.html http://m.mxio.cn/1519.html#respond Sat, 14 May 2005 03:45:00 +0000 在ASP中加密方法有對應的解密方法好象不多,現在根據前輩資料整理出在asp中加密與解密函數

rsa.asp
<%
rem 在ASP中實現加密與解密,加密方法:根據RSA
rem 聯系:hnsoso@sina.com
Class clsRSA

　　Public PrivateKey
　　Public PublicKey
　　Public Modulus
　　
　　
　　
　　Public Function Crypt(pLngMessage, pLngKey)
　　　　On Error Resume Next
　　　　Dim lLngMod
　　　　Dim lLngResult
　　　　Dim lLngIndex
　　　　If pLngKey Mod 2 = 0 Then
　　　　　　lLngResult = 1
　　　　　　For lLngIndex = 1 To pLngKey / 2
　　　　　　　　lLngMod = (pLngMessage ^ 2) Mod Modulus
　　　　　　　　’ Mod may error on key generation
　　　　　　　　lLngResult = (lLngMod * lLngResult) Mod Modulus
　　　　　　　　If Err Then Exit Function
　　　　　　Next
　　　　Else
　　　　　　lLngResult = pLngMessage
　　　　　　For lLngIndex = 1 To pLngKey / 2
　　　　　　　　lLngMod = (pLngMessage ^ 2) Mod Modulus
　　　　　　　　On Error Resume Next
　　　　　　　　’ Mod may error on key generation
　　　　　　　　lLngResult = (lLngMod * lLngResult) Mod Modulus
　　　　　　　　If Err Then Exit Function
　　　　　　Next
　　　　End If
　　　　Crypt = lLngResult
　　End Function



　　Public Function Encode(ByVal pStrMessage)
　　　　Dim lLngIndex
　　　　Dim lLngMaxIndex
　　　　Dim lBytAscii
　　　　Dim lLngEncrypted
　　　　lLngMaxIndex = Len(pStrMessage)
　　　　If lLngMaxIndex = 0 Then Exit Function
　　　　For lLngIndex = 1 To lLngMaxIndex
　　　　　　lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
　　　　　　lLngEncrypted = Crypt(lBytAscii, PublicKey)
　　　　　　Encode = Encode & NumberToHex(lLngEncrypted, 4)
　　　　Next
　　End Function
　　
　　Public Function Decode(ByVal pStrMessage)
　　　　Dim lBytAscii
　　　　Dim lLngIndex
　　　　Dim lLngMaxIndex
　　　　Dim lLngEncryptedData
　　　　Decode = “”
　　　　lLngMaxIndex = Len(pStrMessage)
　　　　For lLngIndex = 1 To lLngMaxIndex Step 4
　　　　　　lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
　　　　　　lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
　　　　　　Decode = Decode & Chr(lBytAscii)
　　　　Next
　　End Function
　　
　　Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
　　　　NumberToHex = Right(String(pLngLength, “0”) & Hex(pLngNumber), pLngLength)
　　End Function

　　Private Function HexToNumber(ByRef pStrHex)
　　　　HexToNumber = CLng(“&h” & pStrHex)
　　End Function

End Class
%>



test.asp
<!–#INCLUDE FILE=”RSA.asp”–>
<%
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA


　　LngKeyE = “32823”
　　LngKeyD = “20643”
　　LngKeyN = “29893”
　　StrMessage = Message
　　
　　Set ObjRSA = New clsRSA
　　
　
　　　　　　ObjRSA.PublicKey = LngKeyE
　　　　　　ObjRSA.Modulus = LngKeyN
　　　　　　Encryptstr = ObjRSA.Encode(StrMessage)
　　Set ObjRSA = Nothing
end function




function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA


　　LngKeyE = “32823”
　　LngKeyD = “20643”
　　LngKeyN = “29893”
　　StrMessage = Message
　　
　　Set ObjRSA = New clsRSA

　　　　　　ObjRSA.PrivateKey =LngKeyD
　　　　　　ObjRSA.Modulus=LngKeyN
　　　　　　decryptstr=ObjRSA.Decode(StrMessage)
　　Set ObjRSA = Nothing
end function



dim last,first
first=”sohu”
Response.Write “加密前為:”&first
last=Encryptstr(first)
Response.Write “加密后為”&last
Response.Write “解密后為” &decryptstr(last)

%>

]]> http://m.mxio.cn/1519.html/feed 0 主站蜘蛛池模板： 精精国产xxx在线观看| 欧美日韩欧美| 媚药侵犯调教放荡在线观看| 亚洲高潮喷水无码AV电影| awww在线天堂bd资源在线| 久久综合色老色| 影音先锋啪啪av资源网站| 亚洲国产av无码综合原创国产 | 欧美激情综合亚洲一二区| 无码中文字幕热热久久| 国产精品国产三级国产试看| 欧美黑人性暴力猛交喷水 | 99久久国产综合精品麻豆| 偷偷要色偷偷中文无码| 国产精选一区二区三区| 精品久久久久久无码人妻VR| 99久热re在线精品视频| 亚洲av永久无码精品水牛影视| 国内少妇人妻丰满av| 巨乳美乳一区二区三区| 亚洲日韩国产精品第一页一区 | 五月综合网亚洲乱妇久久| 日韩人妻无码精品系列| 欧美乱妇日本无乱码特黄大片| 日本一卡2卡3卡4卡免费乱码网站| 亚洲无av在线中文字幕| 把腿张开老子臊烂你多p视频| 日本免费一本一二区三区| 国产精品爽爽久久久久久竹菊| 99精品人妻少妇一区二区| 久久伊人精品青青草原vr| 久热这里有精彩视频免费| 国产伦精品一区二区三区免费迷| 激情文学小说区另类小说同性 | 国产又色又刺激高潮视频| 中文字幕av在线一二三区| 精品国产肉丝袜久久| 亚洲成人www| 福利一区二区在线播放| 波多野结衣50连登视频| 先锋中文字幕在线资源|