Platforms to show: All Mac Windows Linux Cross-Platform

/Encryption/Blowfish with PHP/Blowfish with PHP


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/Blowfish with PHP/Blowfish with PHP

This example is the version from Thu, 23th Oct 2013.

Project "Blowfish with PHP.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Löschen"
Const kFileQuit = "Beenden"
Const kFileQuitShortcut = ""
End Class
Class Window1 Inherits Window
Control TextField1 Inherits TextField
ControlInstance TextField1 Inherits TextField
EventHandler Sub TextChange() update End EventHandler
End Control
Control TextField2 Inherits TextField
ControlInstance TextField2 Inherits TextField
EventHandler Sub TextChange() update End EventHandler
End Control
Control TextField3 Inherits TextField
ControlInstance TextField3 Inherits TextField
End Control
Control TextField4 Inherits TextField
ControlInstance TextField4 Inherits TextField
End Control
Control Label1 Inherits Label
ControlInstance Label1 Inherits Label
End Control
Control Label2 Inherits Label
ControlInstance Label2 Inherits Label
End Control
Control Label3 Inherits Label
ControlInstance Label3 Inherits Label
End Control
Control Label4 Inherits Label
ControlInstance Label4 Inherits Label
End Control
EventHandler Sub Open() update End EventHandler
Sub Update() dim b as new BlowfishMBS dim t as string = ConvertEncoding(TextField1.text, encodings.UTF8) b.SetKey t dim c as string = ConvertEncoding(TextField2.text, encodings.UTF8) while lenb(c) mod 16 <>0 c = c + " " wend dim iv as new MemoryBlock(8) dim d as string = b.EncryptCBC(c, iv) TextField3.Text = EncodeHex(d) TextField4.text = d break End Sub
End Class
MenuBar MenuBar1
MenuItem FileMenu = "&Ablage"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Bearbeiten"
MenuItem EditUndo = "&Rückgängig"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "&Ausschneiden"
MenuItem EditCopy = "&Kopieren"
MenuItem EditPaste = "&Einfügen"
MenuItem EditClear = "#App.kEditClear"
MenuItem UntitledMenu0 = "-"
MenuItem EditSelectAll = "&Alles auswählen"
End MenuBar
End Project

See also:

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


The biggest plugin in space...