#Include CARDUTIL.DEF #Include COMMERR.DEF ComPort=101 Declare Command &HFF &H82 LDK(S$) Declare Command &HFF &H86 AUT(S$) Declare Command &HFF &HB0 RD(S$) Declare Command &HFF &HCA UID(S$) Declare Command &HFF &HD6 WR(S$) Public RX$ As String*16 CLS:Print"MIFWR (c)2008 Patrick GUEULLE" Call WaitForCard() ResetCard (P$) Print:Print"ATR (Hist.) : "; FOR F=1 TO Len(P$) M=ASC(MID$(P$,F,1)) M$=HEX$(M):IF Len(M$)=1 Then M$="0"+M$ PRINT M$;" "; NEXT F Print:Print S$="":Call UID(S$,Le=4):Call CheckSW1SW2 Print "UID : "; For F=1 To 4 K$=Mid$(S$,F,1) K=Asc(K$) Print Hex$(K);" "; Next F Print:Print S$=Chr$(&HA0)+Chr$(&HA1)+Chr$(&HA2)+Chr$(&HA3)+Chr$(&HA4)+Chr$(&HA5) S$=Chr$(&HB0)+Chr$(&HB1)+Chr$(&HB2)+Chr$(&HB3)+Chr$(&HB4)+Chr$(&HB5) S$=Chr$(&HFF)+Chr$(&HFF)+Chr$(&HFF)+Chr$(&HFF)+Chr$(&HFF)+Chr$(&HFF) Call LDK(P1P2=&H0000,S$,Disable Le):Call CheckSW1SW2 S$=Chr$(&H01)+Chr$(&H00)+Chr$(15*4)+Chr$(&H60)+Chr$(&H00) Call AUT(P1P2=&H0000,S$,Disable Le):Call CheckSW1SW2 S$="":Call RD(P1P2=15*4+1,S$,Le=16):RX$=S$ FOR F=1 TO Len(S$) M=ASC(MID$(S$,F,1)) M$=HEX$(M):IF Len(M$)=1 Then M$="0"+M$ PRINT M$;" "; NEXT F Print S$=String$(16,&HAB) Call WR(P1P2=15*4+1,S$,Disable Le):Call CheckSW1SW2 S$="":Call RD(P1P2=15*4+1,S$,Le=16) FOR F=1 TO Len(S$) M=ASC(MID$(S$,F,1)) M$=HEX$(M):IF Len(M$)=1 Then M$="0"+M$ PRINT M$;" "; NEXT F Print Call WR(P1P2=15*4+1,RX$,Disable Le):Call CheckSW1SW2 S$="":Call RD(P1P2=15*4+1,S$,Le=16) FOR F=1 TO Len(S$) M=ASC(MID$(S$,F,1)) M$=HEX$(M):IF Len(M$)=1 Then M$="0"+M$ PRINT M$;" "; NEXT F Print Print:Print:Call WaitForNoCard+Chr$(C) Call SEL(P1P2=&H0800,P$,Disable Le):Call CheckSW1SW2 P$="":Call RD(P1P2=&H0104,P$,Le=29) Call AFF(P$) Next C Print:Print"--- RETOUR A LA LIGNE pour voir le reste ---" Input Z$:CLS Print"Evenements speciaux :":Print P$=Chr$(&H20)+Chr$(&H00)+Chr$(&H20)+Chr$(&H40) C