/dot_cardpeek_dir/scripts/emv.lua

http://cardpeek.googlecode.com/ · Lua · 618 lines · 580 code · 8 blank · 30 comment · 2 complexity · 5b393a722ef6cd0a8c169f7e942a0ddd MD5 · raw file 

    

  1. --
    2. 

  2. -- This file is part of Cardpeek, the smartcard reader utility.
    3. 

  3. --
    4. 

  4. -- Copyright 2009-2012 by 'L1L1'
    5. 

  5. --
    6. 

  6. -- Cardpeek is free software: you can redistribute it and/or modify
    7. 

  7. -- it under the terms of the GNU General Public License as published by
    8. 

  8. -- the Free Software Foundation, either version 3 of the License, or
    9. 

  9. -- (at your option) any later version.
    10. 

  10. --
    11. 

  11. -- Cardpeek is distributed in the hope that it will be useful,
    12. 

  12. -- but WITHOUT ANY WARRANTY; without even the implied warranty of
    13. 

  13. -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    14. 

  14. -- GNU General Public License for more details.
    15. 

  15. --
    16. 

  16. -- You should have received a copy of the GNU General Public License
    17. 

  17. -- along with Cardpeek.  If not, see <http://www.gnu.org/licenses/>.
    18. 

  18. --
    19. 

  19. -- History:
    20. 

  20. -- Aug 07 2010: Corrected bug in GPO command.
    21. 

  21. -- Aug 08 2010: Corrected bug in AFL data processing
    22. 

  22. -- Mar 27 2011: Added CVM patch from Adam Laurie.
    23. 

  23. -- Jan 23 2012: Added UK Post Office Card Account in AID list from Tyson Key.
    24. 

  24. 

  25. require('lib.tlv')
    26. 

  26. require('lib.strict')
    27. 

  27. 

  28. --------------------------------------------------------------------------
    29. 

  29. -- GLOBAL EMV CARD COMMANDS extending general lib.apdu 
    30. 

  30. --------------------------------------------------------------------------
    31. 

  31. 

  32. function card.get_processing_options(pdol)
    33. 

  33. 	local command;
    34. 

  34.         if pdol and #pdol>0 then
    35. 

  35. 	   command = bytes.new(8,"80 A8 00 00",#pdol+2,0x83,#pdol,pdol)
    36. 

  36. 	else
    37. 

  37. 	   command = bytes.new(8,"80 A8 00 00 02 83 00")
    38. 

  38. 	end
    39. 

  39. 	return card.send(command)
    40. 

  40. end
    41. 

  41. 

  42. -- override card.get_data() for EMV
    43. 

  43. function card.get_data(data)
    44. 

  44.         local command = bytes.new(8,"80 CA",bit.AND(bit.SHR(data,8),0xFF),bit.AND(data,0xFF),0)
    45. 

  45.         return card.send(command)
    46. 

  46. end
    47. 

  47. 

  48. 

  49. -- ------------------------------------------------------------------------
    50. 

  50. -- EMV 
    51. 

  51. -- ------------------------------------------------------------------------
    52. 

  52. 

  53. TRANSACTION_TYPE = {
    54. 

  54.   [0]="Purchase",
    55. 

  55.   [1]="Cash"
    56. 

  56. }
    57. 

  57. 

  58. function ui_parse_transaction_type(node,cc)
    59. 

  59. 	local tt = TRANSACTION_TYPE[cc[0]]
    60. 

  60. 	if tt == nil then 
    61. 

  61. 	   return tostring(cc)
    62. 

  62. 	end
    63. 

  63. 	ui.tree_set_value(node,cc)
    64. 

  64. 	ui.tree_set_alt_value(node,tt)
    65. 

  65. 	return true
    66. 

  66. end
    67. 

  67. 

  68. function ui_parse_CVM(node,data)
    69. 

  69. 	local i
    70. 

  70. 	local left
    71. 

  71. 	local right
    72. 

  72. 	local leftstring
    73. 

  73. 	local rightstring
    74. 

  74. 	local subnode
    75. 

  75. 	local out 
    76. 

  76. 

  77. 	subnode = ui.tree_add_node(node,"item","X",nil,4)
    78. 

  78. 	ui.tree_set_value(subnode,bytes.sub(data,0,3))
    79. 

  79. 

  80. 	subnode = ui.tree_add_node(node,"item","Y",nil,4)
    81. 

  81. 	ui.tree_set_value(subnode,bytes.sub(data,4,7))
    82. 

  82. 

  83. 	for i= 4,(#data/2)-1 do
    84. 

  84. 		subnode = ui.tree_add_node(node,"item","CVM",i-3,2)
    85. 

  85. 		ui.tree_set_value(subnode,bytes.sub(data,i*2,i*2+1))
    86. 

  86. 		left = data[i*2]
    87. 

  87. 		right = data[i*2+1]
    88. 

  88. 

  89. 		if bit.AND(left,0x40) == 0x40 then
    90. 

  90. 			out = "Apply succeeding CV rule if this rule is unsuccessful: "
    91. 

  91. 		else
    92. 

  92. 			out = "Fail cardholder verification if this CVM is unsuccessful: "
    93. 

  93. 		end
    94. 

  94. 

  95. 		if CVM_REFERENCE_BYTE1[bit.AND(left,0xBF)] == nil then
    96. 

  96. 			leftstring = string.format("Unknown (%02X)",left)
    97. 

  97. 		else
    98. 

  98. 			leftstring = CVM_REFERENCE_BYTE1[bit.AND(left,0xBF)]
    99. 

  99. 		end
    100. 

  100. 		if CVM_REFERENCE_BYTE2[right] == nil then
    101. 

  101. 			rightstring = string.format("Unknown (%02X)",right)
    102. 

  102. 		else
    103. 

  103. 			rightstring = CVM_REFERENCE_BYTE2[right]
    104. 

  104. 		end
    105. 

  105. 		out = out .. leftstring .. " - " .. rightstring
    106. 

  106. 		ui.tree_set_alt_value(subnode,out)
    107. 

  107. 	end
    108. 

  108.         ui.tree_set_value(node,data)
    109. 

  109. 	return true
    110. 

  110. end
    111. 

  111. 

  112. CVM_REFERENCE_BYTE1 = {
    113. 

  113.    [0x00] = "Fail CVM processing",
    114. 

  114.    [0x01] = "Plaintext PIN verification performed by ICC",
    115. 

  115.    [0x02] = "Enciphered PIN verified online",
    116. 

  116.    [0x03] = "Plaintext PIN verification performed by ICC and signature (paper)",
    117. 

  117.    [0x04] = "Enciphered PIN verification performed by ICC",
    118. 

  118.    [0x05] = "Enciphered PIN verification performed by ICC and signature (paper)",
    119. 

  119.    [0x1E] = "Signature (paper)",
    120. 

  120.    [0x1F] = "No CVM Required",
    121. 

  121. }
    122. 

  122. 

  123. CVM_REFERENCE_BYTE2 = {
    124. 

  124.    [0x00] = "Always",
    125. 

  125.    [0x01] = "If unattended cash",
    126. 

  126.    [0x02] = "If not attended cash and not manual cash and not purchase with cashback",
    127. 

  127.    [0x03] = "If terminal supports the CVM",
    128. 

  128.    [0x04] = "If manual cash",
    129. 

  129.    [0x05] = "If purchase with cashback",
    130. 

  130.    [0x06] = "If transaction is in the application currency and is under X value",
    131. 

  131.    [0x07] = "If transaction is in the application currency and is over X value",
    132. 

  132.    [0x08] = "If transaction is in the application currency and is under Y value",
    133. 

  133.    [0x09] = "If transaction is in the application currency and is over Y value"
    134. 

  134. }	
    135. 

  135. 

  136. EMV_REFERENCE = {
    137. 

  137.    ['5D'] = {"Directory Definition File (DDF) Name" }, 
    138. 

  138.    ['70'] = {"Application Data File (ADF)" }, 
    139. 

  139.    ['80'] = {"Response Message Template Format 1" }, 
    140. 

  140.    ['82'] = {"Application Interchange Profile (AIP)" }, 
    141. 

  141.    ['87'] = {"Application Priority Indicator" }, 
    142. 

  142.    ['88'] = {"Short File Identifier (SFI)" }, 
    143. 

  143.    ['8C'] = {"Card Risk Management Data Object List 1 (CDOL1)" }, 
    144. 

  144.    ['8D'] = {"Card Risk Management Data Object List 2 (CDOL2)" }, 
    145. 

  145.    ['8E'] = {"Cardholder Verification Method (CVM) List", ui_parse_CVM }, 
    146. 

  146.    ['8F'] = {"Certificate Authority Public Key Index (PKI)" }, 
    147. 

  147.    ['90'] = {"Issuer PK Certificate" }, 
    148. 

  148.    ['91'] = {"Issuer Authentication Data" }, 
    149. 

  149.    ['92'] = {"Issuer PK Remainder" }, 
    150. 

  150.    ['93'] = {"Signed Static Application Data" }, 
    151. 

  151.    ['94'] = {"Application File Locator (AFL)" },
    152. 

  152.    ['95'] = {"Terminal Verification Results (TVR)" },
    153. 

  153.    ['97'] = {"Transaction Certificate Data Object List (TDOL)" }, 
    154. 

  154.    ['9A'] = {"Transaction Date", ui_parse_YYMMDD },
    155. 

  155.    ['9C'] = {"Transaction Type", ui_parse_transaction_type },
    156. 

  156.    ['A5'] = {"FCI Proprietary Template" }, 
    157. 

  157.    ['9F02'] = {"Amount, Authorized" },
    158. 

  158.    ['9F03'] = {"Amount, Other" },
    159. 

  159.    ['9F05'] = {"Application Discretionary Data" }, 
    160. 

  160.    ['9F07'] = {"Application Usage Control" }, 
    161. 

  161.    ['9F08'] = {"Application Version Number" }, 
    162. 

  162.    ['9F0B'] = {"Cardholder Name - Extended" }, 
    163. 

  163.    ['9F0D'] = {"Issuer Action Code - Default" }, 
    164. 

  164.    ['9F0E'] = {"Issuer Action Code - Denial" }, 
    165. 

  165.    ['9F0F'] = {"Issuer Action Code - Online" }, 
    166. 

  166.    ['9F10'] = {"Issuer Application Data" }, 
    167. 

  167.    ['9F11'] = {"Issuer Code Table Index" }, 
    168. 

  168.    ['9F12'] = {"Application Preferred Name" }, 
    169. 

  169.    ['9F13'] = {"Last Online ATC Register" }, 
    170. 

  170.    ['9F14'] = {"Lower Consecutive Offline Limit (Terminal Check)" }, 
    171. 

  171.    ['9F17'] = {"PIN Try Counter", ui_parse_number }, 
    172. 

  172.    ['9F19'] = {"Dynamic Data Authentication Data Object List (DDOL)" }, 
    173. 

  173.    ['9F1A'] = {"Terminal Country Code", ui_parse_country_code },
    174. 

  174.    ['9F1F'] = {"Track 1 Discretionary Data", ui_parse_printable }, 
    175. 

  175.    ['9F23'] = {"Upper Consecutive Offline Limit (Terminal Check)" }, 
    176. 

  176.    ['9F26'] = {"Application Cryptogram (AC)" }, 
    177. 

  177.    ['9F27'] = {"Cryptogram Information Data" }, 
    178. 

  178.    ['9F2D'] = {"ICC PIN Encipherment Public Key Certificate" }, 
    179. 

  179.    ['9F2E'] = {"ICC PIN Encipherment Public Key Exponent" }, 
    180. 

  180.    ['9F2F'] = {"ICC PIN Encipherment Public Key Remainder" },
    181. 

  181.    ['9F32'] = {"Issuer PK Exponent" }, 
    182. 

  182.    ['9F36'] = {"Application Transaction Counter (ATC)" }, 
    183. 

  183.    ['9F38'] = {"Processing Options Data Object List (PDOL)" }, 
    184. 

  184.    ['9F42'] = {"Application Currency Code" }, 
    185. 

  185.    ['9F44'] = {"Application Currency Exponent" }, 
    186. 

  186.    ['9F45'] = {"Data Authentication Code" }, 
    187. 

  187.    ['9F46'] = {"ICC Public Key Certificate" }, 
    188. 

  188.    ['9F47'] = {"ICC Public Key Exponent" }, 
    189. 

  189.    ['9F48'] = {"ICC Public Key Remainder" }, 
    190. 

  190.    ['9F4A'] = {"Static Data Authentication Tag List" }, 
    191. 

  191.    ['9F4B'] = {"Signed Dynamic Application Data" }, 
    192. 

  192.    ['9F4C'] = {"Integrated Circuit Card (ICC) Dynamic Number" },
    193. 

  193.    ['9F4F'] = {"Log Fromat" },
    194. 

  194.    ['9F51'] = {"Application Currency Code" },
    195. 

  195.    ['9F52'] = {"Card Verification Results (CVR)" }, 
    196. 

  196.    ['9F53'] = {"Consecutive Transaction Limit (International)" }, 
    197. 

  197.    ['9F54'] = {"Cumulative Total Transaction Amount Limit" }, 
    198. 

  198.    ['9F55'] = {"Geographic Indicator" }, 
    199. 

  199.    ['9F56'] = {"Issuer Authentication Indicator" },
    200. 

  200.    ['9F57'] = {"Issuer Country Code" }, 
    201. 

  201.    ['9F58'] = {"Lower Consecutive Offline Limit (Card Check)" },
    202. 

  202.    ['9F59'] = {"Upper Consecutive Offline Limit (Card Check)" }, 
    203. 

  203.    ['9F5A'] = {"Issuer URL2" }, 
    204. 

  204.    ['9F5C'] = {"Cumulative Total Transaction Amount Upper Limit" }, 
    205. 

  205.    ['9F72'] = {"Consecutive Transaction Limit (International - Country)" }, 
    206. 

  206.    ['9F73'] = {"Currency Conversion Factor" }, 
    207. 

  207.    ['9F74'] = {"VLP Issuer Authorization Code" }, 
    208. 

  208.    ['9F75'] = {"Cumulative Total Transaction Amount Limit - Dual Currency" }, 
    209. 

  209.    ['9F76'] = {"Secondary Application Currency Code" }, 
    210. 

  210.    ['9F77'] = {"VLP Funds Limit" }, 
    211. 

  211.    ['9F78'] = {"VLP Single Transaction Limit" }, 
    212. 

  212.    ['9F79'] = {"VLP Available Funds" }, 
    213. 

  213.    ['9F7F'] = {"Card Production Life Cycle (CPLC) History File Identifiers" }, 
    214. 

  214.    ['BF0C'] = {"FCI Issuer Discretionary Data" }
    215. 

  215. }
    216. 

  216. 

  217. function emv_parse(cardenv,tlv)
    218. 

  218. 	tlv_parse(cardenv,tlv,EMV_REFERENCE)
    219. 

  219. end
    220. 

  220. 

  221. PSE = "#315041592E5359532E4444463031"
    222. 

  222. 

  223. AID_LIST = { 
    224. 

  224.   "#A0000000421010",
    225. 

  225.   "#A0000000422010",
    226. 

  226.   "#A0000000031010",
    227. 

  227.   "#A0000000032010",
    228. 

  228.   "#A0000000041010",
    229. 

  229.   "#A0000000042010",
    230. 

  230.   "#A00000006900",   -- FR Moneo
    231. 

  231.   "#A0000001850002", -- UK Post Office Card Account card
    232. 

  232. }
    233. 

  233. 

  234. EXTRA_DATA = { 0x9F36, 0x9F13, 0x9F17, 0x9F4D, 0x9F4F }
    235. 

  235. 

  236. 

  237. function emv_process_pse(cardenv)
    238. 

  238. 	local sw, resp
    239. 

  239. 	local APP
    240. 

  240. 	local ref
    241. 

  241. 	local sfi
    242. 

  242. 	local FILE
    243. 

  243. 	local rec
    244. 

  244. 	local REC
    245. 

  245. 	local RECORD
    246. 

  246. 	local aid
    247. 

  247. 	local warm_atr
    248. 

  248. 

  249.         sw, resp = card.select(PSE)
    250. 

  250. 	
    251. 

  251. 	-- Could it be a french card ?
    252. 

  252. 	if sw == 0x6E00 then 
    253. 

  253. 	   local ATR
    254. 

  254. 	   card.warm_reset()
    255. 

  255. 	   warm_atr = card.last_atr()
    256. 

  256. 	   ATR = ui.tree_add_node(cardenv, "block", "ATR", "warm", #warm_atr)
    257. 

  257. 	   ui.tree_set_value(ATR,warm_atr)
    258. 

  258.            sw, resp = card.select(PSE)
    259. 

  259. 	end
    260. 

  260. 

  261. 	if sw ~= 0x9000 then
    262. 

  262.      	   log.print(log.INFO,"No PSE")
    263. 

  263. 	   return false
    264. 

  264. 	end
    265. 

  265. 

  266. 	-- Construct tree
    267. 

  267. 	APP = ui.tree_add_node(cardenv,"application","application",PSE)
    268. 

  268. 	emv_parse(APP,resp)
    269. 

  269. 

  270. 	ref = ui.tree_find_node(APP,nil,"88")
    271. 

  271. 	if (ref) then
    272. 

  272. 	   sfi = ui.tree_get_value(ref)
    273. 

  273. 	   FILE = ui.tree_add_node(APP,"file","file",sfi[0])
    274. 

  274. 

  275. 	   rec = 1
    276. 

  276. 	   AID_LIST = {}
    277. 

  277. 	   repeat 
    278. 

  278. 	     sw,resp = card.read_record(sfi[0],rec)
    279. 

  279. 	     if sw == 0x9000 then
    280. 

  280. 	        RECORD = ui.tree_add_node(FILE,"record","record",tostring(rec))
    281. 

  281. 	        emv_parse(RECORD,resp)
    282. 

  282. 	        aid = tostring(ui.tree_get_value(ui.tree_find_node(RECORD,nil,"4F")))
    283. 

  283. 	        table.insert(AID_LIST,"#"..aid)
    284. 

  284. 		rec = rec + 1
    285. 

  285.              end
    286. 

  286. 	   until sw ~= 0x9000
    287. 

  287. 	else
    288. 

  288. 	   log.print(log.WARNING,"SFI indicator (tag 88) not found in PSE")
    289. 

  289. 	end
    290. 

  290. 	return true
    291. 

  291. end
    292. 

  292. 

  293. function visa_process_application_logs(application, log_sfi, log_max)
    294. 

  294. 	local sw, resp
    295. 

  295. 	local LOG_FILE
    296. 

  296. 	local LOG_DATA
    297. 

  297. 	local LOG_FORMAT
    298. 

  298. 	local REC
    299. 

  299. 	local log_recno
    300. 

  300. 

  301. 	LOG_FILE   = ui.tree_add_node(application,"file","file",tostring(log_sfi),nil)
    302. 

  302. 	LOG_DATA   = ui.tree_add_node(LOG_FILE,"item","log data")
    303. 

  303.  	
    304. 

  304. 	log.print(log.INFO,string.format("Reading LOG SFI %i",log_sfi))
    305. 

  305. 	for log_recno =1,log_max do
    306. 

  306.            sw,resp = card.read_record(log_sfi, log_recno)
    307. 

  307. 	   if sw ~= 0x9000 then
    308. 

  308.                   log.print(log.WARNING,"Read log record failed")
    309. 

  309. 		  break
    310. 

  310. 	   else
    311. 

  311. 	          REC = ui.tree_add_node(LOG_DATA,"record","record",log_recno,#resp)
    312. 

  312. 		  ui.tree_set_value(REC,resp)
    313. 

  313. 	   end
    314. 

  314. 	end 
    315. 

  315. 

  316. end
    317. 

  317. 

  318. 

  319. function emv_process_application_logs(application, log_sfi, log_max)
    320. 

  320. 	local log_format
    321. 

  321. 	local log_tag
    322. 

  322. 	local log_items = { }
    323. 

  323. 	local sw, resp
    324. 

  324. 	local tag
    325. 

  325. 	local tag_name
    326. 

  326. 	local tag_func
    327. 

  327. 	local len
    328. 

  328. 	local i
    329. 

  329. 	local item
    330. 

  330. 	local item_pos
    331. 

  331. 	local LOG_FILE
    332. 

  332. 	local LOG_DATA
    333. 

  333. 	local LOG_FORMAT
    334. 

  334. 	local REC
    335. 

  335. 	local ITEM
    336. 

  336. 	local ITEM_AMOUNT
    337. 

  337. 	local log_recno
    338. 

  338. 	local data
    339. 

  339. 	local currency_code, currency_name, currency_digits
    340. 

  340. 

  341. 	LOG_FILE   = ui.tree_add_node(application,"file","file",log_sfi)
    342. 

  342. 	LOG_FORMAT = ui.tree_add_node(LOG_FILE,"item","log format")
    343. 

  343. 	LOG_DATA   = ui.tree_add_node(LOG_FILE,"item","log data")
    344. 

  344.  	
    345. 

  345. 	sw, log_format = card.get_data(0x9F4F)
    346. 

  346. 	if sw ~=0x9000 then
    347. 

  347. 	   log.print(log.ERROR,"Failed to get log format information, transaction logs won't be analyzed")
    348. 

  348. 	   return false
    349. 

  349. 	end
    350. 

  350. 

  351. 	log_tag, log_format = asn1.split(log_format)
    352. 

  352. 

  353. 	i = 1
    354. 

  354. 	item = ""
    355. 

  355. 	ui.tree_set_value(LOG_FORMAT,log_format);
    356. 

  356. 	while log_format 
    357. 

  357. 	do
    358. 

  358. 	    tag, log_format = asn1.split_tag(log_format)
    359. 

  359. 	    len, log_format = asn1.split_length(log_format)
    360. 

  360. 	    tag_name, tag_func = tlv_tag_info(tag,EMV_REFERENCE,0);
    361. 

  361. 	    log_items[i]= { tag, len, tag_name, tag_func }
    362. 

  362. 	    i = i+1
    363. 

  363. 	    item = item .. string.format("%X[%d] ", tag, len);
    364. 

  364. 	end
    365. 

  365. 	ui.tree_set_alt_value(LOG_FORMAT,item);
    366. 

  366. 

  367. 	log.print(log.INFO,string.format("Reading LOG SFI %i",log_sfi))
    368. 

  368. 	for log_recno =1,log_max do
    369. 

  369.            sw,resp = card.read_record(log_sfi,log_recno)
    370. 

  370. 	   if sw ~= 0x9000 then
    371. 

  371.                   log.print(log.WARNING,"Read log record failed")
    372. 

  372. 		  break
    373. 

  373. 	   else
    374. 

  374. 	          REC = ui.tree_add_node(LOG_DATA,"record","record",log_recno,#resp)
    375. 

  375. 		  item_pos = 0
    376. 

  376. 		  ITEM_AMOUNT = nil
    377. 

  377. 		  currency_digits = 0
    378. 

  378. 		  for i=1,#log_items do
    379. 

  379. 		     if log_items[i][3] then
    380. 

  380. 		        ITEM = ui.tree_add_node(REC,"item",log_items[i][3],nil,log_items[i][2])
    381. 

  381. 		     else
    382. 

  382. 		        ITEM = ui.tree_add_node(REC,"item",string.format("tag %X",log_items[i][1]),nil,log_items[i][2])
    383. 

  383. 		     end
    384. 

  384. 

  385. 		     data = bytes.sub(resp,item_pos,item_pos+log_items[i][2]-1)
    386. 

  386. 	             ui.tree_set_value(ITEM,data)
    387. 

  387. 

  388. 		     if log_items[i][1]==0x9F02 then
    389. 

  389. 		        ITEM_AMOUNT=ITEM
    390. 

  390. 		     elseif log_items[i][1]==0x5F2A then
    391. 

  391. 	                currency_code   = tonumber(tostring(data))
    392. 

  392. 		        currency_name   = iso_currency_code_name(currency_code)
    393. 

  393. 	                currency_digits = iso_currency_code_digits(currency_code)
    394. 

  394. 	                ui.tree_set_alt_value(ITEM,currency_name)
    395. 

  395. 		     elseif log_items[i][4] then
    396. 

  396. 		        log_items[i][4](ITEM,data)
    397. 

  397.                      end
    398. 

  398. 	             item_pos = item_pos + log_items[i][2]
    399. 

  399. 	          end
    400. 

  400. 

  401. 	          if ITEM_AMOUNT then
    402. 

  402. 		     ui.tree_set_alt_value(ITEM_AMOUNT,string.format("%.2f",tostring(ui.tree_get_value(ITEM_AMOUNT))/(10^currency_digits)))
    403. 

  403. 		  end
    404. 

  404. 	   end
    405. 

  405. 	end 
    406. 

  406. 

  407. end
    408. 

  408. 

  409. function emv_process_application(cardenv,aid)
    410. 

  410. 	local sw, resp
    411. 

  411. 	local APP
    412. 

  412. 	local ref
    413. 

  413. 	local GPO
    414. 

  414. 	local pdol
    415. 

  415. 	local AFL
    416. 

  416. 	local LOG
    417. 

  417. 	local extra
    418. 

  418. 	local j -- counter
    419. 

  419. 	local logformat
    420. 

  420. 

  421. 	log.print(log.INFO,"Processing application "..aid)
    422. 

  422. 

  423. 	-- Select AID
    424. 

  424. 	sw,resp = card.select(aid)
    425. 

  425. 	if sw ~=0x9000 then
    426. 

  426. 	   return false
    427. 

  427. 	end
    428. 

  428. 

  429. 

  430. 	-- Process 'File Control Infomation' and get PDOL
    431. 

  431. 	APP = ui.tree_add_node(cardenv,"application","application",aid)
    432. 

  432. 	emv_parse(APP,resp)
    433. 

  433. 	ref = ui.tree_find_node(APP,nil,"9F38")
    434. 

  434. 	if (ref) then
    435. 

  435. 	   pdol = ui.tree_get_value(ref)
    436. 

  436. 	else
    437. 

  437. 	   pdol = nil;
    438. 

  438. 	end
    439. 

  439. 

  440. 

  441. 	-- find LOG INFO
    442. 

  442. 	logformat=nil
    443. 

  443. 	ref = ui.tree_find_node(APP,nil,"9F4D")
    444. 

  444. 	-- I've seen this on some cards :
    445. 

  445. 	if ref==nil then
    446. 

  446. 	   -- proprietary style ?
    447. 

  447. 	   ref = ui.tree_find_node(APP,nil,"DF60")
    448. 

  448. 	   logformat = "VISA"
    449. 

  449. 	else
    450. 

  450. 	   logformat = "EMV"
    451. 

  451. 	end
    452. 

  452. 

  453. 	if ref then
    454. 

  454.            LOG = ui.tree_get_value(ref)
    455. 

  455. 	else
    456. 

  456. 	   sw, resp = card.get_data(0x9F4D)
    457. 

  457.       	   if sw==0x9000 then
    458. 

  458.               LOG = tostring(resp)
    459. 

  459. 	      logformat = "EMV"
    460. 

  460. 	   else 
    461. 

  461. 	      sw, resp = card.get_data(0xDF60)
    462. 

  462. 	      if sw==0x9000 then
    463. 

  463.                  LOG = tostring(resp) 
    464. 

  464. 	         logformat = "VISA"
    465. 

  465. 	      else
    466. 

  466. 	         logformat = nil
    467. 

  467.                  LOG = nil
    468. 

  468. 	      end
    469. 

  469. 	   end
    470. 

  470. 	end
    471. 

  471. 

  472. 	if logformat then
    473. 

  473. 	   log.print(log.INFO,"Found "..logformat.." transaction log indicator")
    474. 

  474. 	else
    475. 

  475. 	   log.print(log.INFO,"No transaction log indicator")
    476. 

  476. 	end
    477. 

  477. 

  478. 

  479.         if ui.question("Issue a GET PROCESSING OPTIONS command?",{"Yes","No"})==1 then
    480. 

  480.             -- Get processing options
    481. 

  481.             log.print(log.INFO,"Attempting GPO")
    482. 

  482.             sw,resp = card.get_processing_options(pdol)
    483. 

  483.             if sw ~=0x9000 then
    484. 

  484.                 if pdol then
    485. 

  485.                     -- try empty GPO just in case the card is blocking some stuff
    486. 

  486.                     log.print(log.WARNING,
    487. 

  487.                               string.format("GPO with data failed with code %X, retrying GPO without data",sw))
    488. 

  488.                     sw,resp = card.get_processing_options(nil)	
    489. 

  489.                 end
    490. 

  490.                 if sw ~=0x9000 then
    491. 

  491.                     log.print(log.ERROR,"GPO Failed")
    492. 

  492.                     return false
    493. 

  493.                 end
    494. 

  494.             end
    495. 

  495. 	    GPO = ui.tree_add_node(APP,"item","processing_options");
    496. 

  496. 	    emv_parse(GPO,resp)
    497. 

  497. 

  498. 

  499. 	    -- find AFL
    500. 

  500. 	    ref = ui.tree_find_node(GPO,nil,"80")
    501. 

  501. 	    AFL = ui.tree_get_value(ref)
    502. 

  502. 

  503.             if AFL then
    504. 

  504. 	        -- Read all the application data
    505. 

  505. 	        for i=2,#AFL-1,4 do
    506. 

  506. 	            local sfi
    507. 

  507. 	            local rec
    508. 

  508. 	            log.print(log.INFO,string.format("Reading SFI %i",bit.SHR(AFL[i],3)))
    509. 

  509. 	            sfi = ui.tree_add_node(APP,"file","file",bit.SHR(AFL[i],3))
    510. 

  510. 	            for j=AFL[i+1],AFL[i+2] do
    511. 

  511. 		        log.print(log.INFO,string.format("Reading record %i",j))
    512. 

  512. 		        sw,resp = card.read_record(bit.SHR(AFL[i],3),j)
    513. 

  513. 	                if sw ~= 0x9000 then
    514. 

  514. 		            log.print(log.ERROR,"Read record failed")
    515. 

  515. 		        else
    516. 

  516. 		            rec = ui.tree_add_node(sfi,"record","record",j)
    517. 

  517. 		            emv_parse(rec,resp)
    518. 

  518. 		        end
    519. 

  519. 	            end -- for
    520. 

  520. 	        end -- for
    521. 

  521.             else
    522. 

  522.                 log.print(log.LOG_WARNING,"No AFL (Application File Locator) found in GPO data.")
    523. 

  523.             end -- AFL
    524. 

  524. 	end -- GPO
    525. 

  525. 

  526. 	-- Read logs if they exist
    527. 

  527. 	if logformat=="EMV" then
    528. 

  528.            emv_process_application_logs(APP,LOG[0],LOG[1])
    529. 

  529. 	elseif logformat=="VISA" then
    530. 

  530. 	   visa_process_application_logs(APP,LOG[0],LOG[1])
    531. 

  531. 	end
    532. 

  532. 

  533. 	-- Read extra data 
    534. 

  534. 	extra = ui.tree_add_node(APP,"block","extra emv data")
    535. 

  535. 	for j=1,#EXTRA_DATA do
    536. 

  536. 	    sw,resp = card.get_data(EXTRA_DATA[j])
    537. 

  537. 	    if sw == 0x9000 then
    538. 

  538. 	       emv_parse(extra,resp)
    539. 

  539. 	    end
    540. 

  540. 	end
    541. 

  541. 	
    542. 

  542. 	return true
    543. 

  543. end
    544. 

  544. 

  545. 

  546. CPLC_DATA =
    547. 

  547. {
    548. 

  548.   { "IC Fabricator", 2, 0 } ,
    549. 

  549.   { "IC Type", 2, 0 },
    550. 

  550.   { "Operating System Provider Identifier", 2 },
    551. 

  551.   { "Operating System Release Date", 2 },
    552. 

  552.   { "Operating System Release Level", 2 },
    553. 

  553.   { "IC Fabrication Date", 2 },
    554. 

  554.   { "IC Serial Number", 4 },
    555. 

  555.   { "IC Batch Identifier", 2 },
    556. 

  556.   { "IC ModuleFabricator", 2 },
    557. 

  557.   { "IC ModulePackaging Date", 2 },
    558. 

  558.   { "ICC Manufacturer", 2 },
    559. 

  559.   { "IC Embedding Date", 2 },
    560. 

  560.   { "Prepersonalizer Identifier", 2 },
    561. 

  561.   { "Prepersonalization Date", 2 },
    562. 

  562.   { "Prepersonalization Equipment", 4 },
    563. 

  563.   { "Personalizer Identifier", 2 },
    564. 

  564.   { "Personalization Date", 2 },
    565. 

  565.   { "Personalization Equipment", 4 },
    566. 

  566. }
    567. 

  567. 

  568. 

  569. function emv_process_cplc(cardenv)
    570. 

  570. 	local sw, resp
    571. 

  571. 	local CPLC
    572. 

  572. 	local cplc_data
    573. 

  573. 	local cplc_tag
    574. 

  574. 	local i
    575. 

  575. 	local pos
    576. 

  576. 	local ref2
    577. 

  577. 

  578. 	log.print(log.INFO,"Processing CPLC data")
    579. 

  579. 	sw,resp = card.get_data(0x9F7F)
    580. 

  580. 	if sw == 0x9000 then
    581. 

  581. 	   cplc_tag, cplc_data = asn1.split(resp)
    582. 

  582. 	   CPLC      = ui.tree_add_node(cardenv,"block","cpcl data","9F7F",#cplc_data)
    583. 

  583. 	   ui.tree_set_value(CPLC,cplc_data) 
    584. 

  584. 	   pos = 0
    585. 

  585. 	   for i=1,#CPLC_DATA do
    586. 

  586. 	       ref2 = ui.tree_add_node(CPLC,
    587. 

  587. 				       "item",
    588. 

  588. 				       CPLC_DATA[i][1],
    589. 

  589. 				       pos);
    590. 

  590. 	       ui.tree_set_value(ref2,bytes.sub(cplc_data,pos,pos+CPLC_DATA[i][2]-1))
    591. 

  591. 	       pos = pos + CPLC_DATA[i][2]
    592. 

  592. 	   end
    593. 

  593. 	end
    594. 

  594. end
    595. 

  595. 

  596. 

  597. -- PROCESSING
    598. 

  598. 

  599. if card.connect() then
    600. 

  600. 

  601.    local mycard = card.tree_startup("EMV")
    602. 

  602. 

  603.    emv_process_pse(mycard)
    604. 

  604.    card.warm_reset()
    605. 

  605. 

  606.    for i=1,#AID_LIST
    607. 

  607.    do
    608. 

  608.         -- print(AID_LIST[i])
    609. 

  609. 	emv_process_application(mycard,AID_LIST[i])
    610. 

  610. 	card.warm_reset()
    611. 

  611.    end
    612. 

  612. 

  613.    emv_process_cplc(mycard)
    614. 

  614. 

  615.    card.disconnect()
    616. 

  616. else
    617. 

  617.    ui.question("No card detected in reader",{"OK"})
    618. 

  618. end
    619.