|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Delphi DLL) Validate CAdES-T Signature (.p7m)Validates a CAdES-T CMS signature and extracts the time-stamp token and gets information about it. Also validates the time-stamp token. Note: This example requires Chilkat v9.5.0.78 or greater.
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, DtObj, JsonObject, Crypt2; ... procedure TForm1.Button1Click(Sender: TObject); var crypt: HCkCrypt2; success: Boolean; cmsOptions: HCkJsonObject; json: HCkJsonObject; i: Integer; count_i: Integer; strVal: PWideChar; certSerialNumber: PWideChar; certIssuerCN: PWideChar; certIssuerDN: PWideChar; certDigestAlgOid: PWideChar; certDigestAlgName: PWideChar; contentType: PWideChar; signingTime: HCkDtObj; messageDigest: PWideChar; signingAlgOid: PWideChar; signingAlgName: PWideChar; authAttrContentTypeName: PWideChar; authAttrContentTypeOid: PWideChar; authAttrSigningTimeName: PWideChar; authAttrSigningTimeUtctime: HCkDtObj; authAttrMessageDigestName: PWideChar; authAttrMessageDigestDigest: PWideChar; authAttrSigningCertificateV2Name: PWideChar; authAttrSigningCertificateV2Der: PWideChar; unauthAttrTimestampTokenName: PWideChar; unauthAttrTimestampTokenDer: PWideChar; unauthAttrTimestampTokenTimestampSignatureVerified: Boolean; unauthAttrTimestampTokenTstInfoTsaPolicyId: PWideChar; unauthAttrTimestampTokenTstInfoMessageImprintHashAlg: PWideChar; unauthAttrTimestampTokenTstInfoMessageImprintDigest: PWideChar; unauthAttrTimestampTokenTstInfoMessageImprintDigestMatches: Boolean; unauthAttrTimestampTokenTstInfoSerialNumber: PWideChar; unauthAttrTimestampTokenTstInfoGenTime: HCkDtObj; j: Integer; count_j: Integer; begin // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. crypt := CkCrypt2_Create(); // Indicate that the CAdES-T timestamp tokens must also pass validation for the signature to be validated. cmsOptions := CkJsonObject_Create(); CkJsonObject_UpdateBool(cmsOptions,'ValidateTimestampTokens',True); CkCrypt2_putCmsOptions(crypt,CkJsonObject__emit(cmsOptions)); // Validate the .p7m and extract the original signed data to an output file. // Note: The timestampToken is an unauthenticated attribute. See the code below that parses the LastJsonData // for details about examining timestampToken. success := CkCrypt2_VerifyP7M(crypt,'qa_data/cades/CAdES-T/Signature-C-T-1.p7m','qa_output/out.dat'); // Get information about the CMS signature in the LastJsonData. // The detailed results of the signature validation are available in LastJsonData. // (If the non-success return status was caused by an error such as "file not found", then the // LastJsonData would be empty.) json := CkCrypt2_LastJsonData(crypt); CkJsonObject_putEmitCompact(json,False); Memo1.Lines.Add(CkJsonObject__emit(json)); // Here is a sample result: // See the parsing code below.. // Use this online tool to generate parsing code from sample JSON: // Generate Parsing Code from JSON // { // "pkcs7": { // "verify": { // "digestAlgorithms": [ // "sha256" // ], // "signerInfo": [ // { // "cert": { // "serialNumber": "00DCB814678CDB", // "issuerCN": "LevelBCAOK", // "issuerDN": "", // "digestAlgOid": "2.16.840.1.101.3.4.2.1", // "digestAlgName": "SHA256" // }, // "contentType": "1.2.840.113549.1.7.1", // "signingTime": "131203065741Z", // "messageDigest": "JJZt41Nt8VsYahP+Xti4rR3vBDkUfRd6gquItl6R5Os=", // "signingAlgOid": "1.2.840.113549.1.1.1", // "signingAlgName": "RSA-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": "131203065741Z" // }, // "1.2.840.113549.1.9.4": { // "name": "messageDigest", // "digest": "JJZt41Nt8VsYahP+Xti4rR3vBDkUfRd6gquItl6R5Os=" // }, // "1.2.840.113549.1.9.16.2.47": { // "name": "signingCertificateV2", // "der": "MIGIMIGFMIGCBCBJrxOU0w0dWGsVovjLv9QDH3syB5mLVv3grSYA40x9IDBeMFOkUTBPMQswCQYDVQQGEwJGUjENMAsGA1UEChMERVRTSTEcMBoGA1UECwwTUGx1Z3Rlc3RzXzIwMTMtMjAxNDETMBEGA1UEAxMKTGV2ZWxCQ0FPSwIHANy4FGeM2w==" // } // }, // "unauthAttr": { // "1.2.840.113549.1.9.16.2.14": { // "name": "timestampToken", // "der": "MIIL+AYJKoZI...u7CfcjURNTY=", // "verify": { // "digestAlgorithms": [ // "sha256" // ], // "signerInfo": [ // { // "cert": { // "serialNumber": "01AA4592D36C61", // "issuerCN": "RootCAOK", // "issuerDN": "", // "digestAlgOid": "2.16.840.1.101.3.4.2.1", // "digestAlgName": "SHA256" // }, // "contentType": "1.2.840.113549.1.9.16.1.4", // "messageDigest": "NSsMUrfoyCQ0OszPE1YLx1j3EyyCiBmnE5Sua6ghu/Q=", // "signingAlgOid": "1.2.840.113549.1.1.1", // "signingAlgName": "RSA-PKCSV-1_5", // "authAttr": { // "1.2.840.113549.1.9.3": { // "name": "contentType", // "oid": "1.2.840.113549.1.9.16.1.4" // }, // "1.2.840.113549.1.9.4": { // "name": "messageDigest", // "digest": "NSsMUrfoyCQ0OszPE1YLx1j3EyyCiBmnE5Sua6ghu/Q=" // }, // "1.2.840.113549.1.9.16.2.47": { // "name": "signingCertificateV2", // "der": "MIGGMIGDMIGABCDB/np5UxvhcPnSxD2Kme+C88uXGCMWLAvFPHNvTApTWDBcMFGkTzBNMQswCQYDVQQGEwJGUjENMAsGA1UEChMERVRTSTEcMBoGA1UECwwTUGx1Z3Rlc3RzXzIwMTMtMjAxNDERMA8GA1UEAxMIUm9vdENBT0sCBwGqRZLTbGE=" // } // } // } // ] // }, // "timestampSignatureVerified": true, // "tstInfo": { // "tsaPolicyId": "1.3.6.1.4.1.2706.2.2.5.2.1.1.1", // "messageImprint": { // "hashAlg": "sha256", // "digest": "C8xEe9NA4X1cUyHGX9zG89ipmQ2byFs3aa+Xe4Fz2P0=", // "digestMatches": true // }, // "serialNumber": "313E162121D922", // "genTime": "20131203065742Z" // } // } // } // } // ] // } // } // } // signingTime := CkDtObj_Create(); authAttrSigningTimeUtctime := CkDtObj_Create(); unauthAttrTimestampTokenTstInfoGenTime := CkDtObj_Create(); // Iterate over the hash algorithms used in the signature. i := 0; count_i := CkJsonObject_SizeOfArray(json,'pkcs7.verify.digestAlgorithms'); while i < count_i do begin CkJsonObject_putI(json,i); strVal := CkJsonObject__stringOf(json,'pkcs7.verify.digestAlgorithms[i]'); i := i + 1; end; // For each signer... i := 0; count_i := CkJsonObject_SizeOfArray(json,'pkcs7.verify.signerInfo'); while i < count_i do begin CkJsonObject_putI(json,i); // Get information about the certificate used by this signer. certSerialNumber := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].cert.serialNumber'); certIssuerCN := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].cert.issuerCN'); certIssuerDN := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].cert.issuerDN'); certDigestAlgOid := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].cert.digestAlgOid'); certDigestAlgName := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].cert.digestAlgName'); // Get additional information for this signer, such as the signingTime, signature algorithm, etc. contentType := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].contentType'); CkJsonObject_DtOf(json,'pkcs7.verify.signerInfo[i].signingTime',False,signingTime); messageDigest := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].messageDigest'); signingAlgOid := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].signingAlgOid'); signingAlgName := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].signingAlgName'); // -------------------------------- // Examine authenticated attributes. // -------------------------------- // contentType if (CkJsonObject_HasMember(json,'pkcs7.verify.signerInfo[i].authAttr."1.2.840.113549.1.9.3"') = True) then begin authAttrContentTypeName := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].authAttr."1.2.840.113549.1.9.3".name'); authAttrContentTypeOid := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].authAttr."1.2.840.113549.1.9.3".oid'); end; // signingTime if (CkJsonObject_HasMember(json,'pkcs7.verify.signerInfo[i].authAttr."1.2.840.113549.1.9.5"') = True) then begin authAttrSigningTimeName := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].authAttr."1.2.840.113549.1.9.5".name'); CkJsonObject_DtOf(json,'pkcs7.verify.signerInfo[i].authAttr."1.2.840.113549.1.9.5".utctime',False,authAttrSigningTimeUtctime); end; // messageDigest if (CkJsonObject_HasMember(json,'pkcs7.verify.signerInfo[i].authAttr."1.2.840.113549.1.9.4"') = True) then begin authAttrMessageDigestName := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].authAttr."1.2.840.113549.1.9.4".name'); authAttrMessageDigestDigest := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].authAttr."1.2.840.113549.1.9.4".digest'); end; // signingCertificateV2 if (CkJsonObject_HasMember(json,'pkcs7.verify.signerInfo[i].authAttr."1.2.840.113549.1.9.16.2.47"') = True) then begin authAttrSigningCertificateV2Name := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].authAttr."1.2.840.113549.1.9.16.2.47".name'); authAttrSigningCertificateV2Der := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].authAttr."1.2.840.113549.1.9.16.2.47".der'); end; // -------------------------------- // Examine unauthenticated attributes. // -------------------------------- // timestampToken (the timestampToken is what makes this signature a CAdES-T) if (CkJsonObject_HasMember(json,'pkcs7.verify.signerInfo[i].unauthAttr."1.2.840.113549.1.9.16.2.14"') = True) then begin unauthAttrTimestampTokenName := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].unauthAttr."1.2.840.113549.1.9.16.2.14".name'); unauthAttrTimestampTokenDer := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].unauthAttr."1.2.840.113549.1.9.16.2.14".der'); // This is where we find out if the timestampToken's signature is valid. unauthAttrTimestampTokenTimestampSignatureVerified := CkJsonObject_BoolOf(json,'pkcs7.verify.signerInfo[i].unauthAttr."1.2.840.113549.1.9.16.2.14".timestampSignatureVerified'); unauthAttrTimestampTokenTstInfoTsaPolicyId := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].unauthAttr."1.2.840.113549.1.9.16.2.14".tstInfo.tsaPolicyId'); unauthAttrTimestampTokenTstInfoMessageImprintHashAlg := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].unauthAttr."1.2.840.113549.1.9.16.2.14".tstInfo.messageImprint.hashAlg'); unauthAttrTimestampTokenTstInfoMessageImprintDigest := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].unauthAttr."1.2.840.113549.1.9.16.2.14".tstInfo.messageImprint.digest'); // Here is where we check to see if the digest in the timestampToken's messageImprint matches the digest of the signature of this signerInfo unauthAttrTimestampTokenTstInfoMessageImprintDigestMatches := CkJsonObject_BoolOf(json,'pkcs7.verify.signerInfo[i].unauthAttr."1.2.840.113549.1.9.16.2.14".tstInfo.messageImprint.digestMatches'); unauthAttrTimestampTokenTstInfoSerialNumber := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].unauthAttr."1.2.840.113549.1.9.16.2.14".tstInfo.serialNumber'); // Here is where we get the date/time of the timestampToken (i.e. when it was timestamped) CkJsonObject_DtOf(json,'pkcs7.verify.signerInfo[i].unauthAttr."1.2.840.113549.1.9.16.2.14".tstInfo.genTime',False,unauthAttrTimestampTokenTstInfoGenTime); // The following code gets details about the validity of the timestampToken's signature... j := 0; count_j := CkJsonObject_SizeOfArray(json,'pkcs7.verify.signerInfo[i].unauthAttr."1.2.840.113549.1.9.16.2.14".verify.digestAlgorithms'); while j < count_j do begin CkJsonObject_putJ(json,j); strVal := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].unauthAttr."1.2.840.113549.1.9.16.2.14".verify.digestAlgorithms[j]'); j := j + 1; end; j := 0; count_j := CkJsonObject_SizeOfArray(json,'pkcs7.verify.signerInfo[i].unauthAttr."1.2.840.113549.1.9.16.2.14".verify.signerInfo'); while j < count_j do begin CkJsonObject_putJ(json,j); certSerialNumber := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].unauthAttr."1.2.840.113549.1.9.16.2.14".verify.signerInfo[j].cert.serialNumber'); certIssuerCN := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].unauthAttr."1.2.840.113549.1.9.16.2.14".verify.signerInfo[j].cert.issuerCN'); certIssuerDN := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].unauthAttr."1.2.840.113549.1.9.16.2.14".verify.signerInfo[j].cert.issuerDN'); certDigestAlgOid := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].unauthAttr."1.2.840.113549.1.9.16.2.14".verify.signerInfo[j].cert.digestAlgOid'); certDigestAlgName := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].unauthAttr."1.2.840.113549.1.9.16.2.14".verify.signerInfo[j].cert.digestAlgName'); contentType := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].unauthAttr."1.2.840.113549.1.9.16.2.14".verify.signerInfo[j].contentType'); messageDigest := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].unauthAttr."1.2.840.113549.1.9.16.2.14".verify.signerInfo[j].messageDigest'); signingAlgOid := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].unauthAttr."1.2.840.113549.1.9.16.2.14".verify.signerInfo[j].signingAlgOid'); signingAlgName := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].unauthAttr."1.2.840.113549.1.9.16.2.14".verify.signerInfo[j].signingAlgName'); authAttrContentTypeName := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].unauthAttr."1.2.840.113549.1.9.16.2.14".verify.signerInfo[j].authAttr."1.2.840.113549.1.9.3".name'); authAttrContentTypeOid := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].unauthAttr."1.2.840.113549.1.9.16.2.14".verify.signerInfo[j].authAttr."1.2.840.113549.1.9.3".oid'); authAttrMessageDigestName := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].unauthAttr."1.2.840.113549.1.9.16.2.14".verify.signerInfo[j].authAttr."1.2.840.113549.1.9.4".name'); authAttrMessageDigestDigest := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].unauthAttr."1.2.840.113549.1.9.16.2.14".verify.signerInfo[j].authAttr."1.2.840.113549.1.9.4".digest'); authAttrSigningCertificateV2Name := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].unauthAttr."1.2.840.113549.1.9.16.2.14".verify.signerInfo[j].authAttr."1.2.840.113549.1.9.16.2.47".name'); authAttrSigningCertificateV2Der := CkJsonObject__stringOf(json,'pkcs7.verify.signerInfo[i].unauthAttr."1.2.840.113549.1.9.16.2.14".verify.signerInfo[j].authAttr."1.2.840.113549.1.9.16.2.47".der'); j := j + 1; end; end; i := i + 1; end; if (success <> True) then begin Memo1.Lines.Add(CkCrypt2__lastErrorText(crypt)); Memo1.Lines.Add('CAdES-T verification failed.'); end else begin Memo1.Lines.Add('CAdES-T signature is valid.'); end; CkJsonObject_Dispose(json); CkCrypt2_Dispose(crypt); CkJsonObject_Dispose(cmsOptions); CkDtObj_Dispose(signingTime); CkDtObj_Dispose(authAttrSigningTimeUtctime); CkDtObj_Dispose(unauthAttrTimestampTokenTstInfoGenTime); end; |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.