Parece não haver muitos métodos de criptografia no ASP. Agora, com base nas informações do veterano, as funções de criptografia e descriptografia são classificadas no ASP.
rsa.asp
<%
REM implementa criptografia e descriptografia no método de criptografia de ASP: de acordo com a RSA
REM CONTATO: [email protected]
ClassClsrsa
PublicPrivateKey
PublicPublicKey
PublicModulus
PublicFunctionCrypt (PLNGMESSAGE, PLNGKEY)
OnErrorReSumenext
Dimllngmod
DimllnGresult
Dimllngindex
Ifplngkeymod2 = 0then
llngresult = 1
Forllngindex = 1toplngKey/2
llngmod = (PlngMessage^2) Modmodulus
'ModmayerRororonKeyGenEneration
llngreSult = (llngmod*llngreSult) modmodulus
Iferrthenexitfunção
Próximo
Outro
llngreSult = PlngMessage
Forllngindex = 1toplngKey/2
llngmod = (PlngMessage^2) Modmodulus
OnErrorReSumenext
'ModmayerRororonKeyGenEneration
llngreSult = (llngmod*llngreSult) modmodulus
Iferrthenexitfunção
Próximo
Endif
Cripta = llngresult
Função final
PublicFunctionEncode (ByValpstrmessage)
Dimllngindex
Dimllngmaxindex
Dimlbytascii
Dimllngencrypted
llngmaxindex = len (pstrmessage)
Ifllngmaxindex = 0ThenexitFunction
Forllngindex = 1TollngmaxIndex
lbytascii = ASC (MID (Pstrmessage, llngindex, 1))
llngencrypted = cripta (lbytascii, publicKey)
Encode = Encode & NumberToHex (LlngEncrypted, 4)
Próximo
Função final
PublicFunctionDecode (ByValpstrmessage)
Dimlbytascii
Dimllngindex
Dimllngmaxindex
DimllngEncryptedData
Decode = ""
llngmaxindex = len (pstrmessage)
Forllngindex = 1TollngMaxIndexStep4