Dans ASP, le cryptage RSA et le décryptage sont mis en œuvre via la classe VBS.
Cet article a deux documents de composition
Test.asp Fichier de démonstration de test
CLSRSA.asp implémente les fichiers VBS pour le cryptage et le déchiffrement RSA
Ce qui suit est le code:
1. Test.asp
<%
Titre de l'article REM: Implémenter le cryptage et le décryptage RSA via la classe VBS dans ASP
Collection et tri REM: Yanek
Contact REM: [Protégé par e-mail]
%>
<% Option explicite%>
<! - # Inclure file = clsrsa.asp->
<%
sombre lngkeye
Dim lngkeyd
DIM LNGKEYN
masse
DIM OBJRSA
Si non demande.form = alors
lngkeye = request.form (keyee)
lngkeyd = request.form (keyd)
lngKeyn = request.form (keyn)
strMessage = request.form (message)
définir objrsa = new CLSRSA
Sélectionner la demande de cas.form (Action)
Case Générer des clés
appeler objrsa.genkey ()
lngkeye = objrsa.publickey
lngkeyd = objrsa.privatekey
lngKeyn = objrsa.modulus
crypte de cas
objrsa.publickey = lngkeye
objrsa.modulus = lngKeyn
StrMessage = objrsa.encode (StrMessage)
Décrypt
objrsa.privatekey = lngkeyd
objrsa.modulus = lngKeyn
StrMessage = objrsa.decode (strMessage)
fin de sélection
définir objrsa = rien
terminer si
%>
<html>
<adal>
<Title> RSA Cipher Demonstration </Title>
</ head>
<body>
<h1> Démonstration du chiffre RSA </H1>
<p>
Vous devrez générer votre paire de paires de clés publique / privée
Avant de pouvoir crypter / décrypter les messages.
</p>
<Formulaire méthode = post>
<ballage>
<tr>
<TD> Clé publique </td>
<td> <name input = key value = <% = server.htmlencode (lngkeye)% >> </td>
<td Rowspan = 3>
<Type d'entrée = soumettre name = la valeur d'action = générer des touches>
</td>
</tr>
<tr>
<TD> Clé privée </td>
& NBS