(PowerBuilder) Verify a CAdES-BES Signature and Examine Signature Contents

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Crypt
string ls_OutputFile
string ls_InFile
integer li_Success
oleobject loo_Json
oleobject loo_AuthAttrSigningTimeUtctime
string ls_IssuerCN
string ls_Serial
string ls_StrVal
string ls_CertSubjectKeyIdentifier
string ls_CertDigestAlgOid
string ls_CertDigestAlgName
string ls_SigningAlgOid
string ls_SigningAlgName
string ls_AuthAttrContentTypeName
string ls_AuthAttrContentTypeOid
string ls_AuthAttrSigningTimeName
string ls_AuthAttrMessageDigestName
string ls_AuthAttrMessageDigestDigest
string ls_AuthAttrSigningCertificateV2Name
string ls_AuthAttrSigningCertificateV2Der
integer i
integer li_Count_i

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

loo_Crypt = create oleobject
li_rc = loo_Crypt.ConnectToNewObject("Chilkat_9_5_0.Crypt2")
if li_rc < 0 then
    destroy loo_Crypt
    MessageBox("Error","Connecting to COM object failed")
    return
end if

ls_OutputFile = "qa_output/original.xml"
ls_InFile = "qa_data/p7m/fattura_signature.xml.p7m"

// Verify the signature and extract the contained file, which in this case is XML.
li_Success = loo_Crypt.VerifyP7M(ls_InFile,ls_OutputFile)
if li_Success = 0 then
    Write-Debug loo_Crypt.LastErrorText
    destroy loo_Crypt
    return
end if

Write-Debug "Signature validated."

// Now let's examine the information about the signature.
loo_Json = loo_Crypt.LastJsonData()
if loo_Crypt.LastMethodSuccess = 0 then
    // This should never be the case...
    Write-Debug "No information available."
    destroy loo_Crypt
    return
end if

loo_Json.EmitCompact = 0
Write-Debug loo_Json.Emit()

// 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

loo_AuthAttrSigningTimeUtctime = create oleobject
li_rc = loo_AuthAttrSigningTimeUtctime.ConnectToNewObject("Chilkat_9_5_0.DtObj")

i = 0
li_Count_i = loo_Json.SizeOfArray("pkcs7.verify.certs")
do while i < li_Count_i
    loo_Json.I = i
    ls_IssuerCN = loo_Json.StringOf("pkcs7.verify.certs[i].issuerCN")
    ls_Serial = loo_Json.StringOf("pkcs7.verify.certs[i].serial")
    i = i + 1
loop
i = 0
li_Count_i = loo_Json.SizeOfArray("pkcs7.verify.digestAlgorithms")
do while i < li_Count_i
    loo_Json.I = i
    ls_StrVal = loo_Json.StringOf("pkcs7.verify.digestAlgorithms[i]")
    i = i + 1
loop
i = 0
li_Count_i = loo_Json.SizeOfArray("pkcs7.verify.signerInfo")
do while i < li_Count_i
    loo_Json.I = i
    ls_CertSubjectKeyIdentifier = loo_Json.StringOf("pkcs7.verify.signerInfo[i].cert.subjectKeyIdentifier")
    ls_CertDigestAlgOid = loo_Json.StringOf("pkcs7.verify.signerInfo[i].cert.digestAlgOid")
    ls_CertDigestAlgName = loo_Json.StringOf("pkcs7.verify.signerInfo[i].cert.digestAlgName")
    ls_SigningAlgOid = loo_Json.StringOf("pkcs7.verify.signerInfo[i].signingAlgOid")
    ls_SigningAlgName = loo_Json.StringOf("pkcs7.verify.signerInfo[i].signingAlgName")
    ls_AuthAttrContentTypeName = loo_Json.StringOf("pkcs7.verify.signerInfo[i].authAttr.\"1.2.840.113549.1.9.3\".name")
    ls_AuthAttrContentTypeOid = loo_Json.StringOf("pkcs7.verify.signerInfo[i].authAttr.\"1.2.840.113549.1.9.3\".oid")
    ls_AuthAttrSigningTimeName = loo_Json.StringOf("pkcs7.verify.signerInfo[i].authAttr.\"1.2.840.113549.1.9.5\".name")
    loo_Json.DtOf("pkcs7.verify.signerInfo[i].authAttr.\"1.2.840.113549.1.9.5\".utctime",0,loo_AuthAttrSigningTimeUtctime)
    ls_AuthAttrMessageDigestName = loo_Json.StringOf("pkcs7.verify.signerInfo[i].authAttr.\"1.2.840.113549.1.9.4\".name")
    ls_AuthAttrMessageDigestDigest = loo_Json.StringOf("pkcs7.verify.signerInfo[i].authAttr.\"1.2.840.113549.1.9.4\".digest")
    ls_AuthAttrSigningCertificateV2Name = loo_Json.StringOf("pkcs7.verify.signerInfo[i].authAttr.\"1.2.840.113549.1.9.16.2.47\".name")
    ls_AuthAttrSigningCertificateV2Der = loo_Json.StringOf("pkcs7.verify.signerInfo[i].authAttr.\"1.2.840.113549.1.9.16.2.47\".der")
    i = i + 1
loop

destroy loo_Json


destroy loo_Crypt
destroy loo_AuthAttrSigningTimeUtctime