Pascal (Lazarus/Delphi)

ConvertToSignedPk

See more MIME Examples

Demonstrates how to digitally sign MIME to create an "opaque" signature. The MIME is converted to an application/x-pkcs7-mime which is a PKCS7 signature that includes both the original MIME message and the signature. This is different than AddDetachedSignaturePk, where the signature is appended to the MIME. This example demonstrates how to use the certificate and its corresponding private key when they are stored in separate files -- a .cer for the certificate, and a .pem for the private key. Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Mime,
  Chilkat.PrivateKey,
  Chilkat.Cert;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  mime: TMime;
  cert: TCert;
  privKey: TPrivateKey;

begin
  success := False;

  //  This example assumes the Chilkat API to have been previously unlocked.
  //  See Global Unlock Sample for sample code.

  mime := TMime.Create;

  //  Load the certificate from a .cer file.
  cert := TCert.Create;
  success := cert.LoadFromFile('aaworkarea/myCert.cer');
  if (success = False) then
    begin
      WriteLn(cert.LastErrorText);
      Exit;
    end;

  //  Load the private key from an encrypted PEM file.
  //  (A private key can be loaded from other file formats also..)
  privKey := TPrivateKey.Create;
  success := privKey.LoadEncryptedPemFile('aaworkarea/myPrivateKey.pem','myPassword');
  if (success = False) then
    begin
      WriteLn(privKey.LastErrorText);
      Exit;
    end;

  success := mime.SetBodyFromPlainText('This is the plain-text MIME body.');

  //  Convert the MIME to application/x-pkcs7-mime, which
  //  is PKCS7 containing both the original content and the signature.
  success := mime.ConvertToSignedPk(cert,privKey);
  if (success = False) then
    begin
      WriteLn(mime.LastErrorText);
      Exit;
    end;

  //  Save the S/MIME to a file.
  success := mime.SaveMime('aaworkarea/opaqueSignedMime.txt');
  if (success = False) then
    begin
      WriteLn(mime.LastErrorText);
      Exit;
    end;

  WriteLn('success!');


  mime.Free;
  cert.Free;
  privKey.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.