No ASP, a criptografia e a descriptografia da RSA são implementadas através da classe VBS.
Este artigo tem dois documentos composição
arquivo de demonstração test.asp
Clsrsa.asp implementa arquivos VBS para criptografia e descriptografia RSA
A seguir, o código:
1. Test.asp
<%
REM Título do artigo: Implementar a criptografia e descriptografia da RSA através da classe VBS em ASP
Coleção e classificação REM: Yanek
Contato REM: [Email Protected]
%>
<%Opção Explictic%>
<!-#inclua arquivo = clsrsa.asp->
<%
Dim lngkeye
Dim lngkeyd
Dim lngkeyn
StrMessage escuro
Dim Objrsa
se não for request.form = então
lngkeye = request.form (keyee)
lngKeyd = request.form (keyd)
lngkeyn = request.form (keyn)
strMessage = request.form (mensagem)
defina objrsa = novo clsrsa
Selecione Case Request.Form (Ação)
Caso Gere chaves
Ligue para objrsa.genkey ()
lngkeye = objrsa.publickey
lngKeyd = objrsa.privateKey
lngkeyn = objrsa.modulus
Caso Encrypt
objrsa.publickey = lngkeye
objrsa.modulus = lngkeyn
StrMessage = objrsa.encode (strmessage)
Caso descriptografando
objrsa.privateKey = lngkeyd
objrsa.modulus = lngkeyn
StrMessage = objrsa.Decode (strmessage)
final Selecione
defina objrsa = nada
final se
%>
<html>
<head>
<Title> RSA Cipher Demonstration </ititle>
</head>
<Body>
<H1> RSA Cifra Demonstração </h1>
<p>
Você precisará gerar seu par de key-chave público/privilegiado
Antes de poder criptografar/descriptografar as mensagens.
</p>
<Form Method = Post>
<Tabela>
<tr>
<td> chave pública </td>
<Td> <nome de entrada = Valor da chave = <%= server.htmlencode (lngkeye)%>> </td>
<td linespan = 3>
<Tipo de entrada = Envie Nome = O Valor da Ação = Gerar Keys>
</td>
</tr>
<tr>
<td> chave privada </td>
& nbs