Como Assinar um .XML (não de NF-e) utilizando o ACBR

[Guilherme Lanius]

Gostaria de uma ajuda para tentar assinar um documento XML (não é NFE-e, ou outro documento fiscal) qualquer utilizando a estrutura do ACBR.

Eu sei que o ACBR não foi feito para essa finalidade, mas acredito que seria possível usar o componente para esta finalidade.

Ele até esta gerando a assinatura no XML, mas não está verificando a mesma... tentei inclusive verificado com outro programa (xmlsec), mas também não validou a assinatura.

Estou usando o seguinte código:

  arq.LoadFromFile('tosign.xml');
  ACBrNFe1.Configuracoes.Certificados.ArquivoPFX := caminhoCertificado;
  ACBrNFe1.Configuracoes.Certificados.Senha := senhaCertificado;
  ACBrNFe1.SSL.CarregarCertificado;
  arq.Text := ACBrNFe1.SSL.Assinar(arqConv,'Envelope','vehicle_weight');
  arq.SaveToFile('signed.xml');
  FreeAndNil(arq);

  if ACBrNFe1.SSL.VerificarAssinatura(arqConv,erro,'vehicle_weight') then
    ShowMessage('verificado');

Obrigado pela ajuda.

[Tiago Ravache]

Não vai dar certo mesmo dá uma olhada na rotina assinar do ACBrNFe e tu vai ver que ela procura pelas tags xml da nfe(infnfe, nfe) o certo é vc tirar como exemplo e adaptar a sua situação

[Guilherme Lanius]

Apenas para deixar registrado, consegui fazer funcionar com algumas alterações na função Assinar do CAPICOM do Acbr... basicamente precisa tirar uma função que ajusta a formatação do XML

[Régys Silveira]

Você tem que usar o ACBrDFe é não o ACBrNFe para assinar.

[Daniel Simoes]

Em 02/02/2016 at 10:43, Guilherme Lanius disse:

Gostaria de uma ajuda para tentar assinar um documento XML (não é NFE-e, ou outro documento fiscal) qualquer utilizando a estrutura do ACBR.

Eu sei que o ACBR não foi feito para essa finalidade, mas acredito que seria possível usar o componente para esta finalidade.

Ele até esta gerando a assinatura no XML, mas não está verificando a mesma... tentei inclusive verificado com outro programa (xmlsec), mas também não validou a assinatura.

Por favor poste um exemplo do XML sem a assinatura, e um Exemplo de como ele deverá ficar após assinado

[Guilherme Lanius]

Oi Daniel, eu já consegui resolver o problema.

A assinatura fica igual da NF-e, com os mesmos campos.

Eu apenas precisei alterar o TDFeCapicom.Assinar

alterar a linha

signedKey := xmldsig.sign(dsigKey, $00000002);

por

signedKey := xmldsig.sign(dsigKey, KEYVALUE+CERTIFICATES);

e comentar a linha XmlAss := AjustarXMLAssinado(XmlAss);

Essa última que estava dando maiores problemas para validação.

[Egon José Klipstein]

Seguindo a linha do mesmo assunto, estou tentando fazer a assinatura de um documento que não é NFe, por sinal bem diferente, e pela dica do REGIS, estou usando ACBRDfe da seguinte forma:

var
   assinatura : TACBrDFe;
begin
   //   Fazer rotina de assinatura
   assinatura := TACBrDFe.Create(nil);   //  Aqui não sei o que referenciar, então coloquei "nil"
   assinatura.SSL.SelecionarCertificado;  // Aqui carrego o certificado instalado
   DOC_XML := assinatura.SSL.Assinar(DOC_XML,'Ensaio','InformarEnsaio','Ensaio','','');  // Creio ser aqui meu problena
 

Estou meio perdido, minha(s) dúvida(s) são :

A Tag que quero assinar é 

<Ensaio>

   ...

</Ensaio>

 

O arquivo XML tem a estrutura :

<InformarEnsaio>

   <Ensaio>

         ...

   </Ensaio>

</InformarEnsaio>

a variável DOC_XML é umAnsiString com o conteúdo do ensaio XML

Qual a sintaxe para essa operação ? Alguém saberia me orientar ?

Desde já agradecido !