[proxmark3-svn] / client / cmdlfhid.c

//-----------------------------------------------------------------------------
// Copyright (C) 2010 iZsh <izsh at fail0verflow.com>
//
// This code is licensed to you under the terms of the GNU GPL, version 2 or,
// at your option, any later version. See the LICENSE.txt file for the text of
// the license.
//-----------------------------------------------------------------------------
// Low frequency HID commands
//-----------------------------------------------------------------------------

#include <stdio.h>
#include <string.h>
#include "proxmark3.h"
#include "ui.h"
#include "graph.h"
#include "cmdparser.h"
#include "cmdlfhid.h"
#include "util.h"
#include "cmdmain.h"

static int CmdHelp(const char *Cmd);

int usage_hid_wiegand(){
  	PrintAndLog("Usage: lf hid wiegand [h] [formatlenght] [oem] [FacilityCode] [cardnumber]");
	PrintAndLog("This command converts FC/Cardnum to wiegand code");
	PrintAndLog("Options:");
	PrintAndLog("       h			- This help");
	PrintAndLog("       formatlen	- Format length,  26|34|35|37|44|84");
	PrintAndLog("       oem			- Oem number");
	PrintAndLog("       facilitynum	- Facility number");
	PrintAndLog("       cardnum		- Card number");
	PrintAndLog("Examples:");
	PrintAndLog("      lf hid wiegand 26 0 101 2001");
	return 0;
}

/*
int CmdHIDDemod(const char *Cmd)
{
  if (GraphTraceLen < 4800) {
    PrintAndLog("too short; need at least 4800 samples");
    return 0;
  }

  GraphTraceLen = 4800;
  for (int i = 0; i < GraphTraceLen; ++i) {
    if (GraphBuffer[i] < 0) {
      GraphBuffer[i] = 0;
    } else {
      GraphBuffer[i] = 1;
    }
  }
  RepaintGraphWindow();
  return 0;
}
*/
int CmdHIDDemodFSK(const char *Cmd)
{
	int findone = ( Cmd[0] == '1' ) ? 1 : 0;
	UsbCommand c = {CMD_HID_DEMOD_FSK, {findone, 0 , 0}};
	clearCommandBuffer();
	SendCommand(&c);
	return 0;
}

int CmdHIDSim(const char *Cmd)
{
	unsigned int hi = 0, lo = 0;
	int n = 0, i = 0;

	while (sscanf(&Cmd[i++], "%1x", &n ) == 1) {
		hi = (hi << 4) | (lo >> 28);
		lo = (lo << 4) | (n & 0xf);
	}

	PrintAndLog("Emulating tag with ID %x%16x", hi, lo);
	PrintAndLog("Press pm3-button to abort simulation");

	UsbCommand c = {CMD_HID_SIM_TAG, {hi, lo, 0}};
	clearCommandBuffer();
	SendCommand(&c);
	return 0;
}

int CmdHIDClone(const char *Cmd)
{
	unsigned int hi2 = 0, hi = 0, lo = 0;
	int n = 0, i = 0;
	UsbCommand c;

	if (strchr(Cmd,'l') != 0) {
		while (sscanf(&Cmd[i++], "%1x", &n ) == 1) {
			hi2 = (hi2 << 4) | (hi >> 28);
			hi = (hi << 4) | (lo >> 28);
			lo = (lo << 4) | (n & 0xf);
		}

		PrintAndLog("Cloning tag with long ID %x%08x%08x", hi2, hi, lo);

		c.d.asBytes[0] = 1;
	} else {
		while (sscanf(&Cmd[i++], "%1x", &n ) == 1) {
			hi = (hi << 4) | (lo >> 28);
			lo = (lo << 4) | (n & 0xf);
		}

		PrintAndLog("Cloning tag with ID %x%08x", hi, lo);

		hi2 = 0;
		c.d.asBytes[0] = 0;
	}

	c.cmd = CMD_HID_CLONE_TAG;
	c.arg[0] = hi2;
	c.arg[1] = hi;
	c.arg[2] = lo;

	clearCommandBuffer();
	SendCommand(&c);
	return 0;
}

