Platforms to show: All Mac Windows Linux Cross-Platform

FAQ.How to encrypt a file with Blowfish?

Answer: You can use code like this:
Example
dim fi as FolderItem = SpecialFolder.Desktop.Child("test.xojo_binary_project")
dim fo as FolderItem = SpecialFolder.Desktop.Child("test.encrypted")

// read input
dim bi as BinaryStream = BinaryStream.Open(fi)
dim si as string = bi.Read(bi.Length)
bi.Close

// encrypt
dim so as string = BlowfishMBS.Encrypt("MyKey",si)

// write output
dim bo as BinaryStream = BinaryStream.Create(fo)
bo.Write so
bo.Close

Of course you can decrypt same way, just use Decrypt function and of course swap files.


The biggest plugin in space...