Ley antifraude 2021 (VERIFACTU) - Programas informáticos

[Casimiro Notevi]

Algo así:

Código Delphi [-]
uses
  IdHash, IdHashSHA, IdGlobal, SysUtils;

function CalculateFileHash(const FileName: string): string;
var
  FileStream: TFileStream;
  SHA256Hash: TIdHashSHA256;
  HashBytes: TBytes;
begin
  FileStream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    SHA256Hash := TIdHashSHA256.Create;
    try
      HashBytes := SHA256Hash.HashValue(FileStream);
      Result := LowerCase(BytesToHex(HashBytes));
    finally
      SHA256Hash.Free;
    end;
  finally
    FileStream.Free;
  end;
end;

// Ejemplo de uso:
procedure TForm1.Button1Click(Sender: TObject);
var
  FileName: string;
  HashValue: string;
begin
  FileName := 'ruta_del_archivo.xml';
  HashValue := CalculateFileHash(FileName);
  ShowMessage('Hash SHA256 del archivo XML: ' + HashValue);
end;

[ramherfer]

Empezado por Casimiro Notevi

Algo así:

Código Delphi [-]
uses
  IdHash, IdHashSHA, IdGlobal, SysUtils;

function CalculateFileHash(const FileName: string): string;
var
  FileStream: TFileStream;
  SHA256Hash: TIdHashSHA256;
  HashBytes: TBytes;
begin
  FileStream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    SHA256Hash := TIdHashSHA256.Create;
    try
      HashBytes := SHA256Hash.HashValue(FileStream);
      Result := LowerCase(BytesToHex(HashBytes));
    finally
      SHA256Hash.Free;
    end;
  finally
    FileStream.Free;
  end;
end;

// Ejemplo de uso:
procedure TForm1.Button1Click(Sender: TObject);
var
  FileName: string;
  HashValue: string;
begin
  FileName := 'ruta_del_archivo.xml';
  HashValue := CalculateFileHash(FileName);
  ShowMessage('Hash SHA256 del archivo XML: ' + HashValue);
end;

Gracias Casimiro, pero eso sería para crear el hash del fichero xml, pero lo que tiene que llevar es en el campo huella el hash sólo del contenido del nodo <RegistroFacturacion>contenido</RegistroFacturacion>. Entonces el problema es que no tengo ni pajolera idea de como pasar el nodo completo a widestring (por ejemplo) para calcular el hash del string y pasarlo al campo huella. Agradezco tu respuesta mil+1

[ramherfer]

Bueno pues ya lo tengo, he recibido ayuda de valor incalculable, Si no, no lo consigo ni de coña. Ojo que como ya se había hablado, es bien distinto calcular el hash con el fichero xml formateado indentado que sin formato evidentemente los CR LF varian el valor del Hash. ¿Cómo se tendrá que hacer? pues sorpresa, pero por lo menos lo está haciendo. Luego es más fácil corregir y adaptar que empezar desde cero. Las cosas deprisa y corriendo por muy claras que las tengas, no suelen salir igual.
Observaciones estoy creando el hash mientras estoy creando el xml.

Aquí va el código, cualquier sugerencia u objeción sería bien recibida.

   

var
   archivoXML: TXMLDocument;
   NDatosControl, NCabecera : IXMLNode;
   NodoSistema, NodoRegistroAltaFacturas, NodoRegistroFacturacion: IXMLNode;
   ContenidoNodoRegistroFacturacion: WideString;
   Huella: String;

    · · ·

    NDatosControl := NCabecera.AddChild( 'DatosControl' );
    Nodo := NDatosControl.AddChild( 'Huella' );
    //***** Calculo Hash RegistroFacturacion
    NodoSistema := archivoXML.DocumentElement;
    NodoregistroAltaFacturas := NodoSistema.ChildNodes.FindNode('RegistroAltaFacturas');
    if Assigned(NodoregistroAltaFacturas) then
    begin
      NodoRegistroFacturacion := NodoRegistroAltaFacturas.ChildNodes.FindNode('RegistroFacturacion');
      if Assigned(NodoRegistroFacturacion) then
        ContenidoNodoRegistroFacturacion := NodoRegistroFacturacion.XML;
    end;
    Huella := CalculaStrHashSHA256(ContenidoNodoRegistroFacturacion, checkBox1.Checked);
    //****** Fin calculo huella SHA256
    Nodo.Text := Huella;
    Nodo := NDatosControl.AddChild( 'TipoHash' );
    Nodo.Text := '01';

    · · ·

La función CalculaStrHashSHA256 esta contenida en una librería DLL. Si alguien necesita el código de la librería lo pongo, aunque es bien sencillo.
He comprobado los Hash resultantes con la herramienta online https://emn178.github.io/online-tools/sha256.html y en principio están perfectos.

[edari]

Pongo por adelantado que no he empezado a hacer anda de esto hasta que no sea todo más o menos definitivo.



Me he leído el hilo y esperando la nueva "movida" que nos llega.



Yo también tendré que generar el Hash sha256 desde un proceso externo y no sé si puedo usar utilidades tipo CERTUTIL del propio sistema operativo o me estoy liando bien liado...


https://www.dell.com/support/kbdoc/e...re-y-antivirus


Insisto que igual estoy diciendo una burrada pero bueno por si os suena este tipo de utilidades. Perdón de antemano...



Gracias...

[ermendalenda]

Empezado por edari

Pongo por adelantado que no he empezado a hacer anda de esto hasta que no sea todo más o menos definitivo.


Me he leído el hilo y esperando la nueva "movida" que nos llega.



Yo también tendré que generar el Hash sha256 desde un proceso externo y no sé si puedo usar utilidades tipo CERTUTIL del propio sistema operativo o me estoy liando bien liado...


https://www.dell.com/support/kbdoc/e...re-y-antivirus


Insisto que igual estoy diciendo una burrada pero bueno por si os suena este tipo de utilidades. Perdón de antemano...



Gracias...

Hay apis de windows que se pueden incluir, no creo que desarrollers en un lenguaje que no se pueda, tendría que ser cobol qbasic o gwbasic

[edari]

Empezado por ermendalenda

Hay apis de windows que se pueden incluir, no creo que desarrollers en un lenguaje que no se pueda, tendría que ser cobol qbasic o gwbasic

Mi duda es si el Hash que da ese sistema es correcto o no...

[ermendalenda]

Empezado por edari

Mi duda es si el Hash que da ese sistema es correcto o no...

Es perfecto ya tengo generados millones de tiquets y faxturas en formato verifactu y el hash es comprobado por un tercero al que le mando los datos y no hay un solo error