Perl Requires Chilkat v9.5.0.90+

Add EncapsulatedTimestamp to Already-Signed XML

See more XML Digital Signatures Examples

Demonstrates how to add an EncapsulatedTimestamp to an existing XML signature. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

# Note: We cannot load the already-signed XML into a Chilkat XML object because it would re-format the XML when re-emitted.
# (i.e. indentation and whitespace could change, and it would invalidate the existing signature.)
# We must use a StringBuilder.
my $sbXml = Chilkat2::StringBuilder->new;
my $success = $sbXml->LoadFile('qa_data/xml_dsig_valid_samples/encapsulatedTimestamp_not_yet_added.xml', 'utf-8');
if (!$success) {
    print "Failed to load the XML file.\n";
    exit;
}

my $dsig = Chilkat2::XmlDSig->new;
$success = $dsig->LoadSignatureSb($sbXml);
if (!$success) {
    print $dsig->LastErrorText, "\n";
    exit;
}

if ($dsig->HasEncapsulatedTimeStamp()) {
    print "This signed XML already has an EncapsulatedTimeStamp\n";
    exit;
}

# Specify the timestamping authority URL
my $json = Chilkat2::JsonObject->new;
$json->UpdateString('timestampToken.tsaUrl', 'http://timestamp.digicert.com');
$json->UpdateBool('timestampToken.requestTsaCert', 1);

# Call AddEncapsulatedTimeStamp to add the EncapsulatedTimeStamp to the signature.
# Note: If the signed XML contains multiple signatures, the signature modified is the one
# indicated by the dsig.Selector property.
my $sbOut = Chilkat2::StringBuilder->new;
$success = $dsig->AddEncapsulatedTimeStamp($json, $sbOut);
if (!$success) {
    print $dsig->LastErrorText, "\n";
    exit;
}

$sbOut->WriteFile('qa_output/addedEncapsulatedTimeStamp.xml', 'utf-8', 0);

# The EncapsulatedTimeStamp can be validated when validating the signature by adding the VerifyEncapsulatedTimeStamp
# keyword to UncommonOptions.  See here:

# ----------------------------------------
# Verify the signatures we just produced...
my $verifier = Chilkat2::XmlDSig->new;
$success = $verifier->LoadSignatureSb($sbOut);
if (!$success) {
    print $verifier->LastErrorText, "\n";
    exit;
}

# Add "VerifyEncapsulatedTimeStamp" to the UncommonOptions to also verify any EncapsulatedTimeStamps
$verifier->UncommonOptions('VerifyEncapsulatedTimeStamp');

my $numSigs = $verifier->NumSignatures;
my $verifyIdx = 0;
while ($verifyIdx < $numSigs) {
    $verifier->Selector($verifyIdx);
    my $verified = $verifier->VerifySignature(1);
    if (!$verified) {
        print $verifier->LastErrorText, "\n";
        exit;
    }

    $verifyIdx = $verifyIdx + 1;
}

print "All signatures were successfully verified.\n";