VB.NET

Create PKCS7 Signed File (.p7m)

See more Encryption Examples

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

Dim success As Boolean = False

' 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.
success = certStore.LoadPfxFile("myPfx.pfx","pfxPassword")
If (success <> True) Then
    Debug.WriteLine(certStore.LastErrorText)
    Exit Sub
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 jsonCN As New Chilkat.JsonObject
jsonCN.UpdateString("CN","myCert")
Dim cert As New Chilkat.Cert
success = certStore.FindCert(jsonCN,cert)
If (success = False) Then
    Debug.WriteLine(certStore.LastErrorText)
    Exit Sub
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 = "test.txt"
Dim outFile As String = "testp7m"
success = crypt.CreateP7M(inFile,outFile)
If (success <> True) Then
    Debug.WriteLine(crypt.LastErrorText)
    Exit Sub
End If


Debug.WriteLine("Success!")