[esublim]

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