static void getParity26(uint32_t *hi, uint32_t *lo){
	uint32_t result = 0;
	int i;
	// even parity
	for (i = 24;i >= 13;i--)
		result ^= (*lo >> i) & 1;
	// even parity 26th bit
	*lo |= result << 25;

	// odd parity 
	result = 0;
	for (i = 12;i >= 1;i--)
		result ^= (*lo >> i) & 1;
	*lo |= !result;
}
static void getParity34(uint32_t *hi, uint32_t *lo){
	uint32_t result = 0;
	int i;

	// even parity 
	for (i = 7;i >= 0;i--)
		result ^= (*hi >> i) & i;
	for (i = 31;i >= 24;i--)
		result ^= (*lo >> i) & 1;

	*hi |= result << 2; 

	// odd parity bit
	result = 0;
	for (i = 23;i >= 1;i--)
		result ^= (*lo >> i) & 1;

	*lo |= !result;
}
static void getParity35(uint32_t *hi, uint32_t *lo){
	*hi = *hi;
}
static void getParity37S(uint32_t *hi,uint32_t *lo){
	uint32_t result = 0;
	uint8_t i;

	// even parity
	for (i = 4; i >= 0; i--)
		result ^= (*hi >> i) & 1;
	
	for (i = 31; i >= 20; i--)
		result ^= (*lo >> i) & 1;

	*hi |= result;

	// odd parity
	result = 0;
	for (i = 19; i >= 1; i--)
		result ^= (*lo >> i) & 1;

	*lo |= result;
}
static void getParity37H(uint32_t *hi, uint32_t *lo){
	uint32_t result = 0;
	int i;

	// even parity
	for (i = 4;i >= 0;i--)
		result ^= (*hi >> i) & 1;
	for (i = 31;i >= 20;i--)
		result ^= (*lo >> i) & 1;
	*hi |= result << 4;

	// odd parity
	result = 0;
	for (i = 19;i >= 1;i--)
		result ^= (*lo >> i) & 1;
	*lo |= result;
}

static void calc26(uint16_t fc, uint32_t cardno, uint32_t *hi, uint32_t *lo){
   *lo = ((cardno & 0xFFFF) << 1) | ((fc & 0xFF) << 17) | (1 << 26);
   *hi = (1 << 5);
}
static void calc34(uint16_t fc, uint32_t cardno, uint32_t *hi, uint32_t *lo){
  // put card number first bit 1 .. 20 //
  *lo = ((cardno & 0X000F7FFF) << 1) | ((fc & 0XFFFF) << 17);
  // set bit format for less than 37 bit format
  *hi = (1 << 5) | (fc >> 15);
}
static void calc35(uint16_t fc, uint32_t cardno, uint32_t *hi, uint32_t *lo){
	*lo = ((cardno & 0xFFFFF) << 1) | fc << 21; 
	*hi = (1 << 5) | ((fc >> 11) & 1);  
}
static void calc37S(uint16_t sc, uint32_t cn, uint32_t *hi, uint32_t *lo){
	// SC 2 - 17   - 16 bit  
	// CN 18 - 36  - 19 bit
	// Even P1   1 - 19
	// Odd  P37  19 - 36

	sc = sc & 0xFFFF;
	*lo = ( (sc << 20) | (cn & 0x7FFFF) << 1);
	*hi = (sc >> 12);
}
static void calc37H(uint64_t cn, uint32_t *hi, uint32_t *lo){
	// SC NONE
	// CN 1-35 34 bits 
	// Even Parity  0th bit  1-18
	// Odd  Parity 36th bit 19-35
	cn = (cn & 0x00000003FFFFFFFF);
	*lo = (cn << 1);
	*hi = (cn >> 31);
}
static void calc40(uint64_t cn, uint32_t *hi, uint32_t *lo){
	cn = (cn & 0xFFFFFFFFFF);
	*lo = ((cn & 0xFFFFFFFF) << 1 ); 
	*hi = (cn >> 31);  
}

