Perl Requires Chilkat v11.0.0+
Chilkat2 Perl
RFC3161 Timestamp Client - Fetch from Timestamp Authority (TSA) and Verify
See more HTTP Examples
Sends an RFC 3161 timestamp request to a TSA (Timestamp Authority) server and validates the timestamp token response.Chilkat Perl Downloads
use strict;
use warnings;
use Chilkat2;
# This requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
# First sha-256 hash the data that is to be timestamped.
# In this example, the data is the string "Hello World"
my $crypt = Chilkat2::Crypt2->new;
$crypt->HashAlgorithm('sha256');
$crypt->EncodingMode('base64');
my $base64Hash = $crypt->HashStringENC('Hello World');
my $http = Chilkat2::Http->new;
my $requestToken = Chilkat2::BinData->new;
my $optionalPolicyOid = '';
my $addNonce = 0;
my $requestTsaCert = 1;
# Create a time-stamp request token
my $success = $http->CreateTimestampRequest('sha256', $base64Hash, $optionalPolicyOid, $addNonce, $requestTsaCert, $requestToken);
if (!$success) {
print $http->LastErrorText, "\n";
exit;
}
# Send the time-stamp request token to the TSA.
# This is the equivalent of the following CURL command:
# curl -H "Content-Type: application/timestamp-query" --data-binary '@file.tsq' https://freetsa.org/tsr > file.tsr
# Another timestamp server you could try is: http://timestamp.digicert.com
my $tsaUrl = 'http://timestamp.digicert.com';
my $resp = Chilkat2::HttpResponse->new;
$success = $http->HttpBd('POST', $tsaUrl, $requestToken, 'application/timestamp-query', $resp);
if (!$success) {
print $http->LastErrorText, "\n";
exit;
}
# Get the timestamp reply from the HTTP response object.
my $timestampReply = Chilkat2::BinData->new;
$resp->GetBodyBd($timestampReply);
# Show the base64 encoded timestamp reply.
print $timestampReply->GetEncoded('base64'), "\n";
# Let's verify the timestamp reply against the TSA's cert, which we've previously downloaded.
# See https://freetsa.org/index_en.php
my $tsaCert = Chilkat2::Cert->new;
$success = $tsaCert->LoadFromFile('qa_data/certs/freetsa.org.cer');
if (!$success) {
print $tsaCert->LastErrorText, "\n";
exit;
}
# The VerifyTimestampReply method will return one of the following values:
# -1: The timestampReply does not contain a valid timestamp reply.
# -2: The timestampReply is a valid timestamp reply, but failed verification using the public key of the tsaCert.
# 0: Granted and verified.
# 1: Granted and verified, with mods (see RFC 3161)
# 2: Rejected.
# 3: Waiting.
# 4: Revocation Warning
# 5: Revocation Notification
my $pkiStatus = $http->VerifyTimestampReply($timestampReply, $tsaCert);
if ($pkiStatus < 0) {
print $http->LastErrorText, "\n";
exit;
}
print 'pkiStatus = ', $pkiStatus, "\n";
my $json = Chilkat2::JsonObject->new;
$http->GetLastJsonData($json);
$json->EmitCompact(0);
print $json->Emit(), "\n";
# The JSON looks like the following.
# Use this online tool to generate parsing code from sample JSON:
# Generate Parsing Code from JSON
# {
# "timestampReply": {
# "pkiStatus": {
# "value": 0,
# "meaning": "granted"
# }
# },
# "pkcs7": {
# "verify": {
# "digestAlgorithms": [
# "sha256"
# ],
# "signerInfo": [
# {
# "cert": {
# "serialNumber": "04CD3F8568AE76C61BB0FE7160CCA76D",
# "issuerCN": "DigiCert SHA2 Assured ID Timestamping CA",
# "digestAlgOid": "2.16.840.1.101.3.4.2.1",
# "digestAlgName": "SHA256"
# },
# "contentType": "1.2.840.113549.1.9.16.1.4",
# "signingTime": "200405023019Z",
# "messageDigest": "f14zOsdnN9vyyV3HjjBiLzNDi1PF28hAFMODxNkNRZs=",
# "signingAlgOid": "1.2.840.113549.1.1.1",
# "signingAlgName": "RSA-PKCSV-1_5",
# "authAttr": {
# "1.2.840.113549.1.9.3": {
# "name": "contentType",
# "oid": "1.2.840.113549.1.9.16.1.4"
# },
# "1.2.840.113549.1.9.5": {
# "name": "signingTime",
# "utctime": "200405023019Z"
# },
# "1.2.840.113549.1.9.16.2.12": {
# "name": "signingCertificate",
# "der": "MBowGDAWBBQDJb1QXtqWMC3CL0+gHkwovig0xQ=="
# },
# "1.2.840.113549.1.9.4": {
# "name": "messageDigest",
# "digest": "f14zOsdnN9vyyV3HjjBiLzNDi1PF28hAFMODxNkNRZs="
# }
# }
# }
# ]
# }
# }
# }
my $signingTime = Chilkat2::DtObj->new;
my $authAttrSigningTimeUtctime = Chilkat2::DtObj->new;
my $strVal = '';
my $certSerialNumber = '';
my $certIssuerCN = '';
my $certDigestAlgOid = '';
my $certDigestAlgName = '';
my $contentType = '';
my $messageDigest = '';
my $signingAlgOid = '';
my $signingAlgName = '';
my $authAttrContentTypeName = '';
my $authAttrContentTypeOid = '';
my $authAttrSigningTimeName = '';
my $authAttrSigningCertificateName = '';
my $authAttrSigningCertificateDer = '';
my $authAttrMessageDigestName = '';
my $authAttrMessageDigestDigest = '';
my $timestampReplyPkiStatusValue = $json->IntOf('timestampReply.pkiStatus.value');
my $timestampReplyPkiStatusMeaning = $json->StringOf('timestampReply.pkiStatus.meaning');
my $i = 0;
my $count_i = $json->SizeOfArray('pkcs7.verify.digestAlgorithms');
while ($i < $count_i) {
$json->I($i);
$strVal = $json->StringOf('pkcs7.verify.digestAlgorithms[i]');
$i = $i + 1;
}
$i = 0;
$count_i = $json->SizeOfArray('pkcs7.verify.signerInfo');
while ($i < $count_i) {
$json->I($i);
$certSerialNumber = $json->StringOf('pkcs7.verify.signerInfo[i].cert.serialNumber');
$certIssuerCN = $json->StringOf('pkcs7.verify.signerInfo[i].cert.issuerCN');
$certDigestAlgOid = $json->StringOf('pkcs7.verify.signerInfo[i].cert.digestAlgOid');
$certDigestAlgName = $json->StringOf('pkcs7.verify.signerInfo[i].cert.digestAlgName');
$contentType = $json->StringOf('pkcs7.verify.signerInfo[i].contentType');
$json->DtOf('pkcs7.verify.signerInfo[i].signingTime', 0, $signingTime);
$messageDigest = $json->StringOf('pkcs7.verify.signerInfo[i].messageDigest');
$signingAlgOid = $json->StringOf('pkcs7.verify.signerInfo[i].signingAlgOid');
$signingAlgName = $json->StringOf('pkcs7.verify.signerInfo[i].signingAlgName');
$authAttrContentTypeName = $json->StringOf('pkcs7.verify.signerInfo[i].authAttr."1.2.840.113549.1.9.3".name');
$authAttrContentTypeOid = $json->StringOf('pkcs7.verify.signerInfo[i].authAttr."1.2.840.113549.1.9.3".oid');
$authAttrSigningTimeName = $json->StringOf('pkcs7.verify.signerInfo[i].authAttr."1.2.840.113549.1.9.5".name');
$json->DtOf('pkcs7.verify.signerInfo[i].authAttr."1.2.840.113549.1.9.5".utctime', 0, $authAttrSigningTimeUtctime);
$authAttrSigningCertificateName = $json->StringOf('pkcs7.verify.signerInfo[i].authAttr."1.2.840.113549.1.9.16.2.12".name');
$authAttrSigningCertificateDer = $json->StringOf('pkcs7.verify.signerInfo[i].authAttr."1.2.840.113549.1.9.16.2.12".der');
$authAttrMessageDigestName = $json->StringOf('pkcs7.verify.signerInfo[i].authAttr."1.2.840.113549.1.9.4".name');
$authAttrMessageDigestDigest = $json->StringOf('pkcs7.verify.signerInfo[i].authAttr."1.2.840.113549.1.9.4".digest');
$i = $i + 1;
}