Sub Process_Globals
Private fx As JFX
Private C As B4XCipher
Private str1 As String = "hgt34q"
Private str2 As String = "M5z23t"
Private str3 As String = "N1eDs9"
Dim su As StringUtils
Dim bc As ByteConverter
Private pw As String
End Sub
Sub Crypta(dato As String) As String
pw = str1 & str2 & str3
Return su.EncodeUrl(su.EncodeBase64(C.Encrypt(dato.GetBytes("UTF8"), pw)), "UTF8")
End Sub
Sub Decrypt(dato As String) As String
pw = str1 & str2 & str3
Dim data(),data1() As Byte
data = su.DecodeBase64(su.DecodeUrl(dato, "UTF8"))
data1 = C.Decrypt(data,pw)
dato = bc.StringFromBytes(data,"UTF8")
If dato.Contains(Chr(0)) Then dato = dato.SubString2(0, dato.IndexOf(Chr(0)))
Return dato
End Sub