Implémentation de cryptage et de décryptage RSA via la classe VBS dans ASP, il est recommandé d'entrer dans l'essence
Cet article se compose de deux documents
Fichier de démonstration de test Test.asp
CLSRSA.asp implémente le fichier VBS de cryptage et de décryptage RSA
Voici le code:
1.Test.asp
La copie de code est la suivante:
<%
Titre de l'article REM: Implémentation de cryptage et de décryptage RSA via la classe VBS dans ASP
Collection et tri REM: Yanek
REM Contact: [email protected]
%>
<% OptionExplicite%>
<! - # includeFile = "clsrsa.asp" ->
<%
Dimlngkeye
Dimlngkeyd
DimlngKeyn
DimstrMessage
Dimobjrsa
IfnotRequest.form = "" puis
Lngkeye = request.form ("keye")
Lngkeyd = request.form ("keyd")
LngKeyn = request.form ("keyn")
StrMessage = request.form ("message")
SetObjrsa = newclsrsa
SelectCaseRequest.form ("Action")
Cas "GenerateKeys"
Callobjrsa.genkey ()
Lngkeye = objrsa.publickey
Lngkeyd = objrsa.privatekey
LngKeyn = objrsa.modulus
Cas "crypte"
Objrsa.publickey = lngkeye
Objrsa.modulus = lngKeyn
StrMessage = objrsa.encode (StrMessage)
Cas "décrypte"
Objrsa.privatekey = lngkeyd
Objrsa.modulus = lngKeyn
StrMessage = objrsa.decode (strMessage)
Se licez
SetObjrsa = rien
Endire
%>
<html>
<adal>
<Title> rsacipherDemonstration </Title>