git.zerfleddert.de Git - proxmark3-svn/blob

1 //-----------------------------------------------------------------------------

2 //

3 // This code is licensed to you under the terms of the GNU GPL, version 2 or,

4 // at your option, any later version. See the LICENSE.txt file for the text of

5 // the license.

6 //-----------------------------------------------------------------------------

7 // Low frequency fdx-b tag commands

8 // Differential Biphase, rf/32, 128 bits (known)

9 //-----------------------------------------------------------------------------

11 #include "cmdlffdx.h"

13 #include <stdio.h>

14 #include <inttypes.h>

15 #include <string.h>

16 #include "proxmark3.h"

17 #include "ui.h" // for PrintAndLog

18 #include "util.h"

19 #include "cmdparser.h"

20 #include "cmddata.h"

21 #include "cmdmain.h"

22 #include "cmdlf.h"

23 #include "crc16.h"

24 #include "protocols.h"

25 #include "lfdemod.h"

27 /*

28 FDX-B ISO11784/85 demod (aka animal tag) BIPHASE, inverted, rf/32, with preamble of 00000000001 (128bits)

29 8 databits + 1 parity (1)

30 CIITT 16 checksum

31 NATIONAL CODE, ICAR database

32 COUNTRY CODE (ISO3166) or http://cms.abvma.ca/uploads/ManufacturersISOsandCountryCodes.pdf

33 FLAG (animal/non-animal)

35 38 IDbits

36 10 country code

37 1 extra app bit

38 14 reserved bits

39 1 animal bit

40 16 ccitt CRC chksum over 64bit ID CODE.

41 24 appli bits.

43 sample: 985121004515220 [ 37FF65B88EF94 ]

44 */

 static int CmdHelp(const char *Cmd);

 int usage_lf_fdx_clone(void){

49 PrintAndLog("Clone a FDX-B animal tag to a T55x7 tag.");

50 PrintAndLog("Usage: lf animal clone [h] <country id> <animal id> <Q5>");

51 PrintAndLog("Options:");

52 PrintAndLog(" h : This help");

53 PrintAndLog(" <country id> : Country id");

54 PrintAndLog(" <animal id> : Animal id");

55 // has extended data?

56 //reserved/rfu

57 //is animal tag

58 // extended data

59 PrintAndLog(" <Q5> : Specify write to Q5 (t5555 instead of t55x7)");

60 PrintAndLog("");

61 PrintAndLog("Sample: lf animal clone 999 112233");

62 return 0;

63 }

 int usage_lf_fdx_sim(void) {

66 PrintAndLog("Enables simulation of FDX-B animal tag");

67 PrintAndLog("Simulation runs until the button is pressed or another USB command is issued.");

68 PrintAndLog("");

69 PrintAndLog("Usage: lf animal sim [h] <country id> <animal id>");

70 PrintAndLog("Options:");

71 PrintAndLog(" h : This help");

72 PrintAndLog(" <country id> : Country ID");

73 PrintAndLog(" <animal id> : Animal ID");

74 PrintAndLog("");

75 PrintAndLog("Sample: lf animal sim 999 112233");

76 return 0;

77 }

