(Perl) RSA Sign using Base64 Private Key

Signs a string using a non-encrypted RSA private key in base64 encoding. Returns the RSA signature as a base64 string.

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

use chilkat();

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

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

$sbPem = chilkat::CkStringBuilder->new();
$sbPem->AppendLine("-----BEGIN RSA PRIVATE KEY-----",1);
$sbPem->AppendLine("MIIC .... j5A==",1);
$sbPem->AppendLine("-----END RSA PRIVATE KEY-----",1);

$success = $privKey->LoadPem($sbPem->getAsString());
if ($success != 1) {
    print $privKey->lastErrorText() . "\r\n";
    exit;
}

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

$success = $rsa->ImportPrivateKeyObj($privKey);
if ($success != 1) {
    print $rsa->lastErrorText() . "\r\n";
    exit;
}

$rsa->put_EncodingMode("base64");
$strSigned = $rsa->openSslSignStringENC("12345678");
print $strSigned . "\r\n";

$strOriginal = $rsa->openSslVerifyStringENC($strSigned);
print $strOriginal . "\r\n";