Delphi ActiveX

Verify the Digital Signatures on an Email

Demonstrates the read-only Chilkat Email.SignaturesValid property, which is true when the email was received with one or more digital signatures and all of them validated, indicating the message was not altered. It is only meaningful when ReceivedSigned is true, so this example checks that first.

Background: A valid signature proves integrity — the bytes that were signed are exactly the bytes you received — but that is not the same as trust. A message can carry a perfectly valid signature from a certificate you have no reason to trust (self-signed, expired, or from an unknown issuer). So after confirming SignaturesValid, an application that needs assurance of who signed should separately examine the signer certificate and its chain (see LastSignerCert).

Chilkat Delphi ActiveX Downloads

Download Chilkat for Delphi ActiveX

Delphi ActiveX

var
success: Integer;
email: TChilkatEmail;

begin
success := 0;

//  Demonstrates the read-only Email.SignaturesValid property, which is true if the email
//  was received with one or more digital signatures AND all of them validated (indicating
//  the email was not altered).  It is only meaningful when ReceivedSigned is true.

email := TChilkatEmail.Create(Self);

success := email.LoadEml('qa_data/eml/signed.eml');
if (success = 0) then
  begin
    Memo1.Lines.Add(email.LastErrorText);
    Exit;
  end;

if (email.ReceivedSigned = 1) then
  begin
    if (email.SignaturesValid = 1) then
      begin
        Memo1.Lines.Add('The signature(s) verified: the email was not altered.');
      end
    else
      begin
        Memo1.Lines.Add('Signature verification FAILED.');
      end;
  end
else
  begin
    Memo1.Lines.Add('This email was not received with a digital signature.');
  end;

//  Note: Paths such as "qa_data/..." are relative local filesystem paths,
//  relative to the current working directory of the running application.