(PowerBuilder) Duplicate openssl dgst -sha256 -sign private.pem -out sha256.sig in.dat

Demonstrates how to duplicate this OpenSSL command:

openssl dgst -sha256 -sign private.pem -out sha256.sig in.dat

1. Creates a SHA256 digest of the contents of the input file
2. Signs the SHA256 digest using the private key.

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

integer li_rc
oleobject loo_Pkey
integer li_Success
oleobject loo_Rsa
oleobject loo_BdFileData
oleobject loo_BdSig

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

loo_Pkey = create oleobject
// Use "Chilkat_9_5_0.PrivateKey" for versions of Chilkat < 10.0.0
li_rc = loo_Pkey.ConnectToNewObject("Chilkat.PrivateKey")
if li_rc < 0 then
    destroy loo_Pkey
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// Load the private key from an PEM file:
li_Success = loo_Pkey.LoadPemFile("private.pem")
if li_Success <> 1 then
    Write-Debug loo_Pkey.LastErrorText
    destroy loo_Pkey
    return
end if

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

// Import the private key into the RSA component:
li_Success = loo_Rsa.ImportPrivateKeyObj(loo_Pkey)
if li_Success <> 1 then
    Write-Debug loo_Rsa.LastErrorText
    destroy loo_Pkey
    destroy loo_Rsa
    return
end if

// OpenSSL uses big-endian.
loo_Rsa.LittleEndian = 0

// Load the file to be signed.
loo_BdFileData = create oleobject
// Use "Chilkat_9_5_0.BinData" for versions of Chilkat < 10.0.0
li_rc = loo_BdFileData.ConnectToNewObject("Chilkat.BinData")

li_Success = loo_BdFileData.LoadFile("in.dat")

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

li_Success = loo_Rsa.SignBd(loo_BdFileData,"sha256",loo_BdSig)
if li_Success <> 1 then
    Write-Debug loo_Rsa.LastErrorText
    destroy loo_Pkey
    destroy loo_Rsa
    destroy loo_BdFileData
    destroy loo_BdSig
    return
end if

// Save the binary signature to a file.
li_Success = loo_BdSig.WriteFile("signature.sig")
if li_Success <> 1 then
    Write-Debug "Failed to write signature.sig."
    destroy loo_Pkey
    destroy loo_Rsa
    destroy loo_BdFileData
    destroy loo_BdSig
    return
end if

Write-Debug "Success."


destroy loo_Pkey
destroy loo_Rsa
destroy loo_BdFileData
destroy loo_BdSig