//--------------------------------------------------------------------------------
//Routines to support EMV transactions
//--------------------------------------------------------------------------------
-
-#include "mifare.h"
-#include "iso14443a.h"
-#include "emvutil.h"
#include "emvcmd.h"
-#include "apps.h"
-#include "emvdataels.h"
-static emvtags currentcard; //use to hold emv tags for the reader/card during communications
-static tUart Uart;
+static emvcard currentcard; //use to hold emv tags for the reader/card during communications
+
+void EMVTest()
+{
+ uint8_t rats[0x0b] = {0x0b,0x78,0x80,0x81,0x02,0x4b,0x4f,0x4e,0x41, 0x14, 0x11};
+ EMVFuzz_RATS(0xb, rats);
+ //grab card
+ //EMVClone(1,1);
+ /*
+ uint8_t tagvalbuffer[256];
+ uint8_t tagvallen;
+ uint8_t template6F[] = {0x6F,0x00};
+ uint8_t templateA5[] = {0xA5,0x00};
+ uint8_t tag1[] = {0x50,0x00,0x00};
+ uint8_t tag2[] = {0x87,0x00,0x00};
+ uint8_t tag3[] = {0x9f,0x38,0x00};
+ uint8_t tag4[] = {0x5F,0x2D,0x00};
+ uint8_t tag5[] = {0x9F,0x11,0x00};
+ uint8_t tag6[] = {0x9F,0x12,0x00};
+
+ uint8_t tag7[] = {0x84, 0x00};
+ uint8_t tag8[] = {0xA5, 0x00};
+ emv_generatetemplate(templateA5,¤tcard,tagvalbuffer,&tagvallen, 6, tag1, tag2, tag3, tag4, tag5, tag6);
+ memcpy(currentcard.tag_A5, tagvalbuffer+2, tagvallen-2);
+ currentcard.tag_A5_len = tagvallen-2;
+ emv_generatetemplate(template6F,¤tcard,currentcard.tag_6F ,¤tcard.tag_6F_len, 2, tag7, tag8);
+ Dbprintf("TAG A5=");
+ Dbhexdump(currentcard.tag_A5_len,currentcard.tag_A5 , false);
+ */
+ //EMVSim();
+}
-// The FPGA will report its internal sending delay in
-uint16_t FpgaSendQueueDelay;
-//variables used for timing purposes:
-//these are in ssp_clk cycles:
-//static uint32_t NextTransferTime;
-static uint32_t LastTimeProxToAirStart;
-//static uint32_t LastProxToAirDuration;
//load individual tag into current card
void EMVloadvalue(uint32_t tag, uint8_t *datain){
emv_settag(tag, datain, ¤tcard);
}
-void EMVReadRecord(uint8_t arg0, uint8_t arg1,emvtags *currentcard)
+void EMVReadRecord(uint8_t arg0, uint8_t arg1,emvcard *currentcard)
{
uint8_t record = arg0;
- uint8_t sfi = arg1 & 0x0F; //convert arg1 to number
- uint8_t receivedAnswer[MAX_FRAME_SIZE];
-
- //uint8_t receivedAnswerPar[MAX_PARITY_SIZE];
-
- //variables
- tlvtag inputtag; //create the tag structure
- //perform read
- //write the result to the provided card
- if(!emv_readrecord(record,sfi,receivedAnswer)) {
- if(EMV_DBGLEVEL >= 1) Dbprintf("readrecord failed");
+ uint8_t sfi = arg1 & 0x0F; // convert arg1 to number
+ uint8_t *resp = BigBuf_malloc(256);
+ // variables
+ tlvtag inputtag; // create the tag structure
+ LED_A_ON();
+ LED_B_OFF();
+ LED_C_OFF();
+
+ // perform read
+ // write the result to the provided card
+ while(true) {
+ if(!emv_readrecord(record, sfi, resp)) {
+ if(MF_DBGLEVEL >= 1) Dbprintf("readrecord failed");
}
- if(*(receivedAnswer+1) == 0x70){
- decode_ber_tlv_item(receivedAnswer+1, &inputtag);
+ if(*(resp+1) == 0x70){
+ decode_ber_tlv_item(resp+1, &inputtag);
emv_decode_field(inputtag.value, inputtag.valuelength, currentcard);
}
else
{
- if(EMV_DBGLEVEL >= 1)
+ if(MF_DBGLEVEL >= 1)
Dbprintf("Record not found SFI=%i RECORD=%i", sfi, record);
}
- return;
+ LED_B_ON();
+ LED_B_OFF();
+ break;
+ }
+ LEDsoff();
}
-void EMVSelectAID(uint8_t *AID, uint8_t AIDlen, emvtags* inputcard)
-{
- uint8_t receivedAnswer[MAX_FRAME_SIZE];
- //uint8_t receivedAnswerPar[MAX_PARITY_SIZE];
-
- //variables
- tlvtag inputtag; //create the tag structure
- //perform select
- if(!emv_select(AID, AIDlen, receivedAnswer)){
- if(EMV_DBGLEVEL >= 1) Dbprintf("AID Select failed");
- return;
- }
- //write the result to the provided card
- if(*(receivedAnswer+1) == 0x6F){
- //decode the 6F template
- decode_ber_tlv_item(receivedAnswer+1, &inputtag);
- //store 84 and A5 tags
- emv_decode_field(inputtag.value, inputtag.valuelength, ¤tcard);
- //decode the A5 tag
- if(currentcard.tag_A5_len > 0)
- emv_decode_field(currentcard.tag_A5, currentcard.tag_A5_len, ¤tcard);
+void EMVSelectAID(uint8_t *AID, uint8_t AIDlen, emvcard* inputcard)
+{
+ uint8_t* resp = BigBuf_malloc(256);
+ // variables
+ tlvtag inputtag; // create the tag structure
+ LED_A_ON();
+ LED_B_OFF();
+ LED_C_OFF();
+
+ while(true) {
+
+ if(!emv_select(AID, AIDlen, resp)){
+ if(MF_DBGLEVEL == 1) DbpString("AID Select failed");
+ break;
+ }
+
+ // write the result to the provided card
+ if(*(resp+1) == 0x6F){
+ // decode the 6F template
+ decode_ber_tlv_item(resp+1, &inputtag);
+
+ // store 84 and A5 tags
+ emv_decode_field(inputtag.value, inputtag.valuelength, ¤tcard);
+
+ // decode the A5 tag
+ if(currentcard.tag_A5_len > 0)
+ emv_decode_field(currentcard.tag_A5, currentcard.tag_A5_len, ¤tcard);
- //copy this result to the DFName
- if(currentcard.tag_84_len == 0)
- memcpy(currentcard.tag_DFName, currentcard.tag_84, currentcard.tag_84_len);
+ // copy this result to the DFName
+ if(currentcard.tag_84_len == 0)
+ memcpy(currentcard.tag_DFName, currentcard.tag_84, currentcard.tag_84_len);
- //decode the BF0C result, assuming 1 directory entry for now
- if(currentcard.tag_BF0C_len !=0){
- emv_decode_field(currentcard.tag_BF0C, currentcard.tag_BF0C_len, ¤tcard);}
- //retrieve the AID, use the AID to decide what transaction flow to use
- if(currentcard.tag_61_len !=0){
- emv_decode_field(currentcard.tag_61, currentcard.tag_61_len, ¤tcard);}
+ // decode the BF0C result, assuming 1 directory entry for now
+ if(currentcard.tag_BF0C_len !=0){
+ emv_decode_field(currentcard.tag_BF0C, currentcard.tag_BF0C_len, ¤tcard);}
+
+ // retrieve the AID, use the AID to decide what transaction flow to use
+ if(currentcard.tag_61_len !=0)
+ emv_decode_field(currentcard.tag_61, currentcard.tag_61_len, ¤tcard);
+ }
+ LED_B_ON();
+ LED_B_OFF();
+ break;
+ }
+
+ if(MF_DBGLEVEL >= 2) DbpString("SELECT AID COMPLETED");
+ LEDsoff();
+}
+
+void EMVSelectPPSE()
+{
+ while(true) {
+ if(!emv_selectPPSE()) {
+ if(MF_DBGLEVEL >= 1) DbpString("PPSE failed");
+ break;
+ }
+
+ LED_B_ON();
+ LED_B_OFF();
+ break;
}
- if(EMV_DBGLEVEL >= 2)
- DbpString("SELECT AID COMPLETED");
+ if(MF_DBGLEVEL >= 2) DbpString("SELECT PPSE COMPLETED");
+ LEDsoff();
}
-int EMVGetProcessingOptions(uint8_t *PDOL, uint8_t PDOLlen, emvtags* inputcard)
+int EMVGetProcessingOptions(uint8_t *PDOL, uint8_t PDOLlen, emvcard* inputcard)
{
uint8_t receivedAnswer[MAX_FRAME_SIZE];
- //uint8_t receivedAnswerPar[MAX_PARITY_SIZE];
- //variables
+ // variables
tlvtag inputtag; //create the tag structure
- //perform pdol
+ // perform pdol
if(!emv_getprocessingoptions(PDOL, PDOLlen, receivedAnswer)){
- if(EMV_DBGLEVEL >= 1) Dbprintf("get processing options failed");
+ if(MF_DBGLEVEL >= 1) Dbprintf("get processing options failed");
return 0;
}
- //write the result to the provided card
- //FORMAT 1 received
+ // write the result to the provided card
+ // FORMAT 1 received
if(receivedAnswer[1] == 0x80){
- //store AIP
- //decode tag 80
+ // store AIP
+ // decode tag 80
decode_ber_tlv_item(receivedAnswer+1, &inputtag);
memcpy(currentcard.tag_82, &inputtag.value, sizeof(currentcard.tag_82));
memcpy(currentcard.tag_94, &inputtag.value[2], inputtag.valuelength - sizeof(currentcard.tag_82));
currentcard.tag_94_len = inputtag.valuelength - sizeof(currentcard.tag_82);
}
else if(receivedAnswer[1] == 0x77){
- //decode the 77 template
+ // decode the 77 template
decode_ber_tlv_item(receivedAnswer+1, &inputtag);
- //store 82 and 94 tags (AIP, AFL)
+ // store 82 and 94 tags (AIP, AFL)
emv_decode_field(inputtag.value, inputtag.valuelength, ¤tcard);
}
- if(EMV_DBGLEVEL >= 2)
+ if(MF_DBGLEVEL >= 2)
DbpString("GET PROCESSING OPTIONS COMPLETE");
return 1;
}
-int EMVGetChallenge(emvtags* inputcard)
+int EMVGetChallenge(emvcard* inputcard)
{
uint8_t receivedAnswer[MAX_FRAME_SIZE];
- //uint8_t receivedAnswerPar[MAX_PARITY_SIZE];
- //variables
- //tlvtag inputtag; //create the tag structure
- //perform select
+ // variables
+ // tlvtag inputtag; //create the tag structure
+ // perform select
if(!emv_getchallenge(receivedAnswer)){
- if(EMV_DBGLEVEL >= 1) Dbprintf("get processing options failed");
+ if(MF_DBGLEVEL >= 1) Dbprintf("get processing options failed");
return 1;
}
return 0;
}
-int EMVGenerateAC(uint8_t refcontrol, emvtags* inputcard)
+int EMVGenerateAC(uint8_t refcontrol, emvcard* inputcard)
{
uint8_t receivedAnswer[MAX_FRAME_SIZE];
uint8_t cdolcommand[MAX_FRAME_SIZE];
uint8_t cdolcommandlen = 0;
tlvtag temptag;
- //uint8_t receivedAnswerPar[MAX_PARITY_SIZE];
if(currentcard.tag_8C_len > 0) {
emv_generateDOL(currentcard.tag_8C, currentcard.tag_8C_len, ¤tcard, cdolcommand, &cdolcommandlen); }
else{
- //cdolcommand = NULL; //cdol val is null
+ // cdolcommand = NULL; //cdol val is null
cdolcommandlen = 0;
}
- //variables
- //tlvtag inputtag; //create the tag structure
- //perform select
+ // variables
+ // tlvtag inputtag; //create the tag structure
+ // perform select
if(!emv_generateAC(refcontrol, cdolcommand, cdolcommandlen,receivedAnswer)){
- if(EMV_DBGLEVEL >= 1) Dbprintf("get processing options failed");
+ if(MF_DBGLEVEL >= 1) Dbprintf("get processing options failed");
return 1;
}
if(receivedAnswer[2] == 0x77) //format 2 data field returned
//takes in TTQ, amount authorised, unpredicable number and transaction currency code
int EMV_PaywaveTransaction()
{
- uint8_t cardMode = 0;
- //determine mode of transaction from TTQ
- if((currentcard.tag_9F66[0] & 0x40) == 0x40) {
- cardMode = VISA_EMV;
- }
- else if((currentcard.tag_9F66[0] & 0x20) == 0x20) {
- cardMode = VISA_FDDA;
- }
- else if((currentcard.tag_9F66[0] & 0x80) == 0x80) {
- if((currentcard.tag_9F66[1] & 0x80) == 1) { //CVN17
- cardMode = VISA_CVN17;
- }
- else{
- cardMode = VISA_DCVV;
- }
+ uint8_t *resp = BigBuf_malloc(256);
+ tlvtag temptag;
+ //get the current block counter
+ //select the AID (Mastercard
+ EMVSelectAID(currentcard.tag_4F,currentcard.tag_4F_len, ¤tcard);
+
+ if(resp[1] == 0x6F){ //decode template
+ decode_ber_tlv_item(&resp[1], &temptag);
+ //decode 84 and A5 tags
+ emv_decode_field(temptag.value, temptag.valuelength, ¤tcard);
+ //decode the A5 tag
+ emv_decode_field(currentcard.tag_A5, currentcard.tag_A5_len, ¤tcard);
+ //decode the BF0C result, assuming 1 directory entry for now
+ //retrieve the AID
}
-
- EMVSelectAID(currentcard.tag_4F,currentcard.tag_4F_len, ¤tcard); //perform second AID command
-
- //get PDOL
+ // get PDOL
uint8_t pdolcommand[20]; //20 byte buffer for pdol data
uint8_t pdolcommandlen = 0;
if(currentcard.tag_9F38_len > 0) {
emv_generateDOL(currentcard.tag_9F38, currentcard.tag_9F38_len, ¤tcard, pdolcommand, &pdolcommandlen);
+ } else {
+ pdolcommandlen = 0;
}
- Dbhexdump(pdolcommandlen, pdolcommand,false);
- if(!EMVGetProcessingOptions(pdolcommand,pdolcommandlen, ¤tcard)) {
- if(EMV_DBGLEVEL >= 1) Dbprintf("PDOL failed");
+ if(!EMVGetProcessingOptions(pdolcommand, pdolcommandlen, ¤tcard)) {
+ if(MF_DBGLEVEL >= 1) Dbprintf("PDOL failed");
return 1;
}
-
+ if(resp[1] == 0x80) //format 1 data field returned
+ {
+ memcpy(currentcard.tag_82, &resp[3],2); //copy AIP
+ currentcard.tag_94_len = resp[2]-2; //AFL len
+ memcpy(currentcard.tag_94, &resp[5], currentcard.tag_94_len); //copy AFL
+ }
+ else if(resp[1] == 0x77) //format 2 data field returned
+ {
+ decode_ber_tlv_item(&resp[1], &temptag);
+ emv_decode_field(temptag.value, temptag.valuelength, ¤tcard);
+ }
+ else
+ {
+ //throw an error
+ }
Dbprintf("AFL=");
Dbhexdump(currentcard.tag_94_len, currentcard.tag_94,false);
Dbprintf("AIP=");
Dbhexdump(2, currentcard.tag_82, false);
emv_decodeAIP(currentcard.tag_82);
//
-// //decode the AFL list and read records
- uint8_t i = 0;
- uint8_t sfi = 0;
- uint8_t recordstart = 0;
- uint8_t recordend = 0;
- if(currentcard.tag_94_len > 0){
- while( i < currentcard.tag_94_len){
- sfi = (currentcard.tag_94[i++] & 0xF8) >> 3;
- recordstart = currentcard.tag_94[i++];
- recordend = currentcard.tag_94[i++];
- for(int j=recordstart; j<(recordend+1); j++){
- //read records
- EMVReadRecord(j,sfi, ¤tcard);
- //while(responsebuffer[0] == 0xF2) {
- // EMVReadRecord(j,sfi, ¤tcard);
- //}
- }
- i++;
- }
- }
- else {
- EMVReadRecord(1,1,¤tcard);
- EMVReadRecord(1,2,¤tcard);
- EMVReadRecord(1,3,¤tcard);
- EMVReadRecord(2,1,¤tcard);
- EMVReadRecord(2,2,¤tcard);
- EMVReadRecord(2,3,¤tcard);
- EMVReadRecord(3,1,¤tcard);
- EMVReadRecord(3,3,¤tcard);
- EMVReadRecord(4,2,¤tcard);
+// decode the AFL list and read records
+
+ //record, sfi
+ EMVReadRecord(1,1,¤tcard);
+ Dbhexdump(200, resp, false);
+ EMVReadRecord(2,1,¤tcard);
+ Dbhexdump(200, resp,false);
+ EMVReadRecord( 1,2, ¤tcard);
+ Dbhexdump(200, resp,false);
+ EMVReadRecord(2,2,¤tcard);
+ Dbhexdump(200, resp,false);
+ EMVReadRecord( 3,2, ¤tcard);
+ Dbhexdump(200, resp,false);
+ EMVReadRecord( 4,2, ¤tcard);
+ Dbhexdump(200, resp,false);
+ EMVReadRecord( 1,3, ¤tcard);
+ Dbhexdump(200, resp,false);
+ EMVReadRecord(2,3,¤tcard);
+ Dbhexdump(200, resp,false);
+ EMVReadRecord(4,2,¤tcard);
+ EMVReadRecord( 1,3, ¤tcard);
+ Dbhexdump(200, resp,false);
+
+ //DDA supported, so read more records
+ if((currentcard.tag_82[0] & AIP_CDA_SUPPORTED) == AIP_CDA_SUPPORTED){
+ EMVReadRecord( 1,4, ¤tcard);
+ EMVReadRecord( 2,4, ¤tcard);
}
- //EMVGetChallenge(¤tcard);
- //memcpy(currentcard.tag_9F4C,&responsebuffer[1],8); // ICC UN
- EMVGenerateAC(0x81,¤tcard);
- Dbprintf("CARDMODE=%i",cardMode);
+
+ emv_decodeCVM(currentcard.tag_8E, currentcard.tag_8E_len);
+ /* get ICC dynamic data */
+ //if((currentcard.tag_82[0] & AIP_CDA_SUPPORTED) == AIP_CDA_SUPPORTED)
+ {
+ //DDA supported, so perform GENERATE AC
+ uint8_t cdolcommand[40]; //20 byte buffer for pdol data
+ uint8_t cdolcommandlen;
+ //generate the iCC UN
+ EMVGetChallenge(¤tcard);
+
+ memcpy(currentcard.tag_9F37,&resp[1],8); // ICC UN
+ memcpy(currentcard.tag_9F4C,&resp[1],8); // ICC UN
+ if(currentcard.tag_8C_len > 0) {
+ emv_generateDOL(currentcard.tag_8C, currentcard.tag_8C_len, ¤tcard, cdolcommand, &cdolcommandlen);
+ } else {
+ cdolcommandlen = 0;
+ }
+ Dbhexdump(currentcard.tag_8C_len, currentcard.tag_8C,false);
+ Dbhexdump(cdolcommandlen, cdolcommand,false);
+
+ EMVGenerateAC(0x41, ¤tcard);
+
+ Dbhexdump(100, resp,false);
+ }
return 0;
}
-
int EMV_PaypassTransaction()
{
- //uint8_t *responsebuffer = emv_get_bigbufptr();
- //tlvtag temptag; //buffer for decoded tags
- //get the current block counter
- //select the AID (Mastercard
+ uint8_t *resp = BigBuf_malloc(256);
+ tlvtag temptag; //buffer for decoded tags
+ // get the current block counter
+ // select the AID (Mastercard
EMVSelectAID(currentcard.tag_4F,currentcard.tag_4F_len, ¤tcard);
- //get PDOL
- uint8_t pdolcommand[20]; //20 byte buffer for pdol data
+ if(resp[1] == 0x6F){ //decode template
+ decode_ber_tlv_item(&resp[1], &temptag);
+ //decode 84 and A5 tags
+ emv_decode_field(temptag.value, temptag.valuelength, ¤tcard);
+ //decode the A5 tag
+ emv_decode_field(currentcard.tag_A5, currentcard.tag_A5_len, ¤tcard);
+ //decode the BF0C result, assuming 1 directory entry for now
+ //retrieve the AID
+ }
+ // get PDOL
+ uint8_t pdolcommand[20]; // 20 byte buffer for pdol data
uint8_t pdolcommandlen = 0;
if(currentcard.tag_9F38_len > 0) {
emv_generateDOL(currentcard.tag_9F38, currentcard.tag_9F38_len, ¤tcard, pdolcommand, &pdolcommandlen);
+ } else {
+ pdolcommandlen = 0;
}
if(EMVGetProcessingOptions(pdolcommand,pdolcommandlen, ¤tcard)) {
- if(EMV_DBGLEVEL >= 1) Dbprintf("PDOL failed");
+ if(MF_DBGLEVEL >= 1) Dbprintf("PDOL failed");
return 1;
}
-
+ if(resp[1] == 0x80) //format 1 data field returned
+ {
+ memcpy(currentcard.tag_82, &resp[3],2); //copy AIP
+ currentcard.tag_94_len = resp[2]-2; //AFL len
+ memcpy(currentcard.tag_94, &resp[5],currentcard.tag_94_len); //copy AFL
+ }
+ else if(resp[1] == 0x77) //format 2 data field returned
+ {
+ decode_ber_tlv_item(&resp[1], &temptag);
+ emv_decode_field(temptag.value, temptag.valuelength, ¤tcard);
+ }
+ else
+ {
+ //throw an error
+ }
Dbprintf("AFL=");
Dbhexdump(currentcard.tag_94_len, currentcard.tag_94,false);
Dbprintf("AIP=");
Dbhexdump(2, currentcard.tag_82, false);
emv_decodeAIP(currentcard.tag_82);
- //decode the AFL list and read records
- uint8_t i = 0;
- uint8_t sfi = 0;
- uint8_t recordstart = 0;
- uint8_t recordend = 0;
-
- while( i< currentcard.tag_94_len){
- sfi = (currentcard.tag_94[i++] & 0xF8) >> 3;
- recordstart = currentcard.tag_94[i++];
- recordend = currentcard.tag_94[i++];
- for(int j=recordstart; j<(recordend+1); j++){
- //read records
- EMVReadRecord(j,sfi, ¤tcard);
- //while(responsebuffer[0] == 0xF2) {
- // EMVReadRecord(j,sfi, ¤tcard);
- //}
- }
- i++;
+ // decode the AFL list and read records
+
+ //record, sfi
+ EMVReadRecord( 1,1, ¤tcard);
+ EMVReadRecord( 1,2, ¤tcard);
+ EMVReadRecord( 1,3, ¤tcard);
+ EMVReadRecord( 2,3, ¤tcard);
+
+ //DDA supported, so read more records
+ if((currentcard.tag_82[0] & AIP_CDA_SUPPORTED) == AIP_CDA_SUPPORTED){
+ EMVReadRecord( 1,4, ¤tcard);
+ EMVReadRecord( 2,4, ¤tcard);
}
+
+
/* get ICC dynamic data */
if((currentcard.tag_82[0] & AIP_CDA_SUPPORTED) == AIP_CDA_SUPPORTED)
{
- //DDA supported, so perform GENERATE AC
- //generate the iCC UN
+ // DDA supported, so perform GENERATE AC
+ uint8_t cdolcommand[40]; //20 byte buffer for pdol data
+ uint8_t cdolcommandlen;
+ // generate the iCC UN
EMVGetChallenge(¤tcard);
- //memcpy(currentcard.tag_9F4C,&responsebuffer[1],8); // ICC UN
- EMVGenerateAC(0x80,¤tcard);
-
+ memcpy(currentcard.tag_9F4C, &resp[1],8); // ICC UN
+
+ if(currentcard.tag_8C_len > 0) {
+ emv_generateDOL(currentcard.tag_8C, currentcard.tag_8C_len, ¤tcard, cdolcommand, &cdolcommandlen);
+ } else {
+ cdolcommandlen = 0;
+ }
+ EMVGenerateAC(0x80, ¤tcard);
+
+ if(resp[1] == 0x77) //format 2 data field returned
+ {
+ decode_ber_tlv_item(&resp[1], &temptag);
+ emv_decode_field(temptag.value, temptag.valuelength, ¤tcard);
+ }
- //generate AC2
- //if(currentcard.tag_8D_len > 0) {
- // emv_generateDOL(currentcard.tag_8D, currentcard.tag_8D_len, ¤tcard, cdolcommand, &cdolcommandlen); }
- //else{
- // //cdolcommand = NULL; //cdol val is null
- // cdolcommandlen = 0;
- //}
- //emv_generateAC(0x80, cdolcommand,cdolcommandlen, ¤tcard);
+ // generate AC2
+ if(currentcard.tag_8D_len > 0) {
+ emv_generateDOL(currentcard.tag_8D, currentcard.tag_8D_len, ¤tcard, cdolcommand, &cdolcommandlen); }
+ else{
+ //cdolcommand = NULL; //cdol val is null
+ cdolcommandlen = 0;
+ }
+
+ EMVGenerateAC(0x80, ¤tcard);
- //if(responsebuffer[1] == 0x77) //format 2 data field returned
- //{
- // decode_ber_tlv_item(&responsebuffer[1], &temptag);
- // emv_decode_field(temptag.value, temptag.valuelength, ¤tcard);
- //}
+ if(resp[1] == 0x77) //format 2 data field returned
+ {
+ decode_ber_tlv_item(&resp[1], &temptag);
+ emv_decode_field(temptag.value, temptag.valuelength, ¤tcard);
+ }
+ }
+ // generate cryptographic checksum
+ uint8_t udol[4] = {0x00,0x00,0x00,0x00};
+
+ emv_computecryptogram(udol, sizeof(udol), resp);
+
+ if(resp[1] == 0x77) //format 2 data field returned
+ {
+ decode_ber_tlv_item(&resp[1], &temptag);
+ emv_decode_field(temptag.value, temptag.valuelength, ¤tcard);
}
- //generate cryptographic checksum
- //uint8_t udol[4] = {0x00,0x00,0x00,0x00};
- //emv_computecryptogram(udol, sizeof(udol));
- //if(responsebuffer[1] == 0x77) //format 2 data field returned
- //{
- // decode_ber_tlv_item(&responsebuffer[1], &temptag);
- // emv_decode_field(temptag.value, temptag.valuelength, ¤tcard);
- //}
return 0;
}
clear_trace();
set_tracing(TRUE);
+
+ uint8_t *resp = BigBuf_malloc(256);
+ //variables
+ tlvtag temptag; //used to buffer decoded tag valuesd
+ //initialize the emv card structure
+ //extern emvcard currentcard;
+
+ memset(¤tcard, 0x00, sizeof(currentcard)); //set all to zeros
+ memcpy(currentcard.tag_9F66,"\xD7\x20\xC0\x00",4);
+ memcpy(currentcard.tag_9F02,"\x00\x00\x00\x00\x00\x20",6); //20 dollars
+ memcpy(currentcard.tag_9F37, "\x01\x02\x03\x04", 4); //UN
+ memcpy(currentcard.tag_5F2A, "\x00\x36",2); //currency code
+ //CDOL stuff
+ memcpy(currentcard.tag_9F03,"\x00\x00\x00\x00\x00\x00",6);
+ memcpy(currentcard.tag_9F1A,"\x00\x36",2); //country code
+ memcpy(currentcard.tag_95,"\x00\x00\x00\x00\x00",5); //TVR
+ memcpy(currentcard.tag_9A,"\x14\x04\x01",3); //date
+ memcpy(currentcard.tag_9C,"\x00",1); //processingcode;
+ memcpy(currentcard.tag_9F45, "\x00\x00", 2); //Data Authentication Code
+ memset(currentcard.tag_9F4C,0x00,8); // ICC UN
+ memcpy(currentcard.tag_9F35,"\x12",1);
+ memcpy(currentcard.tag_9F34,"\x3F\x00\x00", 3); //CVM
+
+
LED_A_ON();
LED_B_OFF();
LED_C_OFF();
iso14443a_setup(FPGA_HF_ISO14443A_READER_LISTEN);
+
while(true) {
- if(!iso14443a_select_card(uid,NULL,&cuid)) {
- if(EMV_DBGLEVEL >= 1) Dbprintf("Can't select card");
+ if(!iso14443a_select_card(uid, NULL, &cuid, true, 0)) {
+ if(MF_DBGLEVEL >= 1) Dbprintf("Can't select card");
break;
}
- //selectPPSE
- EMVSelectAID((uint8_t *)DF_PSE, 14, ¤tcard); //hard coded len
+ EMVSelectPPSE();
//get response
+ if (resp[1] == 0x6F){ //decode template
+ decode_ber_tlv_item(&resp[1], &temptag);
+ //decode 84 and A5 tags
+ emv_decode_field(temptag.value, temptag.valuelength, ¤tcard);
+ //decode the A5 tag
+ emv_decode_field(currentcard.tag_A5, currentcard.tag_A5_len, ¤tcard);
+ //decode the BF0C result, assuming 1 directory entry for now
+ if(currentcard.tag_BF0C_len !=0){
+ emv_decode_field(currentcard.tag_BF0C, currentcard.tag_BF0C_len, ¤tcard);}
+ //retrieve the AID, use the AID to decide what transaction flow to use
+ if(currentcard.tag_61_len !=0){
+ emv_decode_field(currentcard.tag_61, currentcard.tag_61_len, ¤tcard);}
+ }
if (!memcmp(currentcard.tag_4F, AID_MASTERCARD, sizeof(AID_MASTERCARD))){
Dbprintf("Mastercard Paypass Card Detected");
EMV_PaypassTransaction();
EMV_PaywaveTransaction();
}
//TODO: add other card schemes like AMEX, JCB, China Unionpay etc
+ LED_B_ON();
+ //output the sensitive data
+ cmd_send(CMD_ACK, 0, 0,0,resp,100);
+ LED_B_OFF();
break;
}
- if (EMV_DBGLEVEL >= 2) DbpString("EMV TRANSACTION FINISHED");
+ if (MF_DBGLEVEL >= 2) DbpString("EMV TRANSACTION FINISHED");
//finish up
FpgaWriteConfWord(FPGA_MAJOR_MODE_OFF);
LEDsoff();
void EMVdumpcard(void){
dumpCard(¤tcard);
}
+
+//EMV clone a card - read up to the max SFI and max records for that SFI
+void EMVClone(uint8_t maxsfi, uint8_t maxrecord)
+{
+ //params
+ uint8_t uid[10];
+ uint32_t cuid;
+ uint8_t *resp = BigBuf_malloc(256);
+ iso14a_card_select_t hi14a_card; //card select values
+ //variables
+ tlvtag temptag; //used to buffer decoded tag valuesd
+
+ memset(¤tcard, 0x00, sizeof(currentcard)); //set all to zeros
+ //memcpy(currentcard.tag_9F66,"\x20\x00\x00\x00",4);
+ memcpy(currentcard.tag_9F66,"\xD7\x20\xC0\x00",4);
+ //memcpy(currentcard.tag_9F66,"\xC0\x00\x00\x00",2);
+ memcpy(currentcard.tag_9F02,"\x00\x00\x00\x00\x00\x20",6); //20 dollars
+ memcpy(currentcard.tag_9F37, "\x01\x02\x03\x04", 4); //UN
+ memcpy(currentcard.tag_5F2A, "\x00\x36",2); //currency code
+ //CDOL stuff
+ //memcpy(currentcard.tag_9F02,"\x00\x00\x00\x00\x00\x20",6);
+ memcpy(currentcard.tag_9F03,"\x00\x00\x00\x00\x00\x00",6);
+ memcpy(currentcard.tag_9F1A,"\x00\x36",2); //country code
+ memcpy(currentcard.tag_95,"\x00\x00\x00\x00\x00",5); //TVR
+ //memcpy(currentcard.tag_5F2A,"\x00\x36",2);
+ memcpy(currentcard.tag_9A,"\x14\x04x01",3); //date
+ memcpy(currentcard.tag_9C,"\x00",1); //processingcode;
+ memcpy(currentcard.tag_9F45, "\x00\x00", 2); //Data Authentication Code
+ memset(currentcard.tag_9F4C,0x00,8); // ICC UN
+ memcpy(currentcard.tag_9F35,"\x12",1);
+ memcpy(currentcard.tag_9F34,"\x3F\x00\x00", 3); //CVM
+
+ iso14443a_setup(FPGA_HF_ISO14443A_READER_LISTEN);
+ LED_A_ON();
+ LED_B_OFF();
+ LED_C_OFF();
+
+ while(true) {
+ if(!iso14443a_select_card(uid, &hi14a_card, &cuid, true, 0)) {
+ if(MF_DBGLEVEL >= 1) Dbprintf("Can't select card");
+ break;
+ }
+ //copy UID and ATQA SAK and ATS values
+ memcpy(currentcard.UID, hi14a_card.uid, hi14a_card.uidlen);
+ currentcard.UID_len = hi14a_card.uidlen;
+ memcpy(currentcard.ATQA, hi14a_card.atqa, 2);
+ currentcard.SAK = (uint8_t)hi14a_card.sak;
+ memcpy(currentcard.ATS, hi14a_card.ats, hi14a_card.ats_len);
+ currentcard.ATS_len = hi14a_card.ats_len;
+
+ if(MF_DBGLEVEL >= 1){
+ Dbprintf("UID=");
+ Dbhexdump(currentcard.UID_len, currentcard.UID, false);
+ Dbprintf("ATQA=");
+ Dbhexdump(2, currentcard.ATQA,false);
+ Dbprintf("SAK=");
+ Dbhexdump(1, ¤tcard.SAK,false);
+ Dbprintf("ATS=");
+ Dbhexdump(currentcard.ATS_len, currentcard.ATS,false);
+ }
+ EMVSelectPPSE();
+ //get response
+ if(resp[1] == 0x6F){ //decode template
+ decode_ber_tlv_item(&resp[1], &temptag);
+ //decode 84 and A5 tags
+ emv_decode_field(temptag.value, temptag.valuelength, ¤tcard);
+ //decode the A5 tag
+ emv_decode_field(currentcard.tag_A5, currentcard.tag_A5_len, ¤tcard);
+ //decode the BF0C result, assuming 1 directory entry for now
+ if(currentcard.tag_BF0C_len !=0){
+ emv_decode_field(currentcard.tag_BF0C, currentcard.tag_BF0C_len, ¤tcard);}
+ //retrieve the AID, use the AID to decide what transaction flow to use
+ if(currentcard.tag_61_len !=0){
+ emv_decode_field(currentcard.tag_61, currentcard.tag_61_len, ¤tcard);}
+ }
+ //perform AID selection
+ EMVSelectAID(currentcard.tag_4F,currentcard.tag_4F_len, ¤tcard);
+ if(resp[1] == 0x6F){ //decode template
+ decode_ber_tlv_item(&resp[1], &temptag);
+ //decode 84 and A5 tags
+ emv_decode_field(temptag.value, temptag.valuelength, ¤tcard);
+ //decode the A5 tag
+ emv_decode_field(currentcard.tag_A5, currentcard.tag_A5_len, ¤tcard);
+ //decode the BF0C result, assuming 1 directory entry for now
+ }
+ //decode the AFL list and read records
+
+ //scan all card records
+ Dbprintf("Reading %u SFIs and %u records...", maxsfi, maxrecord);
+ for(uint8_t sfi = 1; sfi < maxsfi; sfi++){ //all possible SFI values
+ for(uint8_t record = 1; record < maxrecord; record++){
+ EMVReadRecord(record,sfi, ¤tcard);
+ if(resp[1] == 0x70){
+ Dbprintf("Record Found! SFI=%u RECORD=%u", sfi, record);
+ }
+ }
+ }
+ Dbprintf("Reading finished");
+
+ LED_B_ON();
+ //output the sensitive data
+ cmd_send(CMD_ACK, 0, 0,0,resp,100);
+ LED_B_OFF();
+ break;
+ }
+
+ if(MF_DBGLEVEL >= 2) DbpString("EMV TRANSACTION FINISHED");
+ //finish up
+ FpgaWriteConfWord(FPGA_MAJOR_MODE_OFF);
+ LEDsoff();
+}
//SIMULATOR CODE
//-----------------------------------------------------------------------------
//-----------------------------------------------------------------------------
void SimulateEMVcard()
{
+ /*
+
//uint8_t sak; //select ACKnowledge
uint16_t readerPacketLen = 64; //reader packet length - provided by RATS, default to 64 bytes if RATS not supported
// Allocate 512 bytes for the dynamic modulation, created when the reader queries for it
// Such a response is less time critical, so we can prepare them on the fly
- #define DYNAMIC_RESPONSE_BUFFER_SIZE 256 //max frame size
- #define DYNAMIC_MODULATION_BUFFER_SIZE 2 + 9*DYNAMIC_RESPONSE_BUFFER_SIZE //(start and stop bit, 8 bit packet with 1 bit parity
+ #define DYNAMIC_RESPONSE_BUFFER_SIZE 64
+ #define DYNAMIC_MODULATION_BUFFER_SIZE 512
//uint8_t dynamic_response_buffer[DYNAMIC_RESPONSE_BUFFER_SIZE];
//uint8_t dynamic_modulation_buffer[DYNAMIC_MODULATION_BUFFER_SIZE];
currentblock = receivedCmd[0] & 0x01;
if(receivedCmd[0] == 0x26) { // Received a REQUEST
- p_response = &responses[ATR]; order = REQA;
+ p_response = &responses[ATR]; order = ISO14443A_CMD_REQA;
} else if(receivedCmd[0] == 0x52) { // Received a WAKEUP
- p_response = &responses[ATR]; order = WUPA;
+ p_response = &responses[ATR]; order = ISO14443A_CMD_WUPA;
} else if(receivedCmd[1] == 0x20 && receivedCmd[0] == 0x93) { // Received request for UID (cascade 1)
- p_response = &responses[UID1]; order = SELUID1;
+ p_response = &responses[UID1]; order = ISO14443A_CMD_ANTICOLL_OR_SELECT;
} else if(receivedCmd[1] == 0x20 && receivedCmd[0] == 0x95) { // Received request for UID (cascade 2)
- p_response = &responses[UID2]; order = SELUID2;
+ p_response = &responses[UID2]; order = ISO14443A_CMD_ANTICOLL_OR_SELECT_2;
} else if(receivedCmd[1] == 0x70 && receivedCmd[0] == 0x93) { // Received a SELECT (cascade 1)
- p_response = &responses[SELACK1]; order = SEL1;
+ p_response = &responses[SELACK1]; order = ISO14443A_CMD_ANTICOLL_OR_SELECT;
} else if(receivedCmd[1] == 0x70 && receivedCmd[0] == 0x95) { // Received a SELECT (cascade 2)
- p_response = &responses[SELACK2]; order = SEL2;
+ p_response = &responses[SELACK2]; order = ISO14443A_CMD_ANTICOLL_OR_SELECT_2;
} else if((receivedCmd[0] & 0xA2) == 0xA2){ //R-Block received
if(previousblock == currentblock){ //rule 11, retransmit last block
p_response = &dynamic_response_info;
if (p_response != NULL) {
EmSendCmd14443aRaw(p_response->modulation, p_response->modulation_n, receivedCmd[0] == 0x52);
// do the tracing for the previous reader request and this tag answer:
- uint8_t par[MAX_PARITY_SIZE] = {0x00};
- GetParity(p_response->response, p_response->response_n, par);
+
- EmLogTrace(Uart.output,
- Uart.len,
- Uart.startTime*16 - DELAY_AIR2ARM_AS_TAG,
- Uart.endTime*16 - DELAY_AIR2ARM_AS_TAG,
- Uart.parity,
- p_response->response,
- p_response->response_n,
- LastTimeProxToAirStart*16 + DELAY_ARM2AIR_AS_TAG,
- (LastTimeProxToAirStart + p_response->ProxToAirDuration)*16 + DELAY_ARM2AIR_AS_TAG,
- par);
- }
-
- if (!tracing) {
- Dbprintf("Trace Full. Simulation stopped.");
- break;
+ // EmLogTrace(Uart.output,
+ // Uart.len,
+ // Uart.startTime*16 - DELAY_AIR2ARM_AS_TAG,
+ // Uart.endTime*16 - DELAY_AIR2ARM_AS_TAG,
+ // Uart.parity,
+ // p_response->response,
+ // p_response->response_n,
+ // LastTimeProxToAirStart*16 + DELAY_ARM2AIR_AS_TAG,
+ // (LastTimeProxToAirStart + p_response->ProxToAirDuration)*16 + DELAY_ARM2AIR_AS_TAG,
+ // par);
+
}
+
+// if (!tracing) {
+// Dbprintf("Trace Full. Simulation stopped.");
+// break;
+// }
+
}
Dbprintf("%x %x %x", happened, happened2, cmdsRecvd);
LED_A_OFF();
BigBuf_free_keep_EM();
+
+ */
+}
+//-----------------------------------------------------------------------------
+// Main loop of simulated tag: receive commands from reader, decide what
+// response to send, and send it.
+//-----------------------------------------------------------------------------
+void EMVFuzz_RATS(uint8_t ratslen, uint8_t* RATS)
+{
+ int len;
+ uint8_t sak = 0x28;
+ //copy input rats into a buffer
+ uint8_t ratscmd[ratslen+2];
+ memcpy(ratscmd, RATS, ratslen);
+
+ // The first response contains the ATQA (note: bytes are transmitted in reverse order).
+ uint8_t atqa[2] = {0x04, 0x00};
+
+ // The second response contains the (mandatory) first 24 bits of the UID
+ uint8_t uid0[5] = {0x12,0x34,0x56,0x78,0x9A};
+
+ // Calculate the BitCountCheck (BCC) for the first 4 bytes of the UID.
+ uid0[4] = uid0[0] ^ uid0[1] ^ uid0[2] ^ uid0[3];
+
+ // Prepare the mandatory SAK (for 4 and 7 byte UID)
+ uint8_t sakresponse[3];
+ sakresponse[0] = sak;
+ ComputeCrc14443(CRC_14443_A, sakresponse, 1, &sakresponse[1], &sakresponse[2]);
+
+ // Prepare the optional second SAK (for 7 byte UID), drop the cascade bit
+
+ uint8_t ACK1[] = {0xa3,0x6f,0xc6}; //ACK packets
+ uint8_t ACK2[] = {0xa2,0x00,0x00};
+ AppendCrc14443a(ACK2, 1);
+
+ AppendCrc14443a(ratscmd, sizeof(ratscmd)-2);
+
+ //handle the PPS selection
+ uint8_t PPSR[3] = {0xD0,0x00,0x00};
+ AppendCrc14443a(PPSR, 1);
+
+ //#define TAG_RESPONSE_COUNT 9
+ tag_response_info_t responses[7] = {
+ { .response = atqa, .response_n = sizeof(atqa) }, // Answer to request - respond with card type
+ { .response = uid0, .response_n = sizeof(uid0) }, // Anticollision cascade1 - respond with uid
+ { .response = sakresponse, .response_n = sizeof(sakresponse) }, // Acknowledge select - cascade 1
+ { .response = ratscmd, .response_n = sizeof(ratscmd) }, // dummy ATS (pseudo-ATR), answer to RATS
+ { .response = ACK1, .response_n = sizeof(ACK1) }, // dummy ATS (pseudo-ATR), answer to RATS
+ { .response = ACK2, .response_n = sizeof(ACK2) }, // dummy ATS (pseudo-ATR), answer to RATS
+ { .response = PPSR, .response_n = sizeof(PPSR) }, // dummy ATS (pseudo-ATR), answer to RATS
+ };
+
+ // Reset the offset pointer of the free buffer
+ //reset_free_buffer();
+
+ // Prepare the responses of the anticollision phase
+ // there will be not enough time to do this at the moment the reader sends it REQA
+ for (size_t i=0; i<7; i++) {
+ prepare_allocated_tag_modulation(&responses[i]);
+ }
+ uint8_t *receivedCmd = BigBuf_malloc(MAX_FRAME_SIZE);
+ uint8_t *receivedCmdPar = BigBuf_malloc(MAX_PARITY_SIZE);
+
+ // To control where we are in the protocol
+ int order;
+
+ // We need to listen to the high-frequency, peak-detected path.
+ iso14443a_setup(FPGA_HF_ISO14443A_TAGSIM_LISTEN);
+ tag_response_info_t* p_response;
+
+ LED_C_ON();
+ // Clean receive command buffer
+ for(;;){
+ if (!GetIso14443aCommandFromReader(receivedCmd, receivedCmdPar, &len)){
+ break;
+ }
+ p_response = NULL;
+
+ if ((receivedCmd[0] == 0x26) || (receivedCmd[0] == 0x52)) { // Received a REQUEST
+ p_response = &responses[0]; order = 1;
+ }
+ if (receivedCmd[1] == 0x20 && receivedCmd[0] == 0x93) { // Received request for UID (cascade 1)
+ p_response = &responses[1]; order = 2; //send the UID
+ }
+ if (receivedCmd[1] == 0x70 && receivedCmd[0] == 0x93) { // Received a SELECT (cascade 1)
+ p_response = &responses[2]; order = 3; //send the SAK
+ }
+ if (receivedCmd[0] == 0xD0) { // Received a PPS request
+ p_response = &responses[6]; order = 70;
+ }
+ if (receivedCmd[0] == 0xE0) { // Received a RATS request
+ p_response = &responses[3]; order = 70;
+ EmSendCmd14443aRaw(p_response->modulation, p_response->modulation_n, (receivedCmd[0] == 0x52) || (receivedCmd[0] == 0x26));
+ break;
+ }
+ if (p_response != NULL){
+ EmSendCmd14443aRaw(p_response->modulation, p_response->modulation_n, (receivedCmd[0] == 0x52) || (receivedCmd[0] == 0x26));
+ } else {
+ break;
+ }
+ }
+
+ if (order && (MF_DBGLEVEL >= 2)) DbpString("just using order vars");
+
+ FpgaWriteConfWord(FPGA_MAJOR_MODE_OFF);
+ LED_C_OFF();
+ return;
}
projects / proxmark3-svn / blobdiff