Encrypt and decrypt file with DypsRC4 component

Techniques

This category is aimed to help programmers in order to find and share helpfull techniques, source code and more stuff.

Techniques / Safety component : How to use DypsRC4

•  How to encrypt and decrypt files using DypsRC4:

This tutorial is aimed to learn how to use the DypsRC4 component in order to encrypt and decrypt a file. In this sample a file called 'first.txt', is first encrypt in a result file called 'second.txt'. After this operation the file called 'second.txt' is decrypted and save as 'third.txt'.

Set cr = Dypso.createObject("DypsRC4.ClsCrypt") cr.Key = "Dypso" 'First we encrypt the file called first.txt cr.EncryptFile "C:\first.txt","C:\second.txt" , true 'Now let's decrypt the file and get first one cr.DecryptFile "C:\second.txt","C:\first.txt" , true 'Clean Memory Set cr = Nothing