Реализация шифрования и дешифрования RSA через класс VBS в ASP рекомендуется ввести сущность
Эта статья состоит из двух документов
Демонстрационный файл test.asp
CLSRSA.ASP реализует RSA шифрование и дешифрование VBS -файл
Вот код:
1.test.asp
Кода -копия выглядит следующим образом:
<%
REM Название статьи: реализация шифрования и дешифрования RSA через класс VBS в ASP
REM Collection and Sorting: Yanek
REM Contact: [email protected]
%>
<%OptionExplicit%>
<!-#includefile = "clsrsa.asp"->
<%
Dimlngkeye
Dimlngkeyd
Dimlngkeyn
DimStrmessage
Dimobjrsa
Ifnotrequest.form = "" then
Lngkeye = request.form ("keee")
Lngkeyd = request.form ("keyd")
Lngkeyn = request.form ("keyn")
Strmessage = request.form ("Сообщение")
Setobjrsa = newclsrsa
SelectCaseRequest.form ("action")
Дело "GenerateKeys"
Callobjrsa.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)
Endselect
Setobjrsa = ничего
Эндиф
%>
<html>
<Голова>
<Title> rsacipherdemonstration </title>