Delphi DLL

Get an S/MIME Signing Time

Demonstrates the Chilkat Mime.GetSignatureSigningTimeStr method, which returns the CMS signingTime attribute for the signer at a zero-based index, as an RFC 822-style date string in GMT. The only argument is the signer index.

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: This is the timestamp the signer asserted at signing — useful for "when was this signed" audit trails and for evaluating whether the signing certificate was valid at that moment. Because it is a signed attribute, it is tamper-evident. Guard the call with HasSignatureSigningTime, since the attribute is optional. Note it is the signer's claim, not a trusted third-party timestamp.

Chilkat Delphi DLL Downloads

Download Chilkat for Delphi DLL

Delphi DLL

var
success: Boolean;
mime: HCkMime;
n: Integer;
i: Integer;
signingTime: PWideChar;

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 verifying, get the CMS signingTime for each signer that has one, as an RFC 822 date string
//  in GMT.  The only argument is the zero-based signer index.
success := CkMime_Verify(mime);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkMime__lastErrorText(mime));
    Exit;
  end;

n := CkMime_getNumSignerCerts(mime);

for i := 0 to n - 1 do
  begin
    //  Only signers that included a signing time have one to retrieve.
    if (CkMime_HasSignatureSigningTime(mime,i)) then
      begin
        signingTime := CkMime__getSignatureSigningTimeStr(mime,i);
        if (CkMime_getLastMethodSuccess(mime) = False) then
          begin
            Memo1.Lines.Add(CkMime__lastErrorText(mime));
            Exit;
          end;
        Memo1.Lines.Add('Signer ' + IntToStr(i) + ' signing time: ' + signingTime);
      end;
  end;

CkMime_Dispose(mime);