Xbase++

Create .p7s Compliant with ICP-Brazil Digital Signature Standard

See more CAdES Examples

Demonstrates how to create a .p7s signature that contains a data file, which in this case is a PDF. The .p7s will be compliant with the ICP-Brazil Digital Signature Standard.

Important: This example requires Chilkat v9.5.0.92 or later.

Xbase++

LOCAL nSuccess
LOCAL oCrypt
LOCAL cInFile
LOCAL oBd
LOCAL oCert
LOCAL oJsonSigningAttrs

nSuccess := 0

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

oCrypt := CreateObject("Chilkat.Crypt2")

//  Any type of file can be signed.  It doesn't have to be a PDF.
cInFile := "qa_data/pdf/helloWorld.pdf"

oBd := CreateObject("Chilkat.BinData")
nSuccess := oBd:LoadFile(cInFile)
IF (nSuccess == 0)
    ? "Failed to load " + cInFile
    oCrypt:destroy()
    oBd:destroy()
    RETURN
ENDIF

//  Get the certificate we'll be using to sign.
oCert := CreateObject("Chilkat.Cert")

nSuccess := oCert:LoadPfxFile("qa_data/pfx/cert_test123.pfx", "test123")
IF (nSuccess == 0)
    ? oCert:LastErrorText
    oCrypt:destroy()
    oBd:destroy()
    oCert:destroy()
    RETURN
ENDIF

nSuccess := oCrypt:SetSigningCert(oCert)
IF (nSuccess == 0)
    ? oCrypt:LastErrorText
    oCrypt:destroy()
    oBd:destroy()
    oCert:destroy()
    RETURN
ENDIF

//  Set properties for signing...
oCrypt:HashAlgorithm := "sha256"

oJsonSigningAttrs := CreateObject("Chilkat.JsonObject")
oJsonSigningAttrs:UpdateInt("contentType", 1)
oJsonSigningAttrs:UpdateInt("signingTime", 1)
oJsonSigningAttrs:UpdateInt("messageDigest", 1)
oJsonSigningAttrs: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_AD_RA --> 2.16.76.1.7.1.5.1
//  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 --> 2.16.76.1.7.1.1.1
//  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 --> 2.16.76.1.7.1.4.1
//  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 --> 2.16.76.1.7.1.2.1
//  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 --> 2.16.76.1.7.1.3.1
//  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

//  Set the policy OID and the profile name
oJsonSigningAttrs:UpdateString("policyId.id", "2.16.76.1.7.1.1.2.3")
oJsonSigningAttrs:UpdateString("policyId.profile", "PA_AD_RB_v2_3")

oCrypt:SigningAttributes := oJsonSigningAttrs:Emit()

//  Sign. 
nSuccess := oCrypt:OpaqueSignBd(oBd)
IF (nSuccess == 0)
    ? oCrypt:LastErrorText
    oCrypt:destroy()
    oBd:destroy()
    oCert:destroy()
    oJsonSigningAttrs:destroy()
    RETURN
ENDIF

//  Save to a .p7s
nSuccess := oBd:WriteFile("qa_output/helloWorld.pdf.p7s")

? "Success"

oCrypt:destroy()
oBd:destroy()
oCert:destroy()
oJsonSigningAttrs:destroy()