Verify .p7s and Extract Original File

Delphi example to verify and unpack the contents of a .p7s to restore the original file.

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;
ccs: TChilkatCreateCS;
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.LastErrorText);
    Exit;
  end;

//  Find our digital certificate from the Current User certificate store.
ccs := TChilkatCreateCS.Create(Self);

certStore := ccs.OpenCurrentUserStore();

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

    Exit;
  end;

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

success := crypt.VerifyP7S('license.p7s','license2.rtf');
if (success = 0) then
  begin
    ShowMessage(crypt.LastErrorText);

    Exit;
  end;

ShowMessage('Success!');
end;