int CmdHIDWiegand(const char *Cmd)
{
	uint32_t oem;
	uint32_t fmtlen = 0;
	uint32_t fc, lo = 0, hi = 0;
	uint64_t cn = 0;
	uint32_t cardnum = 0;
	
	//uint32_t temp, p
	uint8_t ctmp = param_getchar(Cmd, 0);
	if ( strlen(Cmd) < 0 || strlen(Cmd) < 4 || ctmp == 'H' || ctmp == 'h' ) return usage_hid_wiegand();

	fmtlen = param_get8(Cmd, 0);	
	oem = param_get8(Cmd, 1);
	fc = param_get32ex(Cmd, 2, 0, 10);
	cn = param_get64ex(Cmd, 3, 0, 10);

	switch ( fmtlen ) {
		case 26 : {
			cardnum = (cn & 0xFFFFFFFF);
			calc26(fc, cardnum, &hi, &lo);
			getParity26(&hi, &lo);		
			break;
		}
		case 34 : {
			cardnum = (cn & 0xFFFFFFFF);
 			calc34(fc, cardnum, &hi, &lo);
			getParity34(&hi, &lo);		
			break;
		}
		case 35 : {
			cardnum = (cn & 0xFFFFFFFF);
			calc35(fc, cardnum, &hi, &lo);
			getParity35(&hi, &lo);
			break;
		}
		case 37 : {
			cardnum = (cn & 0xFFFFFFFF);
			calc37S(fc, cardnum, &hi, &lo);
			getParity37S(&hi, &lo);
			break;
		}
		case 38 : { 
			cardnum = (cn & 0xFFFFFFFF);
			calc37H(cardnum, &hi, &lo);
			getParity37H(&hi, &lo);
			break;
		}
		case 40 : {
			calc40(cn, &hi, &lo);
			break;
		}
		case 44 : { break; }
		case 84 : { break; }
	}
	PrintAndLog("HID %d bit | FC: %d CN: %lld | Wiegand Code: %08X%08X", fmtlen, fc, cn, hi, lo);
	return 0;
}

static command_t CommandTable[] = {
	{"help",      CmdHelp,        1, "This help"},
	//{"demod",     CmdHIDDemod,    1, "Demodulate HID Prox Card II (not optimal)"},
	{"fskdemod",  CmdHIDDemodFSK, 0, "['1'] Realtime HID FSK demodulator (option '1' for one tag only)"},
	{"sim",       CmdHIDSim,      0, "<ID> -- HID tag simulator"},
	{"clone",     CmdHIDClone,    0, "<ID> ['l'] -- Clone HID to T55x7 (tag must be in antenna)(option 'l' for 84bit ID)"},
	{"wiegand",  CmdHIDWiegand,  1, "<oem> <fmtlen> <fc> <cardnum> -- convert facilitycode, cardnumber to Wiegand code"},
	{NULL, NULL, 0, NULL}
};

int CmdLFHID(const char *Cmd) {
	CmdsParse(CommandTable, Cmd);
	return 0;
}

int CmdHelp(const char *Cmd) {
	CmdsHelp(CommandTable);
	return 0;
}
Commit	Line	Data
a553f267	1	//-----------------------------------------------------------------------------
	2	// Copyright (C) 2010 iZsh <izsh at fail0verflow.com>
	3	//
	4	// This code is licensed to you under the terms of the GNU GPL, version 2 or,
	5	// at your option, any later version. See the LICENSE.txt file for the text of
	6	// the license.
	7	//-----------------------------------------------------------------------------
	8	// Low frequency HID commands
	9	//-----------------------------------------------------------------------------
	10
7fe9b0b7	11	#include <stdio.h>
54a942b0	12	#include <string.h>
902cb3c0	13	#include "proxmark3.h"
7fe9b0b7	14	#include "ui.h"
	15	#include "graph.h"
	16	#include "cmdparser.h"
	17	#include "cmdlfhid.h"
f4fbfb83	18	#include "util.h"
f4fbfb83	19	#include "cmdmain.h"
7fe9b0b7	20
7fe9b0b7	21	static int CmdHelp(const char *Cmd);
f4fbfb83	22
	23	int usage_hid_wiegand(){
	24	PrintAndLog("Usage: lf hid wiegand [h] [formatlenght] [oem] [FacilityCode] [cardnumber]");
	25	PrintAndLog("This command converts FC/Cardnum to wiegand code");
	26	PrintAndLog("Options:");
	27	PrintAndLog(" h - This help");
	28	PrintAndLog(" formatlen - Format length, 26\|34\|35\|37\|44\|84");
	29	PrintAndLog(" oem - Oem number");
	30	PrintAndLog(" facilitynum - Facility number");
	31	PrintAndLog(" cardnum - Card number");
	32	PrintAndLog("Examples:");
fc893f8e	33	PrintAndLog(" lf hid wiegand 26 0 101 2001");
f4fbfb83	34	return 0;
	35	}
	36
