PowerBuilder

Sign a Byte Array to Create an Opaque Signature in a Byte Array

See more Digital Signatures Examples

Signs data contained in a byte array to produce an opaque signature (also in a byte array). An opaque signature is a PKCS7 signature (also known as CAdES) that embeds the signed data. Also shows how to verify the signature and extract the original data. PowerBuilder

integer li_rc
long li_Success
oleobject loo_Cert
oleobject loo_Fac
oleobject loo_Crypt

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.

loo_SigBytes = loo_Crypt.OpaqueSignBytes(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.p7m",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 opaque signature and extract the original data like this

loo_OriginalData = loo_Crypt.OpaqueVerifyBytes(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

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

Write-Debug "Signature is verified and the original data was extracted."


destroy loo_Cert
destroy loo_Fac
destroy loo_Crypt