Assinando um aplicativo .exe com capicom

[Dfox]

Tendo a dll capicom.dll  registra ela com comando regsvr32 capicom.dll

No Delphi : acesse, dentro do menu Component, a opção Import Component

Na janela que aparece, selecione Import a Type Library e pressione Next

para gerar a Unit CAPICOM_TLB.pas  inclua no projeto uses CAPICOM_TLB;

 

agora em um botão coloca o seguinte código

procedure TForm1.Button1Click(Sender: TObject);
var
  Certificado: ICertificate2;
  lSigner : ISigner2;
  SignedCode : ISignedCode;
begin
    {Assina um exe Digitalmente}
    try
      Certificado := CoCertificate.Create;
      SignedCode := CoSignedCode.Create;
      lSigner := CoSigner.Create;
      Certificado.Load('Certificado.pfx', 'senhacertificado', CAPICOM_CERTIFICATE_FIND_SUBJECT_NAME, CAPICOM_STORE_OPEN_READ_ONLY);
      SignedCode.FileName := 'Aplicativo.exe';
      lSigner.Certificate := Certificado;
      SignedCode.Sign(lSigner);
      SignedCode.TimeStamp('http://timestamp.digicert.com');
    finally

    end;
end;

 

Obs: Postei aqui porque não achei isso em lugar algum na net e queria deixar registrado!

[Dfox]

procedure TForm1.Button2Click(Sender: TObject);
var
  Store: IStore3;
  CertsLista, CertsSelecionado: ICertificates2;
  CertDados: ICertificate;
  lSigner : ISigner2;
  SignedCode : ISignedCode;
begin
  Store := CoStore.Create;
  Store.Open(CAPICOM_CURRENT_USER_STORE, 'My', CAPICOM_STORE_OPEN_READ_ONLY);
  CertsLista := Store.Certificates as ICertificates2;
  CertsSelecionado := CertsLista.Select('Certificado(s) Digital(is) disponível(is)', 'Selecione o Certificado Digital para uso no aplicativo', false);
  if not (CertsSelecionado.Count = 0) then
  begin
    CertDados := IInterface(CertsSelecionado.Item[1]) as ICertificate;
    SignedCode := CoSignedCode.Create;
    lSigner := CoSigner.Create;
    SignedCode.FileName := 'Aplicativo.exe';
    lSigner.Certificate := CertDados;
    SignedCode.Sign(lSigner);
    SignedCode.TimeStamp('http://timestamp.digicert.com');
  end;
end;

 

[Idea Sistemas - Valter]

Bom dia, Isso ajuda a evitar erros com o Warsal? componente de segurança de banco?

 

[BigWings]

2 minutos atrás, Idea Sistemas Sistemas disse:

Bom dia, Isso ajuda a evitar erros com o Warsal? componente de segurança de banco?

Ter a tua aplicação assinada ajuda sim.

Mas não necessariamente você precisa desenvolver a ferramenta pra assinar, que é o caso deste tópico. Tem utilitários prontos pra isso, como o signtool.exe da própria Microsoft.