(Excel) Create CAdES Signature (.p7s) Compliant with ICP-Brazil Digital Signature Standard PA AD RB v2.2

See more CAdES Examples

Demonstrates how to create a CMS signature w/ policy ID that is compliant with the ICP-Brazil Digital Signature Standard PA AD RB v2.2

For more information, see https://verificador.iti.gov.br/verifier-2.6.2/

Download Excel Class Modules Chilkat Excel Class Modules

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

' ------------------------------------------------------------------------------------------------------
' Note: This example creates a CMS signature (.p7s) that contains the PDF.
' It is different than signing a PDF.  To sign a PDF where the resulting PDF contains the CMS signature,
' see this example:  Sign PDF for ICP-Brasil
' ------------------------------------------------------------------------------------------------------

Dim crypt As Chilkat.Crypt2
Set crypt = Chilkat.NewCrypt2

Dim cert As Chilkat.Cert
Set cert = Chilkat.NewCert

success = cert.LoadPfxFile("mySigningCert.pfx","pfxPassword")
If (success <> True) Then
    Debug.Print cert.LastErrorText
    Exit Sub
End If

Dim success As Boolean
success = crypt.SetSigningCert(cert)
crypt.HashAlgorithm = "sha256"

' Create JSON to indicate which signing attributes to include.
Dim attrs As Chilkat.JsonObject
Set attrs = Chilkat.NewJsonObject
success = attrs.UpdateBool("contentType",True)
success = attrs.UpdateBool("signingTime",True)
success = attrs.UpdateBool("messageDigest",True)
success = attrs.UpdateString("contentHint.text","Content-Type: application/octet-stream" & vbCrLf & "Content-Disposition: attachment;filename=""documento.pdf""")
success = attrs.UpdateString("contentHint.oid","1.2.840.113549.1.7.1")
success = attrs.UpdateString("policyId.id","2.16.76.1.7.1.1.2.2")
success = attrs.UpdateString("policyId.hash","D2+ixigZgXFslceYmQOYRFI7HGHCyWIonNrHgR/u4p4=")
success = attrs.UpdateString("policyId.hashAlg","SHA256")
success = attrs.UpdateBool("signingCertificateV2",True)

crypt.SigningAttributes = attrs.Emit()

' The input file can be any type of file.

inFile = "toBeSigned.pdf"

outFile = "signed.pdf.p7s"

success = crypt.CreateP7M(inFile,outFile)
If (success = False) Then
    Debug.Print crypt.LastErrorText
    Exit Sub
End If

Debug.Print "Success."