cvs.zerfleddert.de Git - proxmark3-svn/blob - armsrc/mifarecmd.c

   1 //-----------------------------------------------------------------------------
   2 // Merlok - June 2011, 2012
   3 // Gerhard de Koning Gans - May 2008
   4 // Hagen Fritsch - June 2010
   5 // Midnitesnake - Dec 2013
   6 // Andy Davies  - Apr 2014
   7 // Iceman - May 2014,2015,2016
   8 //
   9 // This code is licensed to you under the terms of the GNU GPL, version 2 or,
  10 // at your option, any later version. See the LICENSE.txt file for the text of
  11 // the license.
  12 //-----------------------------------------------------------------------------
  13 // Routines to support ISO 14443 type A.
  14 //-----------------------------------------------------------------------------
  15
  16 #include "mifarecmd.h"
  17
  18 //-----------------------------------------------------------------------------
  19 // Select, Authenticate, Read a MIFARE tag.
  20 // read block
  21 //-----------------------------------------------------------------------------
  22 void MifareReadBlock(uint8_t arg0, uint8_t arg1, uint8_t arg2, uint8_t *datain)
  23 {
  24   // params
  25         uint8_t blockNo = arg0;
  26         uint8_t keyType = arg1;
  27         uint64_t ui64Key = 0;
  28         ui64Key = bytes_to_num(datain, 6);
  29
  30         // variables
  31         byte_t isOK = 0;
  32         byte_t dataoutbuf[16] = {0x00};
  33         uint8_t uid[10] = {0x00};
  34         uint32_t cuid = 0;
  35         struct Crypto1State mpcs = {0, 0};
  36         struct Crypto1State *pcs;
  37         pcs = &mpcs;
  38
  39         iso14443a_setup(FPGA_HF_ISO14443A_READER_LISTEN);
  40
  41         clear_trace();
  42         set_tracing(true);
  43
  44         LED_A_ON();
  45         LED_B_OFF();
  46         LED_C_OFF();
  47
  48         while (true) {
  49                 if(!iso14443a_select_card(uid, NULL, &cuid, true, 0)) {
  50                         if (MF_DBGLEVEL >= 1)   Dbprintf("Can't select card");
  51                         break;
  52                 };
  53
  54                 if(mifare_classic_auth(pcs, cuid, blockNo, keyType, ui64Key, AUTH_FIRST)) {
  55                         if (MF_DBGLEVEL >= 1)   Dbprintf("Auth error");
  56                         break;
  57                 };
  58
  59                 if(mifare_classic_readblock(pcs, cuid, blockNo, dataoutbuf)) {
  60                         if (MF_DBGLEVEL >= 1)   Dbprintf("Read block error");
  61                         break;
  62                 };
  63
  64                 if(mifare_classic_halt(pcs, cuid)) {
  65                         if (MF_DBGLEVEL >= 1)   Dbprintf("Halt error");
  66                         break;
  67                 };
  68
  69                 isOK = 1;
  70                 break;
  71         }
  72
  73         crypto1_destroy(pcs);
  74
  75         if (MF_DBGLEVEL >= 2)   DbpString("READ BLOCK FINISHED");
  76
  77         LED_B_ON();
  78         cmd_send(CMD_ACK,isOK,0,0,dataoutbuf,16);
  79         LED_B_OFF();
  80
  81         FpgaWriteConfWord(FPGA_MAJOR_MODE_OFF);
  82         LEDsoff();
  83 }
  84
  85 void MifareUC_Auth(uint8_t arg0, uint8_t *keybytes){
  86
  87         bool turnOffField = (arg0 == 1);
  88
  89         LED_A_ON(); LED_B_OFF(); LED_C_OFF();
  90
  91         iso14443a_setup(FPGA_HF_ISO14443A_READER_LISTEN);
  92
  93         clear_trace();
  94         set_tracing(true);
  95
  96         if(!iso14443a_select_card(NULL, NULL, NULL, true, 0)) {
  97                 if (MF_DBGLEVEL >= MF_DBG_ERROR) Dbprintf("Can't select card");
  98                 OnError(0);
  99                 return;
 100         };
 101
 102         if(!mifare_ultra_auth(keybytes)){
 103                 if (MF_DBGLEVEL >= MF_DBG_ERROR) Dbprintf("Authentication failed");
 104                 OnError(1);
 105                 return;
 106         }
 107
 108         if (turnOffField) {
 109                 FpgaWriteConfWord(FPGA_MAJOR_MODE_OFF);
 110                 LEDsoff();
 111         }
 112         cmd_send(CMD_ACK,1,0,0,0,0);
 113 }
 114
 115 // Arg0 = BlockNo,
 116 // Arg1 = UsePwd bool
 117 // datain = PWD bytes,
 118 void MifareUReadBlock(uint8_t arg0, uint8_t arg1, uint8_t *datain)
 119 {
 120         uint8_t blockNo = arg0;
 121         byte_t dataout[16] = {0x00};
 122         bool useKey = (arg1 == 1); //UL_C
 123         bool usePwd = (arg1 == 2); //UL_EV1/NTAG
 124
 125         LEDsoff();
 126         LED_A_ON();
 127         iso14443a_setup(FPGA_HF_ISO14443A_READER_LISTEN);
 128
 129         clear_trace();
 130         set_tracing(true);
 131
 132         int len = iso14443a_select_card(NULL, NULL, NULL, true, 0);
 133         if(!len) {
 134                 if (MF_DBGLEVEL >= MF_DBG_ERROR) Dbprintf("Can't select card (RC:%02X)",len);
 135                 OnError(1);
 136                 return;
 137         }
 138
 139         // UL-C authentication
 140         if ( useKey ) {
 141                 uint8_t key[16] = {0x00};
 142                 memcpy(key, datain, sizeof(key) );
 143
 144                 if ( !mifare_ultra_auth(key) ) {
 145                         OnError(1);
 146                         return;
 147                 }
 148         }
 149
 150         // UL-EV1 / NTAG authentication
 151         if ( usePwd ) {
 152                 uint8_t pwd[4] = {0x00};
 153                 memcpy(pwd, datain, 4);
 154                 uint8_t pack[4] = {0,0,0,0};
 155                 if (!mifare_ul_ev1_auth(pwd, pack)) {
 156                         OnError(1);
 157                         return;
 158                 }
 159         }
 160
 161         if( mifare_ultra_readblock(blockNo, dataout) ) {
 162                 if (MF_DBGLEVEL >= MF_DBG_ERROR) Dbprintf("Read block error");
 163                 OnError(2);
 164                 return;
 165         }
 166
 167         if( mifare_ultra_halt() ) {
 168                 if (MF_DBGLEVEL >= MF_DBG_ERROR) Dbprintf("Halt error");
 169                 OnError(3);
 170                 return;
 171         }
 172
 173     cmd_send(CMD_ACK,1,0,0,dataout,16);
 174         FpgaWriteConfWord(FPGA_MAJOR_MODE_OFF);
 175         LEDsoff();
 176 }
 177
 178 //-----------------------------------------------------------------------------
 179 // Select, Authenticate, Read a MIFARE tag.
 180 // read sector (data = 4 x 16 bytes = 64 bytes, or 16 x 16 bytes = 256 bytes)
 181 //-----------------------------------------------------------------------------
 182 void MifareReadSector(uint8_t arg0, uint8_t arg1, uint8_t arg2, uint8_t *datain)
 183 {
 184   // params
 185         uint8_t sectorNo = arg0;
 186         uint8_t keyType = arg1;
 187         uint64_t ui64Key = 0;
 188         ui64Key = bytes_to_num(datain, 6);
 189
 190         // variables
 191         byte_t isOK = 0;
 192         byte_t dataoutbuf[16 * 16];
 193         uint8_t uid[10] = {0x00};
 194         uint32_t cuid = 0;
 195         struct Crypto1State mpcs = {0, 0};
 196         struct Crypto1State *pcs;
 197         pcs = &mpcs;
 198
 199         iso14443a_setup(FPGA_HF_ISO14443A_READER_LISTEN);
 200
 201         clear_trace();
 202         set_tracing(true);
 203
 204         LED_A_ON();
 205         LED_B_OFF();
 206         LED_C_OFF();
 207
 208         isOK = 1;
 209         if(!iso14443a_select_card(uid, NULL, &cuid, true, 0)) {
 210                 isOK = 0;
 211                 if (MF_DBGLEVEL >= 1)   Dbprintf("Can't select card");
 212         }
 213
 214
 215         if(isOK && mifare_classic_auth(pcs, cuid, FirstBlockOfSector(sectorNo), keyType, ui64Key, AUTH_FIRST)) {
 216                 isOK = 0;
 217                 if (MF_DBGLEVEL >= 1)   Dbprintf("Auth error");
 218         }
 219
 220         for (uint8_t blockNo = 0; isOK && blockNo < NumBlocksPerSector(sectorNo); blockNo++) {
 221                 if(mifare_classic_readblock(pcs, cuid, FirstBlockOfSector(sectorNo) + blockNo, dataoutbuf + 16 * blockNo)) {
 222                         isOK = 0;
 223                         if (MF_DBGLEVEL >= 1)   Dbprintf("Read sector %2d block %2d error", sectorNo, blockNo);
 224                         break;
 225                 }
 226         }
 227
 228         if(mifare_classic_halt(pcs, cuid)) {
 229                 if (MF_DBGLEVEL >= 1)   Dbprintf("Halt error");
 230         }
 231
 232         if (MF_DBGLEVEL >= 2) DbpString("READ SECTOR FINISHED");
 233
 234         crypto1_destroy(pcs);
 235
 236         LED_B_ON();
 237         cmd_send(CMD_ACK,isOK,0,0,dataoutbuf,16*NumBlocksPerSector(sectorNo));
 238         LED_B_OFF();
 239
 240         FpgaWriteConfWord(FPGA_MAJOR_MODE_OFF);
 241         LEDsoff();
 242         set_tracing(FALSE);
 243 }
 244
 245 // arg0 = blockNo (start)
 246 // arg1 = Pages (number of blocks)
 247 // arg2 = useKey
 248 // datain = KEY bytes
 249 void MifareUReadCard(uint8_t arg0, uint16_t arg1, uint8_t arg2, uint8_t *datain)
 250 {
 251         LEDsoff();
 252         LED_A_ON();
 253         iso14443a_setup(FPGA_HF_ISO14443A_READER_LISTEN);
 254
 255         // free eventually allocated BigBuf memory
 256         BigBuf_free(); BigBuf_Clear_ext(false);
 257         clear_trace();
 258         set_tracing(true);
 259
 260         // params
 261         uint8_t blockNo = arg0;
 262         uint16_t blocks = arg1;
 263         bool useKey = (arg2 == 1); //UL_C
 264         bool usePwd = (arg2 == 2); //UL_EV1/NTAG
 265         uint32_t countblocks = 0;
 266         uint8_t *dataout = BigBuf_malloc(CARD_MEMORY_SIZE);
 267         if (dataout == NULL){
 268                 Dbprintf("out of memory");
 269                 OnError(1);
 270                 return;
 271         }
 272
 273         int len = iso14443a_select_card(NULL, NULL, NULL, true, 0);
 274         if (!len) {
 275                 if (MF_DBGLEVEL >= MF_DBG_ERROR) Dbprintf("Can't select card (RC:%d)",len);
 276                 OnError(1);
 277                 return;
 278         }
 279
 280         // UL-C authentication
 281         if ( useKey ) {
 282                 uint8_t key[16] = {0x00};
 283                 memcpy(key, datain, sizeof(key) );
 284
 285                 if ( !mifare_ultra_auth(key) ) {
 286                         OnError(1);
 287                         return;
 288                 }
 289         }
 290
 291         // UL-EV1 / NTAG authentication
 292         if (usePwd) {
 293                 uint8_t pwd[4] = {0x00};
 294                 memcpy(pwd, datain, sizeof(pwd));
 295                 uint8_t pack[4] = {0,0,0,0};
 296
 297                 if (!mifare_ul_ev1_auth(pwd, pack)){
 298                         OnError(1);
 299                         return;
 300                 }
 301         }
 302
 303         for (int i = 0; i < blocks; i++){
 304                 if ((i*4) + 4 >= CARD_MEMORY_SIZE) {
 305                         Dbprintf("Data exceeds buffer!!");
 306                         break;
 307                 }
 308
 309                 len = mifare_ultra_readblock(blockNo + i, dataout + 4 * i);
 310
 311                 if (len) {
 312                         if (MF_DBGLEVEL >= MF_DBG_ERROR) Dbprintf("Read block %d error",i);
 313                         // if no blocks read - error out
 314                         if (i==0){
 315                                 OnError(2);
 316                         return;
 317                         } else {
 318                                 //stop at last successful read block and return what we got
 319                                 break;
 320                         }
 321                 } else {
 322                         countblocks++;
 323                 }
 324         }
 325
 326         len = mifare_ultra_halt();
 327         if (len) {
 328                 if (MF_DBGLEVEL >= MF_DBG_ERROR) Dbprintf("Halt error");
 329                 OnError(3);
 330                 return;
 331         }
 332
 333         if (MF_DBGLEVEL >= MF_DBG_EXTENDED) Dbprintf("Blocks read %d", countblocks);
 334
 335         countblocks *= 4;
 336
 337         cmd_send(CMD_ACK, 1, countblocks, BigBuf_max_traceLen(), 0, 0);
 338         FpgaWriteConfWord(FPGA_MAJOR_MODE_OFF);
 339         LEDsoff();
 340         BigBuf_free();
 341         set_tracing(FALSE);
 342 }
 343
 344 //-----------------------------------------------------------------------------
 345 // Select, Authenticate, Write a MIFARE tag.
 346 // read block
 347 //-----------------------------------------------------------------------------
 348 void MifareWriteBlock(uint8_t arg0, uint8_t arg1, uint8_t arg2, uint8_t *datain)
 349 {
 350         // params
 351         uint8_t blockNo = arg0;
 352         uint8_t keyType = arg1;
 353         uint64_t ui64Key = 0;
 354         byte_t blockdata[16] = {0x00};
 355
 356         ui64Key = bytes_to_num(datain, 6);
 357         memcpy(blockdata, datain + 10, 16);
 358
 359         // variables
 360         byte_t isOK = 0;
 361         uint8_t uid[10] = {0x00};
 362         uint32_t cuid = 0;
 363         struct Crypto1State mpcs = {0, 0};
 364         struct Crypto1State *pcs;
 365         pcs = &mpcs;
 366
 367         iso14443a_setup(FPGA_HF_ISO14443A_READER_LISTEN);
 368
 369         clear_trace();
 370         set_tracing(true);
 371
 372         LED_A_ON();
 373         LED_B_OFF();
 374         LED_C_OFF();
 375
 376         while (true) {
 377                 if(!iso14443a_select_card(uid, NULL, &cuid, true, 0)) {
 378                         if (MF_DBGLEVEL >= 1)   Dbprintf("Can't select card");
 379                         break;
 380                 };
 381
 382                 if(mifare_classic_auth(pcs, cuid, blockNo, keyType, ui64Key, AUTH_FIRST)) {
 383                         if (MF_DBGLEVEL >= 1)   Dbprintf("Auth error");
 384                         break;
 385                 };
 386
 387                 if(mifare_classic_writeblock(pcs, cuid, blockNo, blockdata)) {
 388                         if (MF_DBGLEVEL >= 1)   Dbprintf("Write block error");
 389                         break;
 390                 };
 391
 392                 if(mifare_classic_halt(pcs, cuid)) {
 393                         if (MF_DBGLEVEL >= 1)   Dbprintf("Halt error");
 394                         break;
 395                 };
 396
 397                 isOK = 1;
 398                 break;
 399         }
 400
 401         crypto1_destroy(pcs);
 402
 403         if (MF_DBGLEVEL >= 2)   DbpString("WRITE BLOCK FINISHED");
 404
 405         cmd_send(CMD_ACK,isOK,0,0,0,0);
 406
 407         FpgaWriteConfWord(FPGA_MAJOR_MODE_OFF);
 408         LEDsoff();
 409         set_tracing(FALSE);
 410 }
 411
 412 /* // Command not needed but left for future testing
 413 void MifareUWriteBlockCompat(uint8_t arg0, uint8_t *datain)
 414 {
 415         uint8_t blockNo = arg0;
 416         byte_t blockdata[16] = {0x00};
 417
 418         memcpy(blockdata, datain, 16);
 419
 420         uint8_t uid[10] = {0x00};
 421
 422         LED_A_ON(); LED_B_OFF(); LED_C_OFF();
 423
 424         clear_trace();
 425         set_tracing(true);
 426         iso14443a_setup(FPGA_HF_ISO14443A_READER_LISTEN);
 427
 428         if(!iso14443a_select_card(uid, NULL, NULL, true, 0)) {
 429                 if (MF_DBGLEVEL >= 1)   Dbprintf("Can't select card");
 430                 OnError(0);
 431                 return;
 432         };
 433
 434         if(mifare_ultra_writeblock_compat(blockNo, blockdata)) {
 435                 if (MF_DBGLEVEL >= 1)   Dbprintf("Write block error");
 436                 OnError(0);
 437                 return; };
 438
 439         if(mifare_ultra_halt()) {
 440                 if (MF_DBGLEVEL >= 1)   Dbprintf("Halt error");
 441                 OnError(0);
 442                 return;
 443         };
 444
 445         if (MF_DBGLEVEL >= 2)   DbpString("WRITE BLOCK FINISHED");
 446
 447         cmd_send(CMD_ACK,1,0,0,0,0);
 448         FpgaWriteConfWord(FPGA_MAJOR_MODE_OFF);
 449         LEDsoff();
 450 }
 451 */
 452
 453 // Arg0   : Block to write to.
 454 // Arg1   : 0 = use no authentication.
 455 //          1 = use 0x1A authentication.
 456 //          2 = use 0x1B authentication.
 457 // datain : 4 first bytes is data to be written.
 458 //        : 4/16 next bytes is authentication key.
 459 void MifareUWriteBlock(uint8_t arg0, uint8_t arg1, uint8_t *datain)
 460 {
 461         uint8_t blockNo = arg0;
 462         bool useKey = (arg1 == 1); //UL_C
 463         bool usePwd = (arg1 == 2); //UL_EV1/NTAG
 464         byte_t blockdata[4] = {0x00};
 465
 466         memcpy(blockdata, datain,4);
 467
 468         LEDsoff();
 469         LED_A_ON();
 470         iso14443a_setup(FPGA_HF_ISO14443A_READER_LISTEN);
 471
 472         clear_trace();
 473         set_tracing(true);
 474
 475         if(!iso14443a_select_card(NULL, NULL, NULL, true, 0)) {
 476                 if (MF_DBGLEVEL >= 1) Dbprintf("Can't select card");
 477                 OnError(0);
 478                 return;
 479         };
 480
 481         // UL-C authentication
 482         if ( useKey ) {
 483                 uint8_t key[16] = {0x00};
 484                 memcpy(key, datain+4, sizeof(key) );
 485
 486                 if ( !mifare_ultra_auth(key) ) {
 487                         OnError(1);
 488                         return;
 489                 }
 490         }
 491
 492         // UL-EV1 / NTAG authentication
 493         if (usePwd) {
 494                 uint8_t pwd[4] = {0x00};
 495                 memcpy(pwd, datain+4, 4);
 496                 uint8_t pack[4] = {0,0,0,0};
 497                 if (!mifare_ul_ev1_auth(pwd, pack)) {
 498                         OnError(1);
 499                         return;
 500                 }
 501         }
 502
 503         if(mifare_ultra_writeblock(blockNo, blockdata)) {
 504                 if (MF_DBGLEVEL >= 1) Dbprintf("Write block error");
 505                 OnError(0);
 506                 return;
 507         };
 508
 509         if(mifare_ultra_halt()) {
 510                 if (MF_DBGLEVEL >= 1) Dbprintf("Halt error");
 511                 OnError(0);
 512                 return;
 513         };
 514
 515         if (MF_DBGLEVEL >= 2) DbpString("WRITE BLOCK FINISHED");
 516
 517         cmd_send(CMD_ACK,1,0,0,0,0);
 518         FpgaWriteConfWord(FPGA_MAJOR_MODE_OFF);
 519         LEDsoff();
 520         set_tracing(FALSE);
 521 }
 522
 523 void MifareUSetPwd(uint8_t arg0, uint8_t *datain){
 524
 525         uint8_t pwd[16] = {0x00};
 526         byte_t blockdata[4] = {0x00};
 527
 528         memcpy(pwd, datain, 16);
 529
 530         LED_A_ON(); LED_B_OFF(); LED_C_OFF();
 531         iso14443a_setup(FPGA_HF_ISO14443A_READER_LISTEN);
 532
 533         clear_trace();
 534         set_tracing(true);
 535
 536         if(!iso14443a_select_card(NULL, NULL, NULL, true, 0)) {
 537                 if (MF_DBGLEVEL >= 1) Dbprintf("Can't select card");
 538                 OnError(0);
 539                 return;
 540         };
 541
 542         blockdata[0] = pwd[7];
 543         blockdata[1] = pwd[6];
 544         blockdata[2] = pwd[5];
 545         blockdata[3] = pwd[4];
 546         if(mifare_ultra_writeblock( 44, blockdata)) {
 547                 if (MF_DBGLEVEL >= 1) Dbprintf("Write block error");
 548                 OnError(44);
 549                 return;
 550         };
 551
 552         blockdata[0] = pwd[3];
 553         blockdata[1] = pwd[2];
 554         blockdata[2] = pwd[1];
 555         blockdata[3] = pwd[0];
 556         if(mifare_ultra_writeblock( 45, blockdata)) {
 557                 if (MF_DBGLEVEL >= 1) Dbprintf("Write block error");
 558                 OnError(45);
 559                 return;
 560         };
 561
 562         blockdata[0] = pwd[15];
 563         blockdata[1] = pwd[14];
 564         blockdata[2] = pwd[13];
 565         blockdata[3] = pwd[12];
 566         if(mifare_ultra_writeblock( 46, blockdata)) {
 567                 if (MF_DBGLEVEL >= 1) Dbprintf("Write block error");
 568                 OnError(46);
 569                 return;
 570         };
 571
 572         blockdata[0] = pwd[11];
 573         blockdata[1] = pwd[10];
 574         blockdata[2] = pwd[9];
 575         blockdata[3] = pwd[8];
 576         if(mifare_ultra_writeblock( 47, blockdata)) {
 577                 if (MF_DBGLEVEL >= 1) Dbprintf("Write block error");
 578                 OnError(47);
 579                 return;
 580         };
 581
 582         if(mifare_ultra_halt()) {
 583                 if (MF_DBGLEVEL >= 1) Dbprintf("Halt error");
 584                 OnError(0);
 585                 return;
 586         };
 587
 588         cmd_send(CMD_ACK,1,0,0,0,0);
 589         FpgaWriteConfWord(FPGA_MAJOR_MODE_OFF);
 590         LEDsoff();
 591         set_tracing(FALSE);
 592 }
 593
 594 // Return 1 if the nonce is invalid else return 0
 595 int valid_nonce(uint32_t Nt, uint32_t NtEnc, uint32_t Ks1, uint8_t *parity) {
 596         return ((oddparity8((Nt >> 24) & 0xFF) == ((parity[0]) ^ oddparity8((NtEnc >> 24) & 0xFF) ^ BIT(Ks1,16))) & \
 597         (oddparity8((Nt >> 16) & 0xFF) == ((parity[1]) ^ oddparity8((NtEnc >> 16) & 0xFF) ^ BIT(Ks1,8))) & \
 598         (oddparity8((Nt >> 8) & 0xFF) == ((parity[2]) ^ oddparity8((NtEnc >> 8) & 0xFF) ^ BIT(Ks1,0)))) ? 1 : 0;
 599 }
 600
 601
 602 //-----------------------------------------------------------------------------
 603 // acquire encrypted nonces in order to perform the attack described in
 604 // Carlo Meijer, Roel Verdult, "Ciphertext-only Cryptanalysis on Hardened
 605 // Mifare Classic Cards" in Proceedings of the 22nd ACM SIGSAC Conference on
 606 // Computer and Communications Security, 2015
 607 //-----------------------------------------------------------------------------
 608 #define AUTHENTICATION_TIMEOUT  848 //848                       // card times out 1ms after wrong authentication (according to NXP documentation)
 609 #define PRE_AUTHENTICATION_LEADTIME 400         // some (non standard) cards need a pause after select before they are ready for first authentication
 610
 611 void MifareAcquireEncryptedNonces(uint32_t arg0, uint32_t arg1, uint32_t flags, uint8_t *datain)
 612 {
 613         uint64_t ui64Key = 0;
 614         uint8_t uid[10] = {0x00};
 615         uint32_t cuid = 0;
 616         uint8_t cascade_levels = 0;
 617         struct Crypto1State mpcs = {0, 0};
 618         struct Crypto1State *pcs;
 619         pcs = &mpcs;
 620         uint8_t receivedAnswer[MAX_MIFARE_FRAME_SIZE] = {0x00};
 621         int16_t isOK = 0;
 622         uint8_t par_enc[1] = {0x00};
 623         uint8_t nt_par_enc = 0;
 624         uint8_t buf[USB_CMD_DATA_SIZE] = {0x00};
 625         uint32_t timeout = 0;
 626
 627         uint8_t blockNo = arg0 & 0xff;
 628         uint8_t keyType = (arg0 >> 8) & 0xff;
 629         uint8_t targetBlockNo = arg1 & 0xff;
 630         uint8_t targetKeyType = (arg1 >> 8) & 0xff;
 631         ui64Key = bytes_to_num(datain, 6);
 632         bool initialize = flags & 0x0001;
 633         bool slow = flags & 0x0002;
 634         bool field_off = flags & 0x0004;
 635
 636         LED_A_ON();
 637         LED_C_OFF();
 638
 639         BigBuf_free(); BigBuf_Clear_ext(false);
 640         clear_trace();
 641         set_tracing(FALSE);
 642
 643         if (initialize) {
 644                 iso14443a_setup(FPGA_HF_ISO14443A_READER_LISTEN);
 645         }
 646
 647         LED_C_ON();
 648
 649         uint8_t dummy_answer = 0;
 650         uint16_t num_nonces = 0;
 651         bool have_uid = false;
 652         for (uint16_t i = 0; i <= USB_CMD_DATA_SIZE - 9; ) {
 653
 654                 // Test if the action was cancelled
 655                 if(BUTTON_PRESS()) {
 656                         isOK = 2;
 657                         field_off = true;
 658                         break;
 659                 }
 660
 661                 if (!have_uid) { // need a full select cycle to get the uid first
 662                         iso14a_card_select_t card_info;
 663                         if(!iso14443a_select_card(uid, &card_info, &cuid, true, 0)) {
 664                                 if (MF_DBGLEVEL >= 1)   Dbprintf("AcquireNonces: Can't select card (ALL)");
 665                                 continue;
 666                         }
 667                         switch (card_info.uidlen) {
 668                                 case 4 : cascade_levels = 1; break;
 669                                 case 7 : cascade_levels = 2; break;
 670                                 case 10: cascade_levels = 3; break;
 671                                 default: break;
 672                         }
 673                         have_uid = true;
 674                 } else { // no need for anticollision. We can directly select the card
 675                         if(!iso14443a_select_card(uid, NULL, NULL, false, cascade_levels)) {
 676                                 if (MF_DBGLEVEL >= 1)   Dbprintf("AcquireNonces: Can't select card (UID)");
 677                                 continue;
 678                         }
 679                 }
 680
 681                 if (slow) {
 682                         timeout = GetCountSspClk() + PRE_AUTHENTICATION_LEADTIME;
 683                         while(GetCountSspClk() < timeout);
 684                 }
 685
 686                 uint32_t nt1;
 687                 if (mifare_classic_authex(pcs, cuid, blockNo, keyType, ui64Key, AUTH_FIRST, &nt1, NULL)) {
 688                         if (MF_DBGLEVEL >= 1)   Dbprintf("AcquireNonces: Auth1 error");
 689                         continue;
 690                 }
 691
 692                 // nested authentication
 693                 uint16_t len = mifare_sendcmd_short(pcs, AUTH_NESTED, 0x60 + (targetKeyType & 0x01), targetBlockNo, receivedAnswer, par_enc, NULL);
 694                 if (len != 4) {
 695                         if (MF_DBGLEVEL >= 1)   Dbprintf("AcquireNonces: Auth2 error len=%d", len);
 696                         continue;
 697                 }
 698
 699                 // send a dummy byte as reader response in order to trigger the cards authentication timeout
 700                 ReaderTransmit(&dummy_answer, 1, NULL);
 701                 timeout = GetCountSspClk() + AUTHENTICATION_TIMEOUT;
 702
 703                 num_nonces++;
 704                 if (num_nonces % 2) {
 705                         memcpy(buf+i, receivedAnswer, 4);
 706                         nt_par_enc = par_enc[0] & 0xf0;
 707                 } else {
 708                         nt_par_enc |= par_enc[0]  >> 4;
 709                         memcpy(buf+i+4, receivedAnswer, 4);
 710                         memcpy(buf+i+8, &nt_par_enc, 1);
 711                         i += 9;
 712                 }
 713                 // wait for the card to become ready again
 714                 while(GetCountSspClk() < timeout);
 715         }
 716
 717         LED_C_OFF();
 718         crypto1_destroy(pcs);
 719         LED_B_ON();
 720         cmd_send(CMD_ACK, isOK, cuid, num_nonces, buf, sizeof(buf));
 721         LED_B_OFF();
 722
 723         if (MF_DBGLEVEL >= 3)   DbpString("AcquireEncryptedNonces finished");
 724
 725         if (field_off) {
 726                 FpgaWriteConfWord(FPGA_MAJOR_MODE_OFF);
 727                 LEDsoff();
 728                 set_tracing(FALSE);
 729         }
 730 }
 731
 732
 733 //-----------------------------------------------------------------------------
 734 // MIFARE nested authentication.
 735 //
 736 //-----------------------------------------------------------------------------
 737 void MifareNested(uint32_t arg0, uint32_t arg1, uint32_t calibrate, uint8_t *datain)
 738 {
 739         // params
 740         uint8_t blockNo = arg0 & 0xff;
 741         uint8_t keyType = (arg0 >> 8) & 0xff;
 742         uint8_t targetBlockNo = arg1 & 0xff;
 743         uint8_t targetKeyType = (arg1 >> 8) & 0xff;
 744         uint64_t ui64Key = 0;
 745
 746         ui64Key = bytes_to_num(datain, 6);
 747
 748         // variables
 749         uint16_t rtr, i, j, len;
 750         uint16_t davg = 0;
 751         static uint16_t dmin, dmax;
 752         uint8_t uid[10] = {0x00};
 753         uint32_t cuid = 0, nt1, nt2, nttmp, nttest, ks1;
 754         uint8_t par[1] = {0x00};
 755         uint32_t target_nt[2] = {0x00}, target_ks[2] = {0x00};
 756
 757         uint8_t par_array[4] = {0x00};
 758         uint16_t ncount = 0;
 759         struct Crypto1State mpcs = {0, 0};
 760         struct Crypto1State *pcs;
 761         pcs = &mpcs;
 762         uint8_t receivedAnswer[MAX_MIFARE_FRAME_SIZE] = {0x00};
 763
 764         uint32_t auth1_time, auth2_time;
 765         static uint16_t delta_time = 0;
 766
 767         LED_A_ON();
 768         LED_C_OFF();
 769         iso14443a_setup(FPGA_HF_ISO14443A_READER_LISTEN);
 770
 771         // free eventually allocated BigBuf memory
 772         BigBuf_free(); BigBuf_Clear_ext(false);
 773
 774         if (calibrate) clear_trace();
 775         set_tracing(true);
 776
 777         // statistics on nonce distance
 778         int16_t isOK = 0;
 779         #define NESTED_MAX_TRIES 12
 780         uint16_t unsuccessfull_tries = 0;
 781         if (calibrate) {        // for first call only. Otherwise reuse previous calibration
 782                 LED_B_ON();
 783                 WDT_HIT();
 784
 785                 davg = dmax = 0;
 786                 dmin = 2000;
 787                 delta_time = 0;
 788
 789                 for (rtr = 0; rtr < 17; rtr++) {
 790
 791                         // Test if the action was cancelled
 792                         if(BUTTON_PRESS()) {
 793                                 isOK = -2;
 794                                 break;
 795                         }
 796
 797                         // prepare next select. No need to power down the card.
 798                         if(mifare_classic_halt(pcs, cuid)) {
 799                                 if (MF_DBGLEVEL >= 1)   Dbprintf("Nested: Halt error");
 800                                 rtr--;
 801                                 continue;
 802                         }
 803
 804                         if(!iso14443a_select_card(uid, NULL, &cuid, true, 0)) {
 805                                 if (MF_DBGLEVEL >= 1)   Dbprintf("Nested: Can't select card");
 806                                 rtr--;
 807                                 continue;
 808                         };
 809
 810                         auth1_time = 0;
 811                         if(mifare_classic_authex(pcs, cuid, blockNo, keyType, ui64Key, AUTH_FIRST, &nt1, &auth1_time)) {
 812                                 if (MF_DBGLEVEL >= 1)   Dbprintf("Nested: Auth1 error");
 813                                 rtr--;
 814                                 continue;
 815                         };
 816                         auth2_time = (delta_time) ? auth1_time + delta_time : 0;
 817
 818                         if(mifare_classic_authex(pcs, cuid, blockNo, keyType, ui64Key, AUTH_NESTED, &nt2, &auth2_time)) {
 819                                 if (MF_DBGLEVEL >= 1)   Dbprintf("Nested: Auth2 error");
 820                                 rtr--;
 821                                 continue;
 822                         };
 823
 824                         nttmp = prng_successor(nt1, 100);                               //NXP Mifare is typical around 840,but for some unlicensed/compatible mifare card this can be 160
 825                         for (i = 101; i < 1200; i++) {
 826                                 nttmp = prng_successor(nttmp, 1);
 827                                 if (nttmp == nt2) break;
 828                         }
 829
 830                         if (i != 1200) {
 831                                 if (rtr != 0) {
 832                                         davg += i;
 833                                         dmin = MIN(dmin, i);
 834                                         dmax = MAX(dmax, i);
 835                                 }
 836                                 else {
 837                                         delta_time = auth2_time - auth1_time + 32;  // allow some slack for proper timing
 838                                 }
 839                                 if (MF_DBGLEVEL >= 3) Dbprintf("Nested: calibrating... ntdist=%d", i);
 840                         } else {
 841                                 unsuccessfull_tries++;
 842                                 if (unsuccessfull_tries > NESTED_MAX_TRIES) {   // card isn't vulnerable to nested attack (random numbers are not predictable)
 843                                         isOK = -3;
 844                                 }
 845                         }
 846                 }
 847
 848                 davg = (davg + (rtr - 1)/2) / (rtr - 1);
 849
 850                 if (MF_DBGLEVEL >= 3) Dbprintf("rtr=%d isOK=%d min=%d max=%d avg=%d, delta_time=%d", rtr, isOK, dmin, dmax, davg, delta_time);
 851
 852                 dmin = davg - 2;
 853                 dmax = davg + 2;
 854
 855                 LED_B_OFF();
 856         }
 857 //  -------------------------------------------------------------------------------------------------
 858
 859         LED_C_ON();
 860
 861         //  get crypted nonces for target sector
 862         for(i=0; i < 2 && !isOK; i++) { // look for exactly two different nonces
 863
 864                 target_nt[i] = 0;
 865                 while(target_nt[i] == 0) { // continue until we have an unambiguous nonce
 866
 867                         // prepare next select. No need to power down the card.
 868                         if(mifare_classic_halt(pcs, cuid)) {
 869                                 if (MF_DBGLEVEL >= 1)   Dbprintf("Nested: Halt error");
 870                                 continue;
 871                         }
 872
 873                         if(!iso14443a_select_card(uid, NULL, &cuid, true, 0)) {
 874                                 if (MF_DBGLEVEL >= 1)   Dbprintf("Nested: Can't select card");
 875                                 continue;
 876                         };
 877
 878                         auth1_time = 0;
 879                         if(mifare_classic_authex(pcs, cuid, blockNo, keyType, ui64Key, AUTH_FIRST, &nt1, &auth1_time)) {
 880                                 if (MF_DBGLEVEL >= 1)   Dbprintf("Nested: Auth1 error");
 881                                 continue;
 882                         };
 883
 884                         // nested authentication
 885                         auth2_time = auth1_time + delta_time;
 886
 887                         len = mifare_sendcmd_short(pcs, AUTH_NESTED, 0x60 + (targetKeyType & 0x01), targetBlockNo, receivedAnswer, par, &auth2_time);
 888                         if (len != 4) {
 889                                 if (MF_DBGLEVEL >= 1)   Dbprintf("Nested: Auth2 error len=%d", len);
 890                                 continue;
 891                         };
 892
 893                         nt2 = bytes_to_num(receivedAnswer, 4);
 894                         if (MF_DBGLEVEL >= 3) Dbprintf("Nonce#%d: Testing nt1=%08x nt2enc=%08x nt2par=%02x", i+1, nt1, nt2, par[0]);
 895
 896                         // Parity validity check
 897 //                      for (j = 0; j < 4; j++) {
 898 //                              par_array[j] = (oddparity8(receivedAnswer[j]) != ((par[0] >> (7-j)) & 0x01));
 899 //                      }
 900                         par_array[0] = (oddparity8(receivedAnswer[0]) != ((par[0] >> (7-0)) & 0x01));
 901                         par_array[1] = (oddparity8(receivedAnswer[1]) != ((par[0] >> (7-1)) & 0x01));
 902                         par_array[2] = (oddparity8(receivedAnswer[2]) != ((par[0] >> (7-2)) & 0x01));
 903                         par_array[3] = (oddparity8(receivedAnswer[3]) != ((par[0] >> (7-3)) & 0x01));
 904
 905                         ncount = 0;
 906                         nttest = prng_successor(nt1, dmin - 1);
 907                         for (j = dmin; j < dmax + 1; j++) {
 908                                 nttest = prng_successor(nttest, 1);
 909                                 ks1 = nt2 ^ nttest;
 910
 911                                 if (valid_nonce(nttest, nt2, ks1, par_array)){
 912                                         if (ncount > 0) {               // we are only interested in disambiguous nonces, try again
 913                                                 if (MF_DBGLEVEL >= 3) Dbprintf("Nonce#%d: dismissed (ambigous), ntdist=%d", i+1, j);
 914                                                 target_nt[i] = 0;
 915                                                 break;
 916                                         }
 917                                         target_nt[i] = nttest;
 918                                         target_ks[i] = ks1;
 919                                         ncount++;
 920                                         if (i == 1 && target_nt[1] == target_nt[0]) { // we need two different nonces
 921                                                 target_nt[i] = 0;
 922                                                 if (MF_DBGLEVEL >= 3) Dbprintf("Nonce#2: dismissed (= nonce#1), ntdist=%d", j);
 923                                                 break;
 924                                         }
 925                                         if (MF_DBGLEVEL >= 3) Dbprintf("Nonce#%d: valid, ntdist=%d", i+1, j);
 926                                 }
 927                         }
 928                         if (target_nt[i] == 0 && j == dmax+1 && MF_DBGLEVEL >= 3) Dbprintf("Nonce#%d: dismissed (all invalid)", i+1);
 929                 }
 930         }
 931
 932         LED_C_OFF();
 933
 934         crypto1_destroy(pcs);
 935
 936         byte_t buf[4 + 4 * 4] = {0};
 937         memcpy(buf, &cuid, 4);
 938         memcpy(buf+4, &target_nt[0], 4);
 939         memcpy(buf+8, &target_ks[0], 4);
 940         memcpy(buf+12, &target_nt[1], 4);
 941         memcpy(buf+16, &target_ks[1], 4);
 942
 943         LED_B_ON();
 944         cmd_send(CMD_ACK, isOK, 0, targetBlockNo + (targetKeyType * 0x100), buf, sizeof(buf));
 945         LED_B_OFF();
 946
 947         if (MF_DBGLEVEL >= 3)   DbpString("NESTED FINISHED");
 948
 949         FpgaWriteConfWord(FPGA_MAJOR_MODE_OFF);
 950         LEDsoff();
 951         set_tracing(FALSE);
 952 }
 953
 954 //-----------------------------------------------------------------------------
 955 // MIFARE check keys. key count up to 85.
 956 //
 957 //-----------------------------------------------------------------------------
 958 void MifareChkKeys(uint16_t arg0, uint8_t arg1, uint8_t arg2, uint8_t *datain) {
 959 #define STD_SEARCH 1
 960 #define EXT_SEARCH 2
 961
 962         uint8_t blockNo = arg0 & 0xFF;
 963         uint8_t keyType = (arg0 >> 8) & 0xFF;
 964         uint8_t searchType = (arg1 >> 8 ) & 0xFF;
 965         bool clearTrace = arg1 & 0xFF;
 966         uint8_t keyCount = arg2;
 967         uint64_t ui64Key = 0;
 968
 969         bool have_uid = FALSE;
 970         uint8_t cascade_levels = 0;
 971         uint32_t timeout = 0;
 972
 973         int i;
 974         byte_t isOK = 0;
 975         uint8_t uid[10] = {0x00};
 976         uint32_t cuid = 0;
 977         struct Crypto1State mpcs = {0, 0};
 978         struct Crypto1State *pcs;
 979         pcs = &mpcs;
 980
 981         // save old debuglevel, and tempory turn off dbg printing. speedissues.
 982         int OLD_MF_DBGLEVEL = MF_DBGLEVEL;
 983         MF_DBGLEVEL = MF_DBG_NONE;
 984
 985         LEDsoff();
 986         LED_A_ON();
 987
 988         iso14443a_setup(FPGA_HF_ISO14443A_READER_LISTEN);
 989
 990         if (clearTrace)
 991                 clear_trace();
 992
 993         set_tracing(TRUE);
 994
 995         for (i = 0; i < keyCount; ++i) {
 996
 997                 //mifare_classic_halt(pcs, cuid);
 998
 999                 // this part is from Piwi's faster nonce collecting part in Hardnested.
1000                 if (!have_uid) { // need a full select cycle to get the uid first
1001                         iso14a_card_select_t card_info;
1002                         if(!iso14443a_select_card(uid, &card_info, &cuid, true, 0)) {
1003                                 if (MF_DBGLEVEL >= 1)   Dbprintf("ChkKeys: Can't select card (ALL)");
1004                                 break;
1005                         }
1006                         switch (card_info.uidlen) {
1007                                 case 4 : cascade_levels = 1; break;
1008                                 case 7 : cascade_levels = 2; break;
1009                                 case 10: cascade_levels = 3; break;
1010                                 default: break;
1011                         }
1012                         have_uid = TRUE;
1013                 } else { // no need for anticollision. We can directly select the card
1014                         if(!iso14443a_select_card(uid, NULL, NULL, false, cascade_levels)) {
1015                                 if (MF_DBGLEVEL >= 1)   Dbprintf("ChkKeys: Can't select card (UID)");
1016                                 continue;
1017                         }
1018                 }
1019
1020                 ui64Key = bytes_to_num(datain + i * 6, 6);
1021
1022                 if (mifare_classic_auth(pcs, cuid, blockNo, keyType, ui64Key, AUTH_FIRST)) {
1023
1024                         uint8_t dummy_answer = 0;
1025                         ReaderTransmit(&dummy_answer, 1, NULL);
1026                         timeout = GetCountSspClk() + AUTHENTICATION_TIMEOUT;
1027
1028                         // wait for the card to become ready again
1029                         while(GetCountSspClk() < timeout);
1030
1031                         continue;
1032                 }
1033
1034                 // found a key.
1035                 //
1036                 //if ( searchType == EXT_SEARCH) {
1037
1038                 //}
1039                 //else {
1040                         isOK = 1;
1041                         break;
1042                 //}
1043         }
1044
1045         LED_B_ON();
1046     cmd_send(CMD_ACK, isOK, 0, 0, datain + i * 6, 6);
1047
1048         // restore debug level
1049         MF_DBGLEVEL = OLD_MF_DBGLEVEL;
1050
1051         FpgaWriteConfWord(FPGA_MAJOR_MODE_OFF);
1052         LEDsoff();
1053         set_tracing(FALSE);
1054         crypto1_destroy(pcs);
1055 }
1056
1057 //-----------------------------------------------------------------------------
1058 // MIFARE commands set debug level
1059 //
1060 //-----------------------------------------------------------------------------
1061 void MifareSetDbgLvl(uint32_t arg0, uint32_t arg1, uint32_t arg2, uint8_t *datain){
1062         MF_DBGLEVEL = arg0;
1063         Dbprintf("Debug level: %d", MF_DBGLEVEL);
1064 }
1065
1066 //-----------------------------------------------------------------------------
1067 // Work with emulator memory
1068 //
1069 // Note: we call FpgaDownloadAndGo(FPGA_BITSTREAM_HF) here although FPGA is not
1070 // involved in dealing with emulator memory. But if it is called later, it might
1071 // destroy the Emulator Memory.
1072 //-----------------------------------------------------------------------------
1073
1074 void MifareEMemClr(uint32_t arg0, uint32_t arg1, uint32_t arg2, uint8_t *datain){
1075         FpgaDownloadAndGo(FPGA_BITSTREAM_HF);
1076         emlClearMem();
1077 }
1078
1079 void MifareEMemSet(uint32_t arg0, uint32_t arg1, uint32_t arg2, uint8_t *datain){
1080         FpgaDownloadAndGo(FPGA_BITSTREAM_HF);
1081         if (arg2==0) arg2 = 16; // backwards compat... default bytewidth
1082         emlSetMem_xt(datain, arg0, arg1, arg2); // data, block num, blocks count, block byte width
1083 }
1084
1085 void MifareEMemGet(uint32_t arg0, uint32_t arg1, uint32_t arg2, uint8_t *datain){
1086         FpgaDownloadAndGo(FPGA_BITSTREAM_HF);
1087         byte_t buf[USB_CMD_DATA_SIZE] = {0x00};
1088         emlGetMem(buf, arg0, arg1); // data, block num, blocks count (max 4)
1089
1090         LED_B_ON();
1091         cmd_send(CMD_ACK,arg0,arg1,0,buf,USB_CMD_DATA_SIZE);
1092         LED_B_OFF();
1093 }
1094
1095 //-----------------------------------------------------------------------------
1096 // Load a card into the emulator memory
1097 //
1098 //-----------------------------------------------------------------------------
1099 void MifareECardLoad(uint32_t arg0, uint32_t arg1, uint32_t arg2, uint8_t *datain){
1100         uint8_t numSectors = arg0;
1101         uint8_t keyType = arg1;
1102         uint64_t ui64Key = 0;
1103         uint32_t cuid = 0;
1104         struct Crypto1State mpcs = {0, 0};
1105         struct Crypto1State *pcs;
1106         pcs = &mpcs;
1107
1108         // variables
1109         byte_t dataoutbuf[16] = {0x00};
1110         byte_t dataoutbuf2[16] = {0x00};
1111         uint8_t uid[10] = {0x00};
1112
1113         LED_A_ON();
1114         LED_B_OFF();
1115         LED_C_OFF();
1116         iso14443a_setup(FPGA_HF_ISO14443A_READER_LISTEN);
1117
1118         clear_trace();
1119         set_tracing(TRUE);
1120
1121         bool isOK = true;
1122
1123         if(!iso14443a_select_card(uid, NULL, &cuid, true, 0)) {
1124                 isOK = false;
1125                 if (MF_DBGLEVEL >= 1)   Dbprintf("Can't select card");
1126         }
1127
1128         for (uint8_t sectorNo = 0; isOK && sectorNo < numSectors; sectorNo++) {
1129                 ui64Key = emlGetKey(sectorNo, keyType);
1130                 if (sectorNo == 0){
1131                         if(isOK && mifare_classic_auth(pcs, cuid, FirstBlockOfSector(sectorNo), keyType, ui64Key, AUTH_FIRST)) {
1132                                 isOK = false;
1133                                 if (MF_DBGLEVEL >= 1)   Dbprintf("Sector[%2d]. Auth error", sectorNo);
1134                                 break;
1135                         }
1136                 } else {
1137                         if(isOK && mifare_classic_auth(pcs, cuid, FirstBlockOfSector(sectorNo), keyType, ui64Key, AUTH_NESTED)) {
1138                                 isOK = false;
1139                                 if (MF_DBGLEVEL >= 1)   Dbprintf("Sector[%2d]. Auth nested error", sectorNo);
1140                                 break;
1141                         }
1142                 }
1143
1144                 for (uint8_t blockNo = 0; isOK && blockNo < NumBlocksPerSector(sectorNo); blockNo++) {
1145                         if(isOK && mifare_classic_readblock(pcs, cuid, FirstBlockOfSector(sectorNo) + blockNo, dataoutbuf)) {
1146                                 isOK = false;
1147                                 if (MF_DBGLEVEL >= 1)   Dbprintf("Error reading sector %2d block %2d", sectorNo, blockNo);
1148                                 break;
1149                         }
1150                         if (isOK) {
1151                                 if (blockNo < NumBlocksPerSector(sectorNo) - 1) {
1152                                         emlSetMem(dataoutbuf, FirstBlockOfSector(sectorNo) + blockNo, 1);
1153                                 } else {        // sector trailer, keep the keys, set only the AC
1154                                         emlGetMem(dataoutbuf2, FirstBlockOfSector(sectorNo) + blockNo, 1);
1155                                         memcpy(&dataoutbuf2[6], &dataoutbuf[6], 4);
1156                                         emlSetMem(dataoutbuf2,  FirstBlockOfSector(sectorNo) + blockNo, 1);
1157                                 }
1158                         }
1159                 }
1160
1161         }
1162
1163         if(mifare_classic_halt(pcs, cuid))
1164                 if (MF_DBGLEVEL >= 1)
1165                         Dbprintf("Halt error");
1166
1167         //  ----------------------------- crypto1 destroy
1168         crypto1_destroy(pcs);
1169
1170         FpgaWriteConfWord(FPGA_MAJOR_MODE_OFF);
1171         LEDsoff();
1172
1173         if (MF_DBGLEVEL >= 2) DbpString("EMUL FILL SECTORS FINISHED");
1174
1175         set_tracing(FALSE);
1176 }
1177
1178
1179 //-----------------------------------------------------------------------------
1180 // Work with "magic Chinese" card (email him: ouyangweidaxian@live.cn)
1181 //
1182 // PARAMS - workFlags
1183 // bit 0 - need get UID
1184 // bit 1 - need wupC
1185 // bit 2 - need HALT after sequence
1186 // bit 3 - need turn on FPGA before sequence
1187 // bit 4 - need turn off FPGA
1188 // bit 5 - need to set datain instead of issuing USB reply (called via ARM for StandAloneMode14a)
1189 // bit 6 - wipe tag.
1190 //-----------------------------------------------------------------------------
1191 // magic uid card generation 1 commands
1192 uint8_t wupC1[] = { MIFARE_MAGICWUPC1 };
1193 uint8_t wupC2[] = { MIFARE_MAGICWUPC2 };
1194 uint8_t wipeC[] = { MIFARE_MAGICWIPEC };
1195
1196 void MifareCSetBlock(uint32_t arg0, uint32_t arg1, uint8_t *datain){
1197
1198         // params
1199         uint8_t workFlags = arg0;
1200         uint8_t blockNo = arg1;
1201
1202         // variables
1203         bool isOK = false; //assume we will get an error
1204         uint8_t errormsg = 0x00;
1205         uint8_t uid[10] = {0x00};
1206         uint8_t data[18] = {0x00};
1207         uint32_t cuid = 0;
1208
1209         uint8_t receivedAnswer[MAX_MIFARE_FRAME_SIZE] = {0x00};
1210         uint8_t receivedAnswerPar[MAX_MIFARE_PARITY_SIZE] = {0x00};
1211
1212         if (workFlags & MAGIC_INIT) {
1213                 LED_A_ON();
1214                 LED_B_OFF();
1215                 iso14443a_setup(FPGA_HF_ISO14443A_READER_LISTEN);
1216                 clear_trace();
1217                 set_tracing(TRUE);
1218         }
1219
1220         //loop doesn't loop just breaks out if error
1221         while (true) {
1222                 // read UID and return to client with write
1223                 if (workFlags & MAGIC_UID) {
1224                         if(!iso14443a_select_card(uid, NULL, &cuid, true, 0)) {
1225                                 if (MF_DBGLEVEL >= MF_DBG_ERROR)        Dbprintf("Can't select card");
1226                                 errormsg = MAGIC_UID;
1227                         }
1228                         mifare_classic_halt_ex(NULL);
1229                         break;
1230                 }
1231
1232                 // wipe tag, fill it with zeros
1233                 if (workFlags & MAGIC_WIPE){
1234                         ReaderTransmitBitsPar(wupC1, 7, NULL, NULL);
1235                         if(!ReaderReceive(receivedAnswer, receivedAnswerPar) || (receivedAnswer[0] != 0x0a)) {
1236                                 if (MF_DBGLEVEL >= MF_DBG_ERROR)        Dbprintf("wupC1 error");
1237                                 errormsg = MAGIC_WIPE;
1238                                 break;
1239                         }
1240
1241                         ReaderTransmit(wipeC, sizeof(wipeC), NULL);
1242                         if(!ReaderReceive(receivedAnswer, receivedAnswerPar) || (receivedAnswer[0] != 0x0a)) {
1243                                 if (MF_DBGLEVEL >= MF_DBG_ERROR)        Dbprintf("wipeC error");
1244                                 errormsg = MAGIC_WIPE;
1245                                 break;
1246                         }
1247
1248                         mifare_classic_halt_ex(NULL);
1249                 }
1250
1251                 // write block
1252                 if (workFlags & MAGIC_WUPC) {
1253                         ReaderTransmitBitsPar(wupC1, 7, NULL, NULL);
1254                         if(!ReaderReceive(receivedAnswer, receivedAnswerPar) || (receivedAnswer[0] != 0x0a)) {
1255                                 if (MF_DBGLEVEL >= MF_DBG_ERROR)        Dbprintf("wupC1 error");
1256                                 errormsg = MAGIC_WUPC;
1257                                 break;
1258                         }
1259
1260                         ReaderTransmit(wupC2, sizeof(wupC2), NULL);
1261                         if(!ReaderReceive(receivedAnswer, receivedAnswerPar) || (receivedAnswer[0] != 0x0a)) {
1262                                 if (MF_DBGLEVEL >= MF_DBG_ERROR)        Dbprintf("wupC2 error");
1263                                 errormsg = MAGIC_WUPC;
1264                                 break;
1265                         }
1266                 }
1267
1268                 if ((mifare_sendcmd_short(NULL, 0, ISO14443A_CMD_WRITEBLOCK, blockNo, receivedAnswer, receivedAnswerPar, NULL) != 1) || (receivedAnswer[0] != 0x0a)) {
1269                         if (MF_DBGLEVEL >= MF_DBG_ERROR)        Dbprintf("write block send command error");
1270                         errormsg = 4;
1271                         break;
1272                 }
1273
1274                 memcpy(data, datain, 16);
1275                 AppendCrc14443a(data, 16);
1276
1277                 ReaderTransmit(data, sizeof(data), NULL);
1278                 if ((ReaderReceive(receivedAnswer, receivedAnswerPar) != 1) || (receivedAnswer[0] != 0x0a)) {
1279                         if (MF_DBGLEVEL >= MF_DBG_ERROR)        Dbprintf("write block send data error");
1280                         errormsg = 0;
1281                         break;
1282                 }
1283
1284                 if (workFlags & MAGIC_OFF)
1285                         mifare_classic_halt_ex(NULL);
1286
1287                 isOK = true;
1288                 break;
1289
1290         } // end while
1291
1292         if (isOK )
1293                 cmd_send(CMD_ACK,1,0,0,uid,sizeof(uid));
1294         else
1295                 OnErrorMagic(errormsg);
1296
1297         if (workFlags & MAGIC_OFF)
1298                 OnSuccessMagic();
1299 }
1300
1301 void MifareCGetBlock(uint32_t arg0, uint32_t arg1, uint8_t *datain){
1302
1303         uint8_t workFlags = arg0;
1304         uint8_t blockNo = arg1;
1305         uint8_t errormsg = 0x00;
1306         bool isOK = false; //assume we will get an error
1307
1308         // variables
1309         uint8_t data[MAX_MIFARE_FRAME_SIZE];
1310         uint8_t receivedAnswer[MAX_MIFARE_FRAME_SIZE] = {0x00};
1311         uint8_t receivedAnswerPar[MAX_MIFARE_PARITY_SIZE] = {0x00};
1312
1313         memset(data, 0x00, sizeof(data));
1314
1315         if (workFlags & MAGIC_INIT) {
1316                 LED_A_ON();
1317                 LED_B_OFF();
1318                 iso14443a_setup(FPGA_HF_ISO14443A_READER_LISTEN);
1319                 clear_trace();
1320                 set_tracing(TRUE);
1321         }
1322
1323         //loop doesn't loop just breaks out if error or done
1324         while (true) {
1325                 if (workFlags & MAGIC_WUPC) {
1326                         ReaderTransmitBitsPar(wupC1, 7, NULL, NULL);
1327                         if(!ReaderReceive(receivedAnswer, receivedAnswerPar) || (receivedAnswer[0] != 0x0a)) {
1328                                 if (MF_DBGLEVEL >= MF_DBG_ERROR) Dbprintf("wupC1 error");
1329                                 errormsg = MAGIC_WUPC;
1330                                 break;
1331                         }
1332
1333                         ReaderTransmit(wupC2, sizeof(wupC2), NULL);
1334                         if(!ReaderReceive(receivedAnswer, receivedAnswerPar) || (receivedAnswer[0] != 0x0a)) {
1335                                 if (MF_DBGLEVEL >= MF_DBG_ERROR) Dbprintf("wupC2 error");
1336                                 errormsg = MAGIC_WUPC;
1337                                 break;
1338                         }
1339                 }
1340
1341                 // read block
1342                 if ((mifare_sendcmd_short(NULL, 0, ISO14443A_CMD_READBLOCK, blockNo, receivedAnswer, receivedAnswerPar, NULL) != 18)) {
1343                         if (MF_DBGLEVEL >= MF_DBG_ERROR) Dbprintf("read block send command error");
1344                         errormsg = 0;
1345                         break;
1346                 }
1347
1348                 memcpy(data, receivedAnswer, sizeof(data));
1349
1350                 // send HALT
1351                 if (workFlags & MAGIC_HALT)
1352                         mifare_classic_halt_ex(NULL);
1353
1354                 isOK = true;
1355                 break;
1356         }
1357         // if MAGIC_DATAIN, the data stays on device side.
1358         if (workFlags & MAGIC_DATAIN) {
1359                 if (isOK)
1360                         memcpy(datain, data, sizeof(data));
1361         } else {
1362                 if (isOK)
1363                         cmd_send(CMD_ACK,1,0,0,data,sizeof(data));
1364                 else
1365                         OnErrorMagic(errormsg);
1366         }
1367
1368         if (workFlags & MAGIC_OFF)
1369                 OnSuccessMagic();
1370 }
1371
1372 void MifareCIdent(){
1373         #define GEN_1A 1
1374         #define GEN_1B 2
1375         #define GEN_2  4
1376         // variables
1377         uint8_t isGen = 0;
1378         uint8_t rec[1] = {0x00};
1379         uint8_t recpar[1] = {0x00};
1380
1381         // Generation 1 test
1382         ReaderTransmitBitsPar(wupC1, 7, NULL, NULL);
1383         if(!ReaderReceive(rec, recpar) || (rec[0] != 0x0a)) {
1384                 goto TEST2;
1385         };
1386         isGen = GEN_1B;
1387
1388         ReaderTransmit(wupC2, sizeof(wupC2), NULL);
1389         if(!ReaderReceive(rec, recpar) || (rec[0] != 0x0a)) {
1390                 goto OUT;
1391         };
1392         isGen = GEN_1A;
1393         goto OUT;
1394
1395 TEST2:;
1396 /*
1397         // Generation 2 test
1398         struct Crypto1State mpcs = {0, 0};
1399         struct Crypto1State *pcs = &mpcs;
1400
1401         // halt previous.
1402         mifare_classic_halt(NULL, 0);
1403
1404         //select
1405         if (!iso14443a_select_card(NULL, NULL, NULL, true, 0)) {
1406                 goto OUT;
1407         };
1408
1409         // MIFARE_CLASSIC_WRITEBLOCK 0xA0
1410         // ACK 0x0a
1411         uint16_t len = mifare_sendcmd_short(pcs, 1, 0xA0, 0, rec, recpar, NULL);
1412         if ((len != 1) || (rec[0] != 0x0A)) {
1413                 isGen = GEN_2;
1414         };
1415         */
1416 OUT:;
1417         // removed the if,  since some magic tags misbehavies and send an answer to it.
1418         mifare_classic_halt(NULL, 0);
1419         cmd_send(CMD_ACK,isGen, 0, 0, 0, 0);
1420 }
1421
1422 void OnSuccessMagic(){
1423         FpgaWriteConfWord(FPGA_MAJOR_MODE_OFF);
1424         LEDsoff();
1425         set_tracing(FALSE);
1426 }
1427 void OnErrorMagic(uint8_t reason){
1428         //          ACK, ISOK, reason,0,0,0
1429         cmd_send(CMD_ACK,0,reason,0,0,0);
1430         OnSuccessMagic();
1431 }
1432 //
1433 // DESFIRE
1434 //
1435 void Mifare_DES_Auth1(uint8_t arg0, uint8_t *datain){
1436         byte_t dataout[12] = {0x00};
1437         uint8_t uid[10] = {0x00};
1438         uint32_t cuid = 0;
1439
1440         iso14443a_setup(FPGA_HF_ISO14443A_READER_LISTEN);
1441         clear_trace();
1442         set_tracing(true);
1443
1444         int len = iso14443a_select_card(uid, NULL, &cuid, true, 0);
1445         if(!len) {
1446                 if (MF_DBGLEVEL >= MF_DBG_ERROR) Dbprintf("Can't select card");
1447                 OnError(1);
1448                 return;
1449         };
1450
1451         if(mifare_desfire_des_auth1(cuid, dataout)){
1452                 if (MF_DBGLEVEL >= MF_DBG_ERROR) Dbprintf("Authentication part1: Fail.");
1453                 OnError(4);
1454                 return;
1455         }
1456
1457         if (MF_DBGLEVEL >= MF_DBG_EXTENDED) DbpString("AUTH 1 FINISHED");
1458     cmd_send(CMD_ACK, 1, cuid, 0, dataout, sizeof(dataout));
1459 }
1460
1461 void Mifare_DES_Auth2(uint32_t arg0, uint8_t *datain){
1462         uint32_t cuid = arg0;
1463         uint8_t key[16] = {0x00};
1464         byte_t dataout[12] = {0x00};
1465         byte_t isOK = 0;
1466
1467         memcpy(key, datain, 16);
1468
1469         isOK = mifare_desfire_des_auth2(cuid, key, dataout);
1470
1471         if( isOK) {
1472             if (MF_DBGLEVEL >= MF_DBG_EXTENDED) Dbprintf("Authentication part2: Failed");
1473                 OnError(4);
1474                 return;
1475         }
1476
1477         if (MF_DBGLEVEL >= MF_DBG_EXTENDED) DbpString("AUTH 2 FINISHED");
1478
1479         cmd_send(CMD_ACK, isOK, 0, 0, dataout, sizeof(dataout));
1480         FpgaWriteConfWord(FPGA_MAJOR_MODE_OFF);
1481         LEDsoff();
1482         set_tracing(FALSE);
1483 }