/**
 * Public platform independent Near Field Communication (NFC) library
 * 
 * Copyright (C) 2009, Roel Verdult
 * 
 * This program is free software: you can redistribute it and/or modify it
 * under the terms of the GNU Lesser General Public License as published by the
 * Free Software Foundation, either version 3 of the License, or (at your
 * option) any later version.
 * 
 * This program is distributed in the hope that it will be useful, but WITHOUT
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
 * more details.
 *
 * You should have received a copy of the GNU Lesser General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>
 * 
 * 
 * @file nfc-mftool.c
 * @brief
 */

#include <stdio.h>
#include <stdlib.h>
#include <stdint.h>
#include <stddef.h>
#include <stdbool.h>

#include <string.h>
#include <ctype.h>

#include <nfc.h>

#include "mifaretag.h"
#include "bitutils.h"

static dev_info* pdi;
static tag_info ti;
static mifare_param mp;
static mifare_tag mtKeys;
static mifare_tag mtDump;
static bool bUseKeyA;
static bool bUseKeyFile;
static uint32_t uiBlocks;
static byte_t keys[] = {
  0xff,0xff,0xff,0xff,0xff,0xff,
  0xd3,0xf7,0xd3,0xf7,0xd3,0xf7,
  0xa0,0xa1,0xa2,0xa3,0xa4,0xa5,
  0xb0,0xb1,0xb2,0xb3,0xb4,0xb5,
  0x4d,0x3a,0x99,0xc3,0x51,0xdd,
  0x1a,0x98,0x2c,0x7e,0x45,0x9a,
  0xaa,0xbb,0xcc,0xdd,0xee,0xff,
  0x00,0x00,0x00,0x00,0x00,0x00
};
static size_t num_keys = sizeof(keys) / 6;

bool is_first_block(uint32_t uiBlock)
{
  // Test if we are in the small or big sectors
  if (uiBlock < 128) return ((uiBlock)%4 == 0); else return ((uiBlock)%16 == 0);
}

bool is_trailer_block(uint32_t uiBlock)
{
  // Test if we are in the small or big sectors
  if (uiBlock < 128) return ((uiBlock+1)%4 == 0); else return ((uiBlock+1)%16 == 0);
}

uint32_t get_trailer_block(uint32_t uiFirstBlock)
{
  // Test if we are in the small or big sectors
  if (uiFirstBlock<128) return uiFirstBlock+3; else return uiFirstBlock+15;
}

bool authenticate(uint32_t uiBlock)
{
  mifare_cmd mc;
  uint32_t uiTrailerBlock;
  size_t key_index;
  
  // Key file authentication.
  if (bUseKeyFile)
  {
    // Set the authentication information (uid)
    memcpy(mp.mpa.abtUid,ti.tia.abtUid,4);

    // Locate the trailer (with the keys) used for this sector
    uiTrailerBlock = get_trailer_block(uiBlock);
      
    // Determin if we should use the a or the b key
    if (bUseKeyA)
    {
      mc = MC_AUTH_A;
      memcpy(mp.mpa.abtKey,mtKeys.amb[uiTrailerBlock].mbt.abtKeyA,6);
    } else {
      mc = MC_AUTH_B;
      memcpy(mp.mpa.abtKey,mtKeys.amb[uiTrailerBlock].mbt.abtKeyB,6);
    }

    // Try to authenticate for the current sector
    if (nfc_initiator_mifare_cmd(pdi,mc,uiBlock,&mp))
        return true;
  }
  
  // Auto authentication.
  else
  {
    // Determin if we should use the a or the b key
    mc = (bUseKeyA) ? MC_AUTH_A : MC_AUTH_B;
      
    // Set the authentication information (uid)
    memcpy(mp.mpa.abtUid,ti.tia.abtUid,4);
    
    for (key_index = 0; key_index < num_keys; key_index++)
    {
      memcpy(mp.mpa.abtKey, keys + (key_index*6), 6);
      if (nfc_initiator_mifare_cmd(pdi, mc, uiBlock, &mp))
      {
        /** 
         * @note: what about the other key?
         */
        if (bUseKeyA)
            memcpy(mtKeys.amb[uiBlock].mbt.abtKeyA,&mp.mpa.abtKey,6);
        else
            memcpy(mtKeys.amb[uiBlock].mbt.abtKeyB,&mp.mpa.abtKey,6);
        
        return true;
      }
    
      nfc_initiator_select_tag(pdi, IM_ISO14443A_106, mp.mpa.abtUid, 4, NULL);
    }
  }
  
  return false;
}