2767fc02	37	/*
7fe9b0b7	38	int CmdHIDDemod(const char *Cmd)
	39	{
	40	if (GraphTraceLen < 4800) {
	41	PrintAndLog("too short; need at least 4800 samples");
	42	return 0;
	43	}
	44
	45	GraphTraceLen = 4800;
	46	for (int i = 0; i < GraphTraceLen; ++i) {
	47	if (GraphBuffer[i] < 0) {
	48	GraphBuffer[i] = 0;
	49	} else {
	50	GraphBuffer[i] = 1;
	51	}
	52	}
	53	RepaintGraphWindow();
	54	return 0;
	55	}
2767fc02	56	*/
7fe9b0b7	57	int CmdHIDDemodFSK(const char *Cmd)
7fe9b0b7	58	{
f4fbfb83	59	int findone = ( Cmd[0] == '1' ) ? 1 : 0;
	60	UsbCommand c = {CMD_HID_DEMOD_FSK, {findone, 0 , 0}};
	61	clearCommandBuffer();
	62	SendCommand(&c);
	63	return 0;
7fe9b0b7	64	}
	65
	66	int CmdHIDSim(const char *Cmd)
38b20f75	67	{
f4fbfb83	68	unsigned int hi = 0, lo = 0;
f4fbfb83	69	int n = 0, i = 0;
38b20f75	70
f4fbfb83	71	while (sscanf(&Cmd[i++], "%1x", &n ) == 1) {
	72	hi = (hi << 4) \| (lo >> 28);
	73	lo = (lo << 4) \| (n & 0xf);
	74	}
38b20f75	75
f4fbfb83	76	PrintAndLog("Emulating tag with ID %x%16x", hi, lo);
f4fbfb83	77	PrintAndLog("Press pm3-button to abort simulation");
38b20f75	78
f4fbfb83	79	UsbCommand c = {CMD_HID_SIM_TAG, {hi, lo, 0}};
	80	clearCommandBuffer();
	81	SendCommand(&c);
	82	return 0;
38b20f75	83	}
	84
	85	int CmdHIDClone(const char *Cmd)
