[Resolvido] ASP/Encrypt

[xanburzum 169]

ASP/Encrypt é um componente que permite forte encriptação e decriptação do seus arquivos e textos. Feito especialmente para programadores da Web ele suporta os últimos algoritmos de criptografia, incluindo Blowfish, Cast 128, Cast 256, Rijndael, Serpent, Twofish, TEA, MARS, IDEA, Haval, MD5, SHA-1, SHA-512, Tiger e RipeMD-160.

 

Criptografando um arquivo

 

<!--METADATA TYPE="TypeLib" UUID="{B72DF063-28A4-11D3-BF19-009027438003}"-->
 <%
' Cria uma instância do controle
Set AspEncrypt = Server.CreateObject("Persits.CryptoManager")
Set Context = AspEncrypt.OpenContext("container", True)
' Caminho do arquivo a ser encriptado
arq_Encriptar = Server.MapPath("seu_arquivo.txt")
' Senha de criptografia do arquivo
Set key = Context.GenerateKeyFromPassword("senha", calgSHA, calgRC4, 40)
' Realizar a criptografia do conteúdo do arquivo e salva em outro arquivo.
key.EncryptFile arq_Encriptar, arq_Encriptar & ".xxx"
' Tira o objeto da memória
Set AspEncrypt = Nothing
%>

Decriptogragando um arquivo

 

<!--METADATA TYPE="TypeLib" UUID="{B72DF063-28A4-11D3-BF19-009027438003}"-->
<%
' Cria uma instância do controle
Set AspEncrypt = Server.CreateObject("Persits.CryptoManager")
Set Context = AspEncrypt.OpenContext("container", True)
' Caminho do arquivo a ser decriptado
arq_Decriptar = Server.MapPath("seu_arquivo.txt")
' Senha de criptografia do arquivo
Set key = Context.GenerateKeyFromPassword("senha", calgSHA, calgRC4, 40)
' Realizar a descriptografia do conteúdo do arquivo e salva em outro arquivo.
key.DecryptFile arq_Decriptar & ".xxx", arq_Decriptar
' Tira o objeto da memória
Set AspEncrypt = Nothing
%>