Assinatura do arquivo Binario MFD

[Rodrigo Ismerio Barros1802]

Bom dia,

Quando gero o arquivo da leituraX funciona corretamente, mas quando gero o arquivo MFD ele gera a assinatura invalida.

Dúvida, preciso informar a chave publica no componente EAD?

Tem alguma coisa errado no fonte abaixo? 

 

procedure TForm1.ACBrEAD1GetChavePrivada(var Chave: AnsiString);
begin
 Chave := '-----BEGIN RSA PRIVATE KEY-----'                                  + #13#10 +
            'MIICXQIBAAKBgQDmxjdQ6TnSW5o8V15H3Hl5whZOmSYfn1BTxWvXR5wmMKiMT/Ny' + #13#10 +
          (...)

          'tekIG7L2mkijivMdpNYpa1M/mGVdrzqlggoJ9jce3PmJ'                     + #13#10 +
            '-----END RSA PRIVATE KEY-----';

end;

procedure TForm1.Button1Click(Sender: TObject);
var
PathArquivo : string;
begin
  ACBrECF1.Porta:=Edit1.Text;
  ACBrECF1.Ativar;
  dlgDialogoSalvar.DefaultExt := '.mfd';
  dlgDialogoSalvar.Filter := 'Arquivos binários MF|*.mfd';

  if dlgDialogoSalvar.Execute then
  begin
    PathArquivo := dlgDialogoSalvar.FileName;
    ACBrECF1.PafMF_ArqMFD(PathArquivo);

    // será gerado o arquivo bináio e o arquivo .txt com a assinatura EAD

    ShowMessage(Format('Arquivo MFD gerado com sucesso em:'#13#10' "%s"', [PathArquivo]));
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
PathArquivo : string;
begin
  ACBrECF1.Ativar;
  dlgDialogoSalvar.DefaultExt := '.txt';
  dlgDialogoSalvar.Filter := 'Arquivos *.txt';

  if dlgDialogoSalvar.Execute then
  begin
    PathArquivo := dlgDialogoSalvar.FileName;
    ACBrECF1.LeituraXSerial(PathArquivo);
    ACBrECF1.AssinaArquivoComEAD(PathArquivo);
    // será gerado o arquivo bináio e o arquivo .txt com a assinatura EAD

    ShowMessage(Format('Arquivo MFD gerado com sucesso em:'#13#10' "%s"', [PathArquivo]));
  end;

end;
 

 

[Juliomar Marchetti]

Em princípio é isso mesmo!

Confere com o exemplo do svn!

favor quando postar trechos de código anexar assim fica melhor pra analisar!

[Rodrigo Ismerio Barros1802]

Juliomar,

Realizei o teste solicitado por ti e não funcionou, o mesmo gera a chave, porem quando rodo o programa do estado de SC ele invalida assinatura.

 

[Daniel Simoes]

Verifique se você associou corretamente o ACBrEAD ao ACBrECF... se não houver associação, o ACBrECF cria um ACBrEAD internamente....

[Rodrigo Ismerio Barros1802]

Daniel fechou!

[Rodrigo Coradi]

Daniel, bom dia,

Estamos com o mesmo problema do Rodrigo, gostaria de saber por favor o que seria o "associar", não compreendi essa questão de associar.

Obrigado.

[EMBarbosa]

Em 11/07/2016 at 08:32, Rodrigo Coradi disse:

Daniel, bom dia,

Estamos com o mesmo problema do Rodrigo, gostaria de saber por favor o que seria o "associar", não compreendi essa questão de associar.

Obrigado.

O ACBrECF tem uma propriedade ACBrEAD. Você deve setar essa propriedade para o componente ACBrEAD que estiver configurado.