Create Detached Signature using PFX

Creates and verifies a detached signature.

Download Chilkat Crypt ActiveX

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATCRYPT2Lib_TLB,
    CHILKATCERTIFICATELib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
crypt: TChilkatCrypt2;
success: Integer;
certStore: CHILKATCERTIFICATELib_TLB.IChilkatCertStore;
cert: CHILKATCRYPT2Lib_TLB.IChilkatCert;

begin
crypt := TChilkatCrypt2.Create(Self);

//  Any string argument automatically begins the 30-day trial.
success := crypt.UnlockComponent('30-day trial');
if (success <> 1) then
  begin
    ShowMessage('Crypt component unlock failed');
    Exit;
  end;

//  Create an instance of a certificate store object, load a PFX file,
//  locate the certificate we need, and use it for signing.
//  (a PFX file may contain more than one certificate.)
certStore := CoChilkatCertStore.Create();
//  The 1st argument is the filename, the 2nd arg is the
//  PFX file's password:
success := certStore.LoadPfxFile('chilkat.pfx','test');
if (success <> 1) then
  begin
    ShowMessage(certStore.LastErrorText);
    Exit;
  end;

cert := certStore.FindCertBySubject('Chilkat Software, Inc.') As CHILKATCRYPT2Lib_TLB.IChilkatCert;
if (cert = nil ) then
  begin
    ShowMessage(certStore.LastErrorText);
    Exit;
  end;

//  Tell the crypt component to use this cert.
crypt.SetSigningCert(cert As CHILKATCRYPT2Lib_TLB.IChilkatCert);

//  We can sign any type of file, creating a .sig as output:
success := crypt.CreateDetachedSignature('test.pdf','test.sig');
if (success = 1) then
  begin
    ShowMessage('Success!');
  end;
ShowMessage(crypt.LastErrorText);

//  Verify and restore the original file:
crypt.SetVerifyCert(cert As CHILKATCRYPT2Lib_TLB.IChilkatCert);

success := crypt.VerifyDetachedSignature('test.pdf','test.sig');
if (success = 1) then
  begin
    ShowMessage('Success!');
  end;
ShowMessage(crypt.LastErrorText);
end;