Perl Requires Chilkat v11.0.0+

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. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $rsa = Chilkat2::Rsa->new;

# Load the .pfx/.p12
my $pfx = Chilkat2::Pfx->new;
my $success = $pfx->LoadPfxFile('qa_data/pfx/myKey.p12', 'myPassword');
if (!$success) {
    print $pfx->LastErrorText, "\n";
    exit;
}

# Get the default private key.

my $privKey = Chilkat2::PrivateKey->new;
$success = $pfx->PrivateKeyAt(0, $privKey);
if (!$success) {
    print $pfx->LastErrorText, "\n";
    exit;
}

# Import the private key into the RSA component:
$success = $rsa->UsePrivateKey($privKey);
if (!$success) {
    print $rsa->LastErrorText, "\n";
    exit;
}

# Get the signature in base64
$rsa->EncodingMode('base64');

my $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".
my $base64Sig = $rsa->SignStringENC($strData, 'sha256');

print $base64Sig, "\n";

print "Success!\n";