Durch die Implementierung von RSA -Verschlüsselung und -Delyption durch VBS -Klasse in ASP wird empfohlen, die Essenz einzugeben
Dieser Artikel besteht aus zwei Dokumenten
test.asp test Demo -Datei
clsrsa.asp implementiert die RSA -Verschlüsselungs- und Entschlüsselungs -VBS -Datei
Hier ist der Code:
1. Test.asp
Die Codekopie lautet wie folgt:
<%
REM -Artikel Titel: Implementierung der RSA -Verschlüsselung und -Delie durch VBS -Klasse in ASP
REM -Sammlung und Sortierung: Yanek
REM -Kontakt: [email protected]
%>
<%OptionExplicit%>
<!-#includeFile = "clsrsa.asp"->
<%
Dimlngkeye
Dimlngkeyd
Dimlngkeyn
Dimstrmessage
Dimobjrsa
IfnotRequest.form = "" Dann
Lngkeye = request.form ("keye")
Lngkeyd = request.form ("keyd")
Lngkeyn = request.form ("keyn")
StrMessage = request.form ("meldung")
SetObjrsa = newClsrsa
SelectCaseRequest.form ("Aktion")
Fall "GenerateKeys"
CALLOBJRSA.GENKEY ()
Lngkeye = objrsa.publickey
Lngkeyd = objrsa.privateKey
Lngkeyn = objrsa.modulus
Fall "Verschlüsseln"
Objrsa.publickey = lngkeye
Objrsa.modulus = lngkeyn
Strmessage = objrsa.encode (strmessage)
Fall "entschlüsseln"
Objrsa.privateKey = lngkeyd
Objrsa.modulus = lngkeyn
Strmessage = objrsa.decode (strmessage)
Endauswahl
SetObjrsa = nichts
Endif
%>
<html>
<kopf>
<title> rsacipherdemonstration </title>