B4X

Encrypt / Decrypt a File and Verify it has not Changed

See more Encryption Examples

Demonstrates how to encrypt and decrypt a file, and verify it has not changed. B4X

Dim success As Boolean = False

'  This requires the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

Dim crypt As ChilkatCrypt2
crypt.Initialize("crypt")

crypt.CryptAlgorithm = "aes"
crypt.CipherMode = "cbc"
crypt.KeyLength = 128
crypt.PaddingScheme = 0

Dim ivHex As String = "000102030405060708090A0B0C0D0E0F"
crypt.SetEncodedIV(ivHex, "hex")

Dim keyHex As String = "00010203040506071011121314151617"
crypt.SetEncodedKey(keyHex, "hex")

Dim dataFile As String = "qa_data/zips/HBIQ040615300005.ZIP"
Dim outFile As String = "qa_output/HBIQ040615300005.enc"
Dim outFile2 As String = "qa_output/HBIQ040615300005.ZIP"

success = crypt.CkEncryptFile(dataFile, outFile)
success = crypt.CkDecryptFile(outFile, outFile2)

Dim fac As ChilkatFileAccess
fac.Initialize
Dim bEqual As Boolean = fac.FileContentsEqual(dataFile, outFile2)
If bEqual <> True Then
    Log("Decrypted file not equal to the original.")
Else
    Log("Success.")
End If