PowerBuilder

Sign a Byte Array to Create a Detached Signature in a Byte Array

See more Digital Signatures Examples

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

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

li_Success = 0

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

loo_Cert = create oleobject
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
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
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