|
|
(PowerBuilder) 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.
integer li_rc
oleobject loo_Vault
integer li_Success
oleobject loo_Pdf
oleobject loo_Json
oleobject loo_Cert
// 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
loo_Vault = create oleobject
// Use "Chilkat_9_5_0.XmlCertVault" for versions of Chilkat < 10.0.0
li_rc = loo_Vault.ConnectToNewObject("Chilkat.XmlCertVault")
if li_rc < 0 then
destroy loo_Vault
MessageBox("Error","Connecting to COM object failed")
return
end if
li_Success = loo_Vault.AddCertFile("qa_data/certs/ACDIGITALSIGNRFB.p7b")
if li_Success = 0 then
Write-Debug loo_Vault.LastErrorText
destroy loo_Vault
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/
loo_Pdf = create oleobject
// Use "Chilkat_9_5_0.Pdf" for versions of Chilkat < 10.0.0
li_rc = loo_Pdf.ConnectToNewObject("Chilkat.Pdf")
// Load a PDF to be signed.
// The "hello.pdf" is available at https://chilkatsoft.com/hello.pdf
li_Success = loo_Pdf.LoadFile("qa_data/pdf/hello.pdf")
if li_Success = 0 then
Write-Debug loo_Pdf.LastErrorText
destroy loo_Vault
destroy loo_Pdf
return
end if
loo_Json = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")
// Define the appearance and location of the signature.
loo_Json.UpdateInt("page",1)
loo_Json.UpdateString("appearance.y","bottom")
loo_Json.UpdateString("appearance.x","middle")
loo_Json.UpdateString("appearance.fontScale","9.0")
loo_Json.UpdateString("appearance.text[0]","Digitally signed by: cert_cn")
loo_Json.UpdateString("appearance.text[1]","current_dt")
loo_Json.UpdateString("appearance.image","document-accepted")
loo_Json.UpdateString("appearance.imagePlacement","left")
loo_Json.UpdateString("appearance.imageOpacity","100")
// Add the CMS options required for ICP-Brasil
loo_Json.UpdateInt("contentType",1)
loo_Json.UpdateInt("messageDigest",1)
loo_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
loo_Json.UpdateString("policyId.id","2.16.76.1.7.1.11.1.1")
loo_Json.UpdateString("policyId.profile","PA_PAdES_AD_RB_v1_1")
// Also explicitly set the filter and subFilter
loo_Json.UpdateString("filter","Adobe.PPKLite")
loo_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.
loo_Cert = create oleobject
// Use "Chilkat_9_5_0.Cert" for versions of Chilkat < 10.0.0
li_rc = loo_Cert.ConnectToNewObject("Chilkat.Cert")
li_Success = loo_Cert.LoadFromSmartcard("")
if li_Success = 0 then
Write-Debug loo_Cert.LastErrorText
destroy loo_Vault
destroy loo_Pdf
destroy loo_Json
destroy loo_Cert
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.
// ------------------------------------------------------------------------------------------
li_Success = loo_Cert.UseCertVault(loo_Vault)
// Also, tell the PDF object we want to include certs in the chain of authentication to the root, if possible.
loo_Json.UpdateBool("embedCertChain",1)
loo_Json.UpdateBool("includeRootCert",1)
// Tell the pdf object to use the certificate for signing.
li_Success = loo_Pdf.SetSigningCert(loo_Cert)
if li_Success = 0 then
Write-Debug loo_Pdf.LastErrorText
destroy loo_Vault
destroy loo_Pdf
destroy loo_Json
destroy loo_Cert
return
end if
li_Success = loo_Pdf.SignPdf(loo_Json,"qa_output/hello_signed.pdf")
if li_Success = 0 then
Write-Debug loo_Pdf.LastErrorText
destroy loo_Vault
destroy loo_Pdf
destroy loo_Json
destroy loo_Cert
return
end if
Write-Debug loo_Pdf.LastErrorText
Write-Debug "The PDF has been successfully cryptographically signed."
destroy loo_Vault
destroy loo_Pdf
destroy loo_Json
destroy loo_Cert
|
