Delphi 11.3
Código:
Uses System.hash
CadenaVerifactu :=
'IDEmisorFactura=89890001K&'+
'NumSerieFactura=12345679/G34&'+
'FechaExpedicionFactura=01-01-2024&'+
'TipoFactura=F1&CuotaTotal=12.35&'+
'ImporteTotal=123.45&'+
'Huella=3C464DAF61ACB827C65FDA19F352A4E3BDC2C640E9E9FC4CC058073F38F12F60&'+
'FechaHoraHusoGenRegistro=2024-01-01T19:20:35+01:00';
Result := THashSHA2.GetHashString(CadenaVerifactu,THashSHA2.TSHA2Version.SHA256).ToUpper;
Resultado es = F7B94CFD8924EDFF273501B01EE5153E4CE8F259766F88CF6ACB8935802A2B97