Xbase++ Requires Chilkat v10.1.2+

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

See more Encryption Examples

_LANGUAGE_ 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. Xbase++

LOCAL nSuccess
LOCAL oCrypt
LOCAL cSigningCertSubject
LOCAL cPfxFilename
LOCAL cPfxPassword
LOCAL oCertStore
LOCAL oJsonCN
LOCAL oCert
LOCAL cInFile
LOCAL cOutputFile

nSuccess := 0

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

oCrypt := CreateObject("Chilkat.Crypt2")

//  Use a digital certificate and private key from a PFX file (.pfx or .p12).
cSigningCertSubject := "Acme Inc"
cPfxFilename := "/Users/chilkat/testData/pfx/acme.pfx"
cPfxPassword := "test123"

oCertStore := CreateObject("Chilkat.CertStore")
nSuccess := oCertStore:LoadPfxFile(cPfxFilename, cPfxPassword)
IF (nSuccess != 1)
    ? oCertStore:LastErrorText
    oCrypt:destroy()
    oCertStore:destroy()
    RETURN
ENDIF

oJsonCN := CreateObject("Chilkat.JsonObject")
oJsonCN:UpdateString("CN", cSigningCertSubject)

oCert := CreateObject("Chilkat.Cert")
nSuccess := oCertStore:FindCert(oJsonCN, oCert)
IF (nSuccess == 0)
    ? "Failed to find certificate by subject common name."
    oCrypt:destroy()
    oCertStore:destroy()
    oJsonCN:destroy()
    oCert:destroy()
    RETURN
ENDIF

//  Tell the crypt component to use this cert.
nSuccess := oCrypt:SetSigningCert(oCert)

//  We can sign any type of file, creating a .p7m as output:
cInFile := "/Users/chilkat/testData/pdf/sample.pdf"
cOutputFile := "/Users/chilkat/testData/p7m/sample.pdf.p7m"
nSuccess := oCrypt:CreateP7M(cInFile, cOutputFile)
IF (nSuccess == 0)
    ? oCrypt:LastErrorText
    oCrypt:destroy()
    oCertStore:destroy()
    oJsonCN:destroy()
    oCert:destroy()
    RETURN
ENDIF

//  Verify and restore the original file:
nSuccess := oCrypt:SetVerifyCert(oCert)

cInFile := cOutputFile
cOutputFile := "/Users/chilkat/testData/pdf/restored.pdf"

nSuccess := oCrypt:VerifyP7M(cInFile, cOutputFile)
IF (nSuccess == 0)
    ? oCrypt:LastErrorText
    oCrypt:destroy()
    oCertStore:destroy()
    oJsonCN:destroy()
    oCert:destroy()
    RETURN
ENDIF

? "Success!"

oCrypt:destroy()
oCertStore:destroy()
oJsonCN:destroy()
oCert:destroy()