Delphi DLL

Get the S/MIME Signer's Certificate

Demonstrates the Chilkat Mime.LastSignerCert method, which loads the signer certificate at a zero-based index from the most recent successful verification (or security-unwrapping) into a Cert. The first argument is the signer index and the second is the receiving Cert.

Note: 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.

Background: Verifying tells you the signature is mathematically valid, but you usually also need to know who signed — the subject, the issuer, the validity dates — to decide whether to trust it. This retrieves each signer's certificate after verification so your code can inspect and apply its own trust rules. A message can have multiple signers, so iterate from 0 to NumSignerCerts - 1.

Chilkat Delphi DLL Downloads

Download Chilkat for Delphi DLL

Delphi DLL

var
success: Boolean;
mime: HCkMime;
n: Integer;
cert: HCkCert;
i: Integer;

begin
success := False;

mime := CkMime_Create();
success := CkMime_LoadMimeFile(mime,'qa_data/signed.eml');
if (success = False) then
  begin
    Memo1.Lines.Add(CkMime__lastErrorText(mime));
    Exit;
  end;

//  After a successful verification, load each signer's certificate to inspect it.  The 1st argument
//  is the zero-based signer index and the 2nd is a Cert object that receives the certificate.
success := CkMime_Verify(mime);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkMime__lastErrorText(mime));
    Exit;
  end;

n := CkMime_getNumSignerCerts(mime);
cert := CkCert_Create();

for i := 0 to n - 1 do
  begin
    success := CkMime_LastSignerCert(mime,i,cert);
    if (success = False) then
      begin
        Memo1.Lines.Add(CkMime__lastErrorText(mime));
        Exit;
      end;
    Memo1.Lines.Add('Signer ' + IntToStr(i) + ': ' + CkCert__subjectCN(cert) + ' (issued by ' + CkCert__issuerCN(cert) + ')');
  end;

CkMime_Dispose(mime);
CkCert_Dispose(cert);