(Perl) RSA Hash Binary Data and Sign (and Verify)

Demonstrates how to sign the hash of binary data. Also demonstrates how to verify the RSA signature.

Note: This example uses methods introduced in Chilkat v9.5.0.77.

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);

# We have some binary data (in hex) to sign
$originalData = "0102030405060708090A";
$bdData = chilkat::CkBinData->new();
$bdData->AppendEncoded($originalData,"hex");

# Hash (SHA-256) and sign the hash:
$bdSignature = chilkat::CkBinData->new();
$success = $rsa->SignBd($bdData,"sha256",$bdSignature);
if ($success != 1) {
    print $rsa->lastErrorText() . "\r\n";
    exit;
}

# Show the RSA signature in base64
print $bdSignature->getEncoded("base64") . "\r\n";

# ------------------------------------------
# Get the public key from the private key
# pubKey is a PublicKey
$pubKey = $privKey->GetPublicKey();

# Verify the signature..
$rsa2 = chilkat::CkRsa->new();
$rsa2->ImportPublicKeyObj($pubKey);

$bVerified = $rsa2->VerifyBd($bdData,"sha256",$bdSignature);
print "signature verified: " . $bVerified . "\r\n";