Perl

A3/A4 Certificate to Create and Verify an Opaque PKCS7/CMS Signature

See more Digital Signatures Examples

Demonstrates how to use an A3 or A4 certificate w/ private key on a smartcard or token to create a PKCS7 opaque signature, and also how to verify an opaque signature.

An opaque signature is different than a detached PKCS7 signature in that it contains the original data. Verifying an opaque signature retrieves the original content.

Perl

use chilkat();

$success = 0;

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

$crypt = chilkat::CkCrypt2->new();

# A certificate and private key is needed to create a signature.
# Chilkat provides many different ways to load a certificate and private key, such
# as from a smartcards and hardware tokens, PFX/.p12, Java keystore, JWK, Windows registry-based certificate stores, and other sources.
# This example will load the default certificate from the smartcard that is currently in
# the smartcard reader.

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

# If the smartcard or token requires a PIN, we can set it here to avoid the dialog...
$cert->put_SmartCardPin("000000");

$success = $cert->LoadFromSmartcard("");
if ($success != 1) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

# Tell it to use the cert and private key we've loaded.
$success = $crypt->SetSigningCert($cert);
if ($success != 1) {
    print $crypt->lastErrorText() . "\r\n";
    exit;
}

# Indicate we want the opaque signature in base64 format:
$crypt->put_EncodingMode("base64");

# Sign the string using the "utf-8" byte representation:
$crypt->put_Charset("utf-8");

# Create the opaque signature:
$originalData = "This is the string to be signed.";
$opaqueSig = $crypt->opaqueSignStringENC($originalData);
if ($crypt->get_LastMethodSuccess() != 1) {
    print $crypt->lastErrorText() . "\r\n";
    exit;
}

print $opaqueSig . "\r\n";

# The output looks like this:
# MIIPgQYJKoZIhvcNAQcCoIIPcjCCD24CAQExCzAJBgUrDgMCGgUAMC8GCSqGSIb3DQEHAaAiBCBUaGlzIGlzIHRoZSBzdHJpbmcgdG8gYmUgc...

# ----------------------------------------------------------------------------------------------
# Now let's verify the signature and retrieve the original data.
# We'll use a new Crypt2 object to keep things completely separate...

$vCrypt = chilkat::CkCrypt2->new();

# We only need the certificate to verify a signature (and extract the data from
# an opaque signature).  The public key is always embedded within a certificate.
$success = $vCrypt->SetVerifyCert($cert);
if ($success != 1) {
    print $vCrypt->lastErrorText() . "\r\n";
    exit;
}

$vCrypt->put_EncodingMode("base64");
$vCrypt->put_Charset("utf-8");

$extractedData = $vCrypt->opaqueVerifyStringENC($opaqueSig);
if ($vCrypt->get_LastMethodSuccess() != 1) {
    print $vCrypt->lastErrorText() . "\r\n";
    exit;
}

print "The extracted data: " . $extractedData . "\r\n";

# The output is:
# The extracted data: This is the string to be signed.