78 // clearing the topbit needed for the preambl detection.

 static void verify_values(uint32_t countryid, uint64_t animalid){

         if ((animalid & 0x3FFFFFFFFF) != animalid) {

81 animalid &= 0x3FFFFFFFFF;

                 PrintAndLog("Animal ID Truncated to 38bits: %"PRIx64, animalid);

83 }

         if ( (countryid & 0x3ff) != countryid ) {

85 countryid &= 0x3ff;

                 PrintAndLog("Country ID Truncated to 10bits: %03d", countryid);

87 }

88 }

 int getFDXBits(uint64_t national_id, uint16_t country, uint8_t isanimal, uint8_t isextended, uint32_t extended, uint8_t *bits) {

92 // 128bits

93 // every 9th bit is 0x01, but we can just fill the rest with 0x01 and overwrite

         memset(bits, 0x01, 128);

96 // add preamble ten 0x00 and one 0x01

         memset(bits, 0x00, 10);

99 // add reserved

         num_to_bytebitsLSBF(0x00, 7, bits + 66);

         num_to_bytebitsLSBF(0x00 >> 7, 7, bits + 74);

102

103 // add animal flag - OK

104 bits[65] = isanimal;

105

106 // add extended flag - OK

107 bits[81] = isextended;

108

109 // add national code 40bits - OK

         num_to_bytebitsLSBF(national_id >> 0, 8, bits+11);

         num_to_bytebitsLSBF(national_id >> 8, 8, bits+20);

         num_to_bytebitsLSBF(national_id >> 16, 8, bits+29);

         num_to_bytebitsLSBF(national_id >> 24, 8, bits+38);

         num_to_bytebitsLSBF(national_id >> 32, 6, bits+47);

115

116 // add country code - OK

         num_to_bytebitsLSBF(country >> 0, 2, bits+53);

         num_to_bytebitsLSBF(country >> 2, 8, bits+56);

119

120 // add crc-16 - OK

121 uint8_t raw[8];

         for (uint8_t i=0; i<8; ++i)

                 raw[i] = bytebits_to_byte(bits + 11 + i * 9, 8);

124

         uint16_t crc = crc16_ccitt_kermit(raw, 8);

         num_to_bytebitsLSBF(crc >> 0, 8, bits+83);

         num_to_bytebitsLSBF(crc >> 8, 8, bits+92);

128

129 // extended data - OK

         num_to_bytebitsLSBF( extended >> 0 , 8, bits+101);

         num_to_bytebitsLSBF( extended >> 8 , 8, bits+110);

         num_to_bytebitsLSBF( extended >> 16, 8, bits+119);

133 return 1;

134 }

