PowerBuilder Requires Chilkat v11.0.0+

P7S - Access Signature Information (date/time, certificate used, etc.)

See more Digital Signatures Examples

Examine a PKCS7 signature (.p7s) and get information about it. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Bd
oleobject loo_Crypt
oleobject loo_Json
integer i
integer li_Count_i
string ls_StrVal
string ls_CertSerialNumber
string ls_CertIssuerCN
string ls_CertIssuerDN
string ls_CertDigestAlgOid
string ls_CertDigestAlgName
string ls_ContentType
string ls_SigningTime
string ls_MessageDigest
string ls_SigningAlgOid
string ls_SignerDigest
oleobject loo_Dt

li_Success = 0

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

//  First load the .p7s file into a BinData object..
loo_Bd = create oleobject
li_rc = loo_Bd.ConnectToNewObject("Chilkat.BinData")
if li_rc < 0 then
    destroy loo_Bd
    MessageBox("Error","Connecting to COM object failed")
    return
end if
li_Success = loo_Bd.LoadFile("qa_data/p7s/sample.p7s")
if li_Success <> 1 then
    Write-Debug "Failed to load .p7s file."
    destroy loo_Bd
    return
end if

loo_Crypt = create oleobject
li_rc = loo_Crypt.ConnectToNewObject("Chilkat.Crypt2")

//  Assuming this is a signature that contains the original data that was signed..
li_Success = loo_Crypt.OpaqueVerifyBd(loo_Bd)
if li_Success = 0 then
    Write-Debug loo_Crypt.LastErrorText
    destroy loo_Bd
    destroy loo_Crypt
    return
end if

//  Examine the last JSON data after signature verification..
loo_Json = create oleobject
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")

loo_Crypt.GetLastJsonData(loo_Json)

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

//  Sample output...
//  Go to http://tools.chilkat.io/jsonParse.cshtml
//  and paste the JSON into the online form to generate JSON parsing code.

//  {
//    "pkcs7": {
//      "verify": {
//        "digestAlgorithms": [
//          "sha256"
//        ],
//        "signerInfo": [
//          {
//            "cert": {
//              "serialNumber": "AAC5FC48C0FD8FBB",
//              "issuerCN": "AC ABCDEF RFB v5",
//              "issuerDN": "",
//              "digestAlgOid": "2.16.840.1.101.3.4.2.1",
//              "digestAlgName": "SHA-256"
//            },
//            "contentType": "1.2.840.113549.1.7.1",
//            "signingTime": "180607195054Z",
//            "messageDigest": "trzyxXbZ96z2M4mncyZ7BNMV4yIT92+5sS27Fu64iG8=",
//            "signingAlgOid": "1.2.840.113549.1.1.11",
//            "signerDigest": "trzyxXbZ96z2M4mncyZ7BNMV4yIT92+5sS27Fu64iG8="
//          },
//          {
//            "cert": {
//              "serialNumber": "324FB38ABD59723F",
//              "issuerCN": "AC ABCDEF RFB v5",
//              "issuerDN": "",
//              "digestAlgOid": "2.16.840.1.101.3.4.2.1",
//              "digestAlgName": "SHA-256"
//            },
//            "contentType": "1.2.840.113549.1.7.1",
//            "signingTime": "180608182517Z",
//            "messageDigest": "trzyxXbZ96z2M4mncyZ7BNMV4yIT92+5sS27Fu64iG8=",
//            "signingAlgOid": "1.2.840.113549.1.1.11",
//            "signerDigest": "trzyxXbZ96z2M4mncyZ7BNMV4yIT92+5sS27Fu64iG8="
//          }
//        ]
//      }
//    }
//  }
//  

loo_Dt = create oleobject
li_rc = loo_Dt.ConnectToNewObject("Chilkat.CkDateTime")

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_CertSerialNumber = loo_Json.StringOf("pkcs7.verify.signerInfo[i].cert.serialNumber")
    ls_CertIssuerCN = loo_Json.StringOf("pkcs7.verify.signerInfo[i].cert.issuerCN")
    ls_CertIssuerDN = loo_Json.StringOf("pkcs7.verify.signerInfo[i].cert.issuerDN")
    ls_CertDigestAlgOid = loo_Json.StringOf("pkcs7.verify.signerInfo[i].cert.digestAlgOid")
    ls_CertDigestAlgName = loo_Json.StringOf("pkcs7.verify.signerInfo[i].cert.digestAlgName")
    ls_ContentType = loo_Json.StringOf("pkcs7.verify.signerInfo[i].contentType")
    ls_SigningTime = loo_Json.StringOf("pkcs7.verify.signerInfo[i].signingTime")

    //  The signingTime isin UTCTime format.
    //  UTCTime values take the form of either "YYMMDDhhmm[ss]Z" or "YYMMDDhhmm[ss](+|-)hhmm"
    //  Starting in Chilkat v9.5.0.77, the SetFromTimestamp method auto-recognizes the UTCTime format and parses it correctly.
    li_Success = loo_Dt.SetFromTimestamp(ls_SigningTime)
    //  To get the signingTime in other date/time formats, look at the online reference documentation for CkDateTime.
    //  There are numerous methods such as GetAsDateTime, GetAsIso8601, GetAsUnixTime, GetAsRfc822, etc.

    ls_MessageDigest = loo_Json.StringOf("pkcs7.verify.signerInfo[i].messageDigest")
    ls_SigningAlgOid = loo_Json.StringOf("pkcs7.verify.signerInfo[i].signingAlgOid")
    ls_SignerDigest = loo_Json.StringOf("pkcs7.verify.signerInfo[i].signerDigest")
    i = i + 1
loop

//  println crypt.LastErrorText;
Write-Debug "Success."


destroy loo_Bd
destroy loo_Crypt
destroy loo_Json
destroy loo_Dt