Perl
Perl
Validate CAdES-T Signature (.p7m)
See more CAdES Examples
Validates a CAdES-T CMS signature and extracts the time-stamp token and gets information about it. Also validates the time-stamp token.Chilkat Perl Downloads
use chilkat();
$success = 0;
# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
$crypt = chilkat::CkCrypt2->new();
# Indicate that the CAdES-T timestamp tokens must also pass validation for the signature to be validated.
$cmsOptions = chilkat::CkJsonObject->new();
$cmsOptions->UpdateBool("ValidateTimestampTokens",1);
$crypt->put_CmsOptions($cmsOptions->emit());
# Validate the .p7m and extract the original signed data to an output file.
# Note: The timestampToken is an unauthenticated attribute. See the code below that retrieves and parses the last JSON data.
# for details about examining timestampToken.
$success = $crypt->VerifyP7M("qa_data/cades/CAdES-T/Signature-C-T-1.p7m","qa_output/out.dat");
# Get information about the CMS signature in the last JSON data.
# The detailed results of the signature validation are available in the last JSON data.
# (If the non-success return status was caused by an error such as "file not found", then the
# last JSON data would be empty.)
$json = chilkat::CkJsonObject->new();
$crypt->GetLastJsonData($json);
$json->put_EmitCompact(0);
print $json->emit() . "\r\n";
# Here is a sample result:
# See the parsing code below..
# Use this online tool to generate parsing code from sample JSON:
# Generate Parsing Code from JSON
# {
# "pkcs7": {
# "verify": {
# "digestAlgorithms": [
# "sha256"
# ],
# "signerInfo": [
# {
# "cert": {
# "serialNumber": "00DCB814678CDB",
# "issuerCN": "LevelBCAOK",
# "issuerDN": "",
# "digestAlgOid": "2.16.840.1.101.3.4.2.1",
# "digestAlgName": "SHA256"
# },
# "contentType": "1.2.840.113549.1.7.1",
# "signingTime": "131203065741Z",
# "messageDigest": "JJZt41Nt8VsYahP+Xti4rR3vBDkUfRd6gquItl6R5Os=",
# "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.7.1"
# },
# "1.2.840.113549.1.9.5": {
# "name": "signingTime",
# "utctime": "131203065741Z"
# },
# "1.2.840.113549.1.9.4": {
# "name": "messageDigest",
# "digest": "JJZt41Nt8VsYahP+Xti4rR3vBDkUfRd6gquItl6R5Os="
# },
# "1.2.840.113549.1.9.16.2.47": {
# "name": "signingCertificateV2",
# "der": "MIGIMIGFMIGCBCBJrxOU0w0dWGsVovjLv9QDH3syB5mLVv3grSYA40x9IDBeMFOkUTBPMQswCQYDVQQGEwJGUjENMAsGA1UEChMERVRTSTEcMBoGA1UECwwTUGx1Z3Rlc3RzXzIwMTMtMjAxNDETMBEGA1UEAxMKTGV2ZWxCQ0FPSwIHANy4FGeM2w=="
# }
# },
# "unauthAttr": {
# "1.2.840.113549.1.9.16.2.14": {
# "name": "timestampToken",
# "der": "MIIL+AYJKoZI...u7CfcjURNTY=",
# "verify": {
# "digestAlgorithms": [
# "sha256"
# ],
# "signerInfo": [
# {
# "cert": {
# "serialNumber": "01AA4592D36C61",
# "issuerCN": "RootCAOK",
# "issuerDN": "",
# "digestAlgOid": "2.16.840.1.101.3.4.2.1",
# "digestAlgName": "SHA256"
# },
# "contentType": "1.2.840.113549.1.9.16.1.4",
# "messageDigest": "NSsMUrfoyCQ0OszPE1YLx1j3EyyCiBmnE5Sua6ghu/Q=",
# "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.4": {
# "name": "messageDigest",
# "digest": "NSsMUrfoyCQ0OszPE1YLx1j3EyyCiBmnE5Sua6ghu/Q="
# },
# "1.2.840.113549.1.9.16.2.47": {
# "name": "signingCertificateV2",
# "der": "MIGGMIGDMIGABCDB/np5UxvhcPnSxD2Kme+C88uXGCMWLAvFPHNvTApTWDBcMFGkTzBNMQswCQYDVQQGEwJGUjENMAsGA1UEChMERVRTSTEcMBoGA1UECwwTUGx1Z3Rlc3RzXzIwMTMtMjAxNDERMA8GA1UEAxMIUm9vdENBT0sCBwGqRZLTbGE="
# }
# }
# }
# ]
# },
# "timestampSignatureVerified": true,
# "tstInfo": {
# "tsaPolicyId": "1.3.6.1.4.1.2706.2.2.5.2.1.1.1",
# "messageImprint": {
# "hashAlg": "sha256",
# "digest": "C8xEe9NA4X1cUyHGX9zG89ipmQ2byFs3aa+Xe4Fz2P0=",
# "digestMatches": true
# },
# "serialNumber": "313E162121D922",
# "genTime": "20131203065742Z"
# }
# }
# }
# }
# ]
# }
# }
# }
#
$signingTime = chilkat::CkDtObj->new();
$authAttrSigningTimeUtctime = chilkat::CkDtObj->new();
$unauthAttrTimestampTokenTstInfoGenTime = chilkat::CkDtObj->new();
# Iterate over the hash algorithms used in the signature.
$i = 0;
$count_i = $json->SizeOfArray("pkcs7.verify.digestAlgorithms");
while ($i < $count_i) {
$json->put_I($i);
$strVal = $json->stringOf("pkcs7.verify.digestAlgorithms[i]");
$i = $i + 1;
}
# For each signer...
$i = 0;
$count_i = $json->SizeOfArray("pkcs7.verify.signerInfo");
while ($i < $count_i) {
$json->put_I($i);
# Get information about the certificate used by this signer.
$certSerialNumber = $json->stringOf("pkcs7.verify.signerInfo[i].cert.serialNumber");
$certIssuerCN = $json->stringOf("pkcs7.verify.signerInfo[i].cert.issuerCN");
$certIssuerDN = $json->stringOf("pkcs7.verify.signerInfo[i].cert.issuerDN");
$certDigestAlgOid = $json->stringOf("pkcs7.verify.signerInfo[i].cert.digestAlgOid");
$certDigestAlgName = $json->stringOf("pkcs7.verify.signerInfo[i].cert.digestAlgName");
# Get additional information for this signer, such as the signingTime, signature algorithm, etc.
$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");
# --------------------------------
# Examine authenticated attributes.
# --------------------------------
# contentType
if ($json->HasMember("pkcs7.verify.signerInfo[i].authAttr.\"1.2.840.113549.1.9.3\"") == 1) {
$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");
}
# signingTime
if ($json->HasMember("pkcs7.verify.signerInfo[i].authAttr.\"1.2.840.113549.1.9.5\"") == 1) {
$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);
}
# messageDigest
if ($json->HasMember("pkcs7.verify.signerInfo[i].authAttr.\"1.2.840.113549.1.9.4\"") == 1) {
$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");
}
# signingCertificateV2
if ($json->HasMember("pkcs7.verify.signerInfo[i].authAttr.\"1.2.840.113549.1.9.16.2.47\"") == 1) {
$authAttrSigningCertificateV2Name = $json->stringOf("pkcs7.verify.signerInfo[i].authAttr.\"1.2.840.113549.1.9.16.2.47\".name");
$authAttrSigningCertificateV2Der = $json->stringOf("pkcs7.verify.signerInfo[i].authAttr.\"1.2.840.113549.1.9.16.2.47\".der");
}
# --------------------------------
# Examine unauthenticated attributes.
# --------------------------------
# timestampToken (the timestampToken is what makes this signature a CAdES-T)
if ($json->HasMember("pkcs7.verify.signerInfo[i].unauthAttr.\"1.2.840.113549.1.9.16.2.14\"") == 1) {
$unauthAttrTimestampTokenName = $json->stringOf("pkcs7.verify.signerInfo[i].unauthAttr.\"1.2.840.113549.1.9.16.2.14\".name");
$unauthAttrTimestampTokenDer = $json->stringOf("pkcs7.verify.signerInfo[i].unauthAttr.\"1.2.840.113549.1.9.16.2.14\".der");
# This is where we find out if the timestampToken's signature is valid.
$unauthAttrTimestampTokenTimestampSignatureVerified = $json->BoolOf("pkcs7.verify.signerInfo[i].unauthAttr.\"1.2.840.113549.1.9.16.2.14\".timestampSignatureVerified");
$unauthAttrTimestampTokenTstInfoTsaPolicyId = $json->stringOf("pkcs7.verify.signerInfo[i].unauthAttr.\"1.2.840.113549.1.9.16.2.14\".tstInfo.tsaPolicyId");
$unauthAttrTimestampTokenTstInfoMessageImprintHashAlg = $json->stringOf("pkcs7.verify.signerInfo[i].unauthAttr.\"1.2.840.113549.1.9.16.2.14\".tstInfo.messageImprint.hashAlg");
$unauthAttrTimestampTokenTstInfoMessageImprintDigest = $json->stringOf("pkcs7.verify.signerInfo[i].unauthAttr.\"1.2.840.113549.1.9.16.2.14\".tstInfo.messageImprint.digest");
# Here is where we check to see if the digest in the timestampToken's messageImprint matches the digest of the signature of this signerInfo
$unauthAttrTimestampTokenTstInfoMessageImprintDigestMatches = $json->BoolOf("pkcs7.verify.signerInfo[i].unauthAttr.\"1.2.840.113549.1.9.16.2.14\".tstInfo.messageImprint.digestMatches");
$unauthAttrTimestampTokenTstInfoSerialNumber = $json->stringOf("pkcs7.verify.signerInfo[i].unauthAttr.\"1.2.840.113549.1.9.16.2.14\".tstInfo.serialNumber");
# Here is where we get the date/time of the timestampToken (i.e. when it was timestamped)
$json->DtOf("pkcs7.verify.signerInfo[i].unauthAttr.\"1.2.840.113549.1.9.16.2.14\".tstInfo.genTime",0,$unauthAttrTimestampTokenTstInfoGenTime);
# The following code gets details about the validity of the timestampToken's signature...
$j = 0;
$count_j = $json->SizeOfArray("pkcs7.verify.signerInfo[i].unauthAttr.\"1.2.840.113549.1.9.16.2.14\".verify.digestAlgorithms");
while ($j < $count_j) {
$json->put_J($j);
$strVal = $json->stringOf("pkcs7.verify.signerInfo[i].unauthAttr.\"1.2.840.113549.1.9.16.2.14\".verify.digestAlgorithms[j]");
$j = $j + 1;
}
$j = 0;
$count_j = $json->SizeOfArray("pkcs7.verify.signerInfo[i].unauthAttr.\"1.2.840.113549.1.9.16.2.14\".verify.signerInfo");
while ($j < $count_j) {
$json->put_J($j);
$certSerialNumber = $json->stringOf("pkcs7.verify.signerInfo[i].unauthAttr.\"1.2.840.113549.1.9.16.2.14\".verify.signerInfo[j].cert.serialNumber");
$certIssuerCN = $json->stringOf("pkcs7.verify.signerInfo[i].unauthAttr.\"1.2.840.113549.1.9.16.2.14\".verify.signerInfo[j].cert.issuerCN");
$certIssuerDN = $json->stringOf("pkcs7.verify.signerInfo[i].unauthAttr.\"1.2.840.113549.1.9.16.2.14\".verify.signerInfo[j].cert.issuerDN");
$certDigestAlgOid = $json->stringOf("pkcs7.verify.signerInfo[i].unauthAttr.\"1.2.840.113549.1.9.16.2.14\".verify.signerInfo[j].cert.digestAlgOid");
$certDigestAlgName = $json->stringOf("pkcs7.verify.signerInfo[i].unauthAttr.\"1.2.840.113549.1.9.16.2.14\".verify.signerInfo[j].cert.digestAlgName");
$contentType = $json->stringOf("pkcs7.verify.signerInfo[i].unauthAttr.\"1.2.840.113549.1.9.16.2.14\".verify.signerInfo[j].contentType");
$messageDigest = $json->stringOf("pkcs7.verify.signerInfo[i].unauthAttr.\"1.2.840.113549.1.9.16.2.14\".verify.signerInfo[j].messageDigest");
$signingAlgOid = $json->stringOf("pkcs7.verify.signerInfo[i].unauthAttr.\"1.2.840.113549.1.9.16.2.14\".verify.signerInfo[j].signingAlgOid");
$signingAlgName = $json->stringOf("pkcs7.verify.signerInfo[i].unauthAttr.\"1.2.840.113549.1.9.16.2.14\".verify.signerInfo[j].signingAlgName");
$authAttrContentTypeName = $json->stringOf("pkcs7.verify.signerInfo[i].unauthAttr.\"1.2.840.113549.1.9.16.2.14\".verify.signerInfo[j].authAttr.\"1.2.840.113549.1.9.3\".name");
$authAttrContentTypeOid = $json->stringOf("pkcs7.verify.signerInfo[i].unauthAttr.\"1.2.840.113549.1.9.16.2.14\".verify.signerInfo[j].authAttr.\"1.2.840.113549.1.9.3\".oid");
$authAttrMessageDigestName = $json->stringOf("pkcs7.verify.signerInfo[i].unauthAttr.\"1.2.840.113549.1.9.16.2.14\".verify.signerInfo[j].authAttr.\"1.2.840.113549.1.9.4\".name");
$authAttrMessageDigestDigest = $json->stringOf("pkcs7.verify.signerInfo[i].unauthAttr.\"1.2.840.113549.1.9.16.2.14\".verify.signerInfo[j].authAttr.\"1.2.840.113549.1.9.4\".digest");
$authAttrSigningCertificateV2Name = $json->stringOf("pkcs7.verify.signerInfo[i].unauthAttr.\"1.2.840.113549.1.9.16.2.14\".verify.signerInfo[j].authAttr.\"1.2.840.113549.1.9.16.2.47\".name");
$authAttrSigningCertificateV2Der = $json->stringOf("pkcs7.verify.signerInfo[i].unauthAttr.\"1.2.840.113549.1.9.16.2.14\".verify.signerInfo[j].authAttr.\"1.2.840.113549.1.9.16.2.47\".der");
$j = $j + 1;
}
}
$i = $i + 1;
}
if ($success != 1) {
print $crypt->lastErrorText() . "\r\n";
print "CAdES-T verification failed." . "\r\n";
}
else {
print "CAdES-T signature is valid." . "\r\n";
}