?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
renamed 'hf mfdes readdata, writedata' to 'read/write'
[RRG-proxmark3.git] / client / src / cmdhf14b.c
blob2d86fb51f98ba8794b3cb0b2675a2ff7970fca86
1 //-----------------------------------------------------------------------------
2 // Copyright (C) 2010 iZsh <izsh at fail0verflow.com>
3 // Modified 2018, 2020 iceman
4 //
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
7 // the license.
8 //-----------------------------------------------------------------------------
9 // High frequency ISO14443B commands
10 //-----------------------------------------------------------------------------
11
12 #include "cmdhf14b.h"
13 #include <ctype.h>
14 #include "iso14b.h"
15 #include "fileutils.h"
16 #include "cmdparser.h" // command_t
17 #include "commonutil.h" // ARRAYLEN
18 #include "comms.h" // clearCommandBuffer
19 #include "emv/emvcore.h" // TLVPrintFromBuffer
20 #include "cmdtrace.h"
21 #include "cliparser.h"
22 #include "crc16.h"
23 #include "cmdhf14a.h"
24 #include "protocols.h" // definitions of ISO14B/7816 protocol
25 #include "iso7816/apduinfo.h" // GetAPDUCodeDescription
26 #include "nfc/ndef.h" // NDEFRecordsDecodeAndPrint
27 #include "aidsearch.h"
28
29 #define MAX_14B_TIMEOUT_MS (4949U)
30
31 // client side time out, waiting for device to ask tag.
32 #define TIMEOUT 1000
33
34 // client side time out, waiting for device to ask tag a APDU to answer
35 #define APDU_TIMEOUT 2000
36
37 // iso14b apdu input frame length
38 static uint16_t apdu_frame_length = 0;
39 uint16_t ats_fsc[] = {16, 24, 32, 40, 48, 64, 96, 128, 256};
40 bool apdu_in_framing_enable = true;
41
42 static int CmdHelp(const char *Cmd);
43
44 static int switch_off_field_14b(void) {
45 SetISODEPState(ISODEP_INACTIVE);
46 iso14b_raw_cmd_t packet = {
47 .flags = ISO14B_DISCONNECT,
48 .timeout = 0,
49 .rawlen = 0,
50 };
51 clearCommandBuffer();
52 SendCommandNG(CMD_HF_ISO14443B_COMMAND, (uint8_t *)&packet, sizeof(iso14b_raw_cmd_t));
53 return PM3_SUCCESS;
54 }
55
56 static uint16_t get_sw(uint8_t *d, uint8_t n) {
57 if (n < 2)
58 return 0;
59
60 n -= 2;
61 return d[n] * 0x0100 + d[n + 1];
62 }
63
64 static void hf14b_aid_search(bool verbose) {
65
66 json_t *root = AIDSearchInit(verbose);
67 if (root == NULL) {
68 switch_off_field_14b();
69 return;
70 }
71
72 PrintAndLogEx(INFO, "-------------------- " _CYAN_("AID Search") " --------------------");
73
74 bool found = false;
75 bool leave_signal_on = true;
76 bool activate_field = true;
77 for (size_t elmindx = 0; elmindx < json_array_size(root); elmindx++) {
78
79 if (kbd_enter_pressed()) {
80 break;
81 }
82
83 json_t *data = AIDSearchGetElm(root, elmindx);
84 uint8_t vaid[200] = {0};
85 int vaidlen = 0;
86 if (!AIDGetFromElm(data, vaid, sizeof(vaid), &vaidlen) || !vaidlen)
87 continue;
88
89
90 // COMPUTE APDU
91 uint8_t apdu_data[PM3_CMD_DATA_SIZE] = {0};
92 int apdu_len = 0;
93 sAPDU apdu = (sAPDU) {0x00, 0xa4, 0x04, 0x00, vaidlen, vaid};
94
95 if (APDUEncodeS(&apdu, false, 0x00, apdu_data, &apdu_len)) {
96 PrintAndLogEx(ERR, "APDU encoding error.");
97 return;
98 }
99
100 PrintAndLogEx(DEBUG, ">>>> %s", sprint_hex(apdu_data, apdu_len));
101
102 int resultlen = 0;
103 uint8_t result[1024] = {0};
104 int res = exchange_14b_apdu(apdu_data, apdu_len, activate_field, leave_signal_on, result, sizeof(result), &resultlen, -1);
105 activate_field = false;
106 if (res)
107 continue;
108
109 uint16_t sw = get_sw(result, resultlen);
110
111 uint8_t dfname[200] = {0};
112 size_t dfnamelen = 0;
113 if (resultlen > 3) {
114 struct tlvdb *tlv = tlvdb_parse_multi(result, resultlen);
115 if (tlv) {
116 // 0x84 Dedicated File (DF) Name
117 const struct tlv *dfnametlv = tlvdb_get_tlv(tlvdb_find_full(tlv, 0x84));
118 if (dfnametlv) {
119 dfnamelen = dfnametlv->len;
120 memcpy(dfname, dfnametlv->value, dfnamelen);
121 }
122 tlvdb_free(tlv);
123 }
124 }
125
126 if (sw == 0x9000 || sw == 0x6283 || sw == 0x6285) {
127 if (sw == 0x9000) {
128 if (verbose) PrintAndLogEx(SUCCESS, "Application ( " _GREEN_("ok") " )");
129 } else {
130 if (verbose) PrintAndLogEx(WARNING, "Application ( " _RED_("blocked") " )");
131 }
132
133 PrintAIDDescriptionBuf(root, vaid, vaidlen, verbose);
134
135 if (dfnamelen) {
136 if (dfnamelen == vaidlen) {
137 if (memcmp(dfname, vaid, vaidlen) == 0) {
138 if (verbose) PrintAndLogEx(INFO, "(DF) Name found and equal to AID");
139 } else {
140 PrintAndLogEx(INFO, "(DF) Name not equal to AID: %s :", sprint_hex(dfname, dfnamelen));
141 PrintAIDDescriptionBuf(root, dfname, dfnamelen, verbose);
142 }
143 } else {
144 PrintAndLogEx(INFO, "(DF) Name not equal to AID: %s :", sprint_hex(dfname, dfnamelen));
145 PrintAIDDescriptionBuf(root, dfname, dfnamelen, verbose);
146 }
147 } else {
148 if (verbose) PrintAndLogEx(INFO, "(DF) Name not found");
149 }
150
151 if (verbose) PrintAndLogEx(SUCCESS, "----------------------------------------------------");
152 found = true;
153 }
154 }
155 switch_off_field_14b();
156 if (verbose == false && found)
157 PrintAndLogEx(INFO, "----------------------------------------------------");
158 }
159
160 static bool wait_cmd_14b(bool verbose, bool is_select, uint32_t timeout) {
161
162 PacketResponseNG resp;
163 if (WaitForResponseTimeout(CMD_HF_ISO14443B_COMMAND, &resp, MAX(TIMEOUT, timeout)) == false) {
164 PrintAndLogEx(WARNING, "timeout while waiting for reply");
165 return false;
166 }
167
168 uint16_t len = (resp.oldarg[1] & 0xFFFF);
169 uint8_t *data = resp.data.asBytes;
170
171 // handle select responses
172 if (is_select) {
173
174 // 0: OK; -1: attrib fail; -2:crc fail
175 int status = (int)resp.oldarg[0];
176 if (status == 0) {
177
178 if (verbose) {
179 PrintAndLogEx(SUCCESS, "received " _YELLOW_("%u") " bytes", len);
180 PrintAndLogEx(SUCCESS, "%s", sprint_hex(data, len));
181 }
182 return true;
183 } else {
184 return false;
185 }
186 }
187
188 // handle raw bytes responses
189 if (verbose) {
190 if (len >= 3) {
191 bool crc = check_crc(CRC_14443_B, data, len);
192
193 PrintAndLogEx(SUCCESS, "received " _YELLOW_("%u") " bytes", len);
194 PrintAndLogEx(SUCCESS, "%s[%02X %02X] %s",
195 sprint_hex(data, len - 2),
196 data[len - 2],
197 data[len - 1],
198 (crc) ? _GREEN_("ok") : _RED_("fail")
199 );
200 } else if (len == 0) {
201 PrintAndLogEx(INFO, "no response from tag");
202 } else {
203 PrintAndLogEx(SUCCESS, "%s", sprint_hex(data, len));
204 }
205 }
206 return true;
207 }
208
209 static int CmdHF14BList(const char *Cmd) {
210 return CmdTraceListAlias(Cmd, "hf 14b", "14b");
211 }
212
213 static int CmdHF14BSim(const char *Cmd) {
214
215 CLIParserContext *ctx;
216 CLIParserInit(&ctx, "hf 14b sim",
217 "Simulate a ISO/IEC 14443 type B tag with 4 byte UID / PUPI",
218 "hf 14b sim -u 11AA33BB"
219 );
220
221 void *argtable[] = {
222 arg_param_begin,
223 arg_strx0("u", "uid", "hex", "4byte UID/PUPI"),
224 arg_param_end
225 };
226 CLIExecWithReturn(ctx, Cmd, argtable, false);
227
228 uint8_t pupi[4];
229 int n = 0;
230 int res = CLIParamHexToBuf(arg_get_str(ctx, 1), pupi, sizeof(pupi), &n);
231 CLIParserFree(ctx);
232
233 if (res) {
234 PrintAndLogEx(FAILED, "failed to read pupi");
235 return PM3_EINVARG;
236 }
237
238 PrintAndLogEx(INFO, "Simulate with PUPI : " _GREEN_("%s"), sprint_hex_inrow(pupi, sizeof(pupi)));
239 PrintAndLogEx(INFO, "Press pm3-button to abort simulation");
240 clearCommandBuffer();
241 SendCommandNG(CMD_HF_ISO14443B_SIMULATE, pupi, sizeof(pupi));
242 return PM3_SUCCESS;
243 }
244
245 static int CmdHF14BSniff(const char *Cmd) {
246
247 CLIParserContext *ctx;
248 CLIParserInit(&ctx, "hf 14b sniff",
249 "Sniff the communication reader and tag",
250 "hf 14b sniff"
251 );
252
253 void *argtable[] = {
254 arg_param_begin,
255 arg_param_end
256 };
257 CLIExecWithReturn(ctx, Cmd, argtable, true);
258 CLIParserFree(ctx);
259
260 PacketResponseNG resp;
261 clearCommandBuffer();
262 SendCommandNG(CMD_HF_ISO14443B_SNIFF, NULL, 0);
263
264 WaitForResponse(CMD_HF_ISO14443B_SNIFF, &resp);
265
266 PrintAndLogEx(HINT, "Try `" _YELLOW_("hf 14b list") "` to view captured tracelog");
267 PrintAndLogEx(HINT, "Try `" _YELLOW_("trace save -h") "` to save tracelog for later analysing");
268 return PM3_SUCCESS;
269 }
270
271 static int CmdHF14BCmdRaw(const char *Cmd) {
272 CLIParserContext *ctx;
273 CLIParserInit(&ctx, "hf 14b raw",
274 "Sends raw bytes to card",
275 "hf 14b raw -cks --data 0200a40400 -> standard select, apdu 0200a4000 (7816)\n"
276 "hf 14b raw -ck --sr --data 0200a40400 -> SRx select\n"
277 "hf 14b raw -ck --cts --data 0200a40400 -> C-ticket select\n"
278 );
279
280 void *argtable[] = {
281 arg_param_begin,
282 arg_lit0("k", "keep", "leave the signal field ON after receive response"),
283 arg_lit0("s", "std", "activate field, use ISO14B select"),
284 arg_lit0(NULL, "sr", "activate field, use SRx ST select"),
285 arg_lit0(NULL, "cts", "activate field, use ASK C-ticket select"),
286 arg_lit0("c", "crc", "calculate and append CRC"),
287 arg_lit0("r", NULL, "do not read response from card"),
288 arg_int0("t", "timeout", "<dec>", "timeout in ms"),
289 arg_lit0("v", "verbose", "verbose"),
290 arg_strx0("d", "data", "<hex>", "data, bytes to send"),
291 arg_param_end
292 };
293 CLIExecWithReturn(ctx, Cmd, argtable, false);
294
295 bool keep_field_on = arg_get_lit(ctx, 1);
296 bool select_std = arg_get_lit(ctx, 2);
297 bool select_sr = arg_get_lit(ctx, 3);
298 bool select_cts = arg_get_lit(ctx, 4);
299 bool add_crc = arg_get_lit(ctx, 5);
300 bool read_reply = (arg_get_lit(ctx, 6) == false);
301 int user_timeout = arg_get_int_def(ctx, 7, -1);
302 bool verbose = arg_get_lit(ctx, 8);
303
304 uint32_t flags = ISO14B_CONNECT;
305 if (add_crc) {
306 flags |= ISO14B_APPEND_CRC;
307 }
308
309 if (select_std) {
310 flags |= (ISO14B_SELECT_STD | ISO14B_CLEARTRACE);
311 if (verbose)
312 PrintAndLogEx(INFO, "using ISO14443-B select");
313 } else if (select_sr) {
314 flags |= (ISO14B_SELECT_SR | ISO14B_CLEARTRACE);
315 if (verbose)
316 PrintAndLogEx(INFO, "using ST/SRx select");
317 } else if (select_cts) {
318 flags |= (ISO14B_SELECT_CTS | ISO14B_CLEARTRACE);
319 if (verbose)
320 PrintAndLogEx(INFO, "using ASK/C-ticket select");
321 }
322
323 uint8_t data[PM3_CMD_DATA_SIZE] = {0x00};
324 int datalen = 0;
325 int res = CLIParamHexToBuf(arg_get_str(ctx, 9), data, sizeof(data), &datalen);
326 if (res && verbose) {
327 PrintAndLogEx(INFO, "called with no raw bytes");
328 }
329 CLIParserFree(ctx);
330
331
332 uint32_t time_wait = 0;
333 if (user_timeout > 0) {
334
335 flags |= ISO14B_SET_TIMEOUT;
336
337 if (user_timeout > MAX_14B_TIMEOUT_MS) {
338 user_timeout = MAX_14B_TIMEOUT_MS;
339 PrintAndLogEx(INFO, "set timeout to 4.9 seconds. The max we can wait for response");
340 }
341
342 // timeout in ETUs (time to transfer 1 bit, approx. 9.4 us)
343 time_wait = (uint32_t)((13560 / 128) * user_timeout);
344 if (verbose)
345 PrintAndLogEx(INFO, " new raw timeout : %u ETU ( %u ms )", time_wait, user_timeout);
346 }
347
348 if (keep_field_on == 0)
349 flags |= ISO14B_DISCONNECT;
350
351 if (datalen > 0)
352 flags |= ISO14B_RAW;
353
354 // Max buffer is PM3_CMD_DATA_SIZE
355 datalen = (datalen > PM3_CMD_DATA_SIZE) ? PM3_CMD_DATA_SIZE : datalen;
356
357
358 iso14b_raw_cmd_t *packet = (iso14b_raw_cmd_t *)calloc(1, sizeof(iso14b_raw_cmd_t) + datalen);
359 if (packet == NULL) {
360 PrintAndLogEx(FAILED, "failed to allocate memory");
361 return PM3_EMALLOC;
362 }
363 packet->flags = flags;
364 packet->timeout = time_wait;
365 packet->rawlen = datalen;
366 memcpy(packet->raw, data, datalen);
367
368 clearCommandBuffer();
369 SendCommandNG(CMD_HF_ISO14443B_COMMAND, (uint8_t *)packet, sizeof(iso14b_raw_cmd_t) + packet->rawlen);
370 free(packet);
371
372 if (read_reply == false) {
373 clearCommandBuffer();
374 return PM3_SUCCESS;
375 }
376
377 bool success = true;
378
379 // Select, device will send back iso14b_card_select_t, don't print it.
380 if (select_std) {
381 success = wait_cmd_14b(verbose, true, user_timeout);
382 if (verbose && success)
383 PrintAndLogEx(SUCCESS, "Got response for standard select");
384 }
385
386 if (select_sr) {
387 success = wait_cmd_14b(verbose, true, user_timeout);
388 if (verbose && success)
389 PrintAndLogEx(SUCCESS, "Got response for ST/SRx select");
390 }
391
392 if (select_cts) {
393 success = wait_cmd_14b(verbose, true, user_timeout);
394 if (verbose && success)
395 PrintAndLogEx(SUCCESS, "Got response for ASK/C-ticket select");
396 }
397
398 // get back response from the raw bytes you sent.
399 if (success && datalen > 0) {
400 wait_cmd_14b(true, false, user_timeout);
401 }
402
403 return PM3_SUCCESS;
404 }
405
406 static bool get_14b_UID(iso14b_card_select_t *card) {
407
408 if (card == NULL)
409 return false;
410
411 iso14b_raw_cmd_t packet = {
412 .flags = (ISO14B_CONNECT | ISO14B_SELECT_SR | ISO14B_DISCONNECT),
413 .timeout = 0,
414 .rawlen = 0,
415 };
416
417 PacketResponseNG resp;
418 clearCommandBuffer();
419 SendCommandNG(CMD_HF_ISO14443B_COMMAND, (uint8_t *)&packet, sizeof(iso14b_raw_cmd_t));
420
421 if (WaitForResponseTimeout(CMD_HF_ISO14443B_COMMAND, &resp, TIMEOUT)) {
422
423 if (resp.oldarg[0] == 0) {
424 memcpy(card, (iso14b_card_select_t *)resp.data.asBytes, sizeof(iso14b_card_select_t));
425 return true;
426 }
427 }
428
429 // test 14b standard
430 packet.flags = (ISO14B_CONNECT | ISO14B_SELECT_STD | ISO14B_DISCONNECT);
431 clearCommandBuffer();
432 SendCommandNG(CMD_HF_ISO14443B_COMMAND, (uint8_t *)&packet, sizeof(iso14b_raw_cmd_t));
433 if (WaitForResponseTimeout(CMD_HF_ISO14443B_COMMAND, &resp, TIMEOUT)) {
434
435 if (resp.oldarg[0] == 0) {
436 memcpy(card, (iso14b_card_select_t *)resp.data.asBytes, sizeof(iso14b_card_select_t));
437 return true;
438 }
439 }
440
441 PrintAndLogEx(WARNING, "timeout while waiting for reply");
442 return false;
443 }
444
445 // print full atqb info
446 // bytes
447 // 0,1,2,3 = application data
448 // 4 = bit rate capacity
449 // 5 = max frame size / -4 info
450 // 6 = FWI / Coding options
451 static int print_atqb_resp(uint8_t *data, uint8_t cid) {
452 //PrintAndLogEx(SUCCESS, " UID: %s", sprint_hex(data+1,4));
453 PrintAndLogEx(SUCCESS, " App Data: %s", sprint_hex(data, 4));
454 PrintAndLogEx(SUCCESS, " Protocol: %s", sprint_hex(data + 4, 3));
455 uint8_t BitRate = data[4];
456 if (!BitRate) PrintAndLogEx(SUCCESS, " Bit Rate: 106 kbit/s only PICC <-> PCD");
457 if (BitRate & 0x10) PrintAndLogEx(SUCCESS, " Bit Rate: 212 kbit/s PICC -> PCD supported");
458 if (BitRate & 0x20) PrintAndLogEx(SUCCESS, " Bit Rate: 424 kbit/s PICC -> PCD supported");
459 if (BitRate & 0x40) PrintAndLogEx(SUCCESS, " Bit Rate: 847 kbit/s PICC -> PCD supported");
460 if (BitRate & 0x01) PrintAndLogEx(SUCCESS, " Bit Rate: 212 kbit/s PICC <- PCD supported");
461 if (BitRate & 0x02) PrintAndLogEx(SUCCESS, " Bit Rate: 424 kbit/s PICC <- PCD supported");
462 if (BitRate & 0x04) PrintAndLogEx(SUCCESS, " Bit Rate: 847 kbit/s PICC <- PCD supported");
463 if (BitRate & 0x80) PrintAndLogEx(SUCCESS, " Same bit rate <-> required");
464
465 uint16_t maxFrame = data[5] >> 4;
466 if (maxFrame < 5) maxFrame = 8 * maxFrame + 16;
467 else if (maxFrame == 5) maxFrame = 64;
468 else if (maxFrame == 6) maxFrame = 96;
469 else if (maxFrame == 7) maxFrame = 128;
470 else if (maxFrame == 8) maxFrame = 256;
471 else maxFrame = 257;
472
473 PrintAndLogEx(SUCCESS, "Max Frame Size: %u%s bytes", maxFrame, (maxFrame == 257) ? "+ RFU" : "");
474
475 uint8_t protocolT = data[5] & 0xF;
476 PrintAndLogEx(SUCCESS, " Protocol Type: Protocol is %scompliant with ISO/IEC 14443-4", (protocolT) ? "" : "not ");
477
478 uint8_t fwt = data[6] >> 4;
479 if (fwt < 15) {
480 uint32_t etus = (32 << fwt);
481 uint32_t fwt_time = (302 << fwt);
482 PrintAndLogEx(SUCCESS, "Frame Wait Integer: %u - %u ETUs | %u us", fwt, etus, fwt_time);
483 } else {
484 PrintAndLogEx(SUCCESS, "Frame Wait Integer: %u - RFU", fwt);
485 }
486
487 PrintAndLogEx(SUCCESS, " App Data Code: Application is %s", (data[6] & 4) ? "Standard" : "Proprietary");
488 PrintAndLogEx(SUCCESS, " Frame Options: NAD is %ssupported", (data[6] & 2) ? "" : "not ");
489 PrintAndLogEx(SUCCESS, " Frame Options: CID is %ssupported", (data[6] & 1) ? "" : "not ");
490 PrintAndLogEx(SUCCESS, "Tag :");
491 PrintAndLogEx(SUCCESS, " Max Buf Length: %u (MBLI) %s", cid >> 4, (cid & 0xF0) ? "" : "chained frames not supported");
492 PrintAndLogEx(SUCCESS, " CID : %u", cid & 0x0f);
493 return PM3_SUCCESS;
494 }
495
496 // get SRx chip model (from UID) // from ST Microelectronics
497 static char *get_st_chip_model(uint8_t data) {
498 static char model[20];
499 char *retStr = model;
500 memset(model, 0, sizeof(model));
501
502 switch (data) {
503 case 0x0:
504 sprintf(retStr, "SRIX4K (Special)");
505 break;
506 case 0x2:
507 sprintf(retStr, "SR176");
508 break;
509 case 0x3:
510 sprintf(retStr, "SRIX4K");
511 break;
512 case 0x4:
513 sprintf(retStr, "SRIX512");
514 break;
515 case 0x6:
516 sprintf(retStr, "SRI512");
517 break;
518 case 0x7:
519 sprintf(retStr, "SRI4K");
520 break;
521 case 0xC:
522 sprintf(retStr, "SRT512");
523 break;
524 default :
525 sprintf(retStr, "Unknown");
526 break;
527 }
528 return retStr;
529 }
530
531 static char *get_st_lock_info(uint8_t model, uint8_t *lockbytes, uint8_t blk) {
532
533 static char str[16];
534 char *s = str;
535 sprintf(s, " ");
536
537 if (blk > 15) {
538 return s;
539 }
540
541 uint8_t mask = 0;
542 switch (model) {
543 case 0x0: // SRIX4K special
544 case 0x3: // SRIx4K
545 case 0x7: { // SRI4K
546 //only need data[3]
547 switch (blk) {
548 case 7:
549 case 8:
550 mask = 0x01;
551 break;
552 case 9:
553 mask = 0x02;
554 break;
555 case 10:
556 mask = 0x04;
557 break;
558 case 11:
559 mask = 0x08;
560 break;
561 case 12:
562 mask = 0x10;
563 break;
564 case 13:
565 mask = 0x20;
566 break;
567 case 14:
568 mask = 0x40;
569 break;
570 case 15:
571 mask = 0x80;
572 break;
573 default:
574 return s;
575 }
576 if ((lockbytes[1] & mask) == 0) {
577 sprintf(s, _RED_("1"));
578 }
579 return s;
580 }
581 case 0x4: // SRIX512
582 case 0x6: // SRI512
583 case 0xC: { // SRT512
584 //need data[2] and data[3]
585 uint8_t b = 1;
586 switch (blk) {
587 case 0:
588 mask = 0x01;
589 break;
590 case 1:
591 mask = 0x02;
592 break;
593 case 2:
594 mask = 0x04;
595 break;
596 case 3:
597 mask = 0x08;
598 break;
599 case 4:
600 mask = 0x10;
601 break;
602 case 5:
603 mask = 0x20;
604 break;
605 case 6:
606 mask = 0x40;
607 break;
608 case 7:
609 mask = 0x80;
610 break;
611 case 8:
612 mask = 0x01;
613 b = 0;
614 break;
615 case 9:
616 mask = 0x02;
617 b = 0;
618 break;
619 case 10:
620 mask = 0x04;
621 b = 0;
622 break;
623 case 11:
624 mask = 0x08;
625 b = 0;
626 break;
627 case 12:
628 mask = 0x10;
629 b = 0;
630 break;
631 case 13:
632 mask = 0x20;
633 b = 0;
634 break;
635 case 14:
636 mask = 0x40;
637 b = 0;
638 break;
639 case 15:
640 mask = 0x80;
641 b = 0;
642 break;
643 }
644 if ((lockbytes[b] & mask) == 0) {
645 sprintf(s, _RED_("1"));
646 }
647 return s;
648 }
649 case 0x2: { // SR176
650 //need data[2]
651 switch (blk) {
652 case 0:
653 case 1:
654 mask = 0x1;
655 break;
656 case 2:
657 case 3:
658 mask = 0x2;
659 break;
660 case 4:
661 case 5:
662 mask = 0x4;
663 break;
664 case 6:
665 case 7:
666 mask = 0x8;
667 break;
668 case 8:
669 case 9:
670 mask = 0x10;
671 break;
672 case 10:
673 case 11:
674 mask = 0x20;
675 break;
676 case 12:
677 case 13:
678 mask = 0x40;
679 break;
680 case 14:
681 case 15:
682 mask = 0x80;
683 break;
684 }
685 // iceman: this is opposite! need sample to test with.
686 if ((lockbytes[0] & mask)) {
687 sprintf(s, _RED_("1"));
688 }
689 return s;
690 }
691 default:
692 break;
693 }
694 return s;
695 }
696
697 static uint8_t get_st_chipid(uint8_t *uid) {
698 return uid[5] >> 2;
699 }
700
701 static uint8_t get_st_cardsize(uint8_t *uid) {
702 uint8_t chipid = get_st_chipid(uid);
703 switch (chipid) {
704 case 0x0:
705 case 0x3:
706 case 0x7:
707 return 1;
708 case 0x4:
709 case 0x6:
710 case 0xC:
711 return 2;
712 default:
713 return 0;
714 }
715 return 0;
716 }
717
718 // print UID info from SRx chips (ST Microelectronics)
719 static void print_st_general_info(uint8_t *data, uint8_t len) {
720 //uid = first 8 bytes in data
721 uint8_t mfgid = data[6];
722 uint8_t chipid = get_st_chipid(data);
723 PrintAndLogEx(NORMAL, "");
724 PrintAndLogEx(SUCCESS, " UID: " _GREEN_("%s"), sprint_hex(SwapEndian64(data, 8, 8), len));
725 PrintAndLogEx(SUCCESS, " MFG: %02X, " _YELLOW_("%s"), mfgid, getTagInfo(mfgid));
726 PrintAndLogEx(SUCCESS, "Chip: %02X, " _YELLOW_("%s"), chipid, get_st_chip_model(chipid));
727 }
728
729 // print UID info from ASK CT chips
730 static void print_ct_general_info(void *vcard) {
731 iso14b_cts_card_select_t card;
732 memcpy(&card, (iso14b_cts_card_select_t *)vcard, sizeof(iso14b_cts_card_select_t));
733
734 uint32_t uid32 = (card.uid[0] | card.uid[1] << 8 | card.uid[2] << 16 | card.uid[3] << 24);
735 PrintAndLogEx(NORMAL, "");
736 PrintAndLogEx(SUCCESS, "ASK C-Ticket");
737 PrintAndLogEx(SUCCESS, " UID: " _GREEN_("%s") " ( " _YELLOW_("%010u") " )", sprint_hex(card.uid, sizeof(card.uid)), uid32);
738 PrintAndLogEx(SUCCESS, " Product Code: %02X", card.pc);
739 PrintAndLogEx(SUCCESS, " Facility Code: %02X", card.fc);
740 PrintAndLogEx(NORMAL, "");
741 }
742
743 // iceman, calypso?
744 // 05 00 00 = find one tag in field
745 // 1d xx xx xx xx 00 08 01 00 = attrib xx=UID (resp 10 [f9 e0])
746 // 0200a40400 (resp 02 67 00 [29 5b])
747 // 0200a4040c07a0000002480300 (resp 02 67 00 [29 5b])
748 // 0200a4040c07a0000002480200 (resp 02 67 00 [29 5b])
749 // 0200a4040006a0000000010100 (resp 02 6a 82 [4b 4c])
750 // 0200a4040c09d27600002545500200 (resp 02 67 00 [29 5b])
751 // 0200a404000cd2760001354b414e4d30310000 (resp 02 6a 82 [4b 4c])
752 // 0200a404000ca000000063504b43532d313500 (resp 02 6a 82 [4b 4c])
753 // 0200a4040010a000000018300301000000000000000000 (resp 02 6a 82 [4b 4c])
754
755 // 14b get and print Full Info (as much as we know)
756 static bool HF14B_Std_Info(bool verbose, bool do_aid_search) {
757 // 14b get and print UID only (general info)
758 iso14b_raw_cmd_t packet = {
759 .flags = (ISO14B_CONNECT | ISO14B_SELECT_STD | ISO14B_DISCONNECT),
760 .timeout = 0,
761 .rawlen = 0,
762 };
763
764 clearCommandBuffer();
765 PacketResponseNG resp;
766 SendCommandNG(CMD_HF_ISO14443B_COMMAND, (uint8_t *)&packet, sizeof(iso14b_raw_cmd_t));
767 if (WaitForResponseTimeout(CMD_HF_ISO14443B_COMMAND, &resp, TIMEOUT) == false) {
768 if (verbose) {
769 PrintAndLogEx(WARNING, "timeout while waiting for reply");
770 }
771 switch_off_field_14b();
772 return false;
773 }
774
775 iso14b_card_select_t card;
776 memcpy(&card, (iso14b_card_select_t *)resp.data.asBytes, sizeof(iso14b_card_select_t));
777
778 int status = resp.oldarg[0];
779 switch (status) {
780 case 0: {
781 PrintAndLogEx(NORMAL, "");
782 PrintAndLogEx(INFO, "-------------------- " _CYAN_("Tag information") " --------------------");
783 PrintAndLogEx(SUCCESS, " UID : " _GREEN_("%s"), sprint_hex(card.uid, card.uidlen));
784 PrintAndLogEx(SUCCESS, " ATQB : %s", sprint_hex(card.atqb, sizeof(card.atqb)));
785 PrintAndLogEx(SUCCESS, " CHIPID : %02X", card.chipid);
786 print_atqb_resp(card.atqb, card.cid);
787
788 if (do_aid_search) {
789 hf14b_aid_search(verbose);
790 }
791
792 return true;
793 }
794 case -1:
795 if (verbose) PrintAndLogEx(FAILED, "ISO 14443-3 STD ATTRIB fail");
796 break;
797 case -2:
798 if (verbose) PrintAndLogEx(FAILED, "ISO 14443-3 STD CRC fail");
799 break;
800 default:
801 if (verbose) PrintAndLogEx(FAILED, "ISO 14443-b STD select failed");
802 break;
803 }
804
805 return false;
806 }
807
808 // SRx get and print full info (needs more info...)
809 static bool HF14B_ST_Info(bool verbose, bool do_aid_search) {
810
811 iso14b_raw_cmd_t packet = {
812 .flags = (ISO14B_CONNECT | ISO14B_SELECT_SR | ISO14B_DISCONNECT),
813 .timeout = 0,
814 .rawlen = 0,
815 };
816
817 clearCommandBuffer();
818 PacketResponseNG resp;
819 SendCommandNG(CMD_HF_ISO14443B_COMMAND, (uint8_t *)&packet, sizeof(iso14b_raw_cmd_t));
820 if (WaitForResponseTimeout(CMD_HF_ISO14443B_COMMAND, &resp, TIMEOUT) == false) {
821 if (verbose) {
822 PrintAndLogEx(WARNING, "timeout while waiting for reply");
823 }
824 return false;
825 }
826
827 iso14b_card_select_t card;
828 memcpy(&card, (iso14b_card_select_t *)resp.data.asBytes, sizeof(iso14b_card_select_t));
829
830 int status = resp.oldarg[0];
831 if (status < 0)
832 return false;
833
834 print_st_general_info(card.uid, card.uidlen);
835
836 if (do_aid_search) {
837 hf14b_aid_search(verbose);
838 }
839 return true;
840 }
841
842 // menu command to get and print all info known about any known 14b tag
843 static int CmdHF14Binfo(const char *Cmd) {
844 CLIParserContext *ctx;
845 CLIParserInit(&ctx, "hf 14b info",
846 "Tag information for ISO/IEC 14443 type B based tags",
847 "hf 14b info\n"
848 );
849
850 void *argtable[] = {
851 arg_param_begin,
852 arg_lit0("s", "aidsearch", "checks if AIDs from aidlist.json is present on the card and prints information about found AIDs"),
853 arg_lit0("v", "verbose", "verbose"),
854 arg_param_end
855 };
856 CLIExecWithReturn(ctx, Cmd, argtable, true);
857 bool do_aid_search = arg_get_lit(ctx, 1);
858 bool verbose = arg_get_lit(ctx, 2);
859 CLIParserFree(ctx);
860 return infoHF14B(verbose, do_aid_search);
861 }
862
863 static bool HF14B_st_reader(bool verbose) {
864
865 iso14b_raw_cmd_t packet = {
866 .flags = (ISO14B_CONNECT | ISO14B_SELECT_SR | ISO14B_DISCONNECT),
867 .timeout = 0,
868 .rawlen = 0,
869 };
870
871 // SRx get and print general info about SRx chip from UID
872 clearCommandBuffer();
873 PacketResponseNG resp;
874 SendCommandNG(CMD_HF_ISO14443B_COMMAND, (uint8_t *)&packet, sizeof(iso14b_raw_cmd_t));
875 if (WaitForResponseTimeout(CMD_HF_ISO14443B_COMMAND, &resp, TIMEOUT) == false) {
876 if (verbose) {
877 PrintAndLogEx(WARNING, "timeout while waiting for reply");
878 }
879 return false;
880 }
881
882 iso14b_card_select_t card;
883 memcpy(&card, (iso14b_card_select_t *)resp.data.asBytes, sizeof(iso14b_card_select_t));
884
885 int status = resp.oldarg[0];
886 switch (status) {
887 case 0:
888 print_st_general_info(card.uid, card.uidlen);
889 return true;
890 case -1:
891 if (verbose) PrintAndLogEx(FAILED, "ISO 14443-3 ST ATTRIB fail");
892 break;
893 case -2:
894 if (verbose) PrintAndLogEx(FAILED, "ISO 14443-3 ST CRC fail");
895 break;
896 case -3:
897 if (verbose) PrintAndLogEx(FAILED, "ISO 14443-3 ST random chip id fail");
898 break;
899 default:
900 if (verbose) PrintAndLogEx(FAILED, "ISO 14443-b ST select SRx failed");
901 break;
902 }
903 return false;
904 }
905
906 static bool HF14B_std_reader(bool verbose) {
907 iso14b_raw_cmd_t packet = {
908 .flags = (ISO14B_CONNECT | ISO14B_SELECT_STD | ISO14B_DISCONNECT),
909 .timeout = 0,
910 .rawlen = 0,
911 };
912
913 // 14b get and print UID only (general info)
914 clearCommandBuffer();
915 PacketResponseNG resp;
916 SendCommandNG(CMD_HF_ISO14443B_COMMAND, (uint8_t *)&packet, sizeof(iso14b_raw_cmd_t));
917 if (WaitForResponseTimeout(CMD_HF_ISO14443B_COMMAND, &resp, TIMEOUT) == false) {
918 if (verbose) {
919 PrintAndLogEx(WARNING, "timeout while waiting for reply");
920 }
921 return false;
922 }
923
924 int status = resp.oldarg[0];
925 switch (status) {
926 case 0: {
927 iso14b_card_select_t card;
928 memcpy(&card, (iso14b_card_select_t *)resp.data.asBytes, sizeof(iso14b_card_select_t));
929 PrintAndLogEx(NORMAL, "");
930 PrintAndLogEx(SUCCESS, " UID : " _GREEN_("%s"), sprint_hex(card.uid, card.uidlen));
931 PrintAndLogEx(SUCCESS, " ATQB : %s", sprint_hex(card.atqb, sizeof(card.atqb)));
932 PrintAndLogEx(SUCCESS, " CHIPID : %02X", card.chipid);
933 print_atqb_resp(card.atqb, card.cid);
934 return true;
935 }
936 case -1: {
937 if (verbose) PrintAndLogEx(FAILED, "ISO 14443-3 ATTRIB fail");
938 break;
939 }
940 case -2: {
941 if (verbose) PrintAndLogEx(FAILED, "ISO 14443-3 CRC fail");
942 break;
943 }
944 default: {
945 if (verbose) PrintAndLogEx(FAILED, "ISO 14443-b card select failed");
946 break;
947 }
948 }
949 return false;
950 }
951
952 static bool HF14B_ask_ct_reader(bool verbose) {
953
954 iso14b_raw_cmd_t packet = {
955 .flags = (ISO14B_CONNECT | ISO14B_SELECT_CTS | ISO14B_DISCONNECT),
956 .timeout = 0,
957 .rawlen = 0,
958 };
959
960 // 14b get and print UID only (general info)
961 clearCommandBuffer();
962 PacketResponseNG resp;
963 SendCommandNG(CMD_HF_ISO14443B_COMMAND, (uint8_t *)&packet, sizeof(iso14b_raw_cmd_t));
964 if (WaitForResponseTimeout(CMD_HF_ISO14443B_COMMAND, &resp, TIMEOUT) == false) {
965 if (verbose) PrintAndLogEx(WARNING, "timeout while waiting for reply");
966 return false;
967 }
968
969 int status = resp.oldarg[0];
970
971 switch (status) {
972 case 0: {
973 print_ct_general_info(resp.data.asBytes);
974 return true;
975 }
976 case -1: {
977 if (verbose) PrintAndLogEx(FAILED, "ISO 14443-3 CTS wrong length");
978 break;
979 }
980 case -2: {
981 if (verbose) PrintAndLogEx(FAILED, "ISO 14443-3 CTS CRC fail");
982 break;
983 }
984 default: {
985 if (verbose) PrintAndLogEx(FAILED, "ISO 14443-b CTS select failed");
986 break;
987 }
988 }
989 return false;
990 }
991
992 // test for other 14b type tags (mimic another reader - don't have tags to identify)
993 static bool HF14B_other_reader(bool verbose) {
994
995 iso14b_raw_cmd_t *packet = (iso14b_raw_cmd_t *)calloc(1, sizeof(iso14b_raw_cmd_t) + 4);
996 if (packet == NULL) {
997 PrintAndLogEx(FAILED, "failed to allocate memory");
998 return false;
999 }
1000 packet->flags = (ISO14B_CONNECT | ISO14B_SELECT_STD | ISO14B_RAW | ISO14B_APPEND_CRC);
1001 packet->timeout = 0;
1002 packet->rawlen = 4;
1003 memcpy(packet->raw, "\x00\x0b\x3f\x80", 4);
1004
1005 // 14b get and print UID only (general info)
1006
1007 clearCommandBuffer();
1008 PacketResponseNG resp;
1009 SendCommandNG(CMD_HF_ISO14443B_COMMAND, (uint8_t *)packet, sizeof(iso14b_raw_cmd_t) + packet->rawlen);
1010 if (WaitForResponseTimeout(CMD_HF_ISO14443B_COMMAND, &resp, TIMEOUT) == false) {
1011 if (verbose) {
1012 PrintAndLogEx(WARNING, "timeout while waiting for reply");
1013 }
1014 free(packet);
1015 switch_off_field_14b();
1016 return false;
1017 }
1018 int status = resp.oldarg[0];
1019 PrintAndLogEx(DEBUG, "status %d", status);
1020
1021 if (status == 0) {
1022 PrintAndLogEx(SUCCESS, "\n14443-3b tag found:");
1023 PrintAndLogEx(SUCCESS, "unknown tag type answered to a 0x000b3f80 command ans:");
1024 switch_off_field_14b();
1025 free(packet);
1026 return true;
1027 } else if (status > 0) {
1028 PrintAndLogEx(SUCCESS, "\n14443-3b tag found:");
1029 PrintAndLogEx(SUCCESS, "unknown tag type answered to a 0x000b3f80 command ans:");
1030 PrintAndLogEx(SUCCESS, "%s", sprint_hex(resp.data.asBytes, status));
1031 switch_off_field_14b();
1032 free(packet);
1033 return true;
1034 }
1035
1036 packet->rawlen = 1;
1037 packet->raw[0] = ISO14443B_AUTHENTICATE;
1038 clearCommandBuffer();
1039 SendCommandNG(CMD_HF_ISO14443B_COMMAND, (uint8_t *)packet, sizeof(iso14b_raw_cmd_t) + packet->rawlen);
1040 if (WaitForResponseTimeout(CMD_HF_ISO14443B_COMMAND, &resp, TIMEOUT) == false) {
1041 if (verbose) {
1042 PrintAndLogEx(WARNING, "timeout while waiting for reply");
1043 }
1044 switch_off_field_14b();
1045 free(packet);
1046 return false;
1047 }
1048 status = resp.oldarg[0];
1049 PrintAndLogEx(DEBUG, "status %d", status);
1050
1051 if (status == 0) {
1052 PrintAndLogEx(SUCCESS, "\n14443-3b tag found:");
1053 PrintAndLogEx(SUCCESS, "Unknown tag type answered to a 0x0A command ans:");
1054 switch_off_field_14b();
1055 free(packet);
1056 return true;
1057 } else if (status > 0) {
1058 PrintAndLogEx(SUCCESS, "\n14443-3b tag found:");
1059 PrintAndLogEx(SUCCESS, "unknown tag type answered to a 0x0A command ans:");
1060 PrintAndLogEx(SUCCESS, "%s", sprint_hex(resp.data.asBytes, status));
1061 switch_off_field_14b();
1062 free(packet);
1063 return true;
1064 }
1065
1066 packet->raw[0] = ISO14443B_RESET;
1067 clearCommandBuffer();
1068 SendCommandNG(CMD_HF_ISO14443B_COMMAND, (uint8_t *)packet, sizeof(iso14b_raw_cmd_t) + packet->rawlen);
1069 free(packet);
1070 if (WaitForResponseTimeout(CMD_HF_ISO14443B_COMMAND, &resp, TIMEOUT) == false) {
1071 if (verbose) {
1072 PrintAndLogEx(WARNING, "timeout while waiting for reply");
1073 }
1074 switch_off_field_14b();
1075 return false;
1076 }
1077 status = resp.oldarg[0];
1078 PrintAndLogEx(DEBUG, "status %d", status);
1079
1080 if (status == 0) {
1081 PrintAndLogEx(SUCCESS, "\n14443-3b tag found:");
1082 PrintAndLogEx(SUCCESS, "Unknown tag type answered to a 0x0C command ans:");
1083 switch_off_field_14b();
1084 return true;
1085 } else if (status > 0) {
1086 PrintAndLogEx(SUCCESS, "\n14443-3b tag found:");
1087 PrintAndLogEx(SUCCESS, "unknown tag type answered to a 0x0C command ans:");
1088 PrintAndLogEx(SUCCESS, "%s", sprint_hex(resp.data.asBytes, status));
1089 switch_off_field_14b();
1090 return true;
1091 }
1092
1093 switch_off_field_14b();
1094 return false;
1095 }
1096
1097 // menu command to get and print general info about all known 14b chips
1098 static int CmdHF14BReader(const char *Cmd) {
1099 CLIParserContext *ctx;
1100 CLIParserInit(&ctx, "hf 14b reader",
1101 "Act as a 14443B reader to identify a tag",
1102 "hf 14b reader\n"
1103 );
1104
1105 void *argtable[] = {
1106 arg_param_begin,
1107 arg_lit0("s", "silent", "silent (no messages)"),
1108 arg_lit0("@", NULL, "optional - continuous reader mode"),
1109 arg_param_end
1110 };
1111 CLIExecWithReturn(ctx, Cmd, argtable, true);
1112 bool verbose = (arg_get_lit(ctx, 1) == false);
1113 bool cm = arg_get_lit(ctx, 2);
1114 CLIParserFree(ctx);
1115
1116 if (cm) {
1117 PrintAndLogEx(INFO, "Press " _GREEN_("<Enter>") " to exit");
1118 }
1119
1120 return readHF14B(cm, verbose);
1121 }
1122
1123 // Read SRI512|SRIX4K block
1124 static int CmdHF14BSriRdBl(const char *Cmd) {
1125
1126 CLIParserContext *ctx;
1127 CLIParserInit(&ctx, "hf 14b rdbl",
1128 "Read SRI512 | SRIX4K block",
1129 "hf 14b rdbl -b 06\n"
1130 );
1131
1132 void *argtable[] = {
1133 arg_param_begin,
1134 arg_int0("b", "block", "<dec>", "block number"),
1135 arg_param_end
1136 };
1137 CLIExecWithReturn(ctx, Cmd, argtable, false);
1138 int blockno = arg_get_int_def(ctx, 1, -1);
1139 CLIParserFree(ctx);
1140
1141 /*
1142 iso14b_card_select_t card;
1143 if (get_14b_UID(&card) == false) {
1144 PrintAndLogEx(WARNING, "no tag found");
1145 return PM3_SUCCESS;
1146 }
1147
1148 if (card.uidlen != 8) {
1149 PrintAndLogEx(FAILED, "current read command only work with SRI4K / SRI512 tags");
1150 return PM3_SUCCESS;
1151 }
1152
1153 // detect cardsize
1154 // 1 = 4096
1155 // 2 = 512
1156 uint8_t cardtype = get_st_cardsize(card.uid);
1157 uint8_t blocks = (cardtype == 1) ? 0x7F : 0x0F;
1158 */
1159 struct {
1160 uint8_t blockno;
1161 } PACKED payload;
1162
1163 payload.blockno = blockno;
1164
1165 PacketResponseNG resp;
1166 clearCommandBuffer();
1167 SendCommandNG(CMD_HF_SRI_READ, (uint8_t *)&payload, sizeof(payload));
1168 if (WaitForResponseTimeout(CMD_HF_SRI_READ, &resp, TIMEOUT) == false) {
1169 return PM3_ETIMEOUT;
1170 }
1171 if (resp.status == PM3_SUCCESS) {
1172 PrintAndLogEx(SUCCESS, "block %02u : " _GREEN_("%s") " | " _GREEN_("%s"), blockno, sprint_hex(resp.data.asBytes, resp.length), sprint_ascii(resp.data.asBytes, resp.length));
1173 }
1174 return resp.status;
1175 }
1176
1177 // New command to write a SRI512/SRIX4K tag.
1178 static int CmdHF14BWriteSri(const char *Cmd) {
1179 /*
1180 * For SRIX4K blocks 00 - 7F
1181 * hf 14b raw --sr -c --data [09 $srix4kwblock $srix4kwdata
1182 *
1183 * For SR512 blocks 00 - 0F
1184 * hf 14b raw --sr -c --data [09 $sr512wblock $sr512wdata]
1185 *
1186 * Special block FF = otp_lock_reg block.
1187 * Data len 4 bytes-
1188 */
1189
1190 CLIParserContext *ctx;
1191 CLIParserInit(&ctx, "hf 14b sriwrite",
1192 "Write data to a SRI512 or SRIX4K block",
1193 "hf 14b sriwrite --4k -b 100 -d 11223344\n"
1194 "hf 14b sriwrite --4k --sb -d 11223344 --> special block write\n"
1195 "hf 14b sriwrite --512 -b 15 -d 11223344\n"
1196 "hf 14b sriwrite --512 --sb -d 11223344 --> special block write\n"
1197 );
1198
1199 void *argtable[] = {
1200 arg_param_begin,
1201 arg_int0("b", "block", "<dec>", "block number"),
1202 arg_str1("d", "data", "<hex>", "4 hex bytes"),
1203 arg_lit0(NULL, "512", "target SRI 512 tag"),
1204 arg_lit0(NULL, "4k", "target SRIX 4k tag"),
1205 arg_lit0(NULL, "sb", "special block write at end of memory (0xFF)"),
1206 arg_param_end
1207 };
1208 CLIExecWithReturn(ctx, Cmd, argtable, false);
1209 int blockno = arg_get_int_def(ctx, 1, -1);
1210 int dlen = 0;
1211 uint8_t data[4] = {0, 0, 0, 0};
1212 int res = CLIParamHexToBuf(arg_get_str(ctx, 2), data, sizeof(data), &dlen);
1213 if (res) {
1214 CLIParserFree(ctx);
1215 return PM3_EINVARG;
1216 }
1217
1218 bool use_sri512 = arg_get_lit(ctx, 3);
1219 bool use_srix4k = arg_get_lit(ctx, 4);
1220 bool special = arg_get_lit(ctx, 5);
1221 CLIParserFree(ctx);
1222
1223 if (dlen != sizeof(data)) {
1224 PrintAndLogEx(FAILED, "data must be 4 hex bytes, got %d", dlen);
1225 return PM3_EINVARG;
1226 }
1227
1228 if (use_sri512 + use_srix4k > 1) {
1229 PrintAndLogEx(FAILED, "Select only one card type");
1230 return PM3_EINVARG;
1231 }
1232
1233 if (use_srix4k && blockno > 0x7F) {
1234 PrintAndLogEx(FAILED, "block number out of range, max 127 (0x7F)");
1235 return PM3_EINVARG;
1236 }
1237
1238 if (use_sri512 && blockno > 0x0F) {
1239 PrintAndLogEx(FAILED, "block number out of range, max 15 (0x0F)");
1240 return PM3_EINVARG;
1241 }
1242
1243 // special block at end of memory
1244 if (special) {
1245 blockno = 0xFF;
1246 PrintAndLogEx(SUCCESS, "[%s] Write special block %02X [ " _YELLOW_("%s")" ]",
1247 (use_srix4k) ? "SRIX4K" : "SRI512",
1248 blockno,
1249 sprint_hex(data, sizeof(data))
1250 );
1251 } else {
1252 PrintAndLogEx(SUCCESS, "[%s] Write block %02X [ " _YELLOW_("%s")" ]",
1253 (use_srix4k) ? "SRIX4K" : "SRI512",
1254 blockno,
1255 sprint_hex(data, sizeof(data))
1256 );
1257 }
1258
1259 char str[36];
1260 memset(str, 0x00, sizeof(str));
1261 sprintf(str, "--sr -c --data %02x%02x%02x%02x%02x%02x", ISO14443B_WRITE_BLK, blockno, data[0], data[1], data[2], data[3]);
1262 return CmdHF14BCmdRaw(str);
1263 }
1264
1265 // need to write to file
1266 static int CmdHF14BDump(const char *Cmd) {
1267
1268 CLIParserContext *ctx;
1269 CLIParserInit(&ctx, "hf 14b dump",
1270 "This command dumps the contents of a ISO-14443-B tag and save it to file\n"
1271 "Tries to autodetect cardtype, memory size defaults to SRI4K",
1272 "hf 14b dump\n"
1273 "hf 14b dump -f myfilename\n"
1274 );
1275
1276 void *argtable[] = {
1277 arg_param_begin,
1278 arg_strx0("f", "file", "<filename>", "(optional) filename, if no <name> UID will be used as filename"),
1279 arg_param_end
1280 };
1281 CLIExecWithReturn(ctx, Cmd, argtable, true);
1282
1283 int fnlen = 0;
1284 char filename[FILE_PATH_SIZE] = {0};
1285 CLIParamStrToBuf(arg_get_str(ctx, 1), (uint8_t *)filename, FILE_PATH_SIZE, &fnlen);
1286 CLIParserFree(ctx);
1287
1288 iso14b_card_select_t card;
1289 if (get_14b_UID(&card) == false) {
1290 PrintAndLogEx(WARNING, "no tag found");
1291 return PM3_SUCCESS;
1292 }
1293
1294 if (card.uidlen != 8) {
1295 PrintAndLogEx(FAILED, "current dump command only work with SRI4K / SRI512 tags");
1296 return PM3_SUCCESS;
1297 }
1298
1299 // detect cardsize
1300 // 1 = 4096
1301 // 2 = 512
1302 uint8_t cardtype = get_st_cardsize(card.uid);
1303 uint8_t blocks = 0;
1304 uint16_t cardsize = 0;
1305
1306 switch (cardtype) {
1307 case 2:
1308 cardsize = (512 / 8) + 4;
1309 blocks = 0x0F;
1310 break;
1311 case 1:
1312 default:
1313 cardsize = (4096 / 8) + 4;
1314 blocks = 0x7F;
1315 break;
1316 }
1317
1318 uint8_t chipid = get_st_chipid(card.uid);
1319 PrintAndLogEx(SUCCESS, "found a " _GREEN_("%s") " tag", get_st_chip_model(chipid));
1320
1321 // detect blocksize from card :)
1322 PrintAndLogEx(INFO, "reading tag memory from UID " _GREEN_("%s"), sprint_hex_inrow(SwapEndian64(card.uid, card.uidlen, 8), card.uidlen));
1323
1324 iso14b_raw_cmd_t *packet = (iso14b_raw_cmd_t *)calloc(1, sizeof(iso14b_raw_cmd_t) + 2);
1325 if (packet == NULL) {
1326 PrintAndLogEx(FAILED, "failed to allocate memory");
1327 return PM3_EMALLOC;
1328 }
1329 packet->flags = (ISO14B_CONNECT | ISO14B_SELECT_SR);
1330 packet->timeout = 0;
1331 packet->rawlen = 0;
1332
1333 clearCommandBuffer();
1334 SendCommandNG(CMD_HF_ISO14443B_COMMAND, (uint8_t *)packet, sizeof(iso14b_raw_cmd_t));
1335 PacketResponseNG resp;
1336
1337 // select
1338 int status;
1339 if (WaitForResponseTimeout(CMD_HF_ISO14443B_COMMAND, &resp, 2000)) {
1340 status = resp.oldarg[0];
1341 if (status < 0) {
1342 PrintAndLogEx(FAILED, "failed to select arg0[%" PRId64 "]", resp.oldarg[0]);
1343 free(packet);
1344 return switch_off_field_14b();
1345 }
1346 }
1347
1348 PrintAndLogEx(INFO, "." NOLF);
1349
1350 uint8_t data[cardsize];
1351 memset(data, 0, sizeof(data));
1352 uint16_t blocknum = 0;
1353
1354 for (int retry = 0; retry < 5; retry++) {
1355
1356 // set up the read command
1357 packet->flags = (ISO14B_APPEND_CRC | ISO14B_RAW);
1358 packet->rawlen = 2;
1359 packet->raw[0] = ISO14443B_READ_BLK;
1360 packet->raw[1] = blocknum & 0xFF;
1361
1362 clearCommandBuffer();
1363 SendCommandNG(CMD_HF_ISO14443B_COMMAND, (uint8_t *)packet, sizeof(iso14b_raw_cmd_t) + 2);
1364 if (WaitForResponseTimeout(CMD_HF_ISO14443B_COMMAND, &resp, 2000)) {
1365
1366 status = resp.oldarg[0];
1367 if (status < 0) {
1368 PrintAndLogEx(FAILED, "retrying one more time");
1369 continue;
1370 }
1371
1372 uint16_t len = (resp.oldarg[1] & 0xFFFF);
1373 uint8_t *recv = resp.data.asBytes;
1374
1375 if (check_crc(CRC_14443_B, recv, len) == false) {
1376 PrintAndLogEx(FAILED, "crc fail, retrying one more time");
1377 continue;
1378 }
1379
1380
1381 // last read
1382 if (blocknum == 0xFF) {
1383 // we reserved space for this block after 0x0F and 0x7F, ie 0x10, 0x80
1384 memcpy(data + (blocks * 4), recv, 4);
1385 break;
1386 }
1387 memcpy(data + (blocknum * 4), recv, 4);
1388
1389
1390 retry = 0;
1391 blocknum++;
1392 if (blocknum > blocks) {
1393 // read config block
1394 blocknum = 0xFF;
1395 }
1396
1397 PrintAndLogEx(NORMAL, "." NOLF);
1398 fflush(stdout);
1399 }
1400 }
1401 free(packet);
1402
1403 PrintAndLogEx(NORMAL, "");
1404
1405 if (blocknum != 0xFF) {
1406 PrintAndLogEx(FAILED, "dump failed");
1407 return switch_off_field_14b();
1408 }
1409
1410 PrintAndLogEx(DEBUG, "systemblock : %s", sprint_hex(data + (blocks * 4), 4));
1411 PrintAndLogEx(DEBUG, " otp lock : %02x %02x", data[(blocks * 4)], data[(blocks * 4) + 1]);
1412
1413
1414 PrintAndLogEx(INFO, " block# | data |lck| ascii");
1415 PrintAndLogEx(INFO, "---------+--------------+---+----------");
1416
1417 for (int i = 0; i <= blocks; i++) {
1418 PrintAndLogEx(INFO,
1419 "%3d/0x%02X | %s | %s | %s",
1420 i,
1421 i,
1422 sprint_hex(data + (i * 4), 4),
1423 get_st_lock_info(chipid, data + (blocks * 4), i),
1424 sprint_ascii(data + (i * 4), 4)
1425 );
1426 }
1427
1428 PrintAndLogEx(INFO,
1429 "%3d/0x%02X | %s | %s | %s",
1430 0xFF,
1431 0xFF,
1432 sprint_hex(data + (0xFF * 4), 4),
1433 get_st_lock_info(chipid, data + (blocks * 4), 0xFF),
1434 sprint_ascii(data + (0xFF * 4), 4)
1435 );
1436 PrintAndLogEx(INFO, "---------+--------------+---+----------");
1437 PrintAndLogEx(NORMAL, "");
1438
1439 // save to file
1440 if (fnlen < 1) {
1441 PrintAndLogEx(INFO, "using UID as filename");
1442 char *fptr = filename;
1443 fptr += sprintf(fptr, "hf-14b-");
1444 FillFileNameByUID(fptr, SwapEndian64(card.uid, card.uidlen, 8), "-dump", card.uidlen);
1445 }
1446
1447 size_t datalen = (blocks + 1) * 4;
1448 saveFile(filename, ".bin", data, datalen);
1449 saveFileEML(filename, data, datalen, 4);
1450 saveFileJSON(filename, jsf14b, data, datalen, NULL);
1451 return switch_off_field_14b();
1452 }
1453 /*
1454
1455 static uint32_t srix4kEncode(uint32_t value) {
1456 // vv = value
1457 // pp = position
1458 // vv vv vv pp
1459 // 4 bytes : 00 1A 20 01
1460 // only the lower crumbs.
1461 uint8_t block = (value & 0xFF);
1462 uint8_t i = 0;
1463 uint8_t valuebytes[] = {0, 0, 0};
1464
1465 num_to_bytes(value, 3, valuebytes);
1466
1467 // Scrambled part
1468 // Crumb swapping of value.
1469 uint8_t temp[] = {0, 0};
1470 temp[0] = (CRUMB(value, 22) << 4 | CRUMB(value, 14) << 2 | CRUMB(value, 6)) << 4;
1471 temp[0] |= CRUMB(value, 20) << 4 | CRUMB(value, 12) << 2 | CRUMB(value, 4);
1472 temp[1] = (CRUMB(value, 18) << 4 | CRUMB(value, 10) << 2 | CRUMB(value, 2)) << 4;
1473 temp[1] |= CRUMB(value, 16) << 4 | CRUMB(value, 8) << 2 | CRUMB(value, 0);
1474
1475 // chksum part
1476 uint32_t chksum = 0xFF - block;
1477
1478 // chksum is reduced by each nibbles of value.
1479 for (i = 0; i < 3; ++i) {
1480 chksum -= NIBBLE_HIGH(valuebytes[i]);
1481 chksum -= NIBBLE_LOW(valuebytes[i]);
1482 }
1483
1484 // base4 conversion and left shift twice
1485 i = 3;
1486 uint8_t base4[] = {0, 0, 0, 0};
1487 while (chksum != 0) {
1488 base4[i--] = (chksum % 4 << 2);
1489 chksum /= 4;
1490 }
1491
1492 // merge scambled and chksum parts
1493 uint32_t encvalue =
1494 (NIBBLE_LOW(base4[0]) << 28) |
1495 (NIBBLE_HIGH(temp[0]) << 24) |
1496
1497 (NIBBLE_LOW(base4[1]) << 20) |
1498 (NIBBLE_LOW(temp[0]) << 16) |
1499
1500 (NIBBLE_LOW(base4[2]) << 12) |
1501 (NIBBLE_HIGH(temp[1]) << 8) |
1502
1503 (NIBBLE_LOW(base4[3]) << 4) |
1504 NIBBLE_LOW(temp[1]);
1505
1506 PrintAndLogEx(NORMAL, "ICE encoded | %08X -> %08X", value, encvalue);
1507 return encvalue;
1508 }
1509
1510 static uint32_t srix4kDecode(uint32_t value) {
1511 switch (value) {
1512 case 0xC04F42C5:
1513 return 0x003139;
1514 case 0xC1484807:
1515 return 0x002943;
1516 case 0xC0C60848:
1517 return 0x001A20;
1518 }
1519 return 0;
1520 }
1521
1522 static uint32_t srix4kDecodeCounter(uint32_t num) {
1523 uint32_t value = ~num;
1524 ++value;
1525 return value;
1526 }
1527
1528 static uint32_t srix4kGetMagicbytes(uint64_t uid, uint32_t block6, uint32_t block18, uint32_t block19) {
1529 #define MASK 0xFFFFFFFF;
1530 uint32_t uid32 = uid & MASK;
1531 uint32_t counter = srix4kDecodeCounter(block6);
1532 uint32_t decodedBlock18 = srix4kDecode(block18);
1533 uint32_t decodedBlock19 = srix4kDecode(block19);
1534 uint32_t doubleBlock = (decodedBlock18 << 16 | decodedBlock19) + 1;
1535
1536 uint32_t result = (uid32 * doubleBlock * counter) & MASK;
1537 PrintAndLogEx(SUCCESS, "Magic bytes | %08X", result);
1538 return result;
1539 }
1540
1541 static int srix4kValid(const char *Cmd) {
1542 (void)Cmd; // Cmd is not used so far
1543
1544 uint64_t uid = 0xD00202501A4532F9;
1545 uint32_t block6 = 0xFFFFFFFF;
1546 uint32_t block18 = 0xC04F42C5;
1547 uint32_t block19 = 0xC1484807;
1548 uint32_t block21 = 0xD1BCABA4;
1549
1550 uint32_t test_b18 = 0x00313918;
1551 uint32_t test_b18_enc = srix4kEncode(test_b18);
1552 //uint32_t test_b18_dec = srix4kDecode(test_b18_enc);
1553 PrintAndLogEx(SUCCESS, "ENCODE & CHECKSUM | %08X -> %08X (%s)", test_b18, test_b18_enc, "");
1554
1555 uint32_t magic = srix4kGetMagicbytes(uid, block6, block18, block19);
1556 PrintAndLogEx(SUCCESS, "BLOCK 21 | %08X -> %08X (no XOR)", block21, magic ^ block21);
1557 return 0;
1558 }
1559 */
1560
1561 int select_card_14443b_4(bool disconnect, iso14b_card_select_t *card) {
1562 if (card)
1563 memset(card, 0, sizeof(iso14b_card_select_t));
1564
1565 switch_off_field_14b();
1566
1567 iso14b_raw_cmd_t packet = {
1568 .flags = (ISO14B_CONNECT | ISO14B_SELECT_STD),
1569 .timeout = 0,
1570 .rawlen = 0,
1571 };
1572 // Anticollision + SELECT STD card
1573 PacketResponseNG resp;
1574 SendCommandNG(CMD_HF_ISO14443B_COMMAND, (uint8_t *)&packet, sizeof(iso14b_raw_cmd_t));
1575 if (WaitForResponseTimeout(CMD_HF_ISO14443B_COMMAND, &resp, TIMEOUT) == false) {
1576 PrintAndLogEx(INFO, "Trying 14B Select SRx");
1577
1578 // Anticollision + SELECT SR card
1579 packet.flags = (ISO14B_CONNECT | ISO14B_SELECT_SR);
1580 SendCommandNG(CMD_HF_ISO14443B_COMMAND, (uint8_t *)&packet, sizeof(iso14b_raw_cmd_t));
1581 if (WaitForResponseTimeout(CMD_HF_ISO14443B_COMMAND, &resp, TIMEOUT) == false) {
1582 PrintAndLogEx(INFO, "Trying 14B Select CTS");
1583
1584 // Anticollision + SELECT ASK C-Ticket card
1585 packet.flags = (ISO14B_CONNECT | ISO14B_SELECT_CTS);
1586 SendCommandNG(CMD_HF_ISO14443B_COMMAND, (uint8_t *)&packet, sizeof(iso14b_raw_cmd_t));
1587 if (WaitForResponseTimeout(CMD_HF_ISO14443B_COMMAND, &resp, TIMEOUT) == false) {
1588 PrintAndLogEx(ERR, "connection timeout");
1589 switch_off_field_14b();
1590 return PM3_ESOFT;
1591 }
1592 }
1593 }
1594
1595 // check result
1596 int status = resp.oldarg[0];
1597 if (status < 0) {
1598 PrintAndLogEx(ERR, "No card in field.");
1599 switch_off_field_14b();
1600 return PM3_ESOFT;
1601 }
1602 SetISODEPState(ISODEP_NFCB);
1603 apdu_frame_length = 0;
1604 // get frame length from ATS in card data structure
1605 iso14b_card_select_t *vcard = (iso14b_card_select_t *) resp.data.asBytes;
1606 // uint8_t fsci = vcard->atqb[1] & 0x0f;
1607 // if (fsci < ARRAYLEN(ats_fsc)) {
1608 // apdu_frame_length = ats_fsc[fsci];
1609 // }
1610
1611 if (card) {
1612 memcpy(card, vcard, sizeof(iso14b_card_select_t));
1613 }
1614
1615 if (disconnect) {
1616 switch_off_field_14b();
1617 }
1618 return PM3_SUCCESS;
1619 }
1620
1621 static int handle_14b_apdu(bool chainingin, uint8_t *datain, int datainlen,
1622 bool activateField, uint8_t *dataout, int maxdataoutlen,
1623 int *dataoutlen, bool *chainingout, int user_timeout) {
1624
1625 *chainingout = false;
1626
1627 if (activateField) {
1628 // select with no disconnect and set frameLength
1629 int selres = select_card_14443b_4(false, NULL);
1630 if (selres != PM3_SUCCESS)
1631 return selres;
1632 }
1633
1634 iso14b_raw_cmd_t *packet = (iso14b_raw_cmd_t *)calloc(1, sizeof(iso14b_raw_cmd_t) + datainlen);
1635 if (packet == NULL) {
1636 PrintAndLogEx(FAILED, "APDU: failed to allocate memory");
1637 return PM3_EMALLOC;
1638 }
1639 packet->flags = (ISO14B_CONNECT | ISO14B_APDU);
1640 packet->timeout = 0;
1641 packet->rawlen = 0;
1642
1643 if (chainingin)
1644 packet->flags = (ISO14B_SEND_CHAINING | ISO14B_APDU);
1645
1646 if (user_timeout > 0) {
1647 packet->flags |= ISO14B_SET_TIMEOUT;
1648 if (user_timeout > MAX_14B_TIMEOUT_MS) {
1649 user_timeout = MAX_14B_TIMEOUT_MS;
1650 PrintAndLogEx(INFO, "set timeout to 4.9 seconds. The max we can wait for response");
1651 }
1652
1653 // timeout in ETU
1654 packet->timeout = (uint32_t)((13560 / 128) * user_timeout);
1655 }
1656
1657 // "Command APDU" length should be 5+255+1, but javacard's APDU buffer might be smaller - 133 bytes
1658 // https://stackoverflow.com/questions/32994936/safe-max-java-card-apdu-data-command-and-respond-size
1659 // here length PM3_CMD_DATA_SIZE=512
1660 if (datain) {
1661 packet->rawlen = datainlen;
1662 memcpy(packet->raw, datain, datainlen);
1663 SendCommandNG(CMD_HF_ISO14443B_COMMAND, (uint8_t *)packet, sizeof(iso14b_raw_cmd_t) + packet->rawlen);
1664 } else {
1665 SendCommandNG(CMD_HF_ISO14443B_COMMAND, (uint8_t *)packet, sizeof(iso14b_raw_cmd_t));
1666 }
1667 free(packet);
1668 PacketResponseNG resp;
1669 if (WaitForResponseTimeout(CMD_HF_ISO14443B_COMMAND, &resp, MAX(APDU_TIMEOUT, user_timeout)) == false) {
1670 PrintAndLogEx(ERR, "APDU: reply timeout");
1671 return PM3_ETIMEOUT;
1672 }
1673
1674 int rlen = resp.oldarg[0];
1675 int dlen = rlen - 2;
1676 if (dlen < 0) {
1677 dlen = 0;
1678 }
1679
1680 *dataoutlen += dlen;
1681
1682 if (maxdataoutlen && *dataoutlen > maxdataoutlen) {
1683 PrintAndLogEx(ERR, "APDU: buffer too small(%d), needs %d bytes", maxdataoutlen, *dataoutlen);
1684 return PM3_ESOFT;
1685 }
1686
1687 // I-block ACK
1688 uint8_t res = resp.oldarg[1];
1689 if ((res & 0xF2) == 0xA2) {
1690 *dataoutlen = 0;
1691 *chainingout = true;
1692 return PM3_SUCCESS;
1693 }
1694
1695 if (rlen < 0) {
1696 PrintAndLogEx(ERR, "APDU: no APDU response");
1697 return PM3_ESOFT;
1698 }
1699
1700 // check apdu length
1701 if (rlen == 0 || rlen == 1) {
1702 PrintAndLogEx(ERR, "APDU: small APDU response, len %d", rlen);
1703 return PM3_ESOFT;
1704 }
1705
1706 memcpy(dataout, resp.data.asBytes, dlen);
1707
1708 // chaining
1709 if ((res & 0x10) != 0) {
1710 *chainingout = true;
1711 }
1712 return PM3_SUCCESS;
1713 }
1714
1715 int exchange_14b_apdu(uint8_t *datain, int datainlen, bool activate_field,
1716 bool leave_signal_on, uint8_t *dataout, int maxdataoutlen,
1717 int *dataoutlen, int user_timeout) {
1718
1719 *dataoutlen = 0;
1720 bool chaining = false;
1721 int res;
1722
1723 // 3 byte here - 1b framing header, 2b crc16
1724 if (apdu_in_framing_enable &&
1725 ((apdu_frame_length && (datainlen > apdu_frame_length - 3)) || (datainlen > PM3_CMD_DATA_SIZE - 3))) {
1726
1727 int clen = 0;
1728 bool v_activate_field = activate_field;
1729
1730 do {
1731 int vlen = MIN(apdu_frame_length - 3, datainlen - clen);
1732 bool chainBlockNotLast = ((clen + vlen) < datainlen);
1733
1734 *dataoutlen = 0;
1735 res = handle_14b_apdu(chainBlockNotLast, &datain[clen], vlen, v_activate_field, dataout, maxdataoutlen, dataoutlen, &chaining, user_timeout);
1736 if (res) {
1737 if (leave_signal_on == false)
1738 switch_off_field_14b();
1739
1740 return 200;
1741 }
1742
1743 // TODO check this one...
1744 // check R-block ACK
1745 // *dataoutlen!=0. 'A && (!A || B)' is equivalent to 'A && B'
1746 if ((*dataoutlen == 0) && (chaining != chainBlockNotLast)) {
1747 if (leave_signal_on == false) {
1748 switch_off_field_14b();
1749 }
1750 return 201;
1751 }
1752
1753 clen += vlen;
1754 v_activate_field = false;
1755 if (*dataoutlen) {
1756 if (clen != datainlen)
1757 PrintAndLogEx(ERR, "APDU: I-block/R-block sequence error. Data len=%d, Sent=%d, Last packet len=%d", datainlen, clen, *dataoutlen);
1758 break;
1759 }
1760 } while (clen < datainlen);
1761
1762 } else {
1763
1764 res = handle_14b_apdu(false, datain, datainlen, activate_field, dataout, maxdataoutlen, dataoutlen, &chaining, user_timeout);
1765 if (res != PM3_SUCCESS) {
1766 if (leave_signal_on == false) {
1767 switch_off_field_14b();
1768 }
1769 return res;
1770 }
1771 }
1772
1773 while (chaining) {
1774 // I-block with chaining
1775 res = handle_14b_apdu(false, NULL, 0, false, &dataout[*dataoutlen], maxdataoutlen, dataoutlen, &chaining, user_timeout);
1776 if (res != PM3_SUCCESS) {
1777 if (leave_signal_on == false) {
1778 switch_off_field_14b();
1779 }
1780 return 100;
1781 }
1782 }
1783
1784 if (leave_signal_on == false) {
1785 switch_off_field_14b();
1786 }
1787
1788 return PM3_SUCCESS;
1789 }
1790
1791 // ISO14443-4. 7. Half-duplex block transmission protocol
1792 static int CmdHF14BAPDU(const char *Cmd) {
1793 uint8_t data[PM3_CMD_DATA_SIZE];
1794 int datalen = 0;
1795 uint8_t header[PM3_CMD_DATA_SIZE];
1796 int headerlen = 0;
1797 bool activate_field = false;
1798 bool leave_signal_on = false;
1799 bool decode_TLV = false;
1800 bool decode_APDU = false;
1801 bool make_APDU = false;
1802 bool extended_APDU = false;
1803 int le = 0;
1804
1805 CLIParserContext *ctx;
1806 CLIParserInit(&ctx, "hf 14b apdu",
1807 "Sends an ISO 7816-4 APDU via ISO 14443-4 block transmission protocol (T=CL).\n"
1808 "works with all apdu types from ISO 7816-4:2013",
1809 "hf 14b apdu -s -d 94a40800043f000002\n"
1810 "hf 14b apdu -s --decode -d 00A404000E325041592E5359532E444446303100 -> decode apdu\n"
1811 "hf 14b apdu -sm 00A40400 -l 256 -d 325041592E5359532E4444463031 -> encode standard apdu\n"
1812 "hf 14b apdu -sm 00A40400 -el 65536 -d 325041592E5359532E4444463031 -> encode extended apdu\n");
1813
1814 void *argtable[] = {
1815 arg_param_begin,
1816 arg_lit0("s", "select", "activate field and select card"),
1817 arg_lit0("k", "keep", "leave the signal field ON after receive response"),
1818 arg_lit0("t", "tlv", "executes TLV decoder if it possible"),
1819 arg_lit0(NULL, "decode", "decode apdu request if it possible"),
1820 arg_str0("m", "make", "<hex>", "make apdu with head from this field and data from data field.\n"
1821 " must be 4 bytes: <CLA INS P1 P2>"),
1822 arg_lit0("e", "extended", "make extended length apdu if `m` parameter included"),
1823 arg_int0("l", "le", "<int>", "Le apdu parameter if `m` parameter included"),
1824 arg_strx1("d", "data", "<hex>", "<APDU | data> if `m` parameter included"),
1825 arg_int0(NULL, "timeout", "<dec>", "timeout in ms"),
1826 arg_param_end
1827 };
1828 CLIExecWithReturn(ctx, Cmd, argtable, false);
1829
1830 activate_field = arg_get_lit(ctx, 1);
1831 leave_signal_on = arg_get_lit(ctx, 2);
1832 decode_TLV = arg_get_lit(ctx, 3);
1833 decode_APDU = arg_get_lit(ctx, 4);
1834
1835 CLIGetHexWithReturn(ctx, 5, header, &headerlen);
1836 make_APDU = headerlen > 0;
1837 if (make_APDU && headerlen != 4) {
1838 PrintAndLogEx(ERR, "header length must be 4 bytes instead of %d", headerlen);
1839 CLIParserFree(ctx);
1840 return PM3_EINVARG;
1841 }
1842
1843 extended_APDU = arg_get_lit(ctx, 6);
1844 le = arg_get_int_def(ctx, 7, 0);
1845
1846 if (make_APDU) {
1847 uint8_t apdudata[PM3_CMD_DATA_SIZE] = {0};
1848 int apdudatalen = 0;
1849
1850 CLIGetHexBLessWithReturn(ctx, 8, apdudata, &apdudatalen, 1 + 2);
1851
1852 APDUStruct apdu;
1853 apdu.cla = header[0];
1854 apdu.ins = header[1];
1855 apdu.p1 = header[2];
1856 apdu.p2 = header[3];
1857
1858 apdu.lc = apdudatalen;
1859 apdu.data = apdudata;
1860
1861 apdu.extended_apdu = extended_APDU;
1862 apdu.le = le;
1863
1864 if (APDUEncode(&apdu, data, &datalen)) {
1865 PrintAndLogEx(ERR, "can't make apdu with provided parameters.");
1866 CLIParserFree(ctx);
1867 return PM3_EINVARG;
1868 }
1869
1870 } else {
1871 if (extended_APDU) {
1872 PrintAndLogEx(ERR, "make mode not set but here `e` option.");
1873 CLIParserFree(ctx);
1874 return PM3_EINVARG;
1875 }
1876 if (le > 0) {
1877 PrintAndLogEx(ERR, "make mode not set but here `l` option.");
1878 CLIParserFree(ctx);
1879 return PM3_EINVARG;
1880 }
1881
1882 // len = data + PCB(1b) + CRC(2b)
1883 CLIGetHexBLessWithReturn(ctx, 8, data, &datalen, 1 + 2);
1884 }
1885 int user_timeout = arg_get_int_def(ctx, 9, -1);
1886 CLIParserFree(ctx);
1887
1888 PrintAndLogEx(NORMAL, ">>>>[%s%s%s] %s",
1889 activate_field ? "sel" : "",
1890 leave_signal_on ? " keep" : "",
1891 decode_TLV ? " TLV" : "",
1892 sprint_hex(data, datalen)
1893 );
1894
1895 if (decode_APDU) {
1896 APDUStruct apdu;
1897 if (APDUDecode(data, datalen, &apdu) == 0)
1898 APDUPrint(apdu);
1899 else
1900 PrintAndLogEx(WARNING, "can't decode APDU.");
1901 }
1902
1903 int res = exchange_14b_apdu(data, datalen, activate_field, leave_signal_on, data, PM3_CMD_DATA_SIZE, &datalen, user_timeout);
1904 if (res != PM3_SUCCESS) {
1905 return res;
1906 }
1907
1908 PrintAndLogEx(NORMAL, "<<<< %s", sprint_hex(data, datalen));
1909 PrintAndLogEx(SUCCESS, "APDU response: " _YELLOW_("%02x %02x") " - %s", data[datalen - 2], data[datalen - 1], GetAPDUCodeDescription(data[datalen - 2], data[datalen - 1]));
1910
1911 // TLV decoder
1912 if (decode_TLV && datalen > 4) {
1913 TLVPrintFromBuffer(data, datalen - 2);
1914 }
1915
1916 return PM3_SUCCESS;
1917 }
1918
1919 int CmdHF14BNdefRead(const char *Cmd) {
1920
1921 CLIParserContext *ctx;
1922 CLIParserInit(&ctx, "hf 14b ndefread",
1923 "Print NFC Data Exchange Format (NDEF)",
1924 "hf 14b ndefread"
1925 );
1926 void *argtable[] = {
1927 arg_param_begin,
1928 arg_param_end
1929 };
1930 CLIExecWithReturn(ctx, Cmd, argtable, true);
1931 CLIParserFree(ctx);
1932
1933 bool activate_field = true;
1934 bool keep_field_on = true;
1935 uint8_t response[PM3_CMD_DATA_SIZE];
1936 int resplen = 0;
1937
1938 // --------------- Select NDEF Tag application ----------------
1939 uint8_t aSELECT_AID[80];
1940 int aSELECT_AID_n = 0;
1941 param_gethex_to_eol("00a4040007d276000085010100", 0, aSELECT_AID, sizeof(aSELECT_AID), &aSELECT_AID_n);
1942 int res = exchange_14b_apdu(aSELECT_AID, aSELECT_AID_n, activate_field, keep_field_on, response, sizeof(response), &resplen, -1);
1943 if (res) {
1944 goto out;
1945 }
1946
1947 if (resplen < 2) {
1948 res = PM3_ESOFT;
1949 goto out;
1950 }
1951
1952 uint16_t sw = get_sw(response, resplen);
1953 if (sw != 0x9000) {
1954 PrintAndLogEx(ERR, "Selecting NDEF aid failed (%04x - %s).", sw, GetAPDUCodeDescription(sw >> 8, sw & 0xff));
1955 res = PM3_ESOFT;
1956 goto out;
1957 }
1958
1959 activate_field = false;
1960 keep_field_on = true;
1961 // --------------- Send CC select ----------------
1962 // --------------- Read binary ----------------
1963
1964 // --------------- NDEF file reading ----------------
1965 uint8_t aSELECT_FILE_NDEF[30];
1966 int aSELECT_FILE_NDEF_n = 0;
1967 param_gethex_to_eol("00a4000c020001", 0, aSELECT_FILE_NDEF, sizeof(aSELECT_FILE_NDEF), &aSELECT_FILE_NDEF_n);
1968 res = exchange_14b_apdu(aSELECT_FILE_NDEF, aSELECT_FILE_NDEF_n, activate_field, keep_field_on, response, sizeof(response), &resplen, -1);
1969 if (res)
1970 goto out;
1971
1972 sw = get_sw(response, resplen);
1973 if (sw != 0x9000) {
1974 PrintAndLogEx(ERR, "Selecting NDEF file failed (%04x - %s).", sw, GetAPDUCodeDescription(sw >> 8, sw & 0xff));
1975 res = PM3_ESOFT;
1976 goto out;
1977 }
1978
1979 // --------------- Read binary ----------------
1980 uint8_t aREAD_NDEF[30];
1981 int aREAD_NDEF_n = 0;
1982 param_gethex_to_eol("00b0000002", 0, aREAD_NDEF, sizeof(aREAD_NDEF), &aREAD_NDEF_n);
1983 res = exchange_14b_apdu(aREAD_NDEF, aREAD_NDEF_n, activate_field, keep_field_on, response, sizeof(response), &resplen, -1);
1984 if (res) {
1985 goto out;
1986 }
1987
1988 sw = get_sw(response, resplen);
1989 if (sw != 0x9000) {
1990 PrintAndLogEx(ERR, "reading NDEF file failed (%04x - %s).", sw, GetAPDUCodeDescription(sw >> 8, sw & 0xff));
1991 res = PM3_ESOFT;
1992 goto out;
1993 }
1994 // take offset from response
1995 uint8_t offset = response[1];
1996
1997 // --------------- Read binary w offset ----------------
1998 keep_field_on = false;
1999 aREAD_NDEF_n = 0;
2000 param_gethex_to_eol("00b00002", 0, aREAD_NDEF, sizeof(aREAD_NDEF), &aREAD_NDEF_n);
2001 aREAD_NDEF[4] = offset;
2002 res = exchange_14b_apdu(aREAD_NDEF, aREAD_NDEF_n, activate_field, keep_field_on, response, sizeof(response), &resplen, -1);
2003 if (res) {
2004 goto out;
2005 }
2006
2007 sw = get_sw(response, resplen);
2008 if (sw != 0x9000) {
2009 PrintAndLogEx(ERR, "reading NDEF file failed (%04x - %s).", sw, GetAPDUCodeDescription(sw >> 8, sw & 0xff));
2010 res = PM3_ESOFT;
2011 goto out;
2012 }
2013
2014 res = NDEFRecordsDecodeAndPrint(response + 2, resplen - 4);
2015
2016 out:
2017 switch_off_field_14b();
2018 return res;
2019 }
2020
2021 static command_t CommandTable[] = {
2022 {"help", CmdHelp, AlwaysAvailable, "This help"},
2023 {"apdu", CmdHF14BAPDU, IfPm3Iso14443b, "Send ISO 14443-4 APDU to tag"},
2024 {"dump", CmdHF14BDump, IfPm3Iso14443b, "Read all memory pages of an ISO-14443-B tag, save to file"},
2025 {"info", CmdHF14Binfo, IfPm3Iso14443b, "Tag information"},
2026 {"list", CmdHF14BList, AlwaysAvailable, "List ISO-14443-B history"},
2027 {"ndefread", CmdHF14BNdefRead, IfPm3Iso14443b, "Read NDEF file on tag"},
2028 {"raw", CmdHF14BCmdRaw, IfPm3Iso14443b, "Send raw hex data to tag"},
2029 {"reader", CmdHF14BReader, IfPm3Iso14443b, "Act as a ISO-14443-B reader to identify a tag"},
2030 // {"restore", CmdHF14BRestore, IfPm3Iso14443b, "Restore from file to all memory pages of an ISO-14443-B tag"},
2031 {"sim", CmdHF14BSim, IfPm3Iso14443b, "Fake ISO ISO-14443-B tag"},
2032 {"sniff", CmdHF14BSniff, IfPm3Iso14443b, "Eavesdrop ISO-14443-B"},
2033 {"rdbl", CmdHF14BSriRdBl, IfPm3Iso14443b, "Read SRI512/SRIX4x block"},
2034 {"sriwrite", CmdHF14BWriteSri, IfPm3Iso14443b, "Write data to a SRI512 or SRIX4K tag"},
2035 // {"valid", srix4kValid, AlwaysAvailable, "srix4k checksum test"},
2036 {NULL, NULL, NULL, NULL}
2037 };
2038
2039 static int CmdHelp(const char *Cmd) {
2040 (void)Cmd; // Cmd is not used so far
2041 CmdsHelp(CommandTable);
2042 return PM3_SUCCESS;
2043 }
2044
2045 int CmdHF14B(const char *Cmd) {
2046 clearCommandBuffer();
2047 return CmdsParse(CommandTable, Cmd);
2048 }
2049
2050 // get and print all info known about any known 14b tag
2051 int infoHF14B(bool verbose, bool do_aid_search) {
2052
2053 // try std 14b (atqb)
2054 if (HF14B_Std_Info(verbose, do_aid_search))
2055 return PM3_SUCCESS;
2056
2057 // try ST 14b
2058 if (HF14B_ST_Info(verbose, do_aid_search))
2059 return PM3_SUCCESS;
2060
2061 // try unknown 14b read commands (to be identified later)
2062 // could be read of calypso, CEPAS, moneo, or pico pass.
2063 if (verbose) PrintAndLogEx(FAILED, "no 14443-B tag found");
2064 return PM3_EOPABORTED;
2065 }
2066
2067 // get and print general info about all known 14b chips
2068 int readHF14B(bool loop, bool verbose) {
2069 do {
2070 // try std 14b (atqb)
2071 if (HF14B_std_reader(verbose))
2072 return PM3_SUCCESS;
2073
2074 // try ST Microelectronics 14b
2075 if (HF14B_st_reader(verbose))
2076 return PM3_SUCCESS;
2077
2078 // try ASK CT 14b
2079 if (HF14B_ask_ct_reader(verbose))
2080 return PM3_SUCCESS;
2081
2082 // try unknown 14b read commands (to be identified later)
2083 // could be read of calypso, CEPAS, moneo, or pico pass.
2084 if (HF14B_other_reader(verbose))
2085 return PM3_SUCCESS;
2086
2087 } while (loop && kbd_enter_pressed() == false);
2088
2089 if (verbose) {
2090 PrintAndLogEx(FAILED, "no ISO 14443-B tag found");
2091 }
2092 return PM3_EOPABORTED;
2093 }
Proxmark3 - the RFID research Swiss army knife. Iceman firmware