// 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