MD5 Exemplo
// Résumé : <indiquez ici ce que fait la procédure>
// Syntaxe :
// MD5 ()
//
// Paramètres :
// Aucun
// Valeur de retour :
// Aucune
//
// Exemple :
// <Indiquez ici un exemple d'utilisation>
//
PROCÉDURE MD5(sTexto is ANSI string) :string
//referencia = https://www.md5online.org/md5-encrypt.html
//exemplo de teste com o site = The MD5 hash for A@123log456 is : 731ee91eed46aa98a9a062a152e1817f
bufSenhadigita is Buffer = HashString(HA_MD5_128, sTexto)
sMD5 is ANSI string
FOR i = 1 _TO_ Length(bufSenhadigita)
sMD5+=NumToString(Asc(bufSenhadigita[i]),"02X")
END
RESULT sMD5
//-----------------------------------------------------
Ou
VALOR_MD5 IS STRING = BufferToHexa(HashString(HA_MD5_128,"A@123log456"),NoGrouping,NoLine)
https://www.youtube.com/watch?v=MFh33bYlrgI
VIDEO EXPLICANDO