NFE Erro ao Validar usando libWinCrypt

[Gutierres]

Bom a Todos

Estou tendo um problema com uso do libWinCrypt  quando assino uma nota e envio pela primeira vez ele faz normal então fecho o sistema  abro novamente e tento assinar retorna o erro 

Minha configuração 

Geral.SSLCryptLib := cryWinCrypt;
Geral.SSLHttpLib := httpWinINet;
Geral.SSLXmlSignLib := xsLibXml2;

[18:19, 26/12/2017] Fernando Moreira: Mensagem
    1    Falha na validação dos dados da nota: 47074

1871 - Element '{http://www.w3.org/2000/09/xmldsig#}KeyInfo': Missing child element(s). Expected is ( {http://www.w3.org/2000/09/xmldsig#}X509Data ).

acho que o problema esta nessa tag

 

<KeyInfo>
        <X509Data>
          <X509Certificate>MIIFtDCCBJygAwIBAg(...)AhA0oDjO/oaDeEC</X509Certificate>
        </X509Data>
</KeyInfo>

 

Obrigado 

 

[Daniel Simoes]

É possível anexar o XML que causa o problema ?

[Gutierres]

12 minutos atrás, Daniel Simoes disse:

É possível anexar o XML que causa o problema ?

Segue arquivo em anexo.

31171201620245000184550010000470741000085086-nfe.xml

[Daniel Simoes]

Consegue informar um passo a passo de como reproduzir o problema com o Demo do ACBr ?

[Daniel Simoes]

Seus fontes estão atualizados ?  Repare em "procedure LibXmlInit; .. existe:

  __xmlSaveNoEmptyTags^ := 1;  

Isso informa a LibXML2, para não gerar Tags "SelfClosed" como a que está no seu XML

		<KeyInfo/>

pois o método "TDFeSSLXmlSignClass.AjustarXMLAssinado", não conseguirá manipular elas...

[Gutierres]

Sim os Fontes estão atualizados 

 

procedure LibXmlInit;
begin
  if (LibXMLLoaded) then
    Exit;

  // --Inicializar funções das units do libxml2
  libxml2.Init;

  { Init libxml and libxslt libraries }
  xmlInitThreads();
  xmlInitParser();
  xmlSubstituteEntitiesDefault(1);
  __xmlLoadExtDtdDefaultValue^ := XML_DETECT_IDS or XML_COMPLETE_ATTRS;
  __xmlIndentTreeOutput^ := 1;
  __xmlSaveNoEmptyTags^ := 1;

  LibXMLLoaded := True;
end;

[Rafael Dias]

Forneça um passo a passo de como reproduzir o erro usando o Demo do ACBrNFe.

[Gutierres]

Boa tarde. no Demo do ACBrNFe

Passo

1 - Gerar NFE
2 - Carregar XML e Enviar (carro o XML Gerado no Passo 1)
3 - Erro.

Obrigado

[Rafael Dias]

Correção enviada ao Repositorio.

[Gutierres]

2 horas atrás, Rafael Dias disse:

Correção enviada ao Repositorio.

No Demo funcionou na minha aplicação não vai 

Minha aplicação é Distribuida no Servidor de Aplicação eu mando fazer o LoadStream do Arquivo o Validar quando fecho meu servidor de aplicação e envio a primeira vez ele funciona. etão fecho minha aplicação cliente deixando o servidor aberto reconecto com servidor e envio novamente então vem o erro 

'1871 - Element ''{http://www.w3.org/2000/09/xmldsig#}KeyInfo'': Missing child element(s). Expected is ( {http://www.w3.org/2000/09/xmldsig#}X509Data ).'#$A

 

no procedure NotaFiscal.Validar; 

 NotaEhValida := SSL.Validar(AXML, GerarNomeArqSchema(ALayout, VerServ), Erro); ---Retorna False

66309-env-lot.xml

[Gutierres]

Boa noite no meu caso 

quando chega aqui esta o AddX509Data esta como false e não cria

function TDFeSSLXmlSignClass.AdicionarSignatureElement(ConteudoXML: String;
  AddX509Data: Boolean; docElement, IdSignature: String;
  IdAttr: String = ''): String;

[Gutierres]

Fiz uma manobra aqui não sei se esta correto

Veja modificação em vermelho

// Inserindo Template da Assinatura digital
  if (not LibXmlEstaAssinado(aXML, SignatureNode, SelectionNamespaces,
    infElement)) then
    aXML := AdicionarSignatureElement(aXML, True, docElement,
      IdSignature, IdAttr);

 

[Rafael Dias]

Não precisa postar todo o codigo neste tipo caso anexe a unit modificada.

agora sobre a modificação resolve o problema mas não mostra o erro de verdade, pois mesmo com isso gera um xml incorreto, mas na outra função arruma ele.

O problema é descobrir o por que sua libxml não esta obedecendo a configuração.

[Gutierres]

Function Assinar 

  if (not LibXmlEstaAssinado(aXML, SignatureNode, SelectionNamespaces,
    infElement)) then
    aXML := AdicionarSignatureElement(aXML, True, docElement,
      IdSignature, IdAttr);

ACBrDFeXsLibXml2.pas

 

Só um detalhe não é só no meu computador, na programação com 6 computadores e em 3 clientes que atualizei 

Editado 28 Dezembro, 2017 por Gutierres

[Daniel Simoes]

Apliquei várias modificações nos fontes... e alguns ajustes que o Rafael Teno me enviou...

Favor testar novamente...

Citar

-- ACBrDFeXsLibXml2 --
[*] Diversos ajustes de String x AnsiString
[*] Limpeza e revisão dos fontes..
[-] Correção de Memory Leak em TDFeSSLXmlSignLibXml2.CanonC14n
[-] Correção no método "VerificarAssinatura", para conferir se houve alterações
    no conteúdo do XML, comparando o "DigestValue"
    (por: DSA)  

 

[Gutierres]

1 hora atrás, Daniel Simoes disse:

Apliquei várias modificações nos fontes... e alguns ajustes que o Rafael Teno me enviou...

Favor testar novamente...

 

Resolvido, Fiz os teste agora foi blz

Muito obrigado.