Declare Command Via8702 (CLA=&h87, INS=&h02, inDatas as string, Disable Le)
Declare Command Via8704 (CLA=&h87, INS=&h04, Lc=0, outDatas as string)
Declare Command Via8706 (CLA=&h87, INS=&h06, Lc=0, outDatas as string)
Declare Command ViaCAA4 (CLA=&hCA, INS=&hA4, inDatas as string, Disable Le)
Declare Command ViaCAAC (CLA=&hCA, INS=&hAC, inDatas as string, Disable Le)
Declare Command ViaCAB8 (CLA=&hCA, INS=&hB8, Lc=0, outDatas as string)
Declare Command ModifyWithPIN (CLA=&hCA, INS=&h24, inDatas as String, Disable Le)
Declare Command ViaCAC0 (CLA=&hCA, INS=&hC0, Lc=0, outDatas as String)
Declare Command ViaCA88 (CLA=&hCA, INS=&h88, inDatas as String, Disable Le)
public tmpstr as string
#Include COMMANDS.DEF
#Include COMMERR.DEF
#include MISC.DEF
#Include CARDUTIL.DEF
' Warten bis Karte eingesteckt wird.
WaitForCard
' Kartenreset durchführen
ResetCard
REM *************************************************
REM ******************** BEISPIELE ******************
REM ************** (Abgelaufene FL Karte) ***********
REM *************************************************
Rem Alle Provider (SOIDs) auslesen (Alte FL-Karte: FFF830, 041700, 041710)
call ViaCAAC(P1=&hA1, "")
call ViaCAB8 (tmpstr, Le=&h28)
Print tmpstr
REM -------------------------------------------------
Rem Select First Provider (Provider 0 = FFF830)
call ViaCAA4 (P1=&h00, "")
Rem Entilements von Provider 0 auslesen
tmpstr = chr$(&H00) + chr$(&H21) + chr$(&HFF) + chr$(&H9F)
call ViaCAAC (P1=&hA9, tmpstr)
call ViaCAB8 (tmpstr, Le=&h23)
REM -------------------------------------------------
Rem Select Next Provider (Provider 1 = 041700)
call ViaCAA4 (P1=&h02, "")
Rem Entilements von Provider 1 auslesen
tmpstr = chr$(&H00) + chr$(&H21) + chr$(&HFF) + chr$(&H9F)
call ViaCAAC (P1=&hA9, tmpstr)
call ViaCAB8 (tmpstr, Le=&h23)
REM -------------------------------------------------
Rem Select Next Provider (Provider 2 = 041710)
call ViaCAA4 (P1=&h02, "")
Rem Entilements von Provider 2 auslesen
tmpstr = chr$(&H00) + chr$(&H21) + chr$(&HFF) + chr$(&H9F)
call ViaCAAC (P1=&hA9, tmpstr)
call ViaCAB8 (tmpstr, Le=&h23)
REM -------------------------------------------------
Rem Select Provider 1 (041710)
tmpstr = chr$(&H04) + chr$(&H17) + chr$(&H00)
call ViaCAA4 (P1=&h04, tmpstr)
Rem ShowProviderProperties (Schlüssel 0, 1 und 2 sind aktiv)
Call ViaCAC0 (tmpstr, Le=&h1A)
Lesezeichen