Platforms to show: All Mac Windows Linux Cross-Platform

/Compression/Archive/Write encrypted zip Archive


Required plugins for this example: MBS Compression Plugin

You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Compression/Archive/Write encrypted zip Archive

This example is the version from Sun, 5th Nov 2022.

Project "Write encrypted zip Archive.xojo_binary_project"
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
End Project

See also:

The items on this page are in the following plugins: MBS Compression Plugin.


The biggest plugin in space...