bool read_card()
{
  int32_t iBlock;
  bool bFailure = false;

  printf("Reading out %d blocks |",uiBlocks+1);

  // Read the card from end to begin
  for (iBlock=uiBlocks; iBlock>=0; iBlock--)
  {
    // Authenticate everytime we reach a trailer block
    if (is_trailer_block(iBlock))
    {
      // Show if the readout went well
      if (bFailure)
      {
        printf("x");
        // When a failure occured we need to redo the anti-collision
        if (!nfc_initiator_select_tag(pdi,IM_ISO14443A_106,NULL,0,&ti))
        {
          printf("!\nError: tag was removed\n");
          return 1;
        }
        bFailure = false;
      } else {
        // Skip this the first time, bFailure it means nothing (yet)
        if (iBlock != uiBlocks)
        {
          printf(".");
        }
      }
      fflush(stdout);
      
      // Try to authenticate for the current sector
      if (!authenticate(iBlock))
      {
        printf("!\nError: authentication failed for block %02x\n",iBlock);
        return false;
      }

      // Try to read out the trailer
      if (nfc_initiator_mifare_cmd(pdi,MC_READ,iBlock,&mp))
      {
        // Copy the keys over from our key dump and store the retrieved access bits
        memcpy(mtDump.amb[iBlock].mbt.abtKeyA,mtKeys.amb[iBlock].mbt.abtKeyA,6);
        memcpy(mtDump.amb[iBlock].mbt.abtAccessBits,mp.mpd.abtData+6,4);
        memcpy(mtDump.amb[iBlock].mbt.abtKeyB,mtKeys.amb[iBlock].mbt.abtKeyB,6);
      }
    } else {
      // Make sure a earlier readout did not fail
      if (!bFailure)
      {
        // Try to read out the data block
        if (nfc_initiator_mifare_cmd(pdi,MC_READ,iBlock,&mp))
        {
          memcpy(mtDump.amb[iBlock].mbd.abtData,mp.mpd.abtData,16);
        } else {
          bFailure = true;
        }
      }
    }
  }
  printf("%c|\n",(bFailure)?'x':'.');
  fflush(stdout);

  return true;
}

bool write_card()
{
  uint32_t uiBlock;
  bool bFailure = false;

  printf("Writing %d blocks |",uiBlocks+1);

  // Write the card from begin to end;
  for (uiBlock=0; uiBlock<=uiBlocks; uiBlock++)
  {
    // Authenticate everytime we reach the first sector of a new block
    if (is_first_block(uiBlock))
    {
      // Show if the readout went well
      if (bFailure)
      {
        printf("x");
        // When a failure occured we need to redo the anti-collision
        if (!nfc_initiator_select_tag(pdi,IM_ISO14443A_106,NULL,0,&ti))
        {
          printf("!\nError: tag was removed\n");
          return false;
        }
        bFailure = false;
      } else {
        // Skip this the first time, bFailure it means nothing (yet)
        if (uiBlock != 0)
        {
          printf(".");
        }
      }
      fflush(stdout);

      // Try to authenticate for the current sector
      if (!authenticate(uiBlock))
      { 
        printf("!\nError: authentication failed for block %02x\n",uiBlock);
        return false;
      }
    }

    if (is_trailer_block(uiBlock))
    {
      // Copy the keys over from our key dump and store the retrieved access bits
      memcpy(mp.mpd.abtData,mtDump.amb[uiBlock].mbt.abtKeyA,6);
      memcpy(mp.mpd.abtData+6,mtDump.amb[uiBlock].mbt.abtAccessBits,4);
      memcpy(mp.mpd.abtData+10,mtDump.amb[uiBlock].mbt.abtKeyB,6);

      // Try to write the trailer
      nfc_initiator_mifare_cmd(pdi,MC_WRITE,uiBlock,&mp);

    } else {

      // The first block 0x00 is read only, skip this
      if (uiBlock == 0) continue;

      // Make sure a earlier write did not fail
      if (!bFailure)
      {
        // Try to write the data block
        memcpy(mp.mpd.abtData,mtDump.amb[uiBlock].mbd.abtData,16);
        if (!nfc_initiator_mifare_cmd(pdi,MC_WRITE,uiBlock,&mp)) bFailure = true;
      }
    }
  }
  printf("%c|\n",(bFailure)?'x':'.');
  fflush(stdout);

  return true;
}

