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.