#Include CARDUTIL.DEF Declare Command &HFF &HCA UID(S$) ComPort=101 CLS:Call WaitForCard:ResetCard(ATR$) Print:Print "UID : "; Call UID(P1P2=&H0000,Lc=0,UID$) For F=1 TO Len(UID$) C$=MID$(UID$,F,1):C=ASC(C$):C$=HEX$(C) IF LEN(C$)=1 THEN C$="0"+C$ Print C$;" "; Next F Print:Print IF LEN(UID$)<>4 THEN Print"UID <> 4 octets":Goto Sortie CHK$=Left$(UID$,1) Open "UID.BIN" For Binary As #1 Put #1,,String$(3,0)+Chr$(&H88)+Left$(UID$,1) For F=2 To 4 CHK$=CHK$ XOR Mid$(UID$,F,1) Put #1,,Mid$(UID$,F,1) Next F Put #1,,CHK$+Chr$(&H48)+String$(530,&HFF) Close #1 Sortie:Print:Call WaitForNoCard