セグメントはaspで暗号化され、復号に対応する関数です。


ASPでは暗号化方法に対応する復号方法が少ないようですが、今は先輩の資料に基づいてaspで暗号化して解読関数のrsa.asp<%rem>を整理します。 ASPで暗号化と復号を実現します。暗号化方法:RSA remによると。 連絡先:[email protected]クラス clsRSA Public Private Key Public PublicKey Public Modulus  Public Function Crypt(pLngMessage) pLngKey On エロエロ Resume Next Dim lLngMod Dim lLngResult Dim lLngIndex If pLngKey Mod 2 = 0 The n lLngResoult = 1 For lLngIndex = 1 To pLngKey / 2 lLngMod = (pLngMessage ^ 2) Mod Modulus。 Mod may error オン key generation lLngResoult = (lLngMod * lLngResult) Mod Modulus  If。 Err The n Exit Function Next Else lLngResoult = pLngMessage For lLngIndex = 1 To pLngKey / 2 lLngMod = (pLngMessage ^ 2) Mod Modulus On エロエロ Resume 次へ。 Mod may error オン key generation lLngResoult = (lLngMod * lLngResult) Mod Modulus If Err The n Exit Function Next End If Crypt = lLngResult End Function Public Function Enccode(ByVal) pStrMessage Dim lLngIndex Dim lLngMaxIndex Dim lBytAcii Dim lLngEcryped lLngMaxIndex = Len(pStrMessage)If lLngMaxIndex = 0 The n Exit Function For lLngIndex = 1 To lLngMaxIndex lBytAcii = Asc(Mid) lLngIndex、 1)lLngEngcryped = Crypt(lBytAcii) PublicKey Encode = エニックス & Number ToHex(lLngEcryped) 4)Next End Function Public Function Decode(ByVal) pStrMessage Dim lBytAcii Dim lLngIndex Dim lLngMaxIndex Dim lLngEcrypedData Decode = "" lLngMaxIndex = Len For lLngIndex = 1 To lLngMaxIndex Step 4 lLngEcrypedData = HexToNumber(Mid(pStrMessage) lLngIndex、 4)lBytAcii = Crypt(lLngEncrypttedData) Private Key)Decode = デコード & Chr(lBytAcii)Next End Function Private Function Number ToHex(ByRef) pLngNumber、 ByRef pLngLength)Number ToHex = Right(String) "0") & Hex(pLngNumber)は、 pLngLength End Function Private Function HexToNumber(ByRef) pStrHex)HexToNumber = CLng("&h" & pStrHex End Function End クラス%INCLUDE FILE=「RSA.asp」<%function Ecryptstr(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 Ecryptstr = ObjRSA.Enco 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.Private Key =LngKeyD ObjRSA.Modulus=LngKeyN decryptstr=ObjRSA.Decode Set ObjRSA = Nothing end function dim last,first first=「sohu」Resonse.Write "暗号化前は「&first last=Ecryptstr(first)Resonse.Write」です。 "暗号化後は「&last Resonse.Write」です。 "復号後は” &decryptstr(last)>