Cita:
Empezado por newtron
No das muchas pistas sobre lo que te pasa con la huella, por si te sirve de algo yo lo hago así:
Código Delphi [-] // Calculo huella sAux:='IDEmisorFactura='+Edit2.Text+'&NumSerieFactura='+Factura.RegistroAlta.IDFactura.NumSerieFactu ra+'&FechaExpedicionFactura='+Factura.RegistroAlta.IDFactura.FechaExpedicionFactura; sAux:=sAux+'&TipoFactura='+ListaCampos[2]+'&CuotaTotal='+Factura.RegistroAlta.CuotaTotal+'&ImporteTotal='+Factura.RegistroAlta.ImporteTotal+' &Huella='+Edit18.Text+'&FechaHoraHusoGenRegistro='+XSDateTime.NativeToXS; Huella:=UpperCase(HashSHA256(sAux)); Factura.RegistroAlta.TipoHuella := TipoHuellaType._01; Factura.RegistroAlta.Huella := Huella;
No creo que tengas mucho problema en adivinar unas cuantas variables que hay en esas líneas.
y la función HashSHA256:
Código Delphi [-]function HashSha256(const APassword: string): string; var SHA256: THashSHA2; begin SHA256 := THashSHA2.Create; try Result := SHA256.GetHashString(APassword); finally FreeAndNil(SHA256); end; end;
Saludos. |
Muchas gracias y disculpad, quería decir que la huella debe estar en mayúsculas y ya me ha funcionado correctamente.