(Lianja) 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 Lianja Extension Download Chilkat Lianja Extension

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

loCrypt = createobject("CkCrypt2")

loCertStore = createobject("CkCertStore")

// Load a PFX file into a certificate store object.
llSuccess = loCertStore.LoadPfxFile("myPfx.pfx","pfxPassword")
if (llSuccess <> .T.) then
    ? loCertStore.LastErrorText
    release loCrypt
    release loCertStore
    return
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 = .F.) then
    ? loCertStore.LastErrorText
    release loCrypt
    release loCertStore
    return
endif

// Tell the crypt object to use the certificate for signing:
llSuccess = 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"
llSuccess = loCrypt.CreateP7M(lcInFile,lcOutFile)
if (llSuccess <> .T.) then
    ? loCrypt.LastErrorText
    release loCrypt
    release loCertStore
    return
endif

? "Success!"


release loCrypt
release loCertStore