(PowerBuilder) PKCS7 Sign Text using RSA 2048, SHA256, Base64 Output

Demonstrates how to sign text using 2048-bit RSA with SHA256, producing PKCS#7 output in Base64. The certificate w/ private key used for signing is loaded from a .p12/.pfx file.

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

integer li_rc
oleobject loo_Cert
integer li_Success
oleobject loo_Crypt
string ls_TextToSign
string ls_SigBase64

// 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

// Load the cert and private key.  Whatever the private key happens to be,
// such as RSA or ECC, then Chilkat will use it.  If the private key is 
// a 2048-bit RSA key, then that's what will be used..
li_Success = loo_Cert.LoadPfxFile("qa_data/pfx/myCertAndKey.p12","password")
if li_Success <> 1 then
    Write-Debug loo_Cert.LastErrorText
    destroy loo_Cert
    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)
if li_Success <> 1 then
    Write-Debug loo_Crypt.LastErrorText
    destroy loo_Cert
    destroy loo_Crypt
    return
end if

// Use SHA-256
loo_Crypt.HashAlgorithm = "sha256"

// Hash the utf-8 byte representation of the string
loo_Crypt.Charset = "utf-8"

// Return the result in base64
loo_Crypt.EncodingMode = "base64"

// Sign some text..
ls_TextToSign = "This is the text to be hashed and signed."
ls_SigBase64 = loo_Crypt.OpaqueSignStringENC(ls_TextToSign)
if loo_Crypt.LastMethodSuccess <> 1 then
    Write-Debug loo_Crypt.LastErrorText
    destroy loo_Cert
    destroy loo_Crypt
    return
end if

Write-Debug ls_SigBase64

// The result:
// MIIS2wYJKoZIhvcNAQc ... zGeeY4Oxg==


destroy loo_Cert
destroy loo_Crypt