void mifare_classic_extract_payload(const char* abDump, char* pbPayload)
{
  uint8_t uiSectorIndex;
  uint8_t uiBlockIndex;
  size_t szDumpOffset;
  size_t szPayloadIndex = 0;

  for(uiSectorIndex=1; uiSectorIndex<16; uiSectorIndex++) {
    for(uiBlockIndex=0; uiBlockIndex<3; uiBlockIndex++) {
      szDumpOffset = uiSectorIndex*16*4 + uiBlockIndex*16;
//      for(uint8_t uiByteIndex=0; uiByteIndex<16; uiByteIndex++) printf("%02x ", abDump[szPayloadIndex+uiByteIndex]);
      memcpy(pbPayload+szPayloadIndex, abDump+szDumpOffset, 16);
      szPayloadIndex += 16;
    }
  }
}

typedef enum {
  ACTION_READ,
  ACTION_WRITE,
  ACTION_EXPLAIN,
  ACTION_EXTRACT
} action_t;

void print_usage(const char* pcProgramName)
{
  printf("Usage: ");
  printf("%s r|w a|b <dump.mfd> [<keys.mfd>]\n", pcProgramName);
  printf("  r|w           - Perform read from (r) or write to (w) card\n");
  printf("  a|b           - Use A or B keys for action\n");
  printf("  <dump.mfd>    - MiFare Dump (MFD) used to write (card to MFD) or (MFD to card)\n");
  printf("  <keys.mfd>    - MiFare Dump (MFD) that contain the keys (optional)\n");
  printf("Or: ");
  printf("%s x <dump.mfd> <payload.bin>\n", pcProgramName);
  printf("  x             - Extract payload (data blocks) from MFD\n");
  printf("  <dump.mfd>    - MiFare Dump (MFD) that contains wanted payload\n");
  printf("  <payload.bin> - Binary file where payload will be extracted\n");
}

