(Perl) RSA Signature using Private Key from .snk File

See more RSA Examples

This example loads a private key from a .snk file and creates an RSA signature.

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

use chilkat();

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

# Load the .snk and return the private key as XML.
$xmlStr = $rsa->snkToXml("./test.snk");
if ($rsa->get_LastMethodSuccess() == 0) {
    print $rsa->lastErrorText() . "\r\n";
    exit;
}

$success = $rsa->ImportPrivateKey($xmlStr);
if ($success == 0) {
    print $rsa->lastErrorText() . "\r\n";
    exit;
}

# Sign the SHA-256 hash of the utf-8 byte representation of the contents of sb
# Return the signature in base64 format.
$rsa->put_EncodingMode("base64");
$rsa->put_Charset("utf-8");
$sigBase64 = $rsa->signStringENC("This is the text to be hashed and signed.","sha256");
if ($rsa->get_LastMethodSuccess() == 0) {
    print $rsa->lastErrorText() . "\r\n";
    exit;
}

print "RSA signature as base64: " . $sigBase64 . "\r\n";