B4A Library Encrypt / decrypt

This libs consume 2 methods. encrypt base on encrypt 3des with key and encode in base64.
same to decrypt.

simple method

 Dim data_destino1 As String ="iRE37x0Op90="
 Dim data_destino2 As String = "M70Nbx3caEc1AqCEirXBbPs9iZV4cU7/8Ash6TSWte1SyyDEfhlJj8IFxjYbCvtQ8C3b1k7r5qZF1+irmtUD75UNZFPx4qAQHmnz8bJ7YrE="
 Dim key As String = "XXXXXXXXXXXXX"
 LogColor("ENCRIPTED : " & data_destino2,Colors.Red)
 LogColor("DESCRIPTED : " & ENC.Desencriptar(data_destino2,key),Colors.Blue)

 

[victormedranop]

New version of encrypta is now Encryptador.
add two method md5 from string and sh-mmac-256 with key validation and nother support for 128 and algorithm.


victor