Sub EncryptText(text As String, password As String) As String
Dim c As B4XCipher
Dim su As StringUtils
Return su.EncodeBase64(c.Encrypt(text.GetBytes("utf8"), password))
End Sub
Sub DecryptText(EncryptedData As String, password As String) As String
Dim c As B4XCipher
Dim su As StringUtils
Dim b() As Byte = c.Decrypt(su.DecodeBase64(EncryptedData), password)
Return BytesToString(b, 0, b.Length, "utf8")
End Sub