Delphi ActiveX 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. Delphi ActiveX

var
success: Integer;
bd: TChilkatBinData;
crypt: TChilkatCrypt2;
json: TChilkatJsonObject;
i: Integer;
count_i: Integer;
strVal: WideString;
certSerialNumber: WideString;
certIssuerCN: WideString;
certIssuerDN: WideString;
certDigestAlgOid: WideString;
certDigestAlgName: WideString;
contentType: WideString;
signingTime: WideString;
messageDigest: WideString;
signingAlgOid: WideString;
signerDigest: WideString;
dt: TCkDateTime;

begin
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..
bd := TChilkatBinData.Create(Self);
success := bd.LoadFile('qa_data/p7s/sample.p7s');
if (success <> 1) then
  begin
    Memo1.Lines.Add('Failed to load .p7s file.');
    Exit;
  end;

crypt := TChilkatCrypt2.Create(Self);

//  Assuming this is a signature that contains the original data that was signed..
success := crypt.OpaqueVerifyBd(bd.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(crypt.LastErrorText);
    Exit;
  end;

//  Examine the last JSON data after signature verification..
json := TChilkatJsonObject.Create(Self);
crypt.GetLastJsonData(json.ControlInterface);

json.EmitCompact := 0;
Memo1.Lines.Add(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="
//          }
//        ]
//      }
//    }
//  }
//  

dt := TCkDateTime.Create(Self);

i := 0;
count_i := json.SizeOfArray('pkcs7.verify.digestAlgorithms');
while i < count_i do
  begin
    json.I := i;
    strVal := json.StringOf('pkcs7.verify.digestAlgorithms[i]');
    i := i + 1;
  end;

i := 0;
count_i := json.SizeOfArray('pkcs7.verify.signerInfo');
while i < count_i do
  begin
    json.I := i;
    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');
    contentType := json.StringOf('pkcs7.verify.signerInfo[i].contentType');
    signingTime := 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.
    success := dt.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.

    messageDigest := json.StringOf('pkcs7.verify.signerInfo[i].messageDigest');
    signingAlgOid := json.StringOf('pkcs7.verify.signerInfo[i].signingAlgOid');
    signerDigest := json.StringOf('pkcs7.verify.signerInfo[i].signerDigest');
    i := i + 1;
  end;

//  println crypt.LastErrorText;
Memo1.Lines.Add('Success.');