Lianja

CAdES BES Detached Signature

See more Encryption Examples

Demonstrates how to create a CAdES BES detached signature file (.p7s). Lianja

llSuccess = .F.

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

loCrypt = createobject("CkCrypt2")

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

loCert = createobject("CkCert")
llSuccess = loCert.LoadPfxFile(lcPfxPath,lcPfxPassword)
if (llSuccess <> .T.) then
    ? loCert.LastErrorText
    release loCrypt
    release loCert
    return
endif

// Tell the crypt component to use this cert.
llSuccess = loCrypt.SetSigningCert(loCert)
if (llSuccess <> .T.) then
    ? loCrypt.LastErrorText
    release loCrypt
    release loCert
    return
endif

// The CadesEnabled property applies to all methods that create PKCS7 signatures. 
// To create a CAdES-BES signature, set this property equal to true. 
loCrypt.CadesEnabled = .T.

// We can sign any type of file, creating a .p7s as output:
lcInFile = "/Users/chilkat/testData/pdf/sample.pdf"
lcSigFile = "/Users/chilkat/testData/p7s/sample.p7s"

// Create the detached CAdES-BES signature:
llSuccess = loCrypt.CreateP7S(lcInFile,lcSigFile)
if (llSuccess = .F.) then
    ? loCrypt.LastErrorText
    release loCrypt
    release loCert
    return
endif

llSuccess = loCrypt.VerifyP7S(lcInFile,lcSigFile)
if (llSuccess = .F.) then
    ? loCrypt.LastErrorText
    release loCrypt
    release loCert
    return
endif

? "Success!"


release loCrypt
release loCert