(Perl) RSA Sign utf-8 Byte Representation of String

Demontstrates how to sign the utf-8 byte representation of a string.

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.

# Load an RSA private key for signing.
$privKey = chilkat::CkPrivateKey->new();
$success = $privKey->LoadEncryptedPemFile("qa_data/pem/rsa_passwd.pem","passwd");
if ($success != 1) {
    print $privKey->lastErrorText() . "\r\n";
    exit;
}

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

$originalData = "This is the string to be hashed an RSA signed.";

# Indicate that we want the utf-8 byte representation of the string to be signed
$rsa->put_Charset("utf-8");

# We want the RSA signature in base64 format
$rsa->put_EncodingMode("base64");

$sigBase64 = $rsa->signStringENC($originalData,"sha256");
print $sigBase64 . "\r\n";