Platforms to show: All Mac Windows Linux Cross-Platform

/Encryption/Encrypt Example
Function:
Required plugins for this example: MBS Encryption Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Encryption/Encrypt Example
This example is the version from Tue, 5th Oct 2015.
Project "Encrypt Example.xojo_binary_project"
Class MainWindow Inherits Window
Control original Inherits Label
ControlInstance original Inherits Label
End Control
Control thekey Inherits Label
ControlInstance thekey Inherits Label
End Control
Control StaticText1 Inherits Label
ControlInstance StaticText1 Inherits Label
End Control
Control encoded Inherits Label
ControlInstance encoded Inherits Label
End Control
Control StaticText3 Inherits Label
ControlInstance StaticText3 Inherits Label
End Control
Control decoded Inherits Label
ControlInstance decoded Inherits Label
End Control
Control StaticText6 Inherits Label
ControlInstance StaticText6 Inherits Label
End Control
Control StaticText2 Inherits Label
ControlInstance StaticText2 Inherits Label
End Control
EventHandler Sub Open() dim s as string dim i as integer dim e as string dim d as string dim m as new EncryptMBS m.init "Passwort" s="Hallo Welt!" 'only 8 char aligent text is encoded. original.text=s s=m.Encode(s) encoded.text=s s=m.Decode(s) decoded.text=s s=m.Key e="" for i=1 to lenb(s) e=e+right("00"+hex(ascb(midb(s,i,1))),2)+" " next thekey.text=e+" ("+format(lenb(s),"0")+" Bytes)" End EventHandler
End Class
MenuBar Menu
MenuItem UntitledMenu3 = ""
MenuItem UntitledMenu2 = "File"
MenuItem FileQuit = "Quit"
MenuItem UntitledMenu0 = "Edit"
MenuItem EditUndo = "Undo"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "Cut"
MenuItem EditCopy = "Copy"
MenuItem EditPaste = "Paste"
MenuItem EditClear = "Clear"
End MenuBar
Class App Inherits Application
End Class
End Project

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


💬 Ask a question or report a problem
The biggest plugin in space...