mirror of
https://github.com/RfidResearchGroup/proxmark3.git
synced 2025-07-14 00:53:12 -07:00
240 lines
No EOL
6.2 KiB
Lua
240 lines
No EOL
6.2 KiB
Lua
local cmds = require('commands')
|
|
local getopt = require('getopt')
|
|
local lib14b = require('read14b')
|
|
local utils = require('utils')
|
|
|
|
example = "script runs 14b raw commands to query a CAPLYPSO tag"
|
|
author = "Iceman, 2016"
|
|
desc =
|
|
[[
|
|
This is a script to communicate with a CALYSPO / 14443b tag using the '14b raw' commands
|
|
|
|
Arguments:
|
|
-b 123
|
|
Examples :
|
|
script run f -b 11223344
|
|
script run f
|
|
|
|
Examples :
|
|
|
|
# 1. Connect and don't disconnect
|
|
script run f
|
|
# 2. Send mf auth, read response
|
|
script run f
|
|
# 3. disconnect
|
|
script run f
|
|
|
|
]]
|
|
|
|
--[[
|
|
This script communicates with /armsrc/iso14443b.c,
|
|
Check there for details about data format and how commands are interpreted on the
|
|
device-side.
|
|
]]
|
|
|
|
---
|
|
--
|
|
local function calypso_switch_on_field()
|
|
local flags = lib14b.ISO14B_COMMAND.ISO14B_CONNECT
|
|
local c = Command:new{cmd = cmds.CMD_ISO_14443B_COMMAND, arg1 = flags}
|
|
return lib14b.sendToDevice(c, true)
|
|
end
|
|
---
|
|
-- Disconnect (poweroff) the antenna forcing a disconnect of a 14b tag.
|
|
local function calypso_switch_off_field()
|
|
local flags = lib14b.ISO14B_COMMAND.ISO14B_DISCONNECT
|
|
local c = Command:new{cmd = cmds.CMD_ISO_14443B_COMMAND, arg1 = flags}
|
|
return lib14b.sendToDevice(c, true)
|
|
end
|
|
|
|
local function calypso_parse(result)
|
|
local r = Command.parse(result)
|
|
local len = r.arg2 * 2
|
|
r.data = string.sub(r.data, 0, len);
|
|
if r.arg1 == 0 then
|
|
return r, nil
|
|
end
|
|
return nil,nil
|
|
end
|
|
---
|
|
-- A debug printout-function
|
|
local function dbg(args)
|
|
if DEBUG then
|
|
print("###", args)
|
|
end
|
|
end
|
|
---
|
|
-- This is only meant to be used when errors occur
|
|
local function oops(err)
|
|
print("ERROR: ",err)
|
|
calypso_switch_off_field()
|
|
return nil,err
|
|
end
|
|
---
|
|
-- Usage help
|
|
local function help()
|
|
print(desc)
|
|
print("Example usage")
|
|
print(example)
|
|
end
|
|
--
|
|
-- helper function, give current count of items in lua-table.
|
|
local function tablelen(T)
|
|
local count = 0
|
|
for _ in pairs(T) do count = count + 1 end
|
|
return count
|
|
end
|
|
---
|
|
-- helper function, gives a sorted table from table t,
|
|
-- order can be a seperate sorting-order function.
|
|
local function spairs(t, order)
|
|
-- collect the keys
|
|
local keys = {}
|
|
for k in pairs(t) do keys[#keys+1] = k end
|
|
|
|
-- if order function given, sort by it by passing the table and keys a, b,
|
|
-- otherwise just sort the keys
|
|
if order then
|
|
table.sort(keys, function(a,b) return order(t, a, b) end)
|
|
else
|
|
table.sort(keys)
|
|
end
|
|
|
|
-- return the iterator function
|
|
local i = 0
|
|
return function()
|
|
i = i + 1
|
|
if keys[i] then
|
|
return keys[i], t[keys[i]]
|
|
end
|
|
end
|
|
end
|
|
---
|
|
-- Sends a usbpackage , "hf 14b raw"
|
|
-- if it reads the response, it converts it to a lua object "Command" first and the Data is cut to correct length.
|
|
local function calypso_send_cmd_raw(data, ignoreresponse )
|
|
|
|
local command, flags, result, err
|
|
flags = lib14b.ISO14B_COMMAND.ISO14B_RAW +
|
|
lib14b.ISO14B_COMMAND.ISO14B_APPEND_CRC
|
|
|
|
data = data or "00"
|
|
|
|
command = Command:new{cmd = cmds.CMD_ISO_14443B_COMMAND,
|
|
arg1 = flags,
|
|
arg2 = #data/2, -- LEN of data, half the length of the ASCII-string hex string
|
|
arg3 = 0,
|
|
data = data} -- data bytes (commands etc)
|
|
result, err = lib14b.sendToDevice(command, false)
|
|
|
|
if ignoreresponse then return response, err end
|
|
|
|
if result then
|
|
local r = calypso_parse(result)
|
|
return r, nil
|
|
end
|
|
return respone, err
|
|
end
|
|
---
|
|
-- calypso_card_num : Reads card number from ATR and
|
|
-- writes it in the tree in decimal format.
|
|
local function calypso_card_num(card)
|
|
if not card then return end
|
|
local card_num = tonumber( card.uid:sub(1,8),16 )
|
|
print('Card UID', card.uid)
|
|
print('Card Number', card_num)
|
|
end
|
|
---
|
|
-- analyse CALYPSO apdu status bytes.
|
|
local function calypso_apdu_status(apdu)
|
|
-- last two is CRC
|
|
-- next two is APDU status bytes.
|
|
local sw = apdu:sub( #apdu-7, #apdu-4)
|
|
print ('SW', sw )
|
|
-- if 0x9000 OK
|
|
if sw == '9000' then return 1 end
|
|
return 0
|
|
end
|
|
|
|
local _calypso_cmds = {
|
|
["1.Select ICC file"] = "02 94 a4 08 00 04 3f 00 00 02",
|
|
["2.ICC"] = "02 94 b2 01 04 1d",
|
|
["3.Select EnvHol file"]= '02 94 a4 08 00 04 20 00 20 01',
|
|
["4.EnvHol1"] = '02 94 b2 01 04 1d',
|
|
["5.Select EvLog file"] = '02 94 a4 08 00 04 20 00 20 10',
|
|
["6.EvLog1"] = '06 00b2 0104 1d',
|
|
["7.EvLog2"] = '06 00b2 0204 1d',
|
|
["8.EvLog3"] = '06 00b2 0304 1d',
|
|
-- ["Select ConList file"]= '42 01 04 0a 00a4 0800 04 2000 2050',
|
|
-- ["ConList"] = '42 01 06 06 00b2 0104 1d',
|
|
-- ["Select Contra file"]= '42 01 08 0a 00a4 0800 04 2000 2020',
|
|
-- ["Contra1"] = '42 01 0a 06 00b2 0104 1d',
|
|
-- ["Contra2"] = '42 01 0c 06 00b2 0204 1d',
|
|
-- ["Contra3"] = '42 01 0e 06 00b2 0304 1d',
|
|
-- ["Contra4"] = '42 01 00 06 00b2 0404 1d',
|
|
-- ["Select Counter file"]= '42 01 02 0a 00a4 0800 04 2000 2069',
|
|
-- ["Counter"] = '42 01 04 06 00b2 0104 1d',
|
|
-- ["Select SpecEv file"]= '42 01 06 0a 00a4 08 0004 2000 2040',
|
|
-- ["SpecEv1"] = '42 01 08 06 00b2 0104 1d',
|
|
}
|
|
|
|
---
|
|
-- The main entry point
|
|
function main(args)
|
|
|
|
local data, apdu, flags, uid, cid, result, err, card
|
|
-- Read the parameters
|
|
for o, a in getopt.getopt(args, 'h') do
|
|
if o == "h" then return help() end
|
|
end
|
|
|
|
calypso_switch_on_field()
|
|
|
|
-- Select 14b tag.
|
|
card, err = lib14b.waitFor14443b()
|
|
if not card then return oops(err) end
|
|
|
|
calypso_card_num(card)
|
|
cid = card.cid
|
|
|
|
--[[
|
|
NAME VALUE APDU_POS
|
|
PCB 0x0A 0
|
|
CID 0x00 1
|
|
CLA 0x94 2
|
|
SELECT FILE 0xA4 3
|
|
READ FILE 0xB2 3
|
|
P1 4
|
|
P2 5
|
|
LEN_
|
|
0 1 2 3 4 5 6 7
|
|
apdu = '0a 00 94 a4 08 00 04 3f 00 00 02' --select ICC file
|
|
DF_NAME = "1TIC.ICA"
|
|
--]]
|
|
--for i = 1,10 do
|
|
--result, err = calypso_send_cmd_raw('0294a40800043f000002',false) --select ICC file
|
|
for i, apdu in spairs(_calypso_cmds) do
|
|
apdu = apdu:gsub("%s+","")
|
|
result, err = calypso_send_cmd_raw(apdu , false)
|
|
if result then
|
|
calypso_apdu_status(result.data)
|
|
print( result.data )
|
|
end
|
|
end
|
|
calypso_switch_off_field()
|
|
end
|
|
---
|
|
-- a simple selftest function, tries to convert
|
|
function selftest()
|
|
DEBUG = true
|
|
dbg("Performing test")
|
|
dbg("Tests done")
|
|
end
|
|
-- Flip the switch here to perform a sanity check.
|
|
-- It read a nonce in two different ways, as specified in the usage-section
|
|
if "--test"==args then
|
|
selftest()
|
|
else
|
|
-- Call the main
|
|
main(args)
|
|
end |