(PowerBuilder) Sign a Byte Array to Create a Detached Signature in a Byte Array

Signs data contained in a byte array to produce a detached signature (also in a byte array). Also shows how to verify the signature.

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

integer li_rc
oleobject loo_Cert
integer li_Success
oleobject loo_Fac
oleobject loo_Crypt
integer li_Verified

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

loo_Cert = create oleobject
// Use "Chilkat_9_5_0.Cert" for versions of Chilkat < 10.0.0
li_rc = loo_Cert.ConnectToNewObject("Chilkat.Cert")
if li_rc < 0 then
    destroy loo_Cert
    MessageBox("Error","Connecting to COM object failed")
    return
end if
li_Success = loo_Cert.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123")
if li_Success = 0 then
    Write-Debug loo_Cert.LastErrorText
    destroy loo_Cert
    return
end if

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

loo_FileBytes = loo_Fac.ReadEntireFile("qa_data/pdf/sample.pdf")
if loo_Fac.LastMethodSuccess <> 1 then
    Write-Debug loo_Fac.LastErrorText
    destroy loo_Cert
    destroy loo_Fac
    return
end if

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

li_Success = loo_Crypt.SetSigningCert(loo_Cert)

// We can sign any type of file.
// The result is a detached signature (a signature that does not contain the data being signed).

loo_SigBytes = loo_Crypt.SignBytes(loo_FileBytes)
if loo_Crypt.LastMethodSuccess <> 1 then
    Write-Debug loo_Crypt.LastErrorText
    destroy loo_Cert
    destroy loo_Fac
    destroy loo_Crypt
    return
end if

li_Success = loo_Fac.WriteEntireFile("qa_output/sample.pdf.p7s",loo_SigBytes)
if loo_Fac.LastMethodSuccess <> 1 then
    Write-Debug loo_Fac.LastErrorText
    destroy loo_Cert
    destroy loo_Fac
    destroy loo_Crypt
    return
end if

// We can verify the detached signature like this
li_Verified = loo_Crypt.VerifyBytes(loo_FileBytes,loo_SigBytes)
if loo_Crypt.LastMethodSuccess <> 1 then
    Write-Debug loo_Crypt.LastErrorText
    destroy loo_Cert
    destroy loo_Fac
    destroy loo_Crypt
    return
end if

Write-Debug "Verified = " + string(li_Verified)


destroy loo_Cert
destroy loo_Fac
destroy loo_Crypt