Visual FoxPro
Sign PDF for ICP-Brasil

Sign a PDF to create a signed PDF compliant with the ICP-Brasil Digital Signature Standard Conformity Checker. (Verificador de Conformidade do Padrão de Assinatura Digital ICP-Brasil)
Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro
Visual FoxPro
LOCAL lnSuccess
LOCAL loPdf
LOCAL loJson
LOCAL loCert

lnSuccess = 0

* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* The signed PDF produced by this example should be verifiable at https://validar.iti.gov.br/
loPdf = CreateObject('Chilkat.Pdf')

* Load a PDF to be signed.
* The "hello.pdf" is available at https://chilkatsoft.com/hello.pdf
lnSuccess = loPdf.LoadFile("qa_data/pdf/hello.pdf")
IF (lnSuccess = 0) THEN
    ? loPdf.LastErrorText
    RELEASE loPdf
    CANCEL
ENDIF

loJson = CreateObject('Chilkat.JsonObject')

* Define the appearance and location of the signature.
loJson.UpdateInt("page",1)
loJson.UpdateString("appearance.y","bottom")
loJson.UpdateString("appearance.x","middle")
loJson.UpdateString("appearance.fontScale","9.0")
loJson.UpdateString("appearance.text[0]","Digitally signed by: cert_cn")
loJson.UpdateString("appearance.text[1]","current_dt")
loJson.UpdateString("appearance.image","document-accepted")
loJson.UpdateString("appearance.imagePlacement","left")
loJson.UpdateString("appearance.imageOpacity","100")

* Add the CMS options required for ICP-Brasil
loJson.UpdateInt("contentType",1)
loJson.UpdateInt("messageDigest",1)
loJson.UpdateInt("signingCertificateV2",1)
loJson.UpdateBool("ltvOcsp",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_AD_RA_v1_1 --> 2.16.76.1.7.1.5.1.1
* PA_AD_RA_v1_2 --> 2.16.76.1.7.1.5.1.2
* PA_AD_RA_v2_0 --> 2.16.76.1.7.1.5.2
* PA_AD_RA_v2_1 --> 2.16.76.1.7.1.5.2.1
* PA_AD_RA_v2_2 --> 2.16.76.1.7.1.5.2.2
* PA_AD_RA_v2_3 --> 2.16.76.1.7.1.5.2.3
* PA_AD_RA_v2_4 --> 2.16.76.1.7.1.5.2.4

* PA_AD_RB_v1_1 --> 2.16.76.1.7.1.1.1.1
* PA_AD_RB_v2_0 --> 2.16.76.1.7.1.1.2
* PA_AD_RB_v2_1 --> 2.16.76.1.7.1.1.2.1
* PA_AD_RB_v2_2 --> 2.16.76.1.7.1.1.2.2
* PA_AD_RB_v2_3 --> 2.16.76.1.7.1.1.2.3

* PA_AD_RC_v1_1 --> 2.16.76.1.7.1.4.1.1
* PA_AD_RC_v2_0 --> 2.16.76.1.7.1.4.2
* PA_AD_RC_v2_1 --> 2.16.76.1.7.1.4.2.1
* PA_AD_RC_v2_2 --> 2.16.76.1.7.1.4.2.2
* PA_AD_RC_v2_3 --> 2.16.76.1.7.1.4.2.3

* PA_AD_RT_v1_1 --> 2.16.76.1.7.1.2.1.1
* PA_AD_RT_v2_0 --> 2.16.76.1.7.1.2.2
* PA_AD_RT_v2_1 --> 2.16.76.1.7.1.2.2.1
* PA_AD_RT_v2_2 --> 2.16.76.1.7.1.2.2.2
* PA_AD_RT_v2_3 --> 2.16.76.1.7.1.2.2.3

* PA_AD_RV_v1_1 --> 2.16.76.1.7.1.3.1.1
* PA_AD_RV_v2_0 --> 2.16.76.1.7.1.3.2
* PA_AD_RV_v2_1 --> 2.16.76.1.7.1.3.2.1
* PA_AD_RV_v2_2 --> 2.16.76.1.7.1.3.2.2
* PA_AD_RV_v2_3 --> 2.16.76.1.7.1.3.2.3

* 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 profile name
* ---------------------------------------------------
* Note: On 24-May-2024, I was informed that adding the "policyId.profile"
* causes the PDF signature to fail validation at https://validar.iti.gov.br/
* Perhaps something changed in the years since this example was originally written and tested to be working.
* You may need to omit the "policyId.profile".
* ---------------------------------------------------
loJson.UpdateString("policyId.profile","PA_PAdES_AD_RB_v1_1")

* Load the signing certificate. (Use your own certificate.)
* Note: If loading from a smart card, call LoadFromSmartcard instead, and make sure to use Chilkat v9.5.0.88 or later.
loCert = CreateObject('Chilkat.Cert')
lnSuccess = loCert.LoadPfxFile("qa_data/pfx/myPdfSigningCert.pfx","pfx_password")
IF (lnSuccess = 0) THEN
    ? loCert.LastErrorText
    RELEASE loPdf
    RELEASE loJson
    RELEASE loCert
    CANCEL
ENDIF

* Tell the pdf object to use the certificate for signing.
lnSuccess = loPdf.SetSigningCert(loCert)
IF (lnSuccess = 0) THEN
    ? loPdf.LastErrorText
    RELEASE loPdf
    RELEASE loJson
    RELEASE loCert
    CANCEL
ENDIF

lnSuccess = loPdf.SignPdf(loJson,"qa_output/hello_signed.pdf")
IF (lnSuccess = 0) THEN
    ? loPdf.LastErrorText
    RELEASE loPdf
    RELEASE loJson
    RELEASE loCert
    CANCEL
ENDIF

? "The PDF has been successfully cryptographically signed."

RELEASE loPdf
RELEASE loJson
RELEASE loCert