Dim EncryptedData() As Byte
Dim c As B4XCipher
Dim myString, myPassword As String
Log("Start test ==============")
myString = "abc"
myPassword = "1234"
Log("1° test >>")
EncryptedData = c.Encrypt(myString.GetBytes("utf8"), myPassword)
Log("First Time byte Length: " & EncryptedData.Length)
For N = 0 To EncryptedData.Length-1
Log(EncryptedData(N))
Next
EncryptedData = c.Encrypt(myString.GetBytes("utf8"), myPassword) ' note the some string and password
Log("Second Time byte Length: " & EncryptedData.Length)
For N = 0 To EncryptedData.Length-1
Log(EncryptedData(N))
Next
EncryptedData = c.Encrypt(myString.GetBytes("utf8"), myPassword) ' note the some string and password
Log("third Time byte Length: " & EncryptedData.Length)
For N = 0 To EncryptedData.Length-1
Log(EncryptedData(N))
Next