'ALTA USUARIO'
Dim Su As StringUtils
Dim Crypt() As Byte = EncryptText(password.Text, "XXXXXXXXXXX")
Dim TxtEnCrypt As String = Su.EncodeBase64(Crypt)
ExecuteRemoteQuery(INSERT INTO Usuarios (ID, Usuario,Email,Password) VALUES (Null,'"& nombrecliente.Text &"', '"& mail.Text &"' ,'"& TxtEnCrypt &"')","ALTA")
**********
'COMPROBACION
ExecuteRemoteQuery("Select * From Usuarios Where Email='"& mail.Text &"'"" , "listusuarios")
' Respuesta job'
Case "listusuarios"
Dim USUAR As List
USUAR = parser.NextArray
If USUAR.SIZE >0 Then
Dim m As Map
m = USUAR.Get(0)
Dim Su As StringUtils
Dim BtCrypt1() As Byte= Su.DecodeBase64(m.Get("Password"))
Dim TxtDeCrypt1 As String = DecryptText(BtCrypt1, "XXXXXXXXXXX")
end if