Perl

RSA Sign Binary Data and Verify (Recover the Original Data)

See more RSA Examples

Demonstrates how to RSA sign binary data and then verify/recover the original data.

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

Perl

use chilkat();

$success = 0;

# 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 == 0) {
    print $privKey->lastErrorText() . "\r\n";
    exit;
}

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

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

# If successful, the contents of bd are replaced with the RSA signature.
$success = $rsa->SignRawBd($bd);
if ($success == 0) {
    print $rsa->lastErrorText() . "\r\n";
    exit;
}

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

# ------------------------------------------
# Get the public key from the private key
$pubKey = chilkat::CkPublicKey->new();
$privKey->ToPublicKey($pubKey);

# Verify the signature and extract the original data.
$rsa2 = chilkat::CkRsa->new();
$rsa2->UsePublicKey($pubKey);

$bVerified = $rsa2->VerifyRawBd($bd);
print "signature verified: " . $bVerified . "\r\n";

# Show the original data:
print "original data: " . $bd->getEncoded("hex") . "\r\n";