Implementación de cifrado y descifrado RSA a través de la clase VBS en ASP, se recomienda ingresar a la esencia
Este artículo consta de dos documentos
archivo de demostración de prueba test.asp
Clsrsa.asp implementa el archivo VBS de cifrado y descifrado RSA
Aquí está el código:
1.test.asp
La copia del código es la siguiente:
<%
Título del artículo REM: Implementación de cifrado RSA y descifrado a través de la clase VBS en ASP
Colección y clasificación REM: Yanek
Contacto REM: [email protected]
%>
<%OpcionExplicit%>
<!-#includeFile = "clsrsa.asp"->
<%
Dimlngkeye
Dimlngkeyd
Dimlngkeyn
DimstrMessage
Dimobjrsa
IfNotRequest.form = "" entonces
Lngkeye = request.form ("keye")
Lngkeyd = request.form ("keyd")
Lngkeyn = request.form ("keyn")
Strmessage = request.form ("mensaje")
Setobjrsa = newclsrsa
SelectCaserequest.form ("Acción")
Caso "GenerateKeys"
Callobjrsa.Genkey ()
Lngkeye = objrsa.publickey
Lngkeyd = objrsa.privatekey
Lngkeyn = objrsa.modulus
Caso "Cifryp"
Objrsa.publickey = lngkeye
Objrsa.modulus = lngkeyn
Strmessage = objrsa.ecode (strmessage)
Caso "Decrypt"
Objrsa.privatekey = lngkeyd
Objrsa.modulus = lngkeyn
Strmessage = objrsa.decode (strmessage)
EndSelectar
Setobjrsa = nada
Endif
%>
<html>
<Evista>
<title> rsacipherdemonstration </title>