|
|
(Xojo Plugin) Sign PDF and Provide Certificates in Chain to Root
Discusses how to provide certificates in the chain of authentication to the root certificate if the certs are not available to Chilkat.
If you provided a .p12 or .pfx, then it is likely the .p12/.pfx already contains the certs in the chain of authentication, and Chilkat will automatically find them.
Also, if running on a Windows system, then Chilkat will likely automatically find the intermediate CA certs and root CA cert as needed.
This example demonstrates how to explicitly provide the CA certs in the chain of authentication to any Chilkat application that is signing.
Note: This example requires Chilkat v9.5.0.92 or greater.
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
// Assuming you don't have the intermediate CA and root CA certificates for the chain of authentication, then you'll need to locate them from your CA, download, and then use as shown below.
// For example, if your certificate has this certification path:
// 
// Then you should Google "AC DIGITALSIGN RFB G2".
// In this case, the resulting URL found by Google is: https://www.digitalsigncertificadora.com.br/repositorio/RFB
// You can download the certs from https://www.digitalsigncertificadora.com.br/repositorio/rfb/ACDIGITALSIGNRFB.p7b
// Load the certs from a .p7b into an XML certificate vault.
// Note: This example requires Chilkat v9.5.0.92 or greater. The ability to load .p7b files containing multiple certificates was added in v9.5.0.92
Dim vault As New Chilkat.XmlCertVault
Dim success As Boolean
success = vault.AddCertFile("qa_data/certs/ACDIGITALSIGNRFB.p7b")
If (success = False) Then
System.DebugLog(vault.LastErrorText)
Return
End If
// -----------------------------------
// See how the vault is used below...
// -----------------------------------
// The signed PDF produced by this example should be verifiable at https://verificador.iti.gov.br/verifier-2.6.2/
Dim pdf As New Chilkat.Pdf
// Load a PDF to be signed.
// The "hello.pdf" is available at https://chilkatsoft.com/hello.pdf
success = pdf.LoadFile("qa_data/pdf/hello.pdf")
If (success = False) Then
System.DebugLog(pdf.LastErrorText)
Return
End If
Dim json As New Chilkat.JsonObject
// Define the appearance and location of the signature.
success = json.UpdateInt("page",1)
success = json.UpdateString("appearance.y","bottom")
success = json.UpdateString("appearance.x","middle")
success = json.UpdateString("appearance.fontScale","9.0")
success = json.UpdateString("appearance.text[0]","Digitally signed by: cert_cn")
success = json.UpdateString("appearance.text[1]","current_dt")
success = json.UpdateString("appearance.image","document-accepted")
success = json.UpdateString("appearance.imagePlacement","left")
success = json.UpdateString("appearance.imageOpacity","100")
// Add the CMS options required for ICP-Brasil
success = json.UpdateInt("contentType",1)
success = json.UpdateInt("messageDigest",1)
success = json.UpdateInt("signingCertificateV2",1)
// Listed here are the currently existing profiles. (Chilkat will add additional ICP Brasil policy profiles in future versions as new ones are created.)
// See https://www.gov.br/iti/pt-br/assuntos/repositorio/artefatos-de-assinatura-digital for more information.
//
// PA_PAdES_AD_RA_v1_0 --> 2.16.76.1.7.1.14.1
// PA_PAdES_AD_RA_v1_1 --> 2.16.76.1.7.1.14.1.1
// PA_PAdES_AD_RA_v1_2 --> 2.16.76.1.7.1.14.1.2
// PA_PAdES_AD_RB_v1_0 --> 2.16.76.1.7.1.11.1
// PA_PAdES_AD_RB_v1_1 --> 2.16.76.1.7.1.11.1.1
// PA_PAdES_AD_RC_v1_0 --> 2.16.76.1.7.1.13.1
// PA_PAdES_AD_RC_v1_1 --> 2.16.76.1.7.1.13.1.1
// PA_PAdES_AD_RC_v1_2 --> 2.16.76.1.7.1.13.1.2
// PA_PAdES_AD_RT_v1_0 --> 2.16.76.1.7.1.12.1
// PA_PAdES_AD_RT_v1_1 --> 2.16.76.1.7.1.12.1.1
// Set the policy OID and the profile name
success = json.UpdateString("policyId.id","2.16.76.1.7.1.11.1.1")
success = json.UpdateString("policyId.profile","PA_PAdES_AD_RB_v1_1")
// Also explicitly set the filter and subFilter
success = json.UpdateString("filter","Adobe.PPKLite")
success = json.UpdateString("subFilter","adbe.pkcs7.detached")
// Load the signing certificate.
// In this example, we'll load from a source where we don't have the certificates in the chain.
Dim cert As New Chilkat.Cert
success = cert.LoadFromSmartcard("")
If (success = False) Then
System.DebugLog(cert.LastErrorText)
Return
End If
// ------------------------------------------------------------------------------------------
// Here's where we make the certificates in the chain of authentication available to Chilkat.
// If the certs in the chain of authentication are available in the vault, then Chilkat will
// automatically find them as needed.
// ------------------------------------------------------------------------------------------
success = cert.UseCertVault(vault)
// Also, tell the PDF object we want to include certs in the chain of authentication to the root, if possible.
success = json.UpdateBool("embedCertChain",True)
success = json.UpdateBool("includeRootCert",True)
// Tell the pdf object to use the certificate for signing.
success = pdf.SetSigningCert(cert)
If (success = False) Then
System.DebugLog(pdf.LastErrorText)
Return
End If
success = pdf.SignPdf(json,"qa_output/hello_signed.pdf")
If (success = False) Then
System.DebugLog(pdf.LastErrorText)
Return
End If
System.DebugLog(pdf.LastErrorText)
System.DebugLog("The PDF has been successfully cryptographically signed.")
|
