Verificar assinatura

[Ivan de Souza]

Pessoal,

Alguém sabe se tem jeito e como fazer para verificar se a assinatura de um arquivo é válida?

Eu já consigo assinar um arquivo usando o método AssinaArquivoComEAD, mas gostaria de saber se tenho como conferir com o próprio ACBR se essa ou qualquer outra assinatura é válida.

Obrigado a todos!

Ivan

[Régys Silveira]

você confere a assinatura dos arquivo utilizando o aplicativo eECF que pode ser baixado em:

http://www.fazenda.mg.gov.br/empresas/e ... /eecfc.htm

[Ivan de Souza]

Sim, eu sei, mas gostaria de fazer isso em Delphi, incluindo uma função tal qual a assinatura.

Obrigado!

[Ivan de Souza]

Fiz assim:

Componente acbrPAF e acbrEAD no form. acbrEAD ligado no acbrPAF.

Tenha em mãos a chave pública e privada do cliente.

procedure TForm9.ACBrEAD1GetChavePublica(var Chave: AnsiString);

begin

{Chave Pública da Empresa}

Chave := '-----BEGIN PUBLIC KEY-----' + sLineBreak +

{Chave pública aqui}

'-----END PUBLIC KEY-----';

end;

procedure TForm9.ACBrPAF1PAFGetKeyRSA(var Chave: AnsiString);

begin

{Chave Privada da Empresa}

Chave := '-----BEGIN RSA PRIVATE KEY-----' +sLineBreak +

{Chave privada aqui}

'-----END RSA PRIVATE KEY-----';

end;

procedure TForm9.Button1Click(Sender: TObject);

begin

if ACBrPAF1.EAD.VerificarEADArquivo(edMsgFile.Text) then begin

ShowMessage('Assinatura válida')

end

else begin

ShowMessage('Assinatura INválida');

end;

end;

Funcionou perfeitamente para o que eu precisava.

Obrigado a todos!

Ivan