(VB.NET UWP/WinRT) Encrypt Already Existing Zip

To encrypt an already existing non-encrypted .zip, the application must open the .zip, set the encryption related properties, and then re-write.

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

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

Dim zip As New Chilkat.Zip

' Open an unencrypted .zip
Dim success As Boolean = Await zip.OpenZipAsync("qa_data/zips/test.zip")
If (success <> True) Then
    Debug.WriteLine(zip.LastErrorText)
    Exit Sub
End If


' Unzip to a temp directory.
Dim numFilesUnzipped As Integer = Await zip.UnzipAsync("qa_output/tmp")
If (numFilesUnzipped < 0) Then
    Debug.WriteLine(zip.LastErrorText)
    Exit Sub
End If


' Clear the zip object.
zip.NewZip("qa_output/aesTest.zip")

' Indicate that 128-bit AES encryption is to be used when writing the .zip
zip.Encryption = 4
zip.EncryptKeyLength = 128

' Set the password.
zip.EncryptPassword = "secret"

' Append the files.
zip.AppendFromDir = "qa_output/tmp"
success = Await zip.AppendFilesAsync("*.*",True)
If (success <> True) Then
    Debug.WriteLine(zip.LastErrorText)
    Exit Sub
End If


' Write the .zip and close it.
success = Await zip.WriteZipAndCloseAsync()
If (success <> True) Then
    Debug.WriteLine(zip.LastErrorText)
    Exit Sub
End If


Debug.WriteLine("Success.")