135

 int CmdFdxDemod(const char *Cmd){

137

138 //Differential Biphase / di-phase (inverted biphase)

139 //get binary from ask wave

         if (!ASKbiphaseDemod("0 32 1 0", false)) {

                 if (g_debugMode) PrintAndLog("DEBUG: Error - FDX-B ASKbiphaseDemod failed");

142 return 0;

143 }

144 size_t size = DemodBufferLen;

         int preambleIndex = FDXBdemodBI(DemodBuffer, &size);

         if (preambleIndex < 0){

147 if (g_debugMode){

                         if (preambleIndex == -1)

149 PrintAndLog("DEBUG: Error - FDX-B too few bits found");

                         else if (preambleIndex == -2)

151 PrintAndLog("DEBUG: Error - FDX-B preamble not found");

                         else if (preambleIndex == -3)

                                 PrintAndLog("DEBUG: Error - FDX-B Size not correct: %d", size);

154 else

                                 PrintAndLog("DEBUG: Error - FDX-B ans: %d", preambleIndex);

156 }

157 return 0;

158 }

159

160 // set and leave DemodBuffer intact

         setDemodBuf(DemodBuffer, 128, preambleIndex);

         setClockGrid(g_DemodClock, g_DemodStartIdx + (preambleIndex*g_DemodClock));

163

164 uint8_t bits_no_spacer[117];

         memcpy(bits_no_spacer, DemodBuffer + 11, 117);

166

167 // remove marker bits (1's every 9th digit after preamble) (pType = 2)

         size = removeParity(bits_no_spacer, 0, 9, 2, 117);

         if ( size != 104 ) {

                 if (g_debugMode) PrintAndLog("DEBUG: Error removeParity:: %d", size);

171 return 0;

172 }

173

174 //got a good demod

         uint64_t NationalCode = ((uint64_t)(bytebits_to_byteLSBF(bits_no_spacer+32,6)) << 32) | bytebits_to_byteLSBF(bits_no_spacer,32);

         uint32_t countryCode = bytebits_to_byteLSBF(bits_no_spacer+38,10);

         uint8_t dataBlockBit = bits_no_spacer[48];

         uint32_t reservedCode = bytebits_to_byteLSBF(bits_no_spacer+49,14);

         uint8_t animalBit = bits_no_spacer[63];

         uint32_t crc16 = bytebits_to_byteLSBF(bits_no_spacer+64,16);

         uint32_t extended = bytebits_to_byteLSBF(bits_no_spacer+80,24);

182

         uint64_t rawid = ((uint64_t)bytebits_to_byte(bits_no_spacer,32)<<32) | bytebits_to_byte(bits_no_spacer+32,32);

184 uint8_t raw[8];

         num_to_bytes(rawid, 8, raw);

186

187 if (g_debugMode) {

                 PrintAndLog("DEBUG: bits_no_spacer:\n%s",sprint_bin_break(bits_no_spacer,size,16));

                 PrintAndLog("DEBUG: Start marker %d;   Size %d", preambleIndex, size);

                 PrintAndLog("DEBUG: Raw ID Hex: %s", sprint_hex(raw,8));

191 }

192

         uint16_t calcCrc = crc16_ccitt_kermit(raw, 8);

         PrintAndLog("\nFDX-B / ISO 11784/5 Animal Tag ID Found:");

         PrintAndLog("Animal ID:     %04u-%012" PRIu64, countryCode, NationalCode);

         PrintAndLog("National Code: %012" PRIu64, NationalCode);

         PrintAndLog("CountryCode:   %04u", countryCode);

         PrintAndLog("Reserved Code: %u", reservedCode);

         PrintAndLog("Animal Tag:    %s", animalBit ? "True" : "False");

         PrintAndLog("Has Extended:  %s [0x%X]", dataBlockBit ? "True" : "False", extended);

         PrintAndLog("CRC:           0x%04X - 0x%04X - [%s]\n", crc16, calcCrc, (calcCrc == crc16) ? "Passed" : "Failed");

202

203 // set block 0 for later

204 //g_DemodConfig = T55x7_MODULATION_DIPHASE | T55x7_BITRATE_RF_32 | 4 << T55x7_MAXBLOCK_SHIFT;

205 return 1;

206 }

207

 int CmdFdxRead(const char *Cmd) {

         lf_read(true, 10000);

210 return CmdFdxDemod(Cmd);

211 }

