X-Git-Url: https://git.zerfleddert.de/cgi-bin/gitweb.cgi/proxmark3-svn/blobdiff_plain/4bf0f73d766d8c461d55a418e241b5bab432a6ab..2d1885f1d15a55d0c6607ec8ad9cceab8f110480:/client/scripts/calypso.lua

diff --git a/client/scripts/calypso.lua b/client/scripts/calypso.lua
index df0044db..ed9efa1f 100644
--- a/client/scripts/calypso.lua
+++ b/client/scripts/calypso.lua
@@ -2,6 +2,7 @@ local cmds = require('commands')
 local getopt = require('getopt')
 local lib14b = require('read14b')
 local utils = require('utils')
+local iso7816 = require('7816_error')
 
 example = "script runs 14b raw commands to query a CAPLYPSO tag"
 author = "Iceman, 2016"
@@ -51,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 
@@ -151,35 +153,36 @@ local function calypso_apdu_status(apdu)
 	-- next two is APDU status bytes.
 	local status = false
 	local mess = 'FAIL'
-	local sw = apdu:sub( #apdu-7, #apdu-4)
-	if sw == '9000' then
-		mess = 'OK'
-		status = true
-	end
-	print ('SW', sw, mess )
+	local sw = apdu:sub( #apdu-7, #apdu-4)	
+	desc, err = iso7816.tostring(sw)
+	print ('SW', sw, desc, err )
+
+	status = ( sw == '9000' )
+	
 	return status
 end
 
 local _calypso_cmds = {
-	["01.Select ICC file"]	=	'02 94 a4 08 00 04 3f 00 00 02',
-	["02.ICC"]				=	'02 94 b2 01 04 1d',
-	["03.Select EnvHol file"]=	'02 94 a4 08 00 04 20 00 20 01',
-	["04.EnvHol1"]			=	'02 94 b2 01 04 1d',
-	["05.Select EvLog file"]	=	'02 94 a4 08 00 04 20 00 20 10',
-	["06.EvLog1"]			=	'06 00b2 0104 1d',
-	["07.EvLog2"]			=	'06 00b2 0204 1d',
-	["08.EvLog3"]			=	'06 00b2 0304 1d',
-	["09.Select ConList file"]=	'42 01 04 0a 00a4 0800 04 2000 2050',
-	["10.ConList"]			=	'42 01 06 06 00b2 0104 1d',
-	["11.Select Contra file"]=	'42 01 08 0a 00a4 0800 04 2000 2020',
-	["12.Contra1"]			=	'42 01 0a 06 00b2 0104 1d',
-	["13.Contra2"]			=	'42 01 0c 06 00b2 0204 1d',
-	["14.Contra3"]			=	'42 01 0e 06 00b2 0304 1d',
-	["15.Contra4"]			=	'42 01 00 06 00b2 0404 1d',
-	["16.Select Counter file"]=	'42 01 02 0a 00a4 0800 04 2000 2069',
-	["17.Counter"]			=	'42 01 04 06 00b2 0104 1d',
-	["18.Select SpecEv file"]=	'42 01 06 0a 00a4 08 0004 2000 2040',
-	["19.SpecEv1"]			=	'42 01 08 06 00b2 0104 1d',
+	["01.Select ICC file"]	=	'0294 a4 00 0002 3f00',
+	--["01.Select ICC file"]	=	'0294 a4 080004 3f00 0002',
+	["02.ICC"]				=	'0294 b2 01 041d',
+	["03.Select EnvHol file"] =	'0294 a4 080004 2000 2001',
+	["04.EnvHol1"]			=	'0294 b2 01 041d',
+	["05.Select EvLog file"] =	'0294 a4 080004 2000 2010',
+	["06.EvLog1"]			=	'0294 b2 01 041d',
+	["07.EvLog2"]			=	'0294 b2 02 041d',
+	["08.EvLog3"]			=	'0294 b2 03 041d',
+	["09.Select ConList file"] ='0294 a4 080004 2000 2050',
+	["10.ConList"]			=	'0294 b2 01 041d',
+	["11.Select Contra file"] =	'0294 a4 080004 2000 2020',
+	["12.Contra1"]			=	'0294 b2 01 041d',
+	["13.Contra2"]			=	'0294 b2 02 041d',
+	["14.Contra3"]			=	'0294 b2 03 041d',
+	["15.Contra4"]			=	'0294 b2 04 041d',
+	["16.Select Counter file"]=	'0294 a4 080004 2000 2069',
+	["17.Counter"]			=	'0294 b2 01 041d',
+	["18.Select SpecEv file"]=	'0294 a4 080004 2000 2040',
+	["19.SpecEv1"]			=	'0294 b2 01 041d',
 }
 
 ---