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

Examine a PKCS7 signature (.p7s) and get information about it.
Chilkat AutoIt Downloads

AutoIt
Local $bSuccess = False

; 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..
$oBd = ObjCreate("Chilkat.BinData")
$bSuccess = $oBd.LoadFile("qa_data/p7s/sample.p7s")
If ($bSuccess <> True) Then
    ConsoleWrite("Failed to load .p7s file." & @CRLF)
    Exit
EndIf

$oCrypt = ObjCreate("Chilkat.Crypt2")

; Assuming this is a signature that contains the original data that was signed..
$bSuccess = $oCrypt.OpaqueVerifyBd($oBd)
If ($bSuccess = False) Then
    ConsoleWrite($oCrypt.LastErrorText & @CRLF)
    Exit
EndIf

; Examine the last JSON data after signature verification..
$oJson = ObjCreate("Chilkat.JsonObject")
$oCrypt.GetLastJsonData $oJson

$oJson.EmitCompact = False
ConsoleWrite($oJson.Emit() & @CRLF)

; 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="
;         }
;       ]
;     }
;   }
; }
; 

Local $i
Local $iCount_i
Local $strVal
Local $sCertSerialNumber
Local $sCertIssuerCN
Local $sCertIssuerDN
Local $sCertDigestAlgOid
Local $sCertDigestAlgName
Local $sContentType
Local $signingTime
Local $sMessageDigest
Local $signingAlgOid
Local $signerDigest
$oDt = ObjCreate("Chilkat.CkDateTime")

$i = 0
$iCount_i = $oJson.SizeOfArray("pkcs7.verify.digestAlgorithms")
While $i < $iCount_i
    $oJson.I = $i
    $strVal = $oJson.StringOf("pkcs7.verify.digestAlgorithms[i]")
    $i = $i + 1
Wend
$i = 0
$iCount_i = $oJson.SizeOfArray("pkcs7.verify.signerInfo")
While $i < $iCount_i
    $oJson.I = $i
    $sCertSerialNumber = $oJson.StringOf("pkcs7.verify.signerInfo[i].cert.serialNumber")
    $sCertIssuerCN = $oJson.StringOf("pkcs7.verify.signerInfo[i].cert.issuerCN")
    $sCertIssuerDN = $oJson.StringOf("pkcs7.verify.signerInfo[i].cert.issuerDN")
    $sCertDigestAlgOid = $oJson.StringOf("pkcs7.verify.signerInfo[i].cert.digestAlgOid")
    $sCertDigestAlgName = $oJson.StringOf("pkcs7.verify.signerInfo[i].cert.digestAlgName")
    $sContentType = $oJson.StringOf("pkcs7.verify.signerInfo[i].contentType")
    $signingTime = $oJson.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.
    $bSuccess = $oDt.SetFromTimestamp($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.

    $sMessageDigest = $oJson.StringOf("pkcs7.verify.signerInfo[i].messageDigest")
    $signingAlgOid = $oJson.StringOf("pkcs7.verify.signerInfo[i].signingAlgOid")
    $signerDigest = $oJson.StringOf("pkcs7.verify.signerInfo[i].signerDigest")
    $i = $i + 1
Wend

; println crypt.LastErrorText;
ConsoleWrite("Success." & @CRLF)