212

 int CmdFdxClone(const char *Cmd) {

214

215 uint32_t countryid = 0;

216 uint64_t animalid = 0;

         uint32_t blocks[5] = {T55x7_MODULATION_DIPHASE | T55x7_BITRATE_RF_32 | 4 << T55x7_MAXBLOCK_SHIFT, 0, 0, 0, 0};

218 uint8_t bits[128];

219 uint8_t *bs = bits;

         memset(bs, 0, sizeof(bits));

221

         char cmdp = param_getchar(Cmd, 0);

         if (strlen(Cmd) == 0 || cmdp == 'h' || cmdp == 'H') return usage_lf_fdx_clone();

224

         countryid = param_get32ex(Cmd, 0, 0, 10);

         animalid = param_get64ex(Cmd, 1, 0, 10);

227

228 //Q5

         if (param_getchar(Cmd, 2) == 'Q' || param_getchar(Cmd, 2) == 'q') {

230 //t5555 (Q5) BITRATE = (RF-2)/2 (iceman)

                 blocks[0] = T5555_MODULATION_BIPHASE | T5555_INVERT_OUTPUT | ((32-2)>>1) << T5555_BITRATE_SHIFT | 4 << T5555_MAXBLOCK_SHIFT;

232 }

233

234 verify_values(countryid, animalid);

235

236 // getFDXBits(uint64_t national_id, uint16_t country, uint8_t isanimal, uint8_t isextended, uint32_t extended, uint8_t *bits)

         if ( !getFDXBits(animalid, countryid, 1, 0, 0, bs)) {

238 PrintAndLog("Error with tag bitstream generation.");

239 return 1;

240 }

241

242 // convert from bit stream to block data

         blocks[1] = bytebits_to_byte(bs,32);

         blocks[2] = bytebits_to_byte(bs+32,32);

         blocks[3] = bytebits_to_byte(bs+64,32);

         blocks[4] = bytebits_to_byte(bs+96,32);

247

         PrintAndLog("Preparing to clone FDX-B to T55x7 with animal ID: %04u-%"PRIu64, countryid, animalid);

249 PrintAndLog("Blk | Data ");

250 PrintAndLog("----+------------");

         PrintAndLog(" 00 | 0x%08x", blocks[0]);

         PrintAndLog(" 01 | 0x%08x", blocks[1]);

         PrintAndLog(" 02 | 0x%08x", blocks[2]);

         PrintAndLog(" 03 | 0x%08x", blocks[3]);

         PrintAndLog(" 04 | 0x%08x", blocks[4]);

256

257 UsbCommand resp;

         UsbCommand c = {CMD_T55XX_WRITE_BLOCK, {0,0,0}};

259

         for (int i = 4; i >= 0; --i) {

                 c.arg[0] = blocks[i];

                 c.arg[1] = i;

263 clearCommandBuffer();

264 SendCommand(&c);

                 if (!WaitForResponseTimeout(CMD_ACK, &resp, T55XX_WRITE_TIMEOUT)){

266 PrintAndLog("Error occurred, device did not respond during write operation.");

267 return -1;

268 }

269 }

270 return 0;

271 }

272

 int CmdFdxSim(const char *Cmd) {

274 uint32_t countryid = 0;

275 uint64_t animalid = 0;

276

         char cmdp = param_getchar(Cmd, 0);

         if (strlen(Cmd) == 0 || cmdp == 'h' || cmdp == 'H') return usage_lf_fdx_sim();

279

         countryid = param_get32ex(Cmd, 0, 0, 10);

         animalid = param_get64ex(Cmd, 1, 0, 10);

282

283 verify_values(countryid, animalid);

284

         uint8_t clk = 32, encoding = 2, separator = 0, invert = 1;

286 uint16_t arg1, arg2;

287 size_t size = 128;

         arg1 = clk << 8 | encoding;

         arg2 = invert << 8 | separator;

290

         PrintAndLog("Simulating FDX-B animal ID: %04u-%"PRIu64, countryid, animalid);

292

         UsbCommand c = {CMD_ASK_SIM_TAG, {arg1, arg2, size}};

294

295 //getFDXBits(uint64_t national_id, uint16_t country, uint8_t isanimal, uint8_t isextended, uint32_t extended, uint8_t *bits)

         getFDXBits(animalid, countryid, 1, 0, 0, c.d.asBytes);

297 clearCommandBuffer();

298 SendCommand(&c);

299 return 0;

300 }

301

302 static command_t CommandTable[] = {

         {"help",  CmdHelp,    1, "This help"},

         {"demod", CmdFdxDemod,1, "Attempt to extract FDX-B ISO11784/85 data from the GraphBuffer"},

         {"read",  CmdFdxRead, 0, "Attempt to read and extract FDX-B ISO11784/85 data"},

         {"clone", CmdFdxClone,0, "Clone animal ID tag to T55x7 (or to q5/T5555)"},

         {"sim",   CmdFdxSim,  0, "Animal ID tag simulator"},

         {NULL, NULL, 0, NULL}

309 };

310

 int CmdLFFdx(const char *Cmd) {

312 clearCommandBuffer();

313 CmdsParse(CommandTable, Cmd);

314 return 0;

315 }

316

 int CmdHelp(const char *Cmd) {

318 CmdsHelp(CommandTable);

319 return 0;

320 }