Perl Requires Chilkat v11.0.0+

Verify a CAdES-BES Signature and Examine Signature Contents

See more Digital Signatures Examples

Demonstrates how to validate a .p7m (.p7s) signature and examine the contents of the signature. Perl

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();

$outputFile = "qa_output/original.xml";
$inFile = "qa_data/p7m/fattura_signature.xml.p7m";

#  Verify the signature and extract the contained file, which in this case is XML.
$success = $crypt->VerifyP7M($inFile,$outputFile);
if ($success == 0) {
    print $crypt->lastErrorText() . "\r\n";
    exit;
}

print "Signature validated." . "\r\n";

#  Now let's examine the information about the signature.
$json = chilkat::CkJsonObject->new();
$crypt->GetLastJsonData($json);

$json->put_EmitCompact(0);
print $json->emit() . "\r\n";

#  Here's an example of the information about the signature:
#  {
#    "pkcs7": {
#      "verify": {
#        "certs": [
#          {
#            "issuerCN": "Xyz EU Qualified Certificates CA G1",
#            "serial": "99A28A51AC389999"
#          }
#        ],
#        "useConstructedOctets": true,
#        "digestAlgorithms": [
#          "sha256"
#        ],
#        "signerInfo": [
#          {
#            "cert": {
#              "subjectKeyIdentifier": "5VM4x8AWnXf07yzbXuLtbb0U3yY=",
#              "digestAlgOid": "2.16.840.1.101.3.4.2.1",
#              "digestAlgName": "SHA256"
#            },
#            "signingAlgOid": "1.2.840.113549.1.1.11",
#            "signingAlgName": "RSA-SHA256-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": "190901152340Z"
#              },
#              "1.2.840.113549.1.9.4": {
#                "name": "messageDigest",
#                "digest": "y+gd/zAQK33A//HInhaZba7w1fUJleV9AHbP1Ntx6U0="
#              },
#              "1.2.840.113549.1.9.16.2.47": {
#                "name": "signingCertificateV2",
#                "der": "MIH4MI..w4vv0="
#              }
#            }
#          }
#        ]
#      }
#    }
#  }

#  Use this online tool to generate parsing code from sample JSON: 
#  Generate Parsing Code from JSON

$authAttrSigningTimeUtctime = chilkat::CkDtObj->new();

$i = 0;
$count_i = $json->SizeOfArray("pkcs7.verify.certs");
while ($i < $count_i) {
    $json->put_I($i);
    $issuerCN = $json->stringOf("pkcs7.verify.certs[i].issuerCN");
    $serial = $json->stringOf("pkcs7.verify.certs[i].serial");
    $i = $i + 1;
}

$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;
}

$i = 0;
$count_i = $json->SizeOfArray("pkcs7.verify.signerInfo");
while ($i < $count_i) {
    $json->put_I($i);
    $certSubjectKeyIdentifier = $json->stringOf("pkcs7.verify.signerInfo[i].cert.subjectKeyIdentifier");
    $certDigestAlgOid = $json->stringOf("pkcs7.verify.signerInfo[i].cert.digestAlgOid");
    $certDigestAlgName = $json->stringOf("pkcs7.verify.signerInfo[i].cert.digestAlgName");
    $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);
    $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");
    $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");
    $i = $i + 1;
}