[ifarias]

Empezado por ifarias

Usando las rutinas que amablemente nos proporcionó felipep, Genero la cadena, el archivo xml, etc, con su sello. Solo que al querer validarlo en la pagina del SAT, me marca que el sello no es válido.

Ya revisé la cadena y está correcta, de hecho me genera el mismo MD5 que genera el validador del SAT.

Alguien ha validado los .xml con el Sello?? . Las rutinas que utilizo son las siguientes...

function SelloDigital(llaveprivada, cadenaoriginal: widestring): String;
var
  Len    : cardinal;
    mdctx  : EVP_MD_CTX;
    inbuf  :  array [0..8192] of char;
  outbuf :  array [0..1023] of char;
    key: pEVP_PKEY;
begin
    cadenaoriginal := AnsiReplaceStr(cadenaoriginal,#13,'');
    cadenaoriginal := AnsiReplaceStr(cadenaoriginal,#10,'');
    cadenaoriginal := AnsiReplaceStr(cadenaoriginal,#8,'');
    cadenaoriginal := AnsiReplaceStr(cadenaoriginal,'  ','');
    cadenaoriginal := AnsiReplaceStr(cadenaoriginal,' |','|');
    cadenaoriginal := AnsiReplaceStr(cadenaoriginal,'| ','|');
    cadenaoriginal := UTF8Encode(cadenaoriginal);

  StrPCopy(inbuf,cadenaoriginal);
    InitOpenSSL;
    key:=LoadPrivateKey(llaveprivada,'');
//  EVP_MD_CTX_init(@mdctx);
    EVP_SignInit(@mdctx,EVP_md5());
    EVP_SignUpdate(@mdctx,@inbuf,Length(inbuf));
    EVP_SignFinal(@mdctx,@outbuf,Len,key);
//  EVP_MD_CTX_cleanup(@mdctx);
    EVP_PKEY_free(key);
    FreeOpenSSL;
    result := bintobase64(@outbuf,Len);
end;

Alguna sugerencia ????

Aviso a todos.

Ya pude validar el XML completo en el Validador del SAT, la rutina que está mal es:

    
     EVP_SignUpdate(@mdctx,@inbuf,Length(inbuf));

debe ser
    
     EVP_SignUpdate(@mdctx,@inbuf,StrLen(inbuf));

Pues sí un simple cambio de Length(inbuf) que no es un string sino un array por lo que debe usarse el StrLen(inbuf) y con eso funciona todo.

Les comento que use el XML Data Binding con Delphi 7 generandolo a partir el archivo cfdv2.xsd del SAT solo requiere un truco para dar de alta los nameSpace adicionales, ya que el XML Data Binding solo puede dar de alta uno.

Claro que se puede generar el XML a mano a través del XMLDocument directamente.

El truco es :

  
  const
    // Esta cabecera es necesaria como primer renglón del archivo XML
    // y no se da de alta a traves del XML Data Binding.
     CabezaXML = '<?xml version="1.0" encoding="UTF-8"?>';
  var
    Nodo : IXMLNode;
    S : String;
    i : integer;
    Cadena : wideString;
  begin
    // donde esté nuestra llave privada ya en formato .pem....
    PuKey := 'C:\...\Factura Electronica\...\aaa010101aaa.cer.pem';
    XMLFactura := GetComprobante(XML1);
    // Alta de los nameSpace faltantes...
    Nodo := XML1.DocumentElement;
    Nodo.Attributes['xmlns:xsi']  := 'http://www.w3.org/2001/XMLSchema-instance';
    Nodo.Attributes['xsi:schemaLocation'] := 'http://www.sat.gob.mx/cfd/2 http://www.sat.gob.mx/sitio_internet/cfd/2/cfdv2.xsd';

  with XMLFactura do begin
    Version := '2.0';
  ...
  // Generar la Cadena y luego el Sello

  XMLFactura.Sello := SelloDigital(PrKey,Cadena);
  XML1.XML.Insert(0,CabezaXML);
  // Generamos el archivo Fact1.XML  -- cambiar el nombra al necesario.
  // así com el directorio de datos donde guardamos los XML
  XML1.Active := True;
  XML1.SaveToFile('C:\...\Factura Electronica\XML\Fact1.xml');
end;

Si puedo ayudarlos en algo, con mucho gusto estoy a sus órdenes.

Saludos y mucha suerte...