(VB.NET UWP/WinRT) Create CAdES Signature (.p7s) Compliant with ICP-Brazil Digital Signature Standard

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

Note: This example requires Chilkat v9.5.0.79 or greater.

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

Chilkat Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

' 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 New Chilkat.Crypt2

Dim cert As New Chilkat.Cert
Dim success As Boolean = cert.LoadPfxFile("mySigningCert.pfx","pfxPassword")
If (success <> True) Then
    Debug.WriteLine(cert.LastErrorText)
    Exit Sub
End If


crypt.SetSigningCert(cert)
crypt.HashAlgorithm = "sha256"

' Create JSON to indicate which signing attributes to include.
Dim attrs As New Chilkat.JsonObject
attrs.UpdateBool("contentType",True)
attrs.UpdateBool("signingTime",True)
attrs.UpdateBool("messageDigest",True)
attrs.UpdateString("contentHint.text","Content-Type: application/octet-stream" & vbCrLf & "Content-Disposition: attachment;filename=""documento.pdf""")
attrs.UpdateString("contentHint.oid","1.2.840.113549.1.7.1")
attrs.UpdateString("policyId.id","2.16.76.1.7.1.1.2.3")
attrs.UpdateString("policyId.hash","sW6Iu/dzIqZ5lbeQeHeO09DqfIhYe29tUYtxXo92o9U=")
attrs.UpdateString("policyId.hashAlg","SHA256")
attrs.UpdateString("policyId.uri","http://politicas.icpbrasil.gov.br/PA_AD_RB_v2_3.der")
attrs.UpdateBool("signingCertificateV2",True)

crypt.SigningAttributes = attrs.Emit()

' The input file can be any type of file.
Dim inFile As String = "toBeSigned.pdf"
Dim outFile As String = "signed.pdf.p7s"

success = Await crypt.CreateP7MAsync(inFile,outFile)
If (success = False) Then
    Debug.WriteLine(crypt.LastErrorText)
    Exit Sub
End If


Debug.WriteLine("Success.")