Persits AspEncrypt é uma poderosa ferramenta para encriptar, decriptar arquivos e gerar/gerenciar chaves criptográficas derivadas de senhas e aleatórias.
Criptografando um arquivo <% ' 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 <% ' 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 %>