#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 600
#End Region
'#AdditionalJar: jbcrypt-0.4
#AdditionalJar: bcprov-jdk15on-159
#AdditionalJar: jB4XEncryption
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
'MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
MainForm.Show
' Dim bc As JavaObject
' bc = bc.InitializeStatic("org.mindrot.jbcrypt.BCrypt")
' Dim saltstr As String = bc.RunMethod("gensalt",Null)
' Dim hashedpw As String = bc.RunMethod("hashpw",Array("Test :-)",saltstr))
' Log("HashedPassword="&hashedpw)
Private wrk_hexstr As String = "377B68B781B99388E6BE69E62AFA4145E660F4DFB81627CF9C2D969D403C0D1DC401A1B4841F90002533231A7555A9ACD238DBA3022BF74D"
Private Obj_bytehandler As ByteConverter
Private wrk_bytes() As Byte = Obj_bytehandler.HexToBytes(wrk_hexstr)
Private wrk_jo As JavaObject
wrk_jo = wrk_jo.InitializeStatic("anywheresoftware.b4x.object.B4XEncryption")
wrk_bytes = wrk_jo.RunMethod("Decrypt", Array(wrk_bytes, "sneaky"))
'Should produce AKIAZZZZZZZZZZZZZZZZ
Log(BytesToString(wrk_bytes, 0, wrk_bytes.Length, "UTF8"))
End Sub
'Return true to allow the default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
Return True
End Sub