|
|
(VBScript) 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.
Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)
' 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
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.XmlCertVault")
set vault = CreateObject("Chilkat.XmlCertVault")
success = vault.AddCertFile("qa_data/certs/ACDIGITALSIGNRFB.p7b")
If (success = 0) Then
outFile.WriteLine(vault.LastErrorText)
WScript.Quit
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/
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Pdf")
set pdf = CreateObject("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 = 0) Then
outFile.WriteLine(pdf.LastErrorText)
WScript.Quit
End If
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set json = CreateObject("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.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Cert")
set cert = CreateObject("Chilkat.Cert")
success = cert.LoadFromSmartcard("")
If (success = 0) Then
outFile.WriteLine(cert.LastErrorText)
WScript.Quit
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",1)
success = json.UpdateBool("includeRootCert",1)
' Tell the pdf object to use the certificate for signing.
success = pdf.SetSigningCert(cert)
If (success = 0) Then
outFile.WriteLine(pdf.LastErrorText)
WScript.Quit
End If
success = pdf.SignPdf(json,"qa_output/hello_signed.pdf")
If (success = 0) Then
outFile.WriteLine(pdf.LastErrorText)
WScript.Quit
End If
outFile.WriteLine(pdf.LastErrorText)
outFile.WriteLine("The PDF has been successfully cryptographically signed.")
outFile.Close
|
