(Visual FoxPro) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loZip
LOCAL lnSuccess
LOCAL lnNumFilesUnzipped

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Zip')
loZip = CreateObject('Chilkat.Zip')

* Open an unencrypted .zip
lnSuccess = loZip.OpenZip("qa_data/zips/test.zip")
IF (lnSuccess <> 1) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
ENDIF

* Unzip to a temp directory.
lnNumFilesUnzipped = loZip.Unzip("qa_output/tmp")
IF (lnNumFilesUnzipped < 0) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
ENDIF

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

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

* Set the password.
loZip.EncryptPassword = "secret"

* Append the files.
loZip.AppendFromDir = "qa_output/tmp"
lnSuccess = loZip.AppendFiles("*.*",1)
IF (lnSuccess <> 1) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
ENDIF

* Write the .zip and close it.
lnSuccess = loZip.WriteZipAndClose()
IF (lnSuccess <> 1) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
ENDIF

? "Success."

RELEASE loZip