(Perl) Duplicate OpensSSL to Create Signature using Cert and Key Files

This example duplicates the following:

openssl smime –sign -in something.xml -out something.der -signer mycert.crt -inkey cert.key -outform der –nodetach

Note: Although "smime" is the OpenSSL command, it's not actually producing S/MIME. The arguments "-outform der -binary" indicates that the output is binary DER (i.e. the PKCS7 binary signature). The input can be any type of file: XML, PDF, JPG, ... *anything*...

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

$crypt = chilkat::CkCrypt2->new();

# Load the cert and private key from separate files.
$cert = chilkat::CkCert->new();
$success = $cert->LoadFromFile("myCert.crt");
if ($success != 1) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

$bd = chilkat::CkBinData->new();
$success = $bd->LoadFile("cert.key");
$privkey = chilkat::CkPrivateKey->new();
# Load from any format private key.
# If the file does not need a password, the 2nd arg is ignored.
$success = $privkey->LoadAnyFormat($bd,"password_if_needed");
if ($success != 1) {
    print $privkey->lastErrorText() . "\r\n";
    exit;
}

$success = $crypt->SetSigningCert2($cert,$privkey);
if ($success != 1) {
    print $crypt->lastErrorText() . "\r\n";
    exit;
}

# Create the opaque signature (PKCS7 binary DER that contains both the signature and original file data).
$success = $crypt->CreateP7M("qa_data/infile.anything","qa_output/outfile.der");
if ($success != 1) {
    print $crypt->lastErrorText() . "\r\n";
    exit;
}

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