]>
cvs.zerfleddert.de Git - proxmark3-svn/blob - armsrc/mifareutil.c
1 //-----------------------------------------------------------------------------
2 // Merlok, May 2011, 2012
3 // Many authors, whom made it possible
5 // This code is licensed to you under the terms of the GNU GPL, version 2 or,
6 // at your option, any later version. See the LICENSE.txt file for the text of
8 //-----------------------------------------------------------------------------
9 // Work with mifare cards.
10 //-----------------------------------------------------------------------------
12 #include "../include/proxmark3.h"
17 #include "../common/iso14443crc.h"
18 #include "iso14443a.h"
20 #include "mifareutil.h"
22 int MF_DBGLEVEL
= MF_DBG_ALL
;
25 uint8_t* get_bigbufptr_recvrespbuf(void) {
26 return (((uint8_t *)BigBuf
) + RECV_RESP_OFFSET
);
28 uint8_t* get_bigbufptr_recvcmdbuf(void) {
29 return (((uint8_t *)BigBuf
) + RECV_CMD_OFFSET
);
31 uint8_t* get_bigbufptr_emlcardmem(void) {
32 return (((uint8_t *)BigBuf
) + CARD_MEMORY_OFFSET
);
36 void mf_crypto1_decrypt(struct Crypto1State
*pcs
, uint8_t *data
, int len
){
41 for (i
= 0; i
< len
; i
++)
42 data
[i
] = crypto1_byte(pcs
, 0x00, 0) ^ data
[i
];
45 for (i
= 0; i
< 4; i
++)
46 bt
|= (crypto1_bit(pcs
, 0, 0) ^ BIT(data
[0], i
)) << i
;
53 void mf_crypto1_encrypt(struct Crypto1State
*pcs
, uint8_t *data
, uint16_t len
, uint8_t *par
) {
58 for (i
= 0; i
< len
; i
++) {
60 data
[i
] = crypto1_byte(pcs
, 0x00, 0) ^ data
[i
];
63 par
[i
>>3] |= (((filter(pcs
->odd
) ^ oddparity(bt
)) & 0x01)<<(7-(i
&0x0007)));
68 uint8_t mf_crypto1_encrypt4bit(struct Crypto1State
*pcs
, uint8_t data
) {
72 for (i
= 0; i
< 4; i
++)
73 bt
|= (crypto1_bit(pcs
, 0, 0) ^ BIT(data
, i
)) << i
;
79 int mifare_sendcmd_short(struct Crypto1State
*pcs
, uint8_t crypted
, uint8_t cmd
, uint8_t data
, uint8_t *answer
, uint8_t *answer_parity
, uint32_t *timing
)
81 return mifare_sendcmd_shortex(pcs
, crypted
, cmd
, data
, answer
, answer_parity
, timing
);
84 int mifare_sendcmd_short_special(struct Crypto1State
*pcs
, uint8_t crypted
, uint8_t cmd
, uint8_t* data
, uint8_t* answer
, uint8_t *answer_parity
, uint32_t *timing
)
93 AppendCrc14443a(dcmd
, 6);
94 ReaderTransmit(dcmd
, sizeof(dcmd
), NULL
);
95 int len
= ReaderReceive(answer
, answer_parity
);
97 if (MF_DBGLEVEL
>= 1) Dbprintf("Authentication failed. Card timeout.");
103 int mifare_sendcmd_short_mfucauth(struct Crypto1State
*pcs
, uint8_t crypted
, uint8_t cmd
, uint8_t *data
, uint8_t *answer
, uint8_t *answer_parity
, uint32_t *timing
)
108 memcpy(dcmd
+1,data
,16);
109 AppendCrc14443a(dcmd
, 17);
111 ReaderTransmit(dcmd
, sizeof(dcmd
), timing
);
112 len
= ReaderReceive(answer
, answer_parity
);
114 if (MF_DBGLEVEL
>= 1) Dbprintf("Authentication failed. Card timeout.");
115 len
= ReaderReceive(answer
,answer_parity
);
118 if (MF_DBGLEVEL
>= 1) Dbprintf("NAK - Authentication failed.");
124 int mifare_sendcmd_shortex(struct Crypto1State
*pcs
, uint8_t crypted
, uint8_t cmd
, uint8_t data
, uint8_t *answer
, uint8_t *answer_parity
, uint32_t *timing
)
126 uint8_t dcmd
[4], ecmd
[4];
128 uint8_t par
[1]; // 1 Byte parity is enough here
131 AppendCrc14443a(dcmd
, 2);
133 memcpy(ecmd
, dcmd
, sizeof(dcmd
));
137 for (pos
= 0; pos
< 4; pos
++)
139 ecmd
[pos
] = crypto1_byte(pcs
, 0x00, 0) ^ dcmd
[pos
];
140 par
[0] |= (((filter(pcs
->odd
) ^ oddparity(dcmd
[pos
])) & 0x01) << (7-pos
));
143 ReaderTransmitPar(ecmd
, sizeof(ecmd
), par
, timing
);
146 ReaderTransmit(dcmd
, sizeof(dcmd
), timing
);
149 int len
= ReaderReceive(answer
, par
);
151 if (answer_parity
) *answer_parity
= par
[0];
153 if (crypted
== CRYPT_ALL
) {
156 for (pos
= 0; pos
< 4; pos
++)
157 res
|= (crypto1_bit(pcs
, 0, 0) ^ BIT(answer
[0], pos
)) << pos
;
162 for (pos
= 0; pos
< len
; pos
++)
164 answer
[pos
] = crypto1_byte(pcs
, 0x00, 0) ^ answer
[pos
];
173 int mifare_classic_auth(struct Crypto1State
*pcs
, uint32_t uid
, uint8_t blockNo
, uint8_t keyType
, uint64_t ui64Key
, uint8_t isNested
)
175 return mifare_classic_authex(pcs
, uid
, blockNo
, keyType
, ui64Key
, isNested
, NULL
, NULL
);
178 int mifare_classic_authex(struct Crypto1State
*pcs
, uint32_t uid
, uint8_t blockNo
, uint8_t keyType
, uint64_t ui64Key
, uint8_t isNested
, uint32_t * ntptr
, uint32_t *timing
)
184 uint8_t par
[1] = {0x00};
186 uint32_t nt
, ntpp
; // Supplied tag nonce
188 uint8_t mf_nr_ar
[] = { 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 };
189 uint8_t* receivedAnswer
= get_bigbufptr_recvrespbuf();
190 uint8_t *receivedAnswerPar
= receivedAnswer
+ MAX_FRAME_SIZE
;
192 // Transmit MIFARE_CLASSIC_AUTH
193 len
= mifare_sendcmd_short(pcs
, isNested
, 0x60 + (keyType
& 0x01), blockNo
, receivedAnswer
, receivedAnswerPar
, timing
);
194 if (MF_DBGLEVEL
>= 4) Dbprintf("rand tag nonce len: %x", len
);
195 if (len
!= 4) return 1;
197 // "random" reader nonce:
203 // Save the tag nonce (nt)
204 nt
= bytes_to_num(receivedAnswer
, 4);
206 // ----------------------------- crypto1 create
208 crypto1_destroy(pcs
);
210 // Init cipher with key
211 crypto1_create(pcs
, ui64Key
);
213 if (isNested
== AUTH_NESTED
) {
214 // decrypt nt with help of new key
215 nt
= crypto1_word(pcs
, nt
^ uid
, 1) ^ nt
;
217 // Load (plain) uid^nt into the cipher
218 crypto1_word(pcs
, nt
^ uid
, 0);
222 if (!ntptr
&& (MF_DBGLEVEL
>= 3))
223 Dbprintf("auth uid: %08x nt: %08x", uid
, nt
);
229 // Generate (encrypted) nr+parity by loading it into the cipher (Nr)
231 for (pos
= 0; pos
< 4; pos
++)
233 mf_nr_ar
[pos
] = crypto1_byte(pcs
, nr
[pos
], 0) ^ nr
[pos
];
234 par
[0] |= (((filter(pcs
->odd
) ^ oddparity(nr
[pos
])) & 0x01) << (7-pos
));
237 // Skip 32 bits in pseudo random generator
238 nt
= prng_successor(nt
,32);
241 for (pos
= 4; pos
< 8; pos
++)
243 nt
= prng_successor(nt
,8);
244 mf_nr_ar
[pos
] = crypto1_byte(pcs
,0x00,0) ^ (nt
& 0xff);
245 par
[0] |= (((filter(pcs
->odd
) ^ oddparity(nt
& 0xff)) & 0x01) << (7-pos
));
248 // Transmit reader nonce and reader answer
249 ReaderTransmitPar(mf_nr_ar
, sizeof(mf_nr_ar
), par
, NULL
);
251 // Receive 4 byte tag answer
252 len
= ReaderReceive(receivedAnswer
, receivedAnswerPar
);
255 if (MF_DBGLEVEL
>= 1) Dbprintf("Authentication failed. Card timeout.");
259 memcpy(tmp4
, receivedAnswer
, 4);
260 ntpp
= prng_successor(nt
, 32) ^ crypto1_word(pcs
, 0,0);
262 if (ntpp
!= bytes_to_num(tmp4
, 4)) {
263 if (MF_DBGLEVEL
>= 1) Dbprintf("Authentication failed. Error card response.");
270 int mifare_classic_readblock(struct Crypto1State
*pcs
, uint32_t uid
, uint8_t blockNo
, uint8_t *blockData
)
276 uint8_t* receivedAnswer
= get_bigbufptr_recvrespbuf();
277 uint8_t* receivedAnswerPar
= receivedAnswer
+ MAX_FRAME_SIZE
;
279 // command MIFARE_CLASSIC_READBLOCK
280 len
= mifare_sendcmd_short(pcs
, 1, 0x30, blockNo
, receivedAnswer
, receivedAnswerPar
, NULL
);
282 if (MF_DBGLEVEL
>= 1) Dbprintf("Cmd Error: %02x", receivedAnswer
[0]);
286 if (MF_DBGLEVEL
>= 1) Dbprintf("Cmd Error: card timeout. len: %x", len
);
290 memcpy(bt
, receivedAnswer
+ 16, 2);
291 AppendCrc14443a(receivedAnswer
, 16);
292 if (bt
[0] != receivedAnswer
[16] || bt
[1] != receivedAnswer
[17]) {
293 if (MF_DBGLEVEL
>= 1) Dbprintf("Cmd CRC response error.");
297 memcpy(blockData
, receivedAnswer
, 16);
301 int mifare_ultra_auth1(uint32_t uid
, uint8_t *blockData
){
305 uint8_t* receivedAnswer
= get_bigbufptr_recvrespbuf();
306 uint8_t* receivedAnswerPar
= receivedAnswer
+ MAX_FRAME_SIZE
;
308 // command MIFARE_CLASSIC_READBLOCK
309 len
= mifare_sendcmd_short(NULL
, 1, 0x1A, 0x00, receivedAnswer
,receivedAnswerPar
,NULL
);
311 if (MF_DBGLEVEL
>= 1) Dbprintf("Cmd Error: %02x", receivedAnswer
[0]);
315 if (MF_DBGLEVEL
>= 1) Dbprintf("Auth1 Resp: %02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x",
316 receivedAnswer
[0],receivedAnswer
[1],receivedAnswer
[2],receivedAnswer
[3],receivedAnswer
[4],
317 receivedAnswer
[5],receivedAnswer
[6],receivedAnswer
[7],receivedAnswer
[8],receivedAnswer
[9],
319 memcpy(blockData
, receivedAnswer
, 11);
322 //else something went wrong???
326 int mifare_ultra_auth2(uint32_t uid
, uint8_t *key
, uint8_t *blockData
){
330 uint8_t* receivedAnswer
= get_bigbufptr_recvrespbuf();
331 uint8_t* receivedAnswerPar
= receivedAnswer
+ MAX_FRAME_SIZE
;
333 // command MIFARE_CLASSIC_READBLOCK
334 len
= mifare_sendcmd_short_mfucauth(NULL
, 1, 0xAF, key
, receivedAnswer
, receivedAnswerPar
, NULL
);
336 if (MF_DBGLEVEL
>= 1) Dbprintf("Cmd Error: %02x", receivedAnswer
[0]);
340 if (MF_DBGLEVEL
>= 1) Dbprintf("Auth2 Resp: %02x%02x%02x%02x%02x%02x%02x%02x%02x%02x",
341 receivedAnswer
[0],receivedAnswer
[1],receivedAnswer
[2],receivedAnswer
[3],receivedAnswer
[4],
342 receivedAnswer
[5],receivedAnswer
[6],receivedAnswer
[7],receivedAnswer
[8],receivedAnswer
[9],
344 memcpy(blockData
, receivedAnswer
, 11);
347 //something went wrong?
351 int mifare_ultra_readblock(uint32_t uid
, uint8_t blockNo
, uint8_t *blockData
)
357 uint8_t* receivedAnswer
= get_bigbufptr_recvrespbuf();
358 uint8_t* receivedAnswerPar
= receivedAnswer
+ MAX_FRAME_SIZE
;
361 // command MIFARE_CLASSIC_READBLOCK
362 len
= mifare_sendcmd_short(NULL
, 1, 0x30, blockNo
, receivedAnswer
, receivedAnswerPar
, NULL
);
364 if (MF_DBGLEVEL
>= 1) Dbprintf("Cmd Error: %02x", receivedAnswer
[0]);
368 if (MF_DBGLEVEL
>= 1) Dbprintf("Cmd Error: card timeout. len: %x", len
);
372 memcpy(bt
, receivedAnswer
+ 16, 2);
373 AppendCrc14443a(receivedAnswer
, 16);
374 if (bt
[0] != receivedAnswer
[16] || bt
[1] != receivedAnswer
[17]) {
375 if (MF_DBGLEVEL
>= 1) Dbprintf("Cmd CRC response error.");
379 memcpy(blockData
, receivedAnswer
, 14);
384 int mifare_classic_writeblock(struct Crypto1State
*pcs
, uint32_t uid
, uint8_t blockNo
, uint8_t *blockData
)
389 uint8_t par
[3] = {0}; // enough for 18 Bytes to send
392 uint8_t d_block
[18], d_block_enc
[18];
393 uint8_t* receivedAnswer
= get_bigbufptr_recvrespbuf();
394 uint8_t* receivedAnswerPar
= receivedAnswer
+ MAX_FRAME_SIZE
;
396 // command MIFARE_CLASSIC_WRITEBLOCK
397 len
= mifare_sendcmd_short(pcs
, 1, 0xA0, blockNo
, receivedAnswer
, receivedAnswerPar
, NULL
);
399 if ((len
!= 1) || (receivedAnswer
[0] != 0x0A)) { // 0x0a - ACK
400 if (MF_DBGLEVEL
>= 1) Dbprintf("Cmd Error: %02x", receivedAnswer
[0]);
404 memcpy(d_block
, blockData
, 16);
405 AppendCrc14443a(d_block
, 16);
408 for (pos
= 0; pos
< 18; pos
++)
410 d_block_enc
[pos
] = crypto1_byte(pcs
, 0x00, 0) ^ d_block
[pos
];
411 par
[pos
>>3] |= (((filter(pcs
->odd
) ^ oddparity(d_block
[pos
])) & 0x01) << (7 - (pos
&0x0007)));
414 ReaderTransmitPar(d_block_enc
, sizeof(d_block_enc
), par
, NULL
);
416 // Receive the response
417 len
= ReaderReceive(receivedAnswer
, receivedAnswerPar
);
420 for (i
= 0; i
< 4; i
++)
421 res
|= (crypto1_bit(pcs
, 0, 0) ^ BIT(receivedAnswer
[0], i
)) << i
;
423 if ((len
!= 1) || (res
!= 0x0A)) {
424 if (MF_DBGLEVEL
>= 1) Dbprintf("Cmd send data2 Error: %02x", res
);
431 int mifare_ultra_writeblock(uint32_t uid
, uint8_t blockNo
, uint8_t *blockData
)
435 uint8_t par
[3] = {0}; // enough for 18 parity bits
438 uint8_t* receivedAnswer
= get_bigbufptr_recvrespbuf();
439 uint8_t* receivedAnswerPar
= receivedAnswer
+ MAX_FRAME_SIZE
;
441 // command MIFARE_CLASSIC_WRITEBLOCK
442 len
= mifare_sendcmd_short(NULL
, true, 0xA0, blockNo
, receivedAnswer
, receivedAnswerPar
, NULL
);
444 if ((len
!= 1) || (receivedAnswer
[0] != 0x0A)) { // 0x0a - ACK
445 if (MF_DBGLEVEL
>= 1) Dbprintf("Cmd Addr Error: %02x", receivedAnswer
[0]);
449 memset(d_block
,'\0',18);
450 memcpy(d_block
, blockData
, 16);
451 AppendCrc14443a(d_block
, 16);
453 ReaderTransmitPar(d_block
, sizeof(d_block
), par
, NULL
);
455 // Receive the response
456 len
= ReaderReceive(receivedAnswer
, receivedAnswerPar
);
458 if ((len
!= 1) || (receivedAnswer
[0] != 0x0A)) { // 0x0a - ACK
459 if (MF_DBGLEVEL
>= 1) Dbprintf("Cmd Data Error: %02x %d", receivedAnswer
[0],len
);
466 int mifare_ultra_special_writeblock(uint32_t uid
, uint8_t blockNo
, uint8_t *blockData
)
471 uint8_t* receivedAnswer
= get_bigbufptr_recvrespbuf();
472 uint8_t *receivedAnswerPar
= receivedAnswer
+ MAX_FRAME_SIZE
;
474 // command MIFARE_CLASSIC_WRITEBLOCK
475 memset(d_block
,'\0',8);
477 memcpy(d_block
+1,blockData
,4);
478 AppendCrc14443a(d_block
, 6);
480 //i know the data send here is correct
481 len
= mifare_sendcmd_short_special(NULL
, 1, 0xA2, d_block
, receivedAnswer
, receivedAnswerPar
, NULL
);
483 if (receivedAnswer
[0] != 0x0A) { // 0x0a - ACK
484 if (MF_DBGLEVEL
>= 1) Dbprintf("Cmd Send Error: %02x %d", receivedAnswer
[0],len
);
490 int mifare_classic_halt(struct Crypto1State
*pcs
, uint32_t uid
)
493 uint8_t* receivedAnswer
= get_bigbufptr_recvrespbuf();
494 uint8_t *receivedAnswerPar
= receivedAnswer
+ MAX_FRAME_SIZE
;
496 len
= mifare_sendcmd_short(pcs
, pcs
== NULL
? false:true, 0x50, 0x00, receivedAnswer
, receivedAnswerPar
, NULL
);
498 if (MF_DBGLEVEL
>= 1) Dbprintf("halt error. response len: %x", len
);
505 int mifare_ultra_halt(uint32_t uid
)
508 uint8_t* receivedAnswer
= get_bigbufptr_recvrespbuf();
509 uint8_t *receivedAnswerPar
= receivedAnswer
+ MAX_FRAME_SIZE
;
511 len
= mifare_sendcmd_short(NULL
, true, 0x50, 0x00, receivedAnswer
, receivedAnswerPar
, NULL
);
513 if (MF_DBGLEVEL
>= 1) Dbprintf("halt error. response len: %x", len
);
521 // Mifare Memory Structure: up to 32 Sectors with 4 blocks each (1k and 2k cards),
522 // plus evtl. 8 sectors with 16 blocks each (4k cards)
523 uint8_t NumBlocksPerSector(uint8_t sectorNo
)
531 uint8_t FirstBlockOfSector(uint8_t sectorNo
)
536 return 32*4 + (sectorNo
- 32) * 16;
541 // work with emulator memory
542 void emlSetMem(uint8_t *data
, int blockNum
, int blocksCount
) {
543 uint8_t* emCARD
= get_bigbufptr_emlcardmem();
544 memcpy(emCARD
+ blockNum
* 16, data
, blocksCount
* 16);
547 void emlGetMem(uint8_t *data
, int blockNum
, int blocksCount
) {
548 uint8_t* emCARD
= get_bigbufptr_emlcardmem();
549 memcpy(data
, emCARD
+ blockNum
* 16, blocksCount
* 16);
552 void emlGetMemBt(uint8_t *data
, int bytePtr
, int byteCount
) {
553 uint8_t* emCARD
= get_bigbufptr_emlcardmem();
554 memcpy(data
, emCARD
+ bytePtr
, byteCount
);
557 int emlCheckValBl(int blockNum
) {
558 uint8_t* emCARD
= get_bigbufptr_emlcardmem();
559 uint8_t* data
= emCARD
+ blockNum
* 16;
561 if ((data
[0] != (data
[4] ^ 0xff)) || (data
[0] != data
[8]) ||
562 (data
[1] != (data
[5] ^ 0xff)) || (data
[1] != data
[9]) ||
563 (data
[2] != (data
[6] ^ 0xff)) || (data
[2] != data
[10]) ||
564 (data
[3] != (data
[7] ^ 0xff)) || (data
[3] != data
[11]) ||
565 (data
[12] != (data
[13] ^ 0xff)) || (data
[12] != data
[14]) ||
566 (data
[12] != (data
[15] ^ 0xff))
572 int emlGetValBl(uint32_t *blReg
, uint8_t *blBlock
, int blockNum
) {
573 uint8_t* emCARD
= get_bigbufptr_emlcardmem();
574 uint8_t* data
= emCARD
+ blockNum
* 16;
576 if (emlCheckValBl(blockNum
)) {
580 memcpy(blReg
, data
, 4);
585 int emlSetValBl(uint32_t blReg
, uint8_t blBlock
, int blockNum
) {
586 uint8_t* emCARD
= get_bigbufptr_emlcardmem();
587 uint8_t* data
= emCARD
+ blockNum
* 16;
589 memcpy(data
+ 0, &blReg
, 4);
590 memcpy(data
+ 8, &blReg
, 4);
591 blReg
= blReg
^ 0xffffffff;
592 memcpy(data
+ 4, &blReg
, 4);
595 data
[13] = blBlock
^ 0xff;
597 data
[15] = blBlock
^ 0xff;
602 uint64_t emlGetKey(int sectorNum
, int keyType
) {
604 uint8_t* emCARD
= get_bigbufptr_emlcardmem();
606 memcpy(key
, emCARD
+ 16 * (FirstBlockOfSector(sectorNum
) + NumBlocksPerSector(sectorNum
) - 1) + keyType
* 10, 6);
607 return bytes_to_num(key
, 6);
610 void emlClearMem(void) {
613 const uint8_t trailer
[] = {0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x07, 0x80, 0x69, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff};
614 const uint8_t uid
[] = {0xe6, 0x84, 0x87, 0xf3, 0x16, 0x88, 0x04, 0x00, 0x46, 0x8e, 0x45, 0x55, 0x4d, 0x70, 0x41, 0x04};
615 uint8_t* emCARD
= get_bigbufptr_emlcardmem();
617 memset(emCARD
, 0, CARD_MEMORY_SIZE
);
619 // fill sectors trailer data
620 for(b
= 3; b
< 256; b
<127?(b
+=4):(b
+=16)) {
621 emlSetMem((uint8_t *)trailer
, b
, 1);
625 emlSetMem((uint8_t *)uid
, 0, 1);