(Xojo Plugin) Create CAdES-BES .p7m using Smart Card or USB Token

Demonstrates how to create a CAdES BES invoice.xml.p7m using a certificate stored on a smart card or USB token.

Note: This example requires Chilkat v9.5.0.77 and at the time of this writing is restricted to the Windows operating system.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

// Note: Requires Chilkat v9.5.0.77 or greater.

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

Dim crypt As New Chilkat.Crypt2

// Use a certificate on a smartcard or USB token.
Dim cert As New Chilkat.Cert
// Load the certificate on the smartcard currently in the reader (or on the USB token).
// Pass an empty string to allow Chilkat to automatically choose the CSP (Cryptographi Service Provider).
// See Load Certificate on Smartcard for information about explicitly selecting a particular CSP.
Dim success As Boolean
success = cert.LoadFromSmartcard("")
If (success <> True) Then
    System.DebugLog(cert.LastErrorText)
    Return
End If

// Provide the smartcard PIN.
// If the PIN is not explicitly provided here, the Windows OS should
// display a dialog for the PIN.
cert.SmartCardPin = "000000"

// Provide the certificate for signing.
success = crypt.SetSigningCert(cert)
If (success <> True) Then
    System.DebugLog(crypt.LastErrorText)
    Return
End If

// Indicate that SHA-256 should be used.
crypt.HashAlgorithm = "sha256"

// Specify the signed attributes to be included.
// (This is what makes it CAdES-BES compliant.)
Dim jsonSignedAttrs As New Chilkat.JsonObject
success = jsonSignedAttrs.UpdateInt("contentType",1)
success = jsonSignedAttrs.UpdateInt("signingTime",1)
success = jsonSignedAttrs.UpdateInt("messageDigest",1)
success = jsonSignedAttrs.UpdateInt("signingCertificateV2",1)
crypt.SigningAttributes = jsonSignedAttrs.Emit()

Dim inFile As String
inFile = "qa_data/xml/IT01234567890_11002.xml"
Dim sigFile As String
sigFile = "qa_output/IT01234567890_11002.xml.p7m"

// Create the CAdES-BES signature, which contains the original data.
success = crypt.CreateP7M(inFile,sigFile)
If (success = False) Then
    System.DebugLog(crypt.LastErrorText)
    Return
End If

System.DebugLog("Success.")