#Include Misc.Def #Include Mifare.Def #Pragma EnableMifare #Pragma UID(Single) #Pragma SAKATQA(&H28,&H04,&H00) #Pragma ATS(HB="MIF") Command &HFC &H02 Transport() Private K$ As String*12 = &HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF Private T$ As String*16 = &HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&H07,&H80,&H69,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF FOR F = 0 To 15 Call MifareResetSector(F) Call MifareWriteBlock(4*F+3,K$,T$) Next F End Command Command &HFC &H04 NFC() Private K$ As String*12 = &HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF Private NFC1$ As String*16 = &H14,&H01,&H03,&HE1,&H03,&HE1,&H03,&HE1,&H03,&HE1,&H03,&HE1,&H03,&HE1,&H03,&HE1 Private NFC2$ As String*16 = &HD3,&HF7,&HD3,&HF7,&HD3,&HF7,&H7F,&H07,&H88,&H40,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF Private NFC3$ As String*16 = &HA0,&HA1,&HA2,&HA3,&HA4,&HA5,&H78,&H77,&H88,&HC1,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF Private NFC4$ As String*16 = &H03,&H00,&HFE,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF Private NFC5$ As String*16 = &H03,&HE1,&H03,&HE1,&H03,&HE1,&H03,&HE1,&H03,&HE1,&H03,&HE1,&H03,&HE1,&H03,&HE1 Call MifareResetSector(0) Call MifareWriteBlock(1,K$,NFC1$):Call MifareWriteBlock(2,K$,NFC5$) Call MifareWriteBlock(3,K$,NFC3$) Call MifareResetSector(1) Call MifareWriteBlock(4,K$,NFC4$):Call MifareWriteBlock(7,K$,NFC2$) FOR F = 2 To 15 Call MifareResetSector(F) Call MifareWriteBlock(4*F+3,K$,NFC2$) Next F End Command