Perl

RSA Sign using a Private Key on a USB Token or Smartcard

See more Apple Keychain Examples

Create an RSA signature using a private key stored on a USB token or smartcard.

Note: On MacOS and iOS, this example requires Chilkat v10.1.2 or later when the Apple Keychain is used as the underlying means to do the signing.

Perl

use chilkat();

$success = 0;

# 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.

$cert = chilkat::CkCert->new();

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

# Specify the certificate by its common name.
$success = $cert->LoadFromSmartcard("cn=chilkat-rsa-2048");
if ($success == 0) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

print "Signing with cert: " . $cert->subjectCN() . "\r\n";

# Create data to be hashed and signed.
$bd = chilkat::CkBinData->new();

for ($i = 0; $i <= 100; $i++) {
    $bd->AppendEncoded("000102030405060708090A0B0C0D0E0F","hex");
}

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

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

# Sign the SHA-256 hash of the contents of bd.
$bdSig = chilkat::CkBinData->new();
$success = $rsa->SignBd($bd,"sha256",$bdSig);
if ($success == 0) {
    print $rsa->lastErrorText() . "\r\n";
    exit;
}

# The RSA signature is equal in length to the size of the RSA key.
print "Output signature size in bits = " . ($bdSig->get_NumBytes() * 8) . "\r\n";

# We can save the signature for later verification..
$bdSig->WriteFile("rsaSignatures/test1.sig");

# See the example to verify the RSA signature:
# Verfies an RSA Signature