Perl

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 Perl Downloads

Download Chilkat for Perl

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $mime = Chilkat2::Mime->new;
my $success = $mime->LoadMimeFile('qa_data/signed.eml');
if (!$success) {
    print $mime->LastErrorText, "\n";
    exit;
}

# 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 = $mime->Verify();
if (!$success) {
    print $mime->LastErrorText, "\n";
    exit;
}

my $n = $mime->NumSignerCerts;
for my $i (0 .. $n - 1) {
    # Only signers that included a signing time have one to retrieve.
    if ($mime->HasSignatureSigningTime($i)) {
        my $signingTime = $mime->GetSignatureSigningTimeStr($i);
        if (!$mime->LastMethodSuccess) {
            print $mime->LastErrorText, "\n";
            exit;
        }

        print 'Signer ', $i, ' signing time: ', $signingTime, "\n";
    }
}