(PowerBuilder) Create and Verify an Opaque PKCS7/CMS Signature

Demonstrates how to create a PKCS7 opaque signature, and also how to verify an opaque signature. An opaque signature is different than a detached PKCS7 signature in that it contains the original data. Verifying an opaque signature retrieves the original content.

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

integer li_rc
oleobject loo_Crypt
oleobject loo_Cert
integer li_Success
oleobject loo_PrivKey
string ls_Password
string ls_OriginalData
string ls_OpaqueSig
oleobject loo_VCrypt
string ls_ExtractedData

// This example assumes 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

// A certificate and private key is needed to create a signature.
// Chilkat provides many different ways to load a certificate and private key, such
// as from a PFX/.p12, Java keystore, JWK, Windows registry-based certificate stores, and other sources.
// This example will load the certificate from a .crt and the private key from a .key file

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

// The LoadFromFile method will automatically detect the format and load it.
li_Success = loo_Cert.LoadFromFile("qa_data/certs/test_12345678a.cer")
if li_Success <> 1 then
    Write-Debug loo_Cert.LastErrorText
    destroy loo_Crypt
    destroy loo_Cert
    return
end if

// Our private key is in an encrypted PKCS8 format.
// If you don't know the format of your key, but you do know it's encrypted,
// and requires a password, then just call any of the Chilkat methods that load
// a private key w/ a password argument.  Chilkat will auto-detect the format
// and load it correctly even if it's not the format indicated by the method name..
loo_PrivKey = create oleobject
// Use "Chilkat_9_5_0.PrivateKey" for versions of Chilkat < 10.0.0
li_rc = loo_PrivKey.ConnectToNewObject("Chilkat.PrivateKey")

ls_Password = "12345678a"
li_Success = loo_PrivKey.LoadPkcs8EncryptedFile("qa_data/certs/test_12345678a.key",ls_Password)
if li_Success <> 1 then
    Write-Debug loo_PrivKey.LastErrorText
    destroy loo_Crypt
    destroy loo_Cert
    destroy loo_PrivKey
    return
end if

// Set properties required for signing.

// Tell it to use the cert and private key we've loaded.
li_Success = loo_Crypt.SetSigningCert2(loo_Cert,loo_PrivKey)
if li_Success <> 1 then
    Write-Debug loo_Crypt.LastErrorText
    destroy loo_Crypt
    destroy loo_Cert
    destroy loo_PrivKey
    return
end if

// Indicate we want the opaque signature in base64 format:
loo_Crypt.EncodingMode = "base64"

// Sign the string using the "utf-8" byte representation:
loo_Crypt.Charset = "utf-8"

// Create the opaque signature:
ls_OriginalData = "This is the string to be signed."
ls_OpaqueSig = loo_Crypt.OpaqueSignStringENC(ls_OriginalData)
if loo_Crypt.LastMethodSuccess <> 1 then
    Write-Debug loo_Crypt.LastErrorText
    destroy loo_Crypt
    destroy loo_Cert
    destroy loo_PrivKey
    return
end if

Write-Debug ls_OpaqueSig

// The output looks like this:
// MIIPgQYJKoZIhvcNAQcCoIIPcjCCD24CAQExCzAJBgUrDgMCGgUAMC8GCSqGSIb3DQEHAaAiBCBUaGlzIGlzIHRoZSBzdHJpbmcgdG8gYmUgc...

// ----------------------------------------------------------------------------------------------
// Now let's verify the signature and retrieve the original data.
// We'll use a new Crypt2 object to keep things completely separate...

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

loo_VCrypt.EncodingMode = "base64"
loo_VCrypt.Charset = "utf-8"

ls_ExtractedData = loo_VCrypt.OpaqueVerifyStringENC(ls_OpaqueSig)
if loo_VCrypt.LastMethodSuccess <> 1 then
    Write-Debug loo_VCrypt.LastErrorText
    destroy loo_Crypt
    destroy loo_Cert
    destroy loo_PrivKey
    destroy loo_VCrypt
    return
end if

Write-Debug "The extracted data: " + ls_ExtractedData

// The output is:
// The extracted data: This is the string to be signed.


destroy loo_Crypt
destroy loo_Cert
destroy loo_PrivKey
destroy loo_VCrypt