suporte / componentes asp

O DynCrypto é um componente para encriptação de dados. Esse componente é composto de dois scripts: um fará a compressão de arquivos e outro, a descompressão. Abaixo as alterações que devem ser feitas, comentadas nos próprios arquivos:

Código ASP:

<!-- Início ASP --->

<%
Set DynCrypto = server.CreateObject("DynCrypto.Crypto")

PrivateKey = "teste1234"
'Informe a senha.

PublicKey = DynCrypto.AsymPublicKey(PrivateKey)
'Cria a chave pública

'Encriptando os dados
Data = "String a ser encriptada"
CipherText = DynCrypto.AsymEncrypt(PublicKey,Data)

'Desencriptando os dados
ClearText = DynCrypto.AsymDecrypt(PrivateKey,CipherText)
response.write "Mensagem encriptada: <br>" & ciphertext & "<p>"
response.write "Mensagem desencriptada: <br>" & cleartext
%>

<!-- Fim ASP --->