(Visual FoxPro) Sign a File to Create a .p7m File (using a PFX)

Visual FoxPro example to sign a file creating a .p7m file as output. The .p7m contains the signed contents of the original file. It can be verified and restored by calling VerifyP7M.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loCrypt
LOCAL lcSigningCertSubject
LOCAL lcPfxFilename
LOCAL lcPfxPassword
LOCAL loCertStore
LOCAL lnSuccess
LOCAL loCert
LOCAL lcInFile
LOCAL lcOutputFile

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

loCrypt = CreateObject('Chilkat_9_5_0.Crypt2')

* Use a digital certificate and private key from a PFX file (.pfx or .p12).
lcSigningCertSubject = "Acme Inc"
lcPfxFilename = "/Users/chilkat/testData/pfx/acme.pfx"
lcPfxPassword = "test123"

loCertStore = CreateObject('Chilkat_9_5_0.CertStore')
lnSuccess = loCertStore.LoadPfxFile(lcPfxFilename,lcPfxPassword)
IF (lnSuccess <> 1) THEN
    ? loCertStore.LastErrorText
    RELEASE loCrypt
    RELEASE loCertStore
    CANCEL
ENDIF

loCert = loCertStore.FindCertBySubjectCN(lcSigningCertSubject)
IF (loCertStore.LastMethodSuccess = 0) THEN
    ? "Failed to find certificate by subject common name."
    RELEASE loCrypt
    RELEASE loCertStore
    CANCEL
ENDIF

* Tell the crypt component to use this cert.
lnSuccess = loCrypt.SetSigningCert(loCert)

* We can sign any type of file, creating a .p7m as output:
lcInFile = "/Users/chilkat/testData/pdf/sample.pdf"
lcOutputFile = "/Users/chilkat/testData/p7m/sample.pdf.p7m"
lnSuccess = loCrypt.CreateP7M(lcInFile,lcOutputFile)
IF (lnSuccess = 0) THEN
    ? loCrypt.LastErrorText
    RELEASE loCert
    RELEASE loCrypt
    RELEASE loCertStore
    CANCEL
ENDIF

* Verify and restore the original file:
lnSuccess = loCrypt.SetVerifyCert(loCert)

lcInFile = lcOutputFile
lcOutputFile = "/Users/chilkat/testData/pdf/restored.pdf"

lnSuccess = loCrypt.VerifyP7M(lcInFile,lcOutputFile)
IF (lnSuccess = 0) THEN
    ? loCrypt.LastErrorText
    RELEASE loCert
    RELEASE loCrypt
    RELEASE loCertStore
    CANCEL
ENDIF

RELEASE loCert

? "Success!"

RELEASE loCrypt
RELEASE loCertStore