]> git.zerfleddert.de Git - proxmark3-svn/blame - client/scripts/calypso.lua
Update README.md
[proxmark3-svn] / client / scripts / calypso.lua
CommitLineData
452aab1e 1local cmds = require('commands')
2local getopt = require('getopt')
3local lib14b = require('read14b')
4local utils = require('utils')
12b998cb 5local iso7816 = require('7816_error')
452aab1e 6
7example = "script runs 14b raw commands to query a CAPLYPSO tag"
8author = "Iceman, 2016"
9desc =
10[[
11This is a script to communicate with a CALYSPO / 14443b tag using the '14b raw' commands
12
13Arguments:
14 -b 123
15Examples :
16 script run f -b 11223344
17 script run f
18
19Examples :
20
21# 1. Connect and don't disconnect
22script run f
23# 2. Send mf auth, read response
24script run f
25# 3. disconnect
26script run f
27
28]]
29
30--[[
31This script communicates with /armsrc/iso14443b.c,
32Check there for details about data format and how commands are interpreted on the
33device-side.
34]]
35
36---
37--
38local function calypso_switch_on_field()
39 local flags = lib14b.ISO14B_COMMAND.ISO14B_CONNECT
40 local c = Command:new{cmd = cmds.CMD_ISO_14443B_COMMAND, arg1 = flags}
41 return lib14b.sendToDevice(c, true)
42end
43---
44-- Disconnect (poweroff) the antenna forcing a disconnect of a 14b tag.
45local function calypso_switch_off_field()
46 local flags = lib14b.ISO14B_COMMAND.ISO14B_DISCONNECT
47 local c = Command:new{cmd = cmds.CMD_ISO_14443B_COMMAND, arg1 = flags}
48 return lib14b.sendToDevice(c, true)
49end
50
51local function calypso_parse(result)
52 local r = Command.parse(result)
53 local len = r.arg2 * 2
54 r.data = string.sub(r.data, 0, len);
ffeb77fd 55 print('GOT:', r.data)
452aab1e 56 if r.arg1 == 0 then
57 return r, nil
58 end
59 return nil,nil
60end
61---
62-- A debug printout-function
63local function dbg(args)
64 if DEBUG then
65 print("###", args)
66 end
67end
68---
69-- This is only meant to be used when errors occur
70local function oops(err)
71 print("ERROR: ",err)
72 calypso_switch_off_field()
73 return nil,err
74end
75---
76-- Usage help
77local function help()
78 print(desc)
79 print("Example usage")
80 print(example)
81end
82--
83-- helper function, give current count of items in lua-table.
84local function tablelen(T)
85 local count = 0
86 for _ in pairs(T) do count = count + 1 end
87 return count
88end
89---
90-- helper function, gives a sorted table from table t,
91-- order can be a seperate sorting-order function.
92local function spairs(t, order)
93 -- collect the keys
94 local keys = {}
95 for k in pairs(t) do keys[#keys+1] = k end
96
97 -- if order function given, sort by it by passing the table and keys a, b,
98 -- otherwise just sort the keys
99 if order then
100 table.sort(keys, function(a,b) return order(t, a, b) end)
101 else
102 table.sort(keys)
103 end
104
105 -- return the iterator function
106 local i = 0
107 return function()
108 i = i + 1
109 if keys[i] then
110 return keys[i], t[keys[i]]
111 end
112 end
113end
114---
115-- Sends a usbpackage , "hf 14b raw"
116-- if it reads the response, it converts it to a lua object "Command" first and the Data is cut to correct length.
117local function calypso_send_cmd_raw(data, ignoreresponse )
118
119 local command, flags, result, err
120 flags = lib14b.ISO14B_COMMAND.ISO14B_RAW +
121 lib14b.ISO14B_COMMAND.ISO14B_APPEND_CRC
122
123 data = data or "00"
124
125 command = Command:new{cmd = cmds.CMD_ISO_14443B_COMMAND,
126 arg1 = flags,
127 arg2 = #data/2, -- LEN of data, half the length of the ASCII-string hex string
128 arg3 = 0,
129 data = data} -- data bytes (commands etc)
130 result, err = lib14b.sendToDevice(command, false)
131
132 if ignoreresponse then return response, err end
133
134 if result then
135 local r = calypso_parse(result)
136 return r, nil
137 end
138 return respone, err
139end
140---
141-- calypso_card_num : Reads card number from ATR and
142-- writes it in the tree in decimal format.
143local function calypso_card_num(card)
144 if not card then return end
145 local card_num = tonumber( card.uid:sub(1,8),16 )
146 print('Card UID', card.uid)
147 print('Card Number', card_num)
148end
149---
150-- analyse CALYPSO apdu status bytes.
151local function calypso_apdu_status(apdu)
152 -- last two is CRC
153 -- next two is APDU status bytes.
4bf0f73d 154 local status = false
155 local mess = 'FAIL'
12b998cb 156 local sw = apdu:sub( #apdu-7, #apdu-4)
157 desc, err = iso7816.tostring(sw)
158 print ('SW', sw, desc, err )
159
160 status = ( sw == '9000' )
161
4bf0f73d 162 return status
452aab1e 163end
164
165local _calypso_cmds = {
ffeb77fd 166 ["01.Select ICC file"] = '0294 a4 00 0002 3f00',
167 --["01.Select ICC file"] = '0294 a4 080004 3f00 0002',
12b998cb 168 ["02.ICC"] = '0294 b2 01 041d',
169 ["03.Select EnvHol file"] = '0294 a4 080004 2000 2001',
170 ["04.EnvHol1"] = '0294 b2 01 041d',
171 ["05.Select EvLog file"] = '0294 a4 080004 2000 2010',
172 ["06.EvLog1"] = '0294 b2 01 041d',
173 ["07.EvLog2"] = '0294 b2 02 041d',
174 ["08.EvLog3"] = '0294 b2 03 041d',
175 ["09.Select ConList file"] ='0294 a4 080004 2000 2050',
176 ["10.ConList"] = '0294 b2 01 041d',
177 ["11.Select Contra file"] = '0294 a4 080004 2000 2020',
178 ["12.Contra1"] = '0294 b2 01 041d',
179 ["13.Contra2"] = '0294 b2 02 041d',
180 ["14.Contra3"] = '0294 b2 03 041d',
181 ["15.Contra4"] = '0294 b2 04 041d',
182 ["16.Select Counter file"]= '0294 a4 080004 2000 2069',
183 ["17.Counter"] = '0294 b2 01 041d',
184 ["18.Select SpecEv file"]= '0294 a4 080004 2000 2040',
185 ["19.SpecEv1"] = '0294 b2 01 041d',
452aab1e 186}
187
188---
189-- The main entry point
190function main(args)
191
192 local data, apdu, flags, uid, cid, result, err, card
193 -- Read the parameters
194 for o, a in getopt.getopt(args, 'h') do
195 if o == "h" then return help() end
196 end
197
198 calypso_switch_on_field()
199
200 -- Select 14b tag.
201 card, err = lib14b.waitFor14443b()
202 if not card then return oops(err) end
203
204 calypso_card_num(card)
205 cid = card.cid
206
207 --[[
208 NAME VALUE APDU_POS
209 PCB 0x0A 0
210 CID 0x00 1
211 CLA 0x94 2
212 SELECT FILE 0xA4 3
213 READ FILE 0xB2 3
214 P1 4
215 P2 5
216 LEN_
217 0 1 2 3 4 5 6 7
218 apdu = '0a 00 94 a4 08 00 04 3f 00 00 02' --select ICC file
219 DF_NAME = "1TIC.ICA"
220 --]]
221 --for i = 1,10 do
222 --result, err = calypso_send_cmd_raw('0294a40800043f000002',false) --select ICC file
223 for i, apdu in spairs(_calypso_cmds) do
4bf0f73d 224 print('>>', i )
452aab1e 225 apdu = apdu:gsub("%s+","")
226 result, err = calypso_send_cmd_raw(apdu , false)
227 if result then
228 calypso_apdu_status(result.data)
4bf0f73d 229 print('<<', result.data )
230 else
231 print('<< no answer')
452aab1e 232 end
233 end
234 calypso_switch_off_field()
235end
236---
237-- a simple selftest function, tries to convert
238function selftest()
239 DEBUG = true
240 dbg("Performing test")
241 dbg("Tests done")
242end
243-- Flip the switch here to perform a sanity check.
244-- It read a nonce in two different ways, as specified in the usage-section
245if "--test"==args then
246 selftest()
247else
248 -- Call the main
249 main(args)
250end
Impressum, Datenschutz