(VB.NET UWP/WinRT) 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/

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.2")
attrs.UpdateString("policyId.hash","D2+ixigZgXFslceYmQOYRFI7HGHCyWIonNrHgR/u4p4=")
attrs.UpdateString("policyId.hashAlg","SHA256")
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.")