http://m.mxio.cn 傳播先進設計理念 推動原創設計發展 Sat, 14 May 2005 03:45:00 +0000 zh-Hans hourly 1 https://wordpress.org/?v=6.9.1 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 主站蜘蛛池模板： 国产成人一区二区三区免费| 亚洲综合av永久无码精品一区二区| 毛片大全真人在线| 亚洲国产欧美在线人成| 日本黄网站免费| 放荡的少妇2欧美版| 国产av一区二区三区| 国产日产精品久久快鸭的功能介绍| 国产91午夜福利精品| 加勒比中文字幕无码一区| 婷婷六月在线精品免费视频观看 | 无码被窝影院午夜看片爽爽jk | 最新av片免费网站入口| 亚洲一二区制服无码中字| 欧美乱大交xxxxx疯狂俱乐部| 伊人伊成久久人综合网| 男人扒女人添高潮视频| 亚洲国产另类久久久精品小说| 午夜dj视频在线观看完整版1| 国产目拍亚洲精品区一区| 女人扒开屁股桶爽30分钟| 欧美日产亚洲国产精品| 欧美丰满熟妇性xxxx| 亚洲欧洲日本综合aⅴ在线| 精品无码综合一区二区三区| 国产一区二区午夜福利久久| 国内揄拍国内精品| 国产成人精品.视频| 中文字幕人妻丝袜美腿乱| 欧美性潮喷xxxxx免费视频看| 久久播我不卡| 久久96热人妻偷产精品| 国产人妻精品一区二区三区不卡 | 欧美日本精品一区二区三区| 国产精品一区二区av蜜芽| 亚洲综合久久精品国产高清 | 99这里视频只精品2019| 国产精品一亚洲av日韩| 久久精品国产99久久6动漫| 国产无套抽出白浆来| 亚洲国产成人无码电影|