En ASP, el cifrado RSA y el descifrado se implementan a través de la clase VBS.
Este artículo tiene dos documentos composición
archivo de demostración de prueba test.asp
Clsrsa.asp implementa archivos VBS para cifrado y descifrado RSA
El siguiente es el código:
1. Test.asp
<%
Título del artículo REM: Implementar cifrado y descifrado RSA a través de la clase VBS en ASP
Colección y clasificación REM: Yanek
Contacto REM: [correo electrónico protegido]
%>
<%Opción explícita%>
<!-#incluye archivo = clsrsa.asp->
<%
Dim lngkeye
Dim lngkeyd
Dim lngkeyn
Dim strmessage
Dim objrsa
si no request.form = entonces
lngkeye = request.form (keyee)
lngkeyd = request.form (keyd)
lngkeyn = request.form (keyn)
strmessage = request.form (mensaje)
Establecer objrsa = nuevo clsrsa
Seleccione la solicitud de caso. Forma (Acción)
Caso generar claves
Llame a objrsa.genkey ()
lngkeye = objrsa.publickey
lngkeyd = objrsa.privatekey
lngkeyn = objrsa.modulus
Cifrado de casos
objrsa.publickey = lngkeye
objrsa.modulus = lngkeyn
Strmessage = objrsa.ecode (strmessage)
Casos descifrar
objrsa.privatekey = lngkeyd
objrsa.modulus = lngkeyn
Strmessage = objrsa.decode (strmessage)
final seleccionar
establecer objrsa = nada
final si
%>
<html>
<Evista>
<title> RSA CIPHER Demostration </title>
</ablo>
<Body>
<h1> RSA CIPHER DROSMACIÓN </h1>
<p>
Necesitará generar su par de pares de teclas públicos/de privado
Antes de que pueda cifrar/descifrar mensajes.
</p>
<Método de formulario = post>
<Table>
<tr>
<TD> Public Key </td>
<TD> <input name = key value = <%= server.htmlencode (lngkeye)%>> </td>
<TD ROWSPAN = 3>
<input type = Subt name = the Action value = Generate Keys>
</td>
</tr>
<tr>
<TD> Key private </td>
& nbs