7fe9b0b7	86	{
f4fbfb83	87	unsigned int hi2 = 0, hi = 0, lo = 0;
	88	int n = 0, i = 0;
	89	UsbCommand c;
38b20f75	90
f4fbfb83	91	if (strchr(Cmd,'l') != 0) {
	92	while (sscanf(&Cmd[i++], "%1x", &n ) == 1) {
	93	hi2 = (hi2 << 4) \| (hi >> 28);
	94	hi = (hi << 4) \| (lo >> 28);
	95	lo = (lo << 4) \| (n & 0xf);
	96	}
38b20f75	97
f4fbfb83	98	PrintAndLog("Cloning tag with long ID %x%08x%08x", hi2, hi, lo);
38b20f75	99
f4fbfb83	100	c.d.asBytes[0] = 1;
	101	} else {
	102	while (sscanf(&Cmd[i++], "%1x", &n ) == 1) {
	103	hi = (hi << 4) \| (lo >> 28);
	104	lo = (lo << 4) \| (n & 0xf);
	105	}
38b20f75	106
f4fbfb83	107	PrintAndLog("Cloning tag with ID %x%08x", hi, lo);
38b20f75	108
f4fbfb83	109	hi2 = 0;
	110	c.d.asBytes[0] = 0;
	111	}
ec09b62d	112
f4fbfb83	113	c.cmd = CMD_HID_CLONE_TAG;
	114	c.arg[0] = hi2;
	115	c.arg[1] = hi;
	116	c.arg[2] = lo;
	117
	118	clearCommandBuffer();
	119	SendCommand(&c);
	120	return 0;
ec09b62d	121	}
ec09b62d	122
f4fbfb83	123	static void getParity26(uint32_t hi, uint32_t lo){
	124	uint32_t result = 0;
	125	int i;
	126	// even parity
	127	for (i = 24;i >= 13;i--)
	128	result ^= (*lo >> i) & 1;
	129	// even parity 26th bit
	130	*lo \|= result << 25;
	131
	132	// odd parity
	133	result = 0;
	134	for (i = 12;i >= 1;i--)
	135	result ^= (*lo >> i) & 1;
	136	*lo \|= !result;
	137	}
	138	static void getParity34(uint32_t hi, uint32_t lo){
	139	uint32_t result = 0;
	140	int i;
	141
	142	// even parity
	143	for (i = 7;i >= 0;i--)
	144	result ^= (*hi >> i) & i;
	145	for (i = 31;i >= 24;i--)
	146	result ^= (*lo >> i) & 1;
	147
	148	*hi \|= result << 2;
	149
	150	// odd parity bit
	151	result = 0;
	152	for (i = 23;i >= 1;i--)
	153	result ^= (*lo >> i) & 1;
	154
	155	*lo \|= !result;
	156	}
	157	static void getParity35(uint32_t hi, uint32_t lo){
	158	hi = hi;
	159	}
	160	static void getParity37S(uint32_t hi,uint32_t lo){
	161	uint32_t result = 0;
	162	uint8_t i;
	163
	164	// even parity
	165	for (i = 4; i >= 0; i--)
	166	result ^= (*hi >> i) & 1;
	167
	168	for (i = 31; i >= 20; i--)
	169	result ^= (*lo >> i) & 1;
	170
	171	*hi \|= result;
	172
	173	// odd parity
	174	result = 0;
	175	for (i = 19; i >= 1; i--)
	176	result ^= (*lo >> i) & 1;
	177
	178	*lo \|= result;
	179	}
	180	static void getParity37H(uint32_t hi, uint32_t lo){
	181	uint32_t result = 0;
	182	int i;
	183
	184	// even parity
	185	for (i = 4;i >= 0;i--)
	186	result ^= (*hi >> i) & 1;
187	for (i = 31;i >= 20;i--)
188	result ^= (*lo >> i) & 1;
189	*hi \|= result << 4;
190
191	// odd parity
192	result = 0;
193	for (i = 19;i >= 1;i--)
194	result ^= (*lo >> i) & 1;
195	*lo \|= result;
196	}
197
198	static void calc26(uint16_t fc, uint32_t cardno, uint32_t hi, uint32_t lo){
199	*lo = ((cardno & 0xFFFF) << 1) \| ((fc & 0xFF) << 17) \| (1 << 26);
200	*hi = (1 << 5);
201	}
202	static void calc34(uint16_t fc, uint32_t cardno, uint32_t hi, uint32_t lo){
203	// put card number first bit 1 .. 20 //
204	*lo = ((cardno & 0X000F7FFF) << 1) \| ((fc & 0XFFFF) << 17);
205	// set bit format for less than 37 bit format
206	*hi = (1 << 5) \| (fc >> 15);
207	}
208	static void calc35(uint16_t fc, uint32_t cardno, uint32_t hi, uint32_t lo){
209	*lo = ((cardno & 0xFFFFF) << 1) \| fc << 21;
210	*hi = (1 << 5) \| ((fc >> 11) & 1);
211	}
212	static void calc37S(uint16_t sc, uint32_t cn, uint32_t hi, uint32_t lo){
213	// SC 2 - 17 - 16 bit
214	// CN 18 - 36 - 19 bit
215	// Even P1 1 - 19
216	// Odd P37 19 - 36
217
218	sc = sc & 0xFFFF;
219	*lo = ( (sc << 20) \| (cn & 0x7FFFF) << 1);
220	*hi = (sc >> 12);
221	}
222	static void calc37H(uint64_t cn, uint32_t hi, uint32_t lo){
223	// SC NONE
224	// CN 1-35 34 bits
225	// Even Parity 0th bit 1-18
226	// Odd Parity 36th bit 19-35
227	cn = (cn & 0x00000003FFFFFFFF);
228	*lo = (cn << 1);
229	*hi = (cn >> 31);
230	}
231	static void calc40(uint64_t cn, uint32_t hi, uint32_t lo){
232	cn = (cn & 0xFFFFFFFFFF);
fc893f8e	233	*lo = ((cn & 0xFFFFFFFF) << 1 );
fc893f8e	234	*hi = (cn >> 31);
f4fbfb83	235	}
	236
	237	int CmdHIDWiegand(const char *Cmd)
