(Visual FoxPro) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loCrypt
LOCAL loCertStore
LOCAL lnSuccess
LOCAL loCert
LOCAL lcInFile
LOCAL lcOutFile

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Crypt2')
loCrypt = CreateObject('Chilkat.Crypt2')

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.CertStore')
loCertStore = CreateObject('Chilkat.CertStore')

* Load a PFX file into a certificate store object.
lnSuccess = loCertStore.LoadPfxFile("myPfx.pfx","pfxPassword")
IF (lnSuccess <> 1) THEN
    ? loCertStore.LastErrorText
    RELEASE loCrypt
    RELEASE loCertStore
    CANCEL
ENDIF

* 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).
loCert = loCertStore.FindCertBySubjectCN("myCert")
IF (loCertStore.LastMethodSuccess = 0) THEN
    ? loCertStore.LastErrorText
    RELEASE loCrypt
    RELEASE loCertStore
    CANCEL
ENDIF

* Tell the crypt object to use the certificate for signing:
lnSuccess = loCrypt.SetSigningCert(loCert)

* 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.
lcInFile = "test.txt"
lcOutFile = "testp7m"
lnSuccess = loCrypt.CreateP7M(lcInFile,lcOutFile)
IF (lnSuccess <> 1) THEN
    ? loCrypt.LastErrorText
    RELEASE loCrypt
    RELEASE loCertStore
    CANCEL
ENDIF

? "Success!"

RELEASE loCrypt
RELEASE loCertStore