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("mycontainer", True)
' Caminho do arquivo a ser encriptado
arq_Encriptar = Server.MapPath("teste.txt")
' Senha de criptografia do arquivo
Set key = Context.GenerateKeyFromPassword("my password", 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("mycontainer", True)
' Caminho do arquivo a ser decriptado
arq_Decriptar = Server.MapPath("teste.txt")
' Senha de criptografia do arquivo
Set key = Context.GenerateKeyFromPassword("my password", 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
%>