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

... / ...

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