Perl

RSA Sign an Encoded Hash

See more RSA Examples

Demonstrates signing a hash (e.g., SHA256) provided as an encoded string (e.g., base64 or hex). Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# Assuming the smartcard/USB token is installed with the correct drivers from the manufacturer,
# this code can work on multiple platforms including Windows, MacOS, Linux, and iOS.

# Chilkat automatically detects and determines the way in which the HSM is used,
# which can be by PKCS11, Apple Keychain, Microsoft CNG / Crypto API, or ScMinidriver.

my $cert = Chilkat2::Cert->new;

# Set the token/smartcard PIN prior to loading.
$cert->SmartCardPin('123456');

# Specify the certificate by its common name.
my $success = $cert->LoadFromSmartcard('cn=chilkat-rsa-2048');
if (!$success) {
    print $cert->LastErrorText, "\n";
    exit;
}

print 'Signing with the private key for this cert: ', $cert->SubjectCN, "\n";

# Create data to be hashed and signed.
my $bd = Chilkat2::BinData->new;
for my $i (0 .. 100) {
    $bd->AppendEncoded('000102030405060708090A0B0C0D0E0F', 'hex');
}

my $rsa = Chilkat2::Rsa->new;

# Use the certificate's private key for signing.
$success = $rsa->SetX509Cert($cert, 1);
if (!$success) {
    print $rsa->LastErrorText, "\n";
    exit;
}

# We'll first compute the hash and then pass the encoded hash to be signed.
my $sha256_base64 = $bd->GetHash('sha256', 'base64');
print 'sha256 hash in base64 format: ', $sha256_base64, "\n";

# Pass in the base64 hash and return a base64 signature.
$rsa->EncodingMode('base64');
my $rsaSig_base64 = $rsa->SignHashENC($sha256_base64, 'sha256');
if (!$success) {
    print $rsa->LastErrorText, "\n";
    exit;
}

print 'RSA signature as base64: ', $rsaSig_base64, "\n";