int main(int argc, const char* argv[])
{
  bool b4K;
  action_t atAction;
  byte_t* pbtUID;
  FILE* pfKeys = NULL;
  FILE* pfDump = NULL;

  // printf("Checking arguments and settings\n");

  if(argc < 2)
  {
    print_usage(argv[0]);
    return 1;
  }

  const char* command = argv[1];
  if(strcmp(command, "r") == 0)
  {
    atAction = ACTION_READ;
    bUseKeyA = (tolower(*(argv[2])) == 'a');
    bUseKeyFile = (argc > 4);
  } else if(strcmp(command, "w") == 0) 
  {
    atAction = ACTION_WRITE;
    bUseKeyA = (tolower(*(argv[2])) == 'a');
    bUseKeyFile = (argc > 4);
  } else if(strcmp(command, "e") == 0)
  {
    atAction = ACTION_EXPLAIN;
  } else if(strcmp(command, "x") == 0)
  {
    atAction = ACTION_EXTRACT;
  }

  switch(atAction) {
    case ACTION_READ:
    case ACTION_WRITE:
      if (argc < 4)
      {
        print_usage(argv[0]);
        return 1;
      }

      if (bUseKeyFile)
      {
        pfKeys = fopen(argv[4],"rb");
        if (pfKeys == NULL)
        {
          printf("Could not open keys file: %s\n",argv[4]);
          return 1;
        }
        if (fread(&mtKeys,1,sizeof(mtKeys),pfKeys) != sizeof(mtKeys))
        {
          printf("Could not read keys file: %s\n",argv[4]);
          fclose(pfKeys);
          return 1;
        }
        fclose(pfKeys);
      }
    
      if(atAction == ACTION_READ) {
        memset(&mtDump,0x00,sizeof(mtDump));
      } else {
        pfDump = fopen(argv[3],"rb");
    
        if (pfDump == NULL)
        {
          printf("Could not open dump file: %s\n",argv[3]);
          return 1;
        }
    
        if (fread(&mtDump,1,sizeof(mtDump),pfDump) != sizeof(mtDump))
        {
          printf("Could not read dump file: %s\n",argv[3]);
          fclose(pfDump);
          return 1;
        }
        fclose(pfDump);
      }
      // printf("Successfully opened required files\n");
    
      // Try to open the NFC reader
      pdi = nfc_connect(NULL);
      if (pdi == INVALID_DEVICE_INFO)
      {
        printf("Error connecting NFC reader\n");
        return 1;
      }
    
      nfc_initiator_init(pdi);
    
      // Drop the field for a while
      nfc_configure(pdi,DCO_ACTIVATE_FIELD,false);
    
      // Let the reader only try once to find a tag
      nfc_configure(pdi,DCO_INFINITE_SELECT,false);
      nfc_configure(pdi,DCO_HANDLE_CRC,true);
      nfc_configure(pdi,DCO_HANDLE_PARITY,true);
    
      // Enable field so more power consuming cards can power themselves up
      nfc_configure(pdi,DCO_ACTIVATE_FIELD,true);
    
      printf("Connected to NFC reader: %s\n",pdi->acName);
    
      // Try to find a MIFARE Classic tag
      if (!nfc_initiator_select_tag(pdi,IM_ISO14443A_106,NULL,0,&ti))
      {
        printf("Error: no tag was found\n");
        nfc_disconnect(pdi);
        return 1;
      }
    
      // Test if we are dealing with a MIFARE compatible tag
      if ((ti.tia.btSak & 0x08) == 0)
      {
        printf("Error: tag is not a MIFARE Classic card\n");
        nfc_disconnect(pdi);
        return 1;
      }
    
      if (bUseKeyFile)
      {
        // Get the info from the key dump
        b4K = (mtKeys.amb[0].mbm.abtATQA[1] == 0x02);
        pbtUID = mtKeys.amb[0].mbm.abtUID;
    
        // Compare if key dump UID is the same as the current tag UID
        if (memcmp(ti.tia.abtUid,pbtUID,4) != 0)
        {
          printf("Expected MIFARE Classic %cK card with UID: %08x\n",b4K?'4':'1',swap_endian32(pbtUID));
        }
      }
    
      // Get the info from the current tag
      pbtUID = ti.tia.abtUid;
      b4K = (ti.tia.abtAtqa[1] == 0x02);
      printf("Found MIFARE Classic %cK card with UID: %08x\n",b4K?'4':'1',swap_endian32(pbtUID));
    
      uiBlocks = (b4K)?0xff:0x3f;
    
      if (atAction == ACTION_READ)
      {
        if (read_card())
        {
          printf("Writing data to file: %s\n",argv[3]);
          fflush(stdout);
          pfDump = fopen(argv[3],"wb");
          if (fwrite(&mtDump,1,sizeof(mtDump),pfDump) != sizeof(mtDump))
          {
            printf("Could not write to file: %s\n",argv[3]);
            return 1;
          }
          fclose(pfDump);
          printf("Done, all bytes dumped to file!\n");
        }
      } else {
        if (write_card())
        {
          printf("Done, all data is written to the card!\n");
        }
      }
    
      nfc_disconnect(pdi);
      break;

    case ACTION_EXTRACT: {
      const char* pcDump = argv[2];
      const char* pcPayload = argv[3];

      FILE* pfDump = NULL;
      FILE* pfPayload = NULL;
      
      char abDump[4096];
      char abPayload[4096];

      pfDump = fopen(pcDump,"rb");
    
      if (pfDump == NULL)
      {
        printf("Could not open dump file: %s\n",pcDump);
        return 1;
      }
    
      if (fread(abDump,1,sizeof(abDump),pfDump) != sizeof(abDump))
      {
        printf("Could not read dump file: %s\n",pcDump);
        fclose(pfDump);
        return 1;
      }
      fclose(pfDump);

      mifare_classic_extract_payload(abDump, abPayload);

      printf("Writing data to file: %s\n",pcPayload);
      pfPayload = fopen(pcPayload,"wb");
      if (fwrite(abPayload,1,sizeof(abPayload),pfPayload) != sizeof(abPayload))
      {
        printf("Could not write to file: %s\n",pcPayload);
        return 1;
      }
      fclose(pfPayload);
      printf("Done, all bytes have been extracted!\n");
    }
  };

  return 0;
}