(Tcl) 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.
load ./chilkat.dll
# 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
set vault [new_CkXmlCertVault]
set success [CkXmlCertVault_AddCertFile $vault "qa_data/certs/ACDIGITALSIGNRFB.p7b"]
if {$success == 0} then {
puts [CkXmlCertVault_lastErrorText $vault]
delete_CkXmlCertVault $vault
exit
}
# -----------------------------------
# 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/
set pdf [new_CkPdf]
# Load a PDF to be signed.
# The "hello.pdf" is available at https://chilkatsoft.com/hello.pdf
set success [CkPdf_LoadFile $pdf "qa_data/pdf/hello.pdf"]
if {$success == 0} then {
puts [CkPdf_lastErrorText $pdf]
delete_CkXmlCertVault $vault
delete_CkPdf $pdf
exit
}
set json [new_CkJsonObject]
# Define the appearance and location of the signature.
CkJsonObject_UpdateInt $json "page" 1
CkJsonObject_UpdateString $json "appearance.y" "bottom"
CkJsonObject_UpdateString $json "appearance.x" "middle"
CkJsonObject_UpdateString $json "appearance.fontScale" "9.0"
CkJsonObject_UpdateString $json "appearance.text[0]" "Digitally signed by: cert_cn"
CkJsonObject_UpdateString $json "appearance.text[1]" "current_dt"
CkJsonObject_UpdateString $json "appearance.image" "document-accepted"
CkJsonObject_UpdateString $json "appearance.imagePlacement" "left"
CkJsonObject_UpdateString $json "appearance.imageOpacity" "100"
# Add the CMS options required for ICP-Brasil
CkJsonObject_UpdateInt $json "contentType" 1
CkJsonObject_UpdateInt $json "messageDigest" 1
CkJsonObject_UpdateInt $json "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
CkJsonObject_UpdateString $json "policyId.id" "2.16.76.1.7.1.11.1.1"
CkJsonObject_UpdateString $json "policyId.profile" "PA_PAdES_AD_RB_v1_1"
# Also explicitly set the filter and subFilter
CkJsonObject_UpdateString $json "filter" "Adobe.PPKLite"
CkJsonObject_UpdateString $json "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.
set cert [new_CkCert]
set success [CkCert_LoadFromSmartcard $cert ""]
if {$success == 0} then {
puts [CkCert_lastErrorText $cert]
delete_CkXmlCertVault $vault
delete_CkPdf $pdf
delete_CkJsonObject $json
delete_CkCert $cert
exit
}
# ------------------------------------------------------------------------------------------
# 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.
# ------------------------------------------------------------------------------------------
set success [CkCert_UseCertVault $cert $vault]
# Also, tell the PDF object we want to include certs in the chain of authentication to the root, if possible.
CkJsonObject_UpdateBool $json "embedCertChain" 1
CkJsonObject_UpdateBool $json "includeRootCert" 1
# Tell the pdf object to use the certificate for signing.
set success [CkPdf_SetSigningCert $pdf $cert]
if {$success == 0} then {
puts [CkPdf_lastErrorText $pdf]
delete_CkXmlCertVault $vault
delete_CkPdf $pdf
delete_CkJsonObject $json
delete_CkCert $cert
exit
}
set success [CkPdf_SignPdf $pdf $json "qa_output/hello_signed.pdf"]
if {$success == 0} then {
puts [CkPdf_lastErrorText $pdf]
delete_CkXmlCertVault $vault
delete_CkPdf $pdf
delete_CkJsonObject $json
delete_CkCert $cert
exit
}
puts [CkPdf_lastErrorText $pdf]
puts "The PDF has been successfully cryptographically signed."
delete_CkXmlCertVault $vault
delete_CkPdf $pdf
delete_CkJsonObject $json
delete_CkCert $cert
|
