Sub AppStart (Args() As String)
Log("running testBytesEncryption")
testBytesEncryption
End Sub
Private Sub testBytesEncryption
Dim enc As B4XCipher
Dim b() As Byte
Dim s As String
s = "sjdhflaksjdf lasdf8 shf8s7fh sjdhf aslkdjfh sdifah dlfi743h89r73h4r3$R#$T#G3ng78gh89a7dfh9a87s:"
b = s.GetBytes("UTF8")
Log("String is " & s & " (" & b.Length & "B)")
' Log(enc.Decrypt(enc.Encrypt(b,LockboxEncryptionKey),LockboxEncryptionKey))
End Sub