Perl

ScMinidriver - Acquire Context with Smart Card or USB Token

See more ScMinidriver Examples

Initializes communication with the card inserted in the given reader (or a USB token). Reader names can be discovered via the SCard.ListReaders or SCard.FindSmartcards methods. If successful, the Atr and CardName properties will be set. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $scmd = Chilkat2::ScMinidriver->new;

# Reader names (smart card readers or USB tokens) can be discovered
# via List Readers or Find Smart Cards
my $readerName = 'Alcor Micro USB Smart Card Reader 0';
my $success = $scmd->AcquireContext($readerName);
if (!$success) {
    print $scmd->LastErrorText, "\n";
    exit;
}

# If we are successful, the name of the currently inserted smart card is available:
my $cardName = $scmd->CardName;
print 'Card name: ', $cardName, "\n";

# Also, the ATR of the inserted card is available (you will likely not need the ATR).
print 'ATR: ', $scmd->Atr, "\n";

# Also, the maximum number of key containers is readily available:
print 'Max number of key containers = ', $scmd->MaxContainers, "\n";

# Delete the context when finished with the card.
$success = $scmd->DeleteContext();
if (!$success) {
    print $scmd->LastErrorText, "\n";
}

# Sample output:

# Card name: IDPrime MD T=0
# ATR: 3B7F96000080318065B0855956FB120FFE829000
# Max number of key containers = 20