Il ne semble pas y avoir beaucoup de méthodes de cryptage dans ASP. Désormais, sur la base des informations du senior, les fonctions de chiffrement et de décryptage sont réglées en ASP.
rsa.asp
<%
REM met en œuvre le cryptage et le décryptage en ASP, méthode de cryptage: selon RSA
REM Contact: [email protected]
Classclsrsa
Publicprivatekey
Publicpublickey
Publicmodulus
PublicFunctionCrypt (PlngMessage, Plngkey)
Onerrorresumenext
Dimllngmod
Diminue
Dimllngindex
Ifplngkeymod2 = 0Then
llngreult = 1
Forllngindex = 1Toplngkey / 2
llngMod = (plngMessage ^ 2) modModulus
'Modmayerroronkeygeneration
llngreult = (llngmod * llngreult) modmodulus
Iferthenexitfunction
Suivant
Autre
llngreult = plngMessage
Forllngindex = 1Toplngkey / 2
llngMod = (plngMessage ^ 2) modModulus
Onerrorresumenext
'Modmayerroronkeygeneration
llngreult = (llngmod * llngreult) modmodulus
Iferthenexitfunction
Suivant
Endire
Crypte = llngreult
Finition de fin
PublicFonctionCcode (ByValPStrMessage)
Dimllngindex
Dimllngmaxindex
Dimlbytascii
Diminue
llngMaxIndex = len (pstrMessage)
IfllngMaxIndex = 0ThenexitFunction
Forllngindex = 1TollngMaxIndex
lbytascii = ASC (mid (pstrMessage, llngindex, 1))
llngencrypted = crypte (lbytascii, publickey)
Encode = Encode & NumberToHex (llngencrypted, 4)
Suivant
Finition de fin
PublicFunctionDcode (ByValPStrMessage)
Dimlbytascii
Dimllngindex
Dimllngmaxindex
Dimllngencrypteddata
Decode = ""
llngMaxIndex = len (pstrMessage)
Forllngindex = 1TollngMaxIndexstep4