В ASP RSA шифрование и дешифрование реализуются через класс VBS.
В этой статье есть два документа
Демонстрационный файл Test.asp
CLSRSA.ASP реализует файлы VBS для шифрования RSA и дешифрования
Ниже приведено код:
1. test.asp
<%
REM Название статьи: Реализация RSA шифрование и дешифрование через класс VBS в ASP
REM Collection and Sorting: Yanek
REM Contact: [Электронная почта защищена]
%>
<%Вариант явно%>
<!-#include file = clsrsa.asp->
<%
Dim lngkeye
Dim lngkeyd
Dim lngkeyn
Dim Strmessage
Dim objrsa
Если нет запроса.form = тогда
lngkeye = request.form (Keyee)
lngkeyd = request.form (keyd)
lngkeyn = request.form (keyn)
strmessage = request.form (сообщение)
установить objrsa = new clsrsa
Выберите Case request.form (action)
Случай сгенерировать ключи
Позвоните objrsa.genkey ()
lngkeye = objrsa.publickey
lngkeyd = objrsa.privatekey
lngkeyn = objrsa.modulus
Случай зашифрован
objrsa.publickey = lngkeye
objrsa.modulus = lngkeyn
Strmessage = objrsa.encode (strmessage)
Дети дешифтирует
objrsa.privatekey = lngkeyd
objrsa.modulus = lngkeyn
Strmessage = objrsa.decode (strmessage)
конец выбора
установить objrsa = ничего
конец, если
%>
<html>
<голова>
<Title> RSA Cipher Demongation </title>
</head>
<тело>
<h1> rsa chipher demongation </h1>
<p>
Вам нужно сгенерировать свою общественную/конфишету-пальную паре.
Прежде чем вы сможете зашифровать/расшифровывать сообщения.
</p>
<Form method = post>
<Таблица>
<tr>
<td> public Key </td>
<td> <name = name = keals = <%= server.htmlencode (lngkeye)%>> </td>
<td rowspan = 3>
<input type = отправить имя = значение действия = генерировать клавиши>
</td>
</tr>
<tr>
<td> закрытый ключ </td>
& NBS