Moved script libraries into lualibs/folder, and added a patch to include the folder...

[proxmark3-svn] / client / lualibs / read14a.lua

diff --git a/client/lualibs/read14a.lua b/client/lualibs/read14a.lua
new file mode 100644 (file)
index 0000000..b2a797e
--- /dev/null
+++ b/client/lualibs/read14a.lua
@@ -0,0 +1,127 @@
+--[[
+       This is a library to read 14443a tags. It can be used something like this
+
+       local reader = require('read14a')
+       result, err = reader.read1443a()
+       if not result then
+               print(err)
+               return
+       end
+       print(result.name)
+
+--]]
+-- Loads the commands-library
+local cmds = require('commands')
+local TIMEOUT = 2000 -- Shouldn't take longer than 2 seconds
+local ISO14A_COMMAND = {
+       ISO14A_CONNECT = 1,
+       ISO14A_NO_DISCONNECT = 2,
+       ISO14A_APDU = 4,
+       ISO14A_RAW = 8,
+       ISO14A_REQUEST_TRIGGER = 0x10,
+       ISO14A_APPEND_CRC = 0x20,
+       ISO14A_SET_TIMEOUT = 0x40
+}
+
+local ISO14443a_TYPES = {}             
+ISO14443a_TYPES[0x00] = "NXP MIFARE Ultralight | Ultralight C"
+ISO14443a_TYPES[0x04] = "NXP MIFARE (various !DESFire !DESFire EV1)"
+ISO14443a_TYPES[0x08] = "NXP MIFARE CLASSIC 1k | Plus 2k"
+ISO14443a_TYPES[0x09] = "NXP MIFARE Mini 0.3k"
+ISO14443a_TYPES[0x10] = "NXP MIFARE Plus 2k"
+ISO14443a_TYPES[0x11] = "NXP MIFARE Plus 4k"
+ISO14443a_TYPES[0x18] = "NXP MIFARE Classic 4k | Plus 4k"
+ISO14443a_TYPES[0x20] = "NXP MIFARE DESFire 4k | DESFire EV1 2k/4k/8k | Plus 2k/4k | JCOP 31/41"
+ISO14443a_TYPES[0x24] = "NXP MIFARE DESFire | DESFire EV1"
+ISO14443a_TYPES[0x28] = "JCOP31 or JCOP41 v2.3.1"
+ISO14443a_TYPES[0x38] = "Nokia 6212 or 6131 MIFARE CLASSIC 4K"
+ISO14443a_TYPES[0x88] = "Infineon MIFARE CLASSIC 1K"
+ISO14443a_TYPES[0x98] = "Gemplus MPCOS"
+
+
+local function tostring_1443a(sak)
+       return ISO14443a_TYPES[sak] or ("Unknown (SAK=%x)"):format(sak)
+end
+
+local function parse1443a(data)
+       --[[
+
+       Based on this struct : 
+
+       typedef struct {
+               byte_t uid[10];
+               byte_t uidlen;
+               byte_t atqa[2];
+               byte_t sak;
+               byte_t ats_len;
+               byte_t ats[256];
+       } __attribute__((__packed__)) iso14a_card_select_t;
+
+       --]]
+
+       local count,uid,uidlen, atqa, sak, ats_len, ats= bin.unpack('H10CH2CC',data)
+       uid = uid:sub(1,2*uidlen)
+       --print("uid, atqa, sak: ",uid, atqa, sak)
+       --print("TYPE: ", tostring_1443a(sak))
+       return { uid = uid, atqa  = atqa, sak = sak, name = tostring_1443a(sak)}
+end
+
+--- Sends a USBpacket to the device
+-- @param command - the usb packet to send
+-- @param ignoreresponse - if set to true, we don't read the device answer packet 
+--             which is usually recipe for fail. If not sent, the host will wait 2s for a 
+--             response of type CMD_ACK
+-- @return     packet,nil if successfull
+--                     nil, errormessage if unsuccessfull
+
+local function sendToDevice(command, ignoreresponse)
+       core.clearCommandBuffer()
+       local err = core.SendCommand(command:getBytes())
+       if err then
+               print(err)
+               return nil, err
+       end
+       if ignoreresponse then return nil,nil end
+
+       local response = core.WaitForResponseTimeout(cmds.CMD_ACK,TIMEOUT)
+       return response,nil
+end
+
+
+local library = {
+       -- This function does a connect. 
+       -- @param dont_disconnect - if true, does not disable the field
+       read1443a = function(dont_disconnect)
+
+               local command, result, info, err, data
+
+               command = Command:new{cmd = cmds.CMD_READER_ISO_14443a, 
+                                                                       arg1 = ISO14A_COMMAND.ISO14A_CONNECT}
+               if dont_disconnect then
+                       command.arg1 = command.arg1 + ISO14A_COMMAND.ISO14A_NO_DISCONNECT
+               end
+               local result,err = sendToDevice(command)
+               if result then
+                       local count,cmd,arg0,arg1,arg2 = bin.unpack('LLLL',result)
+                       if arg0 == 0 then 
+                               print("iso14443a card select failed");
+                               return nil, "iso14443a card select failed"
+                       end
+                       data = string.sub(result,count)
+                       info, err = parse1443a(data)
+               else
+                       err ="No response from card"
+               end
+
+               if err then 
+                       print(err) 
+                       return nil, err
+               end
+               return info
+       end,
+       parse1443a = parse1443a,
+       sendToDevice = sendToDevice,
+       ISO14A_COMMAND = ISO14A_COMMAND,
+}
+
+return library
\ No newline at end of file