Implementando a criptografia e descriptografia da RSA através da classe VBS no ASP, recomenda -se entrar na essência
Este artigo consiste em dois documentos
arquivo de demonstração test.asp
clsrsa.asp implementa o arquivo VBS de criptografia e descriptografia RSA
Aqui está o código:
1.Test.asp
A cópia do código é a seguinte:
<%
Título do artigo REM: Implementando a criptografia e descriptografia da RSA através da classe VBS em ASP
Coleção e classificação REM: Yanek
Contato REM: [email protected]
%>
<%OptionExplicit%>
<!-#incluirfile = "clsrsa.asp"->
<%
DIMLNGKEYE
DIMLNGKEYD
DIMLNGKEYN
Dimstrmessage
DIMOBJRSA
IfnotRequest.form = "" então
Lngkeye = request.form ("keye")
LngKeyd = request.form ("keyd")
Lngkeyn = request.form ("keyn")
StrMessage = request.form ("mensagem")
Setobjrsa = newclsrsa
SelectCaseReQuest.Form ("Ação")
Caso "GereateKeys"
Callobjrsa.genkey ()
Lngkeye = objrsa.publickey
LngKeyd = objrsa.privateKey
Lngkeyn = objrsa.modulus
Caso "criptografa"
Objrsa.publickey = lngkeye
Objrsa.modulus = lngkeyn
StrMessage = objrsa.encode (strmessage)
Caso "descriptografar"
Objrsa.privateKey = lngkeyd
Objrsa.modulus = lngkeyn
StrMessage = objrsa.Decode (strmessage)
EndSelect
Setobjrsa = nada
Endif
%>
<html>
<head>
<Title> rsacipherDemonstration </ititle>