(Perl) RSA Sign Using Private Key from .pfx/.p12 to Base64 Signature

See more RSA Examples

Demonstrates how to RSA sign something using a private key loaded from a .pfx/.p12. The RSA signature is returned in Base64 encoded format.

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

use chilkat();

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

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

# Load the .pfx/.p12
$pfx = chilkat::CkPfx->new();
$success = $pfx->LoadPfxFile("qa_data/pfx/myKey.p12","myPassword");
if ($success != 1) {
    print $pfx->lastErrorText() . "\r\n";
    exit;
}

# Get the default private key.
# privKey is a PrivateKey
$privKey = $pfx->GetPrivateKey(0);
if ($pfx->get_LastMethodSuccess() != 1) {
    print $pfx->lastErrorText() . "\r\n";
    exit;
}

# Import the private key into the RSA component:
$success = $rsa->ImportPrivateKeyObj($privKey);
if ($success != 1) {
    print $rsa->lastErrorText() . "\r\n";

    exit;
}

# Get the signature in base64
$rsa->put_EncodingMode("base64");

$strData = "This is the string to be signed.";

# Sign the string using the sha256 hash algorithm.
# Other valid choices are "sha384", "sha512", "sha-1", "md2" and "md5".
$base64Sig = $rsa->signStringENC($strData,"sha256");

print $base64Sig . "\r\n";

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