CHG: making timings a bit tighter == faster read of tag. Like 1ms for whole tag.

[proxmark3-svn] / client / scripts / calypso.lua

diff --git a/client/scripts/calypso.lua b/client/scripts/calypso.lua
index 9221c02987a9ab9fcf2621dd63e990a6f2f3ff67..281ea9444f92810a28b40a81465215409d329385 100644 (file)
--- a/client/scripts/calypso.lua
+++ b/client/scripts/calypso.lua
@@ -52,6 +52,7 @@ local function calypso_parse(result)
        local r = Command.parse(result)
        local len = r.arg2 * 2
        r.data = string.sub(r.data, 0, len);
+       print('GOT:', r.data)
        if r.arg1 == 0 then
                return r, nil
        end 
@@ -162,24 +163,47 @@ local function calypso_apdu_status(apdu)
 end
 
 local _calypso_cmds = {
+
+-- Break down of command bytes:
+--  A4 = select
+--  Master File  3F00
+--  0x3F = master file 
+--  0x00 = master file id, is constant to 0x00.
+
+--  DF Dedicated File  38nn
+--  can be seen as directories
+--  0x38  
+--  0xNN  id
+--     ["01.Select ICC file"]  =       '0294 a4 080004 3f00 0002',
+
+--     EF Elementary File 
+--  EF1 Pin file
+--  EF2 Key file
+--  Grey Lock file
+--  Electronic deposit file
+--  Electronic Purse file
+--  Electronic Transaction log file
+
+       
+       --["01.Select ICC file"]        =       '0294 a4 00 0002 3f00',
        ["01.Select ICC file"]  =       '0294 a4 080004 3f00 0002',
-       ["02.ICC"]                              =       '0294 b2 01 041d',
+       ["02.ICC"]                              =       '0394 b2 01 041d',
        ["03.Select EnvHol file"] =     '0294 a4 080004 2000 2001',
-       ["04.EnvHol1"]                  =       '0294 b2 01 041d',
+       ["04.EnvHol1"]                  =       '0394 b2 01 041d',
        ["05.Select EvLog file"] =      '0294 a4 080004 2000 2010',
-       ["06.EvLog1"]                   =       '0294 b2 01 041d',
+       ["06.EvLog1"]                   =       '0394 b2 01 041d',
        ["07.EvLog2"]                   =       '0294 b2 02 041d',
-       ["08.EvLog3"]                   =       '0294 b2 03 041d',
+       ["08.EvLog3"]                   =       '0394 b2 03 041d',
        ["09.Select ConList file"] ='0294 a4 080004 2000 2050',
-       ["10.ConList"]                  =       '0294 b2 01 041d',
+       ["10.ConList"]                  =       '0394 b2 01 041d',
        ["11.Select Contra file"] =     '0294 a4 080004 2000 2020',
-       ["12.Contra1"]                  =       '0294 b2 01 041d',
+       ["12.Contra1"]                  =       '0394 b2 01 041d',
        ["13.Contra2"]                  =       '0294 b2 02 041d',
-       ["14.Contra3"]                  =       '0294 b2 03 041d',
+       ["14.Contra3"]                  =       '0394 b2 03 041d',
        ["15.Contra4"]                  =       '0294 b2 04 041d',
-       ["16.Select Counter file"]=     '0294 a4 080004 2000 2069',
+       ["16.Select Counter file"]=     '0394 a4 080004 2000 2069',
        ["17.Counter"]                  =       '0294 b2 01 041d',
-       ["18.Select SpecEv file"]=      '0294 a4 080004 2000 2040',
+       ["18.Select SpecEv file"]=      '0394 a4 080004 2000 2040',
        ["19.SpecEv1"]                  =       '0294 b2 01 041d',
 }
 
@@ -213,7 +237,7 @@ function main(args)
        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
+       apdu = '02 94 a4 08 00 04 3f 00 00 02'  --select ICC file
        DF_NAME = "1TIC.ICA" 
        --]]
        --for i = 1,10 do