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

use chilkat();

$success = 0;

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

$scmd = chilkat::CkScMinidriver->new();

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

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

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

# Also, the maximum number of key containers is readily available:
print "Max number of key containers = " . $scmd->get_MaxContainers() . "\r\n";

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

# Sample output:

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