Script to Encrypt / Decrypt Files

This VBScript demonstrates how to use the Chilkat encryption ActiveX component to encrypt / decrypt any type of file.

set crypt = CreateObject("ChilkatCrypt2.ChilkatCrypt2") 
crypt.UnlockComponent "unlockCode"

crypt.CryptAlgorithm = "AES"
crypt.KeyLength = 128
crypt.SecretKey = crypt.GenerateSecretKey("myPassword")

myData = crypt.ReadFile("test.xml")
myEncrypted = crypt.EncryptBytes(myData)
crypt.WriteFile "encrypted.dat",myEncrypted

eData = crypt.ReadFile("encrypted.dat")
myDecrypted = crypt.DecryptBytes(eData)
crypt.WriteFile "testDecrypted.xml",myDecrypted