Código Delphi
[-]function calcularHash(const mensaje,key:string; descifrar: boolean):string;
var
hash:THashSHA2;
begin
result:=thash.DigestAsString(hash.GetHMACAsBytes(mensaje,key,SHA256));
end;
Código Delphi
[-]function GetStrHashSHA256(Str: String): String;
var
HashSHA: THashSHA2;
begin
HashSHA := THashSHA2.Create;
HashSHA.GetHashString(Str);
result := upperCase(HashSHA.GetHashString(Str,SHA256));
end;
hola tengo estas dos funciones que me trabajan de maravilla.
el problema es que cifro del hash pero como hagoo para descrifar.
me podrian dar una idea