7fe9b0b7	238	{
f4fbfb83	239	uint32_t oem;
	240	uint32_t fmtlen = 0;
	241	uint32_t fc, lo = 0, hi = 0;
	242	uint64_t cn = 0;
	243	uint32_t cardnum = 0;
	244
	245	//uint32_t temp, p
	246	uint8_t ctmp = param_getchar(Cmd, 0);
	247	if ( strlen(Cmd) < 0 \|\| strlen(Cmd) < 4 \|\| ctmp == 'H' \|\| ctmp == 'h' ) return usage_hid_wiegand();
	248
	249	fmtlen = param_get8(Cmd, 0);
	250	oem = param_get8(Cmd, 1);
	251	fc = param_get32ex(Cmd, 2, 0, 10);
	252	cn = param_get64ex(Cmd, 3, 0, 10);
	253
	254	switch ( fmtlen ) {
	255	case 26 : {
	256	cardnum = (cn & 0xFFFFFFFF);
	257	calc26(fc, cardnum, &hi, &lo);
	258	getParity26(&hi, &lo);
	259	break;
	260	}
	261	case 34 : {
	262	cardnum = (cn & 0xFFFFFFFF);
	263	calc34(fc, cardnum, &hi, &lo);
	264	getParity34(&hi, &lo);
	265	break;
	266	}
	267	case 35 : {
	268	cardnum = (cn & 0xFFFFFFFF);
	269	calc35(fc, cardnum, &hi, &lo);
	270	getParity35(&hi, &lo);
	271	break;
	272	}
	273	case 37 : {
	274	cardnum = (cn & 0xFFFFFFFF);
	275	calc37S(fc, cardnum, &hi, &lo);
	276	getParity37S(&hi, &lo);
	277	break;
	278	}
	279	case 38 : {
	280	cardnum = (cn & 0xFFFFFFFF);
	281	calc37H(cardnum, &hi, &lo);
	282	getParity37H(&hi, &lo);
	283	break;
	284	}
	285	case 40 : {
	286	calc40(cn, &hi, &lo);
f4fbfb83	287	break;
	288	}
	289	case 44 : { break; }
	290	case 84 : { break; }
	291	}
fc893f8e	292	PrintAndLog("HID %d bit \| FC: %d CN: %lld \| Wiegand Code: %08X%08X", fmtlen, fc, cn, hi, lo);
f4fbfb83	293	return 0;
	294	}
	295
	296	static command_t CommandTable[] = {
	297	{"help", CmdHelp, 1, "This help"},
	298	//{"demod", CmdHIDDemod, 1, "Demodulate HID Prox Card II (not optimal)"},
	299	{"fskdemod", CmdHIDDemodFSK, 0, "['1'] Realtime HID FSK demodulator (option '1' for one tag only)"},
	300	{"sim", CmdHIDSim, 0, "<ID> -- HID tag simulator"},
	301	{"clone", CmdHIDClone, 0, "<ID> ['l'] -- Clone HID to T55x7 (tag must be in antenna)(option 'l' for 84bit ID)"},
	302	{"wiegand", CmdHIDWiegand, 1, "<oem> <fmtlen> <fc> <cardnum> -- convert facilitycode, cardnumber to Wiegand code"},
	303	{NULL, NULL, 0, NULL}
7fe9b0b7	304	};
7fe9b0b7	305
f4fbfb83	306	int CmdLFHID(const char *Cmd) {
	307	CmdsParse(CommandTable, Cmd);
	308	return 0;
7fe9b0b7	309	}
7fe9b0b7	310
f4fbfb83	311	int CmdHelp(const char *Cmd) {
	312	CmdsHelp(CommandTable);
	313	return 0;
7fe9b0b7	314	}