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

PowerBuilder 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

integer li_rc
oleobject loo_Crypt
string ls_SigningCertSubject
string ls_PfxFilename
string ls_PfxPassword
oleobject loo_CertStore
integer li_Success
oleobject loo_Cert
string ls_InFile
string ls_OutputFile

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

loo_Crypt = create oleobject
// Use "Chilkat_9_5_0.Crypt2" for versions of Chilkat < 10.0.0
li_rc = loo_Crypt.ConnectToNewObject("Chilkat.Crypt2")
if li_rc < 0 then
    destroy loo_Crypt
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// Use a digital certificate and private key from a PFX file (.pfx or .p12).
ls_SigningCertSubject = "Acme Inc"
ls_PfxFilename = "/Users/chilkat/testData/pfx/acme.pfx"
ls_PfxPassword = "test123"

loo_CertStore = create oleobject
// Use "Chilkat_9_5_0.CertStore" for versions of Chilkat < 10.0.0
li_rc = loo_CertStore.ConnectToNewObject("Chilkat.CertStore")

li_Success = loo_CertStore.LoadPfxFile(ls_PfxFilename,ls_PfxPassword)
if li_Success <> 1 then
    Write-Debug loo_CertStore.LastErrorText
    destroy loo_Crypt
    destroy loo_CertStore
    return
end if

loo_Cert = loo_CertStore.FindCertBySubjectCN(ls_SigningCertSubject)
if loo_CertStore.LastMethodSuccess = 0 then
    Write-Debug "Failed to find certificate by subject common name."
    destroy loo_Crypt
    destroy loo_CertStore
    return
end if

// Tell the crypt component to use this cert.
li_Success = loo_Crypt.SetSigningCert(loo_Cert)

// We can sign any type of file, creating a .p7m as output:
ls_InFile = "/Users/chilkat/testData/pdf/sample.pdf"
ls_OutputFile = "/Users/chilkat/testData/p7m/sample.pdf.p7m"
li_Success = loo_Crypt.CreateP7M(ls_InFile,ls_OutputFile)
if li_Success = 0 then
    Write-Debug loo_Crypt.LastErrorText
    destroy loo_Cert
    destroy loo_Crypt
    destroy loo_CertStore
    return
end if

// Verify and restore the original file:
li_Success = loo_Crypt.SetVerifyCert(loo_Cert)

ls_InFile = ls_OutputFile
ls_OutputFile = "/Users/chilkat/testData/pdf/restored.pdf"

li_Success = loo_Crypt.VerifyP7M(ls_InFile,ls_OutputFile)
if li_Success = 0 then
    Write-Debug loo_Crypt.LastErrorText
    destroy loo_Cert
    destroy loo_Crypt
    destroy loo_CertStore
    return
end if

destroy loo_Cert

Write-Debug "Success!"


destroy loo_Crypt
destroy loo_CertStore