Perl Requires Chilkat v9.5.0.77+

Validate a Smartcard PIN

See more Certificates Examples

Validates a smartcard PIN. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

$cert->SmartCardPin('000000');

# Load the certificate on the smartcard currently in the reader (or on the USB token).
# Pass an empty string to allow Chilkat to automatically choose the CSP (Cryptographi Service Provider).
# See Load Certificate on Smartcard for information about explicitly selecting a particular CSP.
my $success = $cert->LoadFromSmartcard('');
if (!$success) {
    print $cert->LastErrorText, "\n";
    exit;
}

# Check to see if the SmartCardPin property contains the valid PIN for the smartcard.
my $pinValid = $cert->CheckSmartCardPin();
if ($pinValid < 0) {
    print "Unable to check the PIN validity.\n";
    print $cert->LastErrorText, "\n";
    exit;
}

if ($pinValid == 1) {
    print "PIN is valid.\n";
} else {
    print "PIN is invalid.\n";
}