Create Detached Signature File

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;
cert: TChilkatCert;

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;

cert := TChilkatCert.Create(Self);
cert.LoadByCommonName('Chilkat Software, Inc.');

//  Tell the crypt component to use this cert.
crypt.SetSigningCert(cert.ControlInterface 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.ControlInterface As CHILKATCRYPT2Lib_TLB.IChilkatCert);

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