(Xojo Plugin) Create PKCS7 Signed File (.p7m)

Demonstrates how to sign a file to create a .p7m that contains both the file contents and the signature.

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

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

Dim crypt As New Chilkat.Crypt2

Dim certStore As New Chilkat.CertStore

// Load a PFX file into a certificate store object.
Dim success As Boolean
success = certStore.LoadPfxFile("myPfx.pfx","pfxPassword")
If (success <> True) Then
    System.DebugLog(certStore.LastErrorText)
    Return
End If

// Get the certificate by subject common name.
// This should be the cert within the PFX that also
// has a private key (also stored within the PFX).
Dim cert As Chilkat.Cert
cert = certStore.FindCertBySubjectCN("myCert")
If (certStore.LastMethodSuccess = False) Then
    System.DebugLog(certStore.LastErrorText)
    Return
End If

// Tell the crypt object to use the certificate for signing:
success = crypt.SetSigningCert(cert)

// Sign a file, producing a .p7m as output.
// The input file is unchanged, the test.p7m contains the 
// contents of the input file and the signature.
Dim inFile As String
inFile = "test.txt"
Dim outFile As String
outFile = "testp7m"
success = crypt.CreateP7M(inFile,outFile)
If (success <> True) Then
    System.DebugLog(crypt.LastErrorText)
    Return
End If

System.DebugLog("Success!")