Perl

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

See more OpenSSL Examples

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:

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

Perl

use chilkat();

$success = 0;

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

$pkey = chilkat::CkPrivateKey->new();

# Load the private key from an PEM file:
$success = $pkey->LoadPemFile("private.pem");
if ($success == 0) {
    print $pkey->lastErrorText() . "\r\n";
    exit;
}

$rsa = chilkat::CkRsa->new();

# Import the private key into the RSA component:
$success = $rsa->UsePrivateKey($pkey);
if ($success == 0) {
    print $rsa->lastErrorText() . "\r\n";
    exit;
}

# OpenSSL uses big-endian.
$rsa->put_LittleEndian(0);

# Load the file to be signed.
$bdFileData = chilkat::CkBinData->new();
$success = $bdFileData->LoadFile("in.dat");

$bdSig = chilkat::CkBinData->new();
$success = $rsa->SignBd($bdFileData,"sha256",$bdSig);
if ($success == 0) {
    print $rsa->lastErrorText() . "\r\n";
    exit;
}

# Save the binary signature to a file.
$success = $bdSig->WriteFile("signature.sig");
if ($success != 1) {
    print "Failed to write signature.sig." . "\r\n";
    exit;
}

print "Success." . "\r\n";