Decrypt S/MIME using a Certificate with Private Key Access

See more MIME Examples

Loads a CMS/PKCS #7 encrypted S/MIME message and decrypts it back to the original MIME content.

DecryptUsingCert takes a single certificate that already has access to its associated private key, for example a certificate loaded from a PFX.

The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

var
success: Integer;
mime: TChilkatMime;
pfxPassword: WideString;
cert: TChilkatCert;
body: WideString;

begin
success := 0;

mime := TChilkatMime.Create(Self);
success := mime.LoadMimeFile('qa_data/encrypted.eml');
if (success = 0) then
  begin
    Memo1.Lines.Add(mime.LastErrorText);
    Exit;
  end;

//  Decrypt using a certificate that already provides access to its private key (for example loaded
//  from a PFX).  The only argument is the certificate.
pfxPassword := 'myPfxPassword';
cert := TChilkatCert.Create(Self);
success := cert.LoadPfxFile('qa_data/recipient.pfx',pfxPassword);
if (success = 0) then
  begin
    Memo1.Lines.Add(cert.LastErrorText);
    Exit;
  end;

success := mime.DecryptUsingCert(cert.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(mime.LastErrorText);
    Exit;
  end;

body := mime.GetBodyDecoded();
if (mime.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add(mime.LastErrorText);
    Exit;
  end;
Memo1.Lines.Add(body);