You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Compression/Archive/Write encrypted zip Archive
Class App Inherits ConsoleApplication
EventHandler Function Run(args() as String) As Integer
dim a as new ArchiveWriterMBS
a.SetFormatZip
a.ZipSetCompressionDeflate
// older one
'a.SetOptions "zip:encryption=zipcrypt"
// AES 256bit is better!
a.SetOptions "zip:encryption=aes256"
if a.Lasterror <> 0 then
dim e as string = "Error: "+str(a.Lasterror)+": "+a.ErrorString
Break
print e
end if
a.SetPassphrase "hello"
if a.Lasterror <> 0 then
dim e as string = "Error: "+str(a.Lasterror)+": "+a.ErrorString
Break
print e
end if
dim f as FolderItem = SpecialFolder.Desktop.Child("test.zip")
if not a.CreateFile(f) then
break // failed
dim e as string = "Error: "+str(a.Lasterror)+": "+a.ErrorString
Break
print e
else
dim data as string = "Hello World test file. Hello World again."
dim e as new ArchiveEntryMBS
e.PathName = "Hello World.txt"
e.Size = lenb(data)
e.Permissions = &o0644
e.FileType = e.kFileTypeRegular
a.WriteHeader e
if a.Lasterror <> 0 then
Dim e1 As String = "Error: "+Str(a.Lasterror)+": "+a.ErrorString
Break
Print e1
end if
call a.WriteData data
if a.Lasterror <> 0 then
Dim e2 As String = "Error: "+Str(a.Lasterror)+": "+a.ErrorString
Break
Print e2
end if
a.FinishEntry
if a.Lasterror <> 0 then
Dim e3 As String = "Error: "+Str(a.Lasterror)+": "+a.ErrorString
Break
Print e3
end if
a.Close
end if
End EventHandler
End Class