(Perl) RSA Signature SHA256withRSA, iso-8859-1, base64

See more RSA Examples

Note: This example requires Chilkat v11.0.0 or greater.

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

use chilkat();

$success = 0;

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

# This example will duplicate the following Java code:
# 
# Signature sign = Signature.getInstance("SHA256withRSA");
# sign.initSign(privateKey);
# sign.update(original.getBytes(Charset.forName("ISO-8859-1")));
# 
# ...
# byte[] resultado = sign.sign();
# sello = encodeByteArrayToBase64(resultado);
# 

# Load an RSA private key for signing.
# You can load any format file.  This example loads a .pem, but you can provide path to any type of file holding a private key.
$privKey = chilkat::CkPrivateKey->new();
$success = $privKey->LoadAnyFormatFile("qa_data/pem/rsa_passwd.pem","passwd");
if ($success == 0) {
    print $privKey->lastErrorText() . "\r\n";
    exit;
}

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

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

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

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

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