ASSINAR ARQUIVOS PDF E XML

[UEMERSON NEGREIRO DA SILVA]

Bom dia  como que faço para assinar Documentos em PDF e XML ?

[Juliomar Marchetti]

41 minutos atrás, UEMERSON NEGREIRO DA SILVA disse:

Bom dia  como que faço para assinar Documentos em PDF e XML ?

Xml já é feito no ACBr basta olhar como é feito

PDF tem que usar alguma ferramenta, por exemplo gnostice tem e outros da tms senão me engano

[UEMERSON NEGREIRO DA SILVA]

2 minutos atrás, Juliomar Marchetti disse:

Xml já é feito no ACBr basta olhar como é feito

PDF tem que usar alguma ferramenta, por exemplo gnostice tem e outros da tms senão me engano

O xml eu já estou conseguindo assinar ele....

já o PDF que esta meio complicado...

Talvez você possa me ajudar Juliomar..

eu estou usando esse Código para poder assinar o PDF...

Só que o Validador de assinatura diz que o documento não foi assinado...

function TFCenprot.assinar(caminho: string): string;
var
  fs : TFileStream;
  qt : integer;
  ch : PChar;
  msg, content : WideString;
   SignedData : ISignedData;
 ISigner : ISigner2;
begin
  { Abre o arquivo original para obter dele o conteúdo a ser assinado }

  fs := TFileStream.Create (caminho, fmOpenRead);
  New (ch);
  repeat
  qt := fs.Read(ch^, 1);
  if (qt > 0) then
  content := content + ch^;
  until qt = 0;
  fs.Free;
  Dispose (ch);

    if(Certificado = nil) Then
     buscaceritifcado;

   ISigner := CoSigner.Create;
   ISigner.Certificate := Certificado;

   SignedData := CoSignedData.Create;
   SignedData.Content := content;

    msg := SignedData.Sign(ISigner, true, CAPICOM_ENCODE_BASE64 );

   fs := TFileStream.Create ('C:\XML\13112019144_Ass.pdf', fmCreate);
    for qt := 1 to Length (msg) do
    fs.Write(msg[qt], 2);

  
    fs.Free;

end;

[Juliomar Marchetti]

http://cryptlib.sogot.de/DelphiSamp.html

https://www.gnostice.com/nl_article.asp?id=187&t=How_To_Digitally_Sign_A_PDF_Document_In_Delphi