'Non-UI application (console / server application)
#Region Project Attributes
#CommandLineArgs:
#MergeLibraries: True
#AdditionalJar: bcprov-jdk15on-154
#End Region
Sub Process_Globals
End Sub
Sub AppStart (Args() As String)
DecryptMessage
StartMessageLoop
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
Public Sub DecryptMessage
Dim EncryptedData As String = "$�H(��<n��U���s�ޒKt|�&<,�V_���uUtB���;_p(�b���p��ӧ�����"
Private su As StringUtils
Dim c As B4XCipher ' jB4XEncryption 1.00
Dim b() As Byte = c.Decrypt(su.DecodeBase64(EncryptedData), "123456")
Log(BytesToString(b, 0, b.Length, "utf8"))
End Sub