(Visual FoxPro) 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

The in.dat file can contain text or binary data of any type. The OpenSSL command does the following:

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

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

LOCAL loPkey
LOCAL lnSuccess
LOCAL loRsa
LOCAL loBdFileData
LOCAL loBdSig

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.PrivateKey')
loPkey = CreateObject('Chilkat.PrivateKey')

* Load the private key from an PEM file:
lnSuccess = loPkey.LoadPemFile("private.pem")
IF (lnSuccess <> 1) THEN
    ? loPkey.LastErrorText
    RELEASE loPkey
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Rsa')
loRsa = CreateObject('Chilkat.Rsa')

* Import the private key into the RSA component:
lnSuccess = loRsa.ImportPrivateKeyObj(loPkey)
IF (lnSuccess <> 1) THEN
    ? loRsa.LastErrorText
    RELEASE loPkey
    RELEASE loRsa
    CANCEL
ENDIF

* OpenSSL uses big-endian.
loRsa.LittleEndian = 0

* Load the file to be signed.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loBdFileData = CreateObject('Chilkat.BinData')
lnSuccess = loBdFileData.LoadFile("in.dat")

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loBdSig = CreateObject('Chilkat.BinData')
lnSuccess = loRsa.SignBd(loBdFileData,"sha256",loBdSig)
IF (lnSuccess <> 1) THEN
    ? loRsa.LastErrorText
    RELEASE loPkey
    RELEASE loRsa
    RELEASE loBdFileData
    RELEASE loBdSig
    CANCEL
ENDIF

* Save the binary signature to a file.
lnSuccess = loBdSig.WriteFile("signature.sig")
IF (lnSuccess <> 1) THEN
    ? "Failed to write signature.sig."
    RELEASE loPkey
    RELEASE loRsa
    RELEASE loBdFileData
    RELEASE loBdSig
    CANCEL
ENDIF

? "Success."

RELEASE loPkey
RELEASE loRsa
RELEASE loBdFileData
RELEASE loBdSig