Visual FoxPro

Encrypt Already Existing Zip

See more Zip Examples

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

LOCAL lnSuccess
LOCAL loZip
LOCAL lnNumFilesUnzipped

lnSuccess = 0

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

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