Excel's File Encryption

Targets Windows
1

Hi All,

Someone know if is there a way to encrypt an Excel file with RS/Xojo …?

2

AES? Blowfish? something else?

3

Hi Christian,

With Blowfish …

It’s possible…?

4

sure like this:

[code]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
[/code]

5

Christian,

Really thanks !

Works great!