(VB.NET UWP/WinRT) Encrypt / Decrypt a File and Verify it has not Changed

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

Chilkat Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

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

Dim success As Boolean
Dim crypt As New Chilkat.Crypt2

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 = Await crypt.CkEncryptFileAsync(dataFile,outFile)
success = Await crypt.CkDecryptFileAsync(outFile,outFile2)

Dim fac As New Chilkat.FileAccess
Dim bEqual As Boolean = fac.FileContentsEqual(dataFile,outFile2)
If (bEqual <> True) Then
    Debug.WriteLine("Decrypted file not equal to the original.")
Else
    Debug.WriteLine("Success.")
End If