Line data Source code
1 : /* ccid-driver.c - USB ChipCardInterfaceDevices driver
2 : * Copyright (C) 2003, 2004, 2005, 2006, 2007
3 : * 2008, 2009, 2013 Free Software Foundation, Inc.
4 : * Written by Werner Koch.
5 : *
6 : * This file is part of GnuPG.
7 : *
8 : * GnuPG is free software; you can redistribute it and/or modify
9 : * it under the terms of the GNU General Public License as published by
10 : * the Free Software Foundation; either version 3 of the License, or
11 : * (at your option) any later version.
12 : *
13 : * GnuPG is distributed in the hope that it will be useful,
14 : * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 : * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 : * GNU General Public License for more details.
17 : *
18 : * You should have received a copy of the GNU General Public License
19 : * along with this program; if not, see <http://www.gnu.org/licenses/>.
20 : *
21 : * ALTERNATIVELY, this file may be distributed under the terms of the
22 : * following license, in which case the provisions of this license are
23 : * required INSTEAD OF the GNU General Public License. If you wish to
24 : * allow use of your version of this file only under the terms of the
25 : * GNU General Public License, and not to allow others to use your
26 : * version of this file under the terms of the following license,
27 : * indicate your decision by deleting this paragraph and the license
28 : * below.
29 : *
30 : * Redistribution and use in source and binary forms, with or without
31 : * modification, are permitted provided that the following conditions
32 : * are met:
33 : * 1. Redistributions of source code must retain the above copyright
34 : * notice, and the entire permission notice in its entirety,
35 : * including the disclaimer of warranties.
36 : * 2. Redistributions in binary form must reproduce the above copyright
37 : * notice, this list of conditions and the following disclaimer in the
38 : * documentation and/or other materials provided with the distribution.
39 : * 3. The name of the author may not be used to endorse or promote
40 : * products derived from this software without specific prior
41 : * written permission.
42 : *
43 : * THIS SOFTWARE IS PROVIDED "AS IS" AND ANY EXPRESS OR IMPLIED
44 : * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
45 : * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
46 : * DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
47 : * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
48 : * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
49 : * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
50 : * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
51 : * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
52 : * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
53 : * OF THE POSSIBILITY OF SUCH DAMAGE.
54 : */
55 :
56 :
57 : /* CCID (ChipCardInterfaceDevices) is a specification for accessing
58 : smartcard via a reader connected to the USB.
59 :
60 : This is a limited driver allowing to use some CCID drivers directly
61 : without any other specila drivers. This is a fallback driver to be
62 : used when nothing else works or the system should be kept minimal
63 : for security reasons. It makes use of the libusb library to gain
64 : portable access to USB.
65 :
66 : This driver has been tested with the SCM SCR335 and SPR532
67 : smartcard readers and requires that a reader implements APDU or
68 : TPDU level exchange and does fully automatic initialization.
69 : */
70 :
71 : #ifdef HAVE_CONFIG_H
72 : # include <config.h>
73 : #endif
74 :
75 : #if defined(HAVE_LIBUSB) || defined(TEST)
76 :
77 : #include <errno.h>
78 : #include <stdio.h>
79 : #include <stdlib.h>
80 : #include <string.h>
81 : #include <assert.h>
82 : #include <sys/types.h>
83 : #include <sys/stat.h>
84 : #include <fcntl.h>
85 : #include <time.h>
86 : #include <unistd.h>
87 : #ifdef HAVE_NPTH
88 : # include <npth.h>
89 : #endif /*HAVE_NPTH*/
90 :
91 : #include <libusb.h>
92 :
93 : #include "scdaemon.h"
94 : #include "iso7816.h"
95 : #define CCID_DRIVER_INCLUDE_USB_IDS 1
96 : #include "ccid-driver.h"
97 :
98 : #define DRVNAME "ccid-driver: "
99 :
100 : /* Max length of buffer with out CCID message header of 10-byte
101 : Sending: 547 for RSA-4096 key import
102 : APDU size = 540 (24+4+256+256)
103 : commnd + lc + le = 4 + 3 + 0
104 : Sending: write data object of cardholder certificate
105 : APDU size = 2048
106 : commnd + lc + le = 4 + 3 + 0
107 : Receiving: 2048 for cardholder certificate
108 : */
109 : #define CCID_MAX_BUF (2048+7+10)
110 :
111 : /* CCID command timeout. OpenPGPcard v2.1 requires timeout of 13 seconds. */
112 : #define CCID_CMD_TIMEOUT (13*1000)
113 :
114 : /* Depending on how this source is used we either define our error
115 : output to go to stderr or to the GnuPG based logging functions. We
116 : use the latter when GNUPG_MAJOR_VERSION or GNUPG_SCD_MAIN_HEADER
117 : are defined. */
118 : #if defined(GNUPG_MAJOR_VERSION) || defined(GNUPG_SCD_MAIN_HEADER)
119 :
120 : #if defined(GNUPG_SCD_MAIN_HEADER)
121 : # include GNUPG_SCD_MAIN_HEADER
122 : #elif GNUPG_MAJOR_VERSION == 1 /* GnuPG Version is < 1.9. */
123 : # include "options.h"
124 : # include "util.h"
125 : # include "memory.h"
126 : # include "cardglue.h"
127 : # else /* This is the modularized GnuPG 1.9 or later. */
128 : # include "scdaemon.h"
129 : #endif
130 :
131 :
132 : # define DEBUGOUT(t) do { if (debug_level) \
133 : log_debug (DRVNAME t); } while (0)
134 : # define DEBUGOUT_1(t,a) do { if (debug_level) \
135 : log_debug (DRVNAME t,(a)); } while (0)
136 : # define DEBUGOUT_2(t,a,b) do { if (debug_level) \
137 : log_debug (DRVNAME t,(a),(b)); } while (0)
138 : # define DEBUGOUT_3(t,a,b,c) do { if (debug_level) \
139 : log_debug (DRVNAME t,(a),(b),(c));} while (0)
140 : # define DEBUGOUT_4(t,a,b,c,d) do { if (debug_level) \
141 : log_debug (DRVNAME t,(a),(b),(c),(d));} while (0)
142 : # define DEBUGOUT_CONT(t) do { if (debug_level) \
143 : log_printf (t); } while (0)
144 : # define DEBUGOUT_CONT_1(t,a) do { if (debug_level) \
145 : log_printf (t,(a)); } while (0)
146 : # define DEBUGOUT_CONT_2(t,a,b) do { if (debug_level) \
147 : log_printf (t,(a),(b)); } while (0)
148 : # define DEBUGOUT_CONT_3(t,a,b,c) do { if (debug_level) \
149 : log_printf (t,(a),(b),(c)); } while (0)
150 : # define DEBUGOUT_LF() do { if (debug_level) \
151 : log_printf ("\n"); } while (0)
152 :
153 : #else /* Other usage of this source - don't use gnupg specifics. */
154 :
155 : # define DEBUGOUT(t) do { if (debug_level) \
156 : fprintf (stderr, DRVNAME t); } while (0)
157 : # define DEBUGOUT_1(t,a) do { if (debug_level) \
158 : fprintf (stderr, DRVNAME t, (a)); } while (0)
159 : # define DEBUGOUT_2(t,a,b) do { if (debug_level) \
160 : fprintf (stderr, DRVNAME t, (a), (b)); } while (0)
161 : # define DEBUGOUT_3(t,a,b,c) do { if (debug_level) \
162 : fprintf (stderr, DRVNAME t, (a), (b), (c)); } while (0)
163 : # define DEBUGOUT_4(t,a,b,c,d) do { if (debug_level) \
164 : fprintf (stderr, DRVNAME t, (a), (b), (c), (d));} while(0)
165 : # define DEBUGOUT_CONT(t) do { if (debug_level) \
166 : fprintf (stderr, t); } while (0)
167 : # define DEBUGOUT_CONT_1(t,a) do { if (debug_level) \
168 : fprintf (stderr, t, (a)); } while (0)
169 : # define DEBUGOUT_CONT_2(t,a,b) do { if (debug_level) \
170 : fprintf (stderr, t, (a), (b)); } while (0)
171 : # define DEBUGOUT_CONT_3(t,a,b,c) do { if (debug_level) \
172 : fprintf (stderr, t, (a), (b), (c)); } while (0)
173 : # define DEBUGOUT_LF() do { if (debug_level) \
174 : putc ('\n', stderr); } while (0)
175 :
176 : #endif /* This source not used by scdaemon. */
177 :
178 :
179 : #ifndef EAGAIN
180 : #define EAGAIN EWOULDBLOCK
181 : #endif
182 :
183 :
184 :
185 : enum {
186 : RDR_to_PC_NotifySlotChange= 0x50,
187 : RDR_to_PC_HardwareError = 0x51,
188 :
189 : PC_to_RDR_SetParameters = 0x61,
190 : PC_to_RDR_IccPowerOn = 0x62,
191 : PC_to_RDR_IccPowerOff = 0x63,
192 : PC_to_RDR_GetSlotStatus = 0x65,
193 : PC_to_RDR_Secure = 0x69,
194 : PC_to_RDR_T0APDU = 0x6a,
195 : PC_to_RDR_Escape = 0x6b,
196 : PC_to_RDR_GetParameters = 0x6c,
197 : PC_to_RDR_ResetParameters = 0x6d,
198 : PC_to_RDR_IccClock = 0x6e,
199 : PC_to_RDR_XfrBlock = 0x6f,
200 : PC_to_RDR_Mechanical = 0x71,
201 : PC_to_RDR_Abort = 0x72,
202 : PC_to_RDR_SetDataRate = 0x73,
203 :
204 : RDR_to_PC_DataBlock = 0x80,
205 : RDR_to_PC_SlotStatus = 0x81,
206 : RDR_to_PC_Parameters = 0x82,
207 : RDR_to_PC_Escape = 0x83,
208 : RDR_to_PC_DataRate = 0x84
209 : };
210 :
211 :
212 : /* Two macro to detect whether a CCID command has failed and to get
213 : the error code. These macros assume that we can access the
214 : mandatory first 10 bytes of a CCID message in BUF. */
215 : #define CCID_COMMAND_FAILED(buf) ((buf)[7] & 0x40)
216 : #define CCID_ERROR_CODE(buf) (((unsigned char *)(buf))[8])
217 :
218 :
219 : /* A list and a table with special transport descriptions. */
220 : enum {
221 : TRANSPORT_USB = 0, /* Standard USB transport. */
222 : TRANSPORT_CM4040 = 1 /* As used by the Cardman 4040. */
223 : };
224 :
225 : static struct
226 : {
227 : char *name; /* Device name. */
228 : int type;
229 :
230 : } transports[] = {
231 : { "/dev/cmx0", TRANSPORT_CM4040 },
232 : { "/dev/cmx1", TRANSPORT_CM4040 },
233 : { NULL },
234 : };
235 :
236 :
237 : /* Store information on the driver's state. A pointer to such a
238 : structure is used as handle for most functions. */
239 : struct ccid_driver_s
240 : {
241 : libusb_device_handle *idev;
242 : char *rid;
243 : int dev_fd; /* -1 for USB transport or file descriptor of the
244 : transport device. */
245 : unsigned short id_vendor;
246 : unsigned short id_product;
247 : unsigned short bcd_device;
248 : int ifc_no;
249 : int ep_bulk_out;
250 : int ep_bulk_in;
251 : int ep_intr;
252 : int seqno;
253 : unsigned char t1_ns;
254 : unsigned char t1_nr;
255 : unsigned char nonnull_nad;
256 : int max_ifsd;
257 : int max_ccid_msglen;
258 : int ifsc;
259 : unsigned char apdu_level:2; /* Reader supports short APDU level
260 : exchange. With a value of 2 short
261 : and extended level is supported.*/
262 : unsigned int auto_voltage:1;
263 : unsigned int auto_param:1;
264 : unsigned int auto_pps:1;
265 : unsigned int auto_ifsd:1;
266 : unsigned int powered_off:1;
267 : unsigned int has_pinpad:2;
268 : unsigned int enodev_seen:1;
269 :
270 : time_t last_progress; /* Last time we sent progress line. */
271 :
272 : /* The progress callback and its first arg as supplied to
273 : ccid_set_progress_cb. */
274 : void (*progress_cb)(void *, const char *, int, int, int);
275 : void *progress_cb_arg;
276 : };
277 :
278 :
279 : static int initialized_usb; /* Tracks whether USB has been initialized. */
280 : static int debug_level; /* Flag to control the debug output.
281 : 0 = No debugging
282 : 1 = USB I/O info
283 : 2 = Level 1 + T=1 protocol tracing
284 : 3 = Level 2 + USB/I/O tracing of SlotStatus.
285 : */
286 :
287 :
288 : static unsigned int compute_edc (const unsigned char *data, size_t datalen,
289 : int use_crc);
290 : static int bulk_out (ccid_driver_t handle, unsigned char *msg, size_t msglen,
291 : int no_debug);
292 : static int bulk_in (ccid_driver_t handle, unsigned char *buffer, size_t length,
293 : size_t *nread, int expected_type, int seqno, int timeout,
294 : int no_debug);
295 : static int abort_cmd (ccid_driver_t handle, int seqno);
296 : static int send_escape_cmd (ccid_driver_t handle, const unsigned char *data,
297 : size_t datalen, unsigned char *result,
298 : size_t resultmax, size_t *resultlen);
299 :
300 : /* Convert a little endian stored 4 byte value into an unsigned
301 : integer. */
302 : static unsigned int
303 0 : convert_le_u32 (const unsigned char *buf)
304 : {
305 0 : return buf[0] | (buf[1] << 8) | (buf[2] << 16) | ((unsigned int)buf[3] << 24);
306 : }
307 :
308 :
309 : /* Convert a little endian stored 2 byte value into an unsigned
310 : integer. */
311 : static unsigned int
312 0 : convert_le_u16 (const unsigned char *buf)
313 : {
314 0 : return buf[0] | (buf[1] << 8);
315 : }
316 :
317 : static void
318 0 : set_msg_len (unsigned char *msg, unsigned int length)
319 : {
320 0 : msg[1] = length;
321 0 : msg[2] = length >> 8;
322 0 : msg[3] = length >> 16;
323 0 : msg[4] = length >> 24;
324 0 : }
325 :
326 :
327 : static void
328 0 : my_sleep (int seconds)
329 : {
330 : #ifdef USE_NPTH
331 0 : npth_sleep (seconds);
332 : #else
333 : # ifdef HAVE_W32_SYSTEM
334 : Sleep (seconds*1000);
335 : # else
336 : sleep (seconds);
337 : # endif
338 : #endif
339 0 : }
340 :
341 : static void
342 0 : print_progress (ccid_driver_t handle)
343 : {
344 0 : time_t ct = time (NULL);
345 :
346 : /* We don't want to print progress lines too often. */
347 0 : if (ct == handle->last_progress)
348 0 : return;
349 :
350 0 : if (handle->progress_cb)
351 0 : handle->progress_cb (handle->progress_cb_arg, "card_busy", 'w', 0, 0);
352 :
353 0 : handle->last_progress = ct;
354 : }
355 :
356 :
357 :
358 : /* Pint an error message for a failed CCID command including a textual
359 : error code. MSG shall be the CCID message at a minimum of 10 bytes. */
360 : static void
361 0 : print_command_failed (const unsigned char *msg)
362 : {
363 : const char *t;
364 : char buffer[100];
365 : int ec;
366 :
367 0 : if (!debug_level)
368 0 : return;
369 :
370 0 : ec = CCID_ERROR_CODE (msg);
371 0 : switch (ec)
372 : {
373 0 : case 0x00: t = "Command not supported"; break;
374 :
375 0 : case 0xE0: t = "Slot busy"; break;
376 0 : case 0xEF: t = "PIN cancelled"; break;
377 0 : case 0xF0: t = "PIN timeout"; break;
378 :
379 0 : case 0xF2: t = "Automatic sequence ongoing"; break;
380 0 : case 0xF3: t = "Deactivated Protocol"; break;
381 0 : case 0xF4: t = "Procedure byte conflict"; break;
382 0 : case 0xF5: t = "ICC class not supported"; break;
383 0 : case 0xF6: t = "ICC protocol not supported"; break;
384 0 : case 0xF7: t = "Bad checksum in ATR"; break;
385 0 : case 0xF8: t = "Bad TS in ATR"; break;
386 :
387 0 : case 0xFB: t = "An all inclusive hardware error occurred"; break;
388 0 : case 0xFC: t = "Overrun error while talking to the ICC"; break;
389 0 : case 0xFD: t = "Parity error while talking to the ICC"; break;
390 0 : case 0xFE: t = "CCID timed out while talking to the ICC"; break;
391 0 : case 0xFF: t = "Host aborted the current activity"; break;
392 :
393 : default:
394 0 : if (ec > 0 && ec < 128)
395 0 : sprintf (buffer, "Parameter error at offset %d", ec);
396 : else
397 0 : sprintf (buffer, "Error code %02X", ec);
398 0 : t = buffer;
399 0 : break;
400 : }
401 0 : DEBUGOUT_1 ("CCID command failed: %s\n", t);
402 : }
403 :
404 :
405 : static void
406 0 : print_pr_data (const unsigned char *data, size_t datalen, size_t off)
407 : {
408 0 : int any = 0;
409 :
410 0 : for (; off < datalen; off++)
411 : {
412 0 : if (!any || !(off % 16))
413 : {
414 0 : if (any)
415 0 : DEBUGOUT_LF ();
416 0 : DEBUGOUT_1 (" [%04lu] ", (unsigned long) off);
417 : }
418 0 : DEBUGOUT_CONT_1 (" %02X", data[off]);
419 0 : any = 1;
420 : }
421 0 : if (any && (off % 16))
422 0 : DEBUGOUT_LF ();
423 0 : }
424 :
425 :
426 : static void
427 0 : print_p2r_header (const char *name, const unsigned char *msg, size_t msglen)
428 : {
429 0 : DEBUGOUT_1 ("%s:\n", name);
430 0 : if (msglen < 7)
431 0 : return;
432 0 : DEBUGOUT_1 (" dwLength ..........: %u\n", convert_le_u32 (msg+1));
433 0 : DEBUGOUT_1 (" bSlot .............: %u\n", msg[5]);
434 0 : DEBUGOUT_1 (" bSeq ..............: %u\n", msg[6]);
435 : }
436 :
437 :
438 : static void
439 0 : print_p2r_iccpoweron (const unsigned char *msg, size_t msglen)
440 : {
441 0 : print_p2r_header ("PC_to_RDR_IccPowerOn", msg, msglen);
442 0 : if (msglen < 10)
443 0 : return;
444 0 : DEBUGOUT_2 (" bPowerSelect ......: 0x%02x (%s)\n", msg[7],
445 : msg[7] == 0? "auto":
446 : msg[7] == 1? "5.0 V":
447 : msg[7] == 2? "3.0 V":
448 : msg[7] == 3? "1.8 V":"");
449 0 : print_pr_data (msg, msglen, 8);
450 : }
451 :
452 :
453 : static void
454 0 : print_p2r_iccpoweroff (const unsigned char *msg, size_t msglen)
455 : {
456 0 : print_p2r_header ("PC_to_RDR_IccPowerOff", msg, msglen);
457 0 : print_pr_data (msg, msglen, 7);
458 0 : }
459 :
460 :
461 : static void
462 0 : print_p2r_getslotstatus (const unsigned char *msg, size_t msglen)
463 : {
464 0 : print_p2r_header ("PC_to_RDR_GetSlotStatus", msg, msglen);
465 0 : print_pr_data (msg, msglen, 7);
466 0 : }
467 :
468 :
469 : static void
470 0 : print_p2r_xfrblock (const unsigned char *msg, size_t msglen)
471 : {
472 : unsigned int val;
473 :
474 0 : print_p2r_header ("PC_to_RDR_XfrBlock", msg, msglen);
475 0 : if (msglen < 10)
476 0 : return;
477 0 : DEBUGOUT_1 (" bBWI ..............: 0x%02x\n", msg[7]);
478 0 : val = convert_le_u16 (msg+8);
479 0 : DEBUGOUT_2 (" wLevelParameter ...: 0x%04x%s\n", val,
480 : val == 1? " (continued)":
481 : val == 2? " (continues+ends)":
482 : val == 3? " (continues+continued)":
483 : val == 16? " (DataBlock-expected)":"");
484 0 : print_pr_data (msg, msglen, 10);
485 : }
486 :
487 :
488 : static void
489 0 : print_p2r_getparameters (const unsigned char *msg, size_t msglen)
490 : {
491 0 : print_p2r_header ("PC_to_RDR_GetParameters", msg, msglen);
492 0 : print_pr_data (msg, msglen, 7);
493 0 : }
494 :
495 :
496 : static void
497 0 : print_p2r_resetparameters (const unsigned char *msg, size_t msglen)
498 : {
499 0 : print_p2r_header ("PC_to_RDR_ResetParameters", msg, msglen);
500 0 : print_pr_data (msg, msglen, 7);
501 0 : }
502 :
503 :
504 : static void
505 0 : print_p2r_setparameters (const unsigned char *msg, size_t msglen)
506 : {
507 0 : print_p2r_header ("PC_to_RDR_SetParameters", msg, msglen);
508 0 : if (msglen < 10)
509 0 : return;
510 0 : DEBUGOUT_1 (" bProtocolNum ......: 0x%02x\n", msg[7]);
511 0 : print_pr_data (msg, msglen, 8);
512 : }
513 :
514 :
515 : static void
516 0 : print_p2r_escape (const unsigned char *msg, size_t msglen)
517 : {
518 0 : print_p2r_header ("PC_to_RDR_Escape", msg, msglen);
519 0 : print_pr_data (msg, msglen, 7);
520 0 : }
521 :
522 :
523 : static void
524 0 : print_p2r_iccclock (const unsigned char *msg, size_t msglen)
525 : {
526 0 : print_p2r_header ("PC_to_RDR_IccClock", msg, msglen);
527 0 : if (msglen < 10)
528 0 : return;
529 0 : DEBUGOUT_1 (" bClockCommand .....: 0x%02x\n", msg[7]);
530 0 : print_pr_data (msg, msglen, 8);
531 : }
532 :
533 :
534 : static void
535 0 : print_p2r_to0apdu (const unsigned char *msg, size_t msglen)
536 : {
537 0 : print_p2r_header ("PC_to_RDR_T0APDU", msg, msglen);
538 0 : if (msglen < 10)
539 0 : return;
540 0 : DEBUGOUT_1 (" bmChanges .........: 0x%02x\n", msg[7]);
541 0 : DEBUGOUT_1 (" bClassGetResponse .: 0x%02x\n", msg[8]);
542 0 : DEBUGOUT_1 (" bClassEnvelope ....: 0x%02x\n", msg[9]);
543 0 : print_pr_data (msg, msglen, 10);
544 : }
545 :
546 :
547 : static void
548 0 : print_p2r_secure (const unsigned char *msg, size_t msglen)
549 : {
550 : unsigned int val;
551 :
552 0 : print_p2r_header ("PC_to_RDR_Secure", msg, msglen);
553 0 : if (msglen < 10)
554 0 : return;
555 0 : DEBUGOUT_1 (" bBMI ..............: 0x%02x\n", msg[7]);
556 0 : val = convert_le_u16 (msg+8);
557 0 : DEBUGOUT_2 (" wLevelParameter ...: 0x%04x%s\n", val,
558 : val == 1? " (continued)":
559 : val == 2? " (continues+ends)":
560 : val == 3? " (continues+continued)":
561 : val == 16? " (DataBlock-expected)":"");
562 0 : print_pr_data (msg, msglen, 10);
563 : }
564 :
565 :
566 : static void
567 0 : print_p2r_mechanical (const unsigned char *msg, size_t msglen)
568 : {
569 0 : print_p2r_header ("PC_to_RDR_Mechanical", msg, msglen);
570 0 : if (msglen < 10)
571 0 : return;
572 0 : DEBUGOUT_1 (" bFunction .........: 0x%02x\n", msg[7]);
573 0 : print_pr_data (msg, msglen, 8);
574 : }
575 :
576 :
577 : static void
578 0 : print_p2r_abort (const unsigned char *msg, size_t msglen)
579 : {
580 0 : print_p2r_header ("PC_to_RDR_Abort", msg, msglen);
581 0 : print_pr_data (msg, msglen, 7);
582 0 : }
583 :
584 :
585 : static void
586 0 : print_p2r_setdatarate (const unsigned char *msg, size_t msglen)
587 : {
588 0 : print_p2r_header ("PC_to_RDR_SetDataRate", msg, msglen);
589 0 : if (msglen < 10)
590 0 : return;
591 0 : print_pr_data (msg, msglen, 7);
592 : }
593 :
594 :
595 : static void
596 0 : print_p2r_unknown (const unsigned char *msg, size_t msglen)
597 : {
598 0 : print_p2r_header ("Unknown PC_to_RDR command", msg, msglen);
599 0 : if (msglen < 10)
600 0 : return;
601 0 : print_pr_data (msg, msglen, 0);
602 : }
603 :
604 :
605 : static void
606 0 : print_r2p_header (const char *name, const unsigned char *msg, size_t msglen)
607 : {
608 0 : DEBUGOUT_1 ("%s:\n", name);
609 0 : if (msglen < 9)
610 0 : return;
611 0 : DEBUGOUT_1 (" dwLength ..........: %u\n", convert_le_u32 (msg+1));
612 0 : DEBUGOUT_1 (" bSlot .............: %u\n", msg[5]);
613 0 : DEBUGOUT_1 (" bSeq ..............: %u\n", msg[6]);
614 0 : DEBUGOUT_1 (" bStatus ...........: %u\n", msg[7]);
615 0 : if (msg[8])
616 0 : DEBUGOUT_1 (" bError ............: %u\n", msg[8]);
617 : }
618 :
619 :
620 : static void
621 0 : print_r2p_datablock (const unsigned char *msg, size_t msglen)
622 : {
623 0 : print_r2p_header ("RDR_to_PC_DataBlock", msg, msglen);
624 0 : if (msglen < 10)
625 0 : return;
626 0 : if (msg[9])
627 0 : DEBUGOUT_2 (" bChainParameter ...: 0x%02x%s\n", msg[9],
628 : msg[9] == 1? " (continued)":
629 : msg[9] == 2? " (continues+ends)":
630 : msg[9] == 3? " (continues+continued)":
631 : msg[9] == 16? " (XferBlock-expected)":"");
632 0 : print_pr_data (msg, msglen, 10);
633 : }
634 :
635 :
636 : static void
637 0 : print_r2p_slotstatus (const unsigned char *msg, size_t msglen)
638 : {
639 0 : print_r2p_header ("RDR_to_PC_SlotStatus", msg, msglen);
640 0 : if (msglen < 10)
641 0 : return;
642 0 : DEBUGOUT_2 (" bClockStatus ......: 0x%02x%s\n", msg[9],
643 : msg[9] == 0? " (running)":
644 : msg[9] == 1? " (stopped-L)":
645 : msg[9] == 2? " (stopped-H)":
646 : msg[9] == 3? " (stopped)":"");
647 0 : print_pr_data (msg, msglen, 10);
648 : }
649 :
650 :
651 : static void
652 0 : print_r2p_parameters (const unsigned char *msg, size_t msglen)
653 : {
654 0 : print_r2p_header ("RDR_to_PC_Parameters", msg, msglen);
655 0 : if (msglen < 10)
656 0 : return;
657 :
658 0 : DEBUGOUT_1 (" protocol ..........: T=%d\n", msg[9]);
659 0 : if (msglen == 17 && msg[9] == 1)
660 : {
661 : /* Protocol T=1. */
662 0 : DEBUGOUT_1 (" bmFindexDindex ....: %02X\n", msg[10]);
663 0 : DEBUGOUT_1 (" bmTCCKST1 .........: %02X\n", msg[11]);
664 0 : DEBUGOUT_1 (" bGuardTimeT1 ......: %02X\n", msg[12]);
665 0 : DEBUGOUT_1 (" bmWaitingIntegersT1: %02X\n", msg[13]);
666 0 : DEBUGOUT_1 (" bClockStop ........: %02X\n", msg[14]);
667 0 : DEBUGOUT_1 (" bIFSC .............: %d\n", msg[15]);
668 0 : DEBUGOUT_1 (" bNadValue .........: %d\n", msg[16]);
669 : }
670 : else
671 0 : print_pr_data (msg, msglen, 10);
672 : }
673 :
674 :
675 : static void
676 0 : print_r2p_escape (const unsigned char *msg, size_t msglen)
677 : {
678 0 : print_r2p_header ("RDR_to_PC_Escape", msg, msglen);
679 0 : if (msglen < 10)
680 0 : return;
681 0 : DEBUGOUT_1 (" buffer[9] .........: %02X\n", msg[9]);
682 0 : print_pr_data (msg, msglen, 10);
683 : }
684 :
685 :
686 : static void
687 0 : print_r2p_datarate (const unsigned char *msg, size_t msglen)
688 : {
689 0 : print_r2p_header ("RDR_to_PC_DataRate", msg, msglen);
690 0 : if (msglen < 10)
691 0 : return;
692 0 : if (msglen >= 18)
693 : {
694 0 : DEBUGOUT_1 (" dwClockFrequency ..: %u\n", convert_le_u32 (msg+10));
695 0 : DEBUGOUT_1 (" dwDataRate ..... ..: %u\n", convert_le_u32 (msg+14));
696 0 : print_pr_data (msg, msglen, 18);
697 : }
698 : else
699 0 : print_pr_data (msg, msglen, 10);
700 : }
701 :
702 :
703 : static void
704 0 : print_r2p_unknown (const unsigned char *msg, size_t msglen)
705 : {
706 0 : print_r2p_header ("Unknown RDR_to_PC command", msg, msglen);
707 0 : if (msglen < 10)
708 0 : return;
709 0 : DEBUGOUT_1 (" bMessageType ......: %02X\n", msg[0]);
710 0 : DEBUGOUT_1 (" buffer[9] .........: %02X\n", msg[9]);
711 0 : print_pr_data (msg, msglen, 10);
712 : }
713 :
714 :
715 : /* Given a handle used for special transport prepare it for use. In
716 : particular setup all information in way that resembles what
717 : parse_cccid_descriptor does. */
718 : static void
719 0 : prepare_special_transport (ccid_driver_t handle)
720 : {
721 0 : assert (!handle->id_vendor);
722 :
723 0 : handle->nonnull_nad = 0;
724 0 : handle->auto_ifsd = 0;
725 0 : handle->max_ifsd = 32;
726 0 : handle->max_ccid_msglen = CCID_MAX_BUF;
727 0 : handle->has_pinpad = 0;
728 0 : handle->apdu_level = 0;
729 0 : switch (handle->id_product)
730 : {
731 : case TRANSPORT_CM4040:
732 0 : DEBUGOUT ("setting up transport for CardMan 4040\n");
733 0 : handle->apdu_level = 1;
734 0 : break;
735 :
736 0 : default: assert (!"transport not defined");
737 : }
738 0 : }
739 :
740 : /* Parse a CCID descriptor, optionally print all available features
741 : and test whether this reader is usable by this driver. Returns 0
742 : if it is usable.
743 :
744 : Note, that this code is based on the one in lsusb.c of the
745 : usb-utils package, I wrote on 2003-09-01. -wk. */
746 : static int
747 0 : parse_ccid_descriptor (ccid_driver_t handle,
748 : const unsigned char *buf, size_t buflen)
749 : {
750 : unsigned int i;
751 : unsigned int us;
752 0 : int have_t1 = 0, have_tpdu=0;
753 :
754 :
755 0 : handle->nonnull_nad = 0;
756 0 : handle->auto_ifsd = 0;
757 0 : handle->max_ifsd = 32;
758 0 : handle->has_pinpad = 0;
759 0 : handle->apdu_level = 0;
760 0 : handle->auto_voltage = 0;
761 0 : handle->auto_param = 0;
762 0 : handle->auto_pps = 0;
763 0 : DEBUGOUT_3 ("idVendor: %04X idProduct: %04X bcdDevice: %04X\n",
764 : handle->id_vendor, handle->id_product, handle->bcd_device);
765 0 : if (buflen < 54 || buf[0] < 54)
766 : {
767 0 : DEBUGOUT ("CCID device descriptor is too short\n");
768 0 : return -1;
769 : }
770 :
771 0 : DEBUGOUT ("ChipCard Interface Descriptor:\n");
772 0 : DEBUGOUT_1 (" bLength %5u\n", buf[0]);
773 0 : DEBUGOUT_1 (" bDescriptorType %5u\n", buf[1]);
774 0 : DEBUGOUT_2 (" bcdCCID %2x.%02x", buf[3], buf[2]);
775 0 : if (buf[3] != 1 || buf[2] != 0)
776 0 : DEBUGOUT_CONT(" (Warning: Only accurate for version 1.0)");
777 0 : DEBUGOUT_LF ();
778 :
779 0 : DEBUGOUT_1 (" nMaxSlotIndex %5u\n", buf[4]);
780 0 : DEBUGOUT_2 (" bVoltageSupport %5u %s\n",
781 : buf[5], (buf[5] == 1? "5.0V" : buf[5] == 2? "3.0V"
782 : : buf[5] == 3? "1.8V":"?"));
783 :
784 0 : us = convert_le_u32 (buf+6);
785 0 : DEBUGOUT_1 (" dwProtocols %5u ", us);
786 0 : if ((us & 1))
787 0 : DEBUGOUT_CONT (" T=0");
788 0 : if ((us & 2))
789 : {
790 0 : DEBUGOUT_CONT (" T=1");
791 0 : have_t1 = 1;
792 : }
793 0 : if ((us & ~3))
794 0 : DEBUGOUT_CONT (" (Invalid values detected)");
795 0 : DEBUGOUT_LF ();
796 :
797 0 : us = convert_le_u32(buf+10);
798 0 : DEBUGOUT_1 (" dwDefaultClock %5u\n", us);
799 0 : us = convert_le_u32(buf+14);
800 0 : DEBUGOUT_1 (" dwMaxiumumClock %5u\n", us);
801 0 : DEBUGOUT_1 (" bNumClockSupported %5u\n", buf[18]);
802 0 : us = convert_le_u32(buf+19);
803 0 : DEBUGOUT_1 (" dwDataRate %7u bps\n", us);
804 0 : us = convert_le_u32(buf+23);
805 0 : DEBUGOUT_1 (" dwMaxDataRate %7u bps\n", us);
806 0 : DEBUGOUT_1 (" bNumDataRatesSupp. %5u\n", buf[27]);
807 :
808 0 : us = convert_le_u32(buf+28);
809 0 : DEBUGOUT_1 (" dwMaxIFSD %5u\n", us);
810 0 : handle->max_ifsd = us;
811 :
812 0 : us = convert_le_u32(buf+32);
813 0 : DEBUGOUT_1 (" dwSyncProtocols %08X ", us);
814 0 : if ((us&1))
815 0 : DEBUGOUT_CONT ( " 2-wire");
816 0 : if ((us&2))
817 0 : DEBUGOUT_CONT ( " 3-wire");
818 0 : if ((us&4))
819 0 : DEBUGOUT_CONT ( " I2C");
820 0 : DEBUGOUT_LF ();
821 :
822 0 : us = convert_le_u32(buf+36);
823 0 : DEBUGOUT_1 (" dwMechanical %08X ", us);
824 0 : if ((us & 1))
825 0 : DEBUGOUT_CONT (" accept");
826 0 : if ((us & 2))
827 0 : DEBUGOUT_CONT (" eject");
828 0 : if ((us & 4))
829 0 : DEBUGOUT_CONT (" capture");
830 0 : if ((us & 8))
831 0 : DEBUGOUT_CONT (" lock");
832 0 : DEBUGOUT_LF ();
833 :
834 0 : us = convert_le_u32(buf+40);
835 0 : DEBUGOUT_1 (" dwFeatures %08X\n", us);
836 0 : if ((us & 0x0002))
837 : {
838 0 : DEBUGOUT (" Auto configuration based on ATR (assumes auto voltage)\n");
839 0 : handle->auto_voltage = 1;
840 : }
841 0 : if ((us & 0x0004))
842 0 : DEBUGOUT (" Auto activation on insert\n");
843 0 : if ((us & 0x0008))
844 : {
845 0 : DEBUGOUT (" Auto voltage selection\n");
846 0 : handle->auto_voltage = 1;
847 : }
848 0 : if ((us & 0x0010))
849 0 : DEBUGOUT (" Auto clock change\n");
850 0 : if ((us & 0x0020))
851 0 : DEBUGOUT (" Auto baud rate change\n");
852 0 : if ((us & 0x0040))
853 : {
854 0 : DEBUGOUT (" Auto parameter negotiation made by CCID\n");
855 0 : handle->auto_param = 1;
856 : }
857 0 : else if ((us & 0x0080))
858 : {
859 0 : DEBUGOUT (" Auto PPS made by CCID\n");
860 0 : handle->auto_pps = 1;
861 : }
862 0 : if ((us & (0x0040 | 0x0080)) == (0x0040 | 0x0080))
863 0 : DEBUGOUT (" WARNING: conflicting negotiation features\n");
864 :
865 0 : if ((us & 0x0100))
866 0 : DEBUGOUT (" CCID can set ICC in clock stop mode\n");
867 0 : if ((us & 0x0200))
868 : {
869 0 : DEBUGOUT (" NAD value other than 0x00 accepted\n");
870 0 : handle->nonnull_nad = 1;
871 : }
872 0 : if ((us & 0x0400))
873 : {
874 0 : DEBUGOUT (" Auto IFSD exchange\n");
875 0 : handle->auto_ifsd = 1;
876 : }
877 :
878 0 : if ((us & 0x00010000))
879 : {
880 0 : DEBUGOUT (" TPDU level exchange\n");
881 0 : have_tpdu = 1;
882 : }
883 0 : else if ((us & 0x00020000))
884 : {
885 0 : DEBUGOUT (" Short APDU level exchange\n");
886 0 : handle->apdu_level = 1;
887 : }
888 0 : else if ((us & 0x00040000))
889 : {
890 0 : DEBUGOUT (" Short and extended APDU level exchange\n");
891 0 : handle->apdu_level = 2;
892 : }
893 0 : else if ((us & 0x00070000))
894 0 : DEBUGOUT (" WARNING: conflicting exchange levels\n");
895 :
896 0 : us = convert_le_u32(buf+44);
897 0 : DEBUGOUT_1 (" dwMaxCCIDMsgLen %5u\n", us);
898 0 : handle->max_ccid_msglen = us;
899 :
900 0 : DEBUGOUT ( " bClassGetResponse ");
901 0 : if (buf[48] == 0xff)
902 0 : DEBUGOUT_CONT ("echo\n");
903 : else
904 0 : DEBUGOUT_CONT_1 (" %02X\n", buf[48]);
905 :
906 0 : DEBUGOUT ( " bClassEnvelope ");
907 0 : if (buf[49] == 0xff)
908 0 : DEBUGOUT_CONT ("echo\n");
909 : else
910 0 : DEBUGOUT_CONT_1 (" %02X\n", buf[48]);
911 :
912 0 : DEBUGOUT ( " wlcdLayout ");
913 0 : if (!buf[50] && !buf[51])
914 0 : DEBUGOUT_CONT ("none\n");
915 : else
916 0 : DEBUGOUT_CONT_2 ("%u cols %u lines\n", buf[50], buf[51]);
917 :
918 0 : DEBUGOUT_1 (" bPINSupport %5u ", buf[52]);
919 0 : if ((buf[52] & 1))
920 : {
921 0 : DEBUGOUT_CONT ( " verification");
922 0 : handle->has_pinpad |= 1;
923 : }
924 0 : if ((buf[52] & 2))
925 : {
926 0 : DEBUGOUT_CONT ( " modification");
927 0 : handle->has_pinpad |= 2;
928 : }
929 0 : DEBUGOUT_LF ();
930 :
931 0 : DEBUGOUT_1 (" bMaxCCIDBusySlots %5u\n", buf[53]);
932 :
933 0 : if (buf[0] > 54)
934 : {
935 0 : DEBUGOUT (" junk ");
936 0 : for (i=54; i < buf[0]-54; i++)
937 0 : DEBUGOUT_CONT_1 (" %02X", buf[i]);
938 0 : DEBUGOUT_LF ();
939 : }
940 :
941 0 : if (!have_t1 || !(have_tpdu || handle->apdu_level))
942 : {
943 0 : DEBUGOUT ("this drivers requires that the reader supports T=1, "
944 : "TPDU or APDU level exchange - this is not available\n");
945 0 : return -1;
946 : }
947 :
948 :
949 : /* SCM drivers get stuck in their internal USB stack if they try to
950 : send a frame of n*wMaxPacketSize back to us. Given that
951 : wMaxPacketSize is 64 for these readers we set the IFSD to a value
952 : lower than that:
953 : 64 - 10 CCID header - 4 T1frame - 2 reserved = 48
954 : Product Ids:
955 : 0xe001 - SCR 331
956 : 0x5111 - SCR 331-DI
957 : 0x5115 - SCR 335
958 : 0xe003 - SPR 532
959 : The
960 : 0x5117 - SCR 3320 USB ID-000 reader
961 : seems to be very slow but enabling this workaround boosts the
962 : performance to a a more or less acceptable level (tested by David).
963 :
964 : */
965 0 : if (handle->id_vendor == VENDOR_SCM
966 0 : && handle->max_ifsd > 48
967 0 : && ( (handle->id_product == SCM_SCR331 && handle->bcd_device < 0x0516)
968 0 : ||(handle->id_product == SCM_SCR331DI && handle->bcd_device < 0x0620)
969 0 : ||(handle->id_product == SCM_SCR335 && handle->bcd_device < 0x0514)
970 0 : ||(handle->id_product == SCM_SPR532 && handle->bcd_device < 0x0504)
971 0 : ||(handle->id_product == SCM_SCR3320 && handle->bcd_device < 0x0522)
972 : ))
973 : {
974 0 : DEBUGOUT ("enabling workaround for buggy SCM readers\n");
975 0 : handle->max_ifsd = 48;
976 : }
977 :
978 0 : if (handle->id_vendor == VENDOR_GEMPC)
979 : {
980 0 : DEBUGOUT ("enabling product quirk: disable non-null NAD\n");
981 0 : handle->nonnull_nad = 0;
982 : }
983 :
984 0 : return 0;
985 : }
986 :
987 :
988 : static char *
989 0 : get_escaped_usb_string (libusb_device_handle *idev, int idx,
990 : const char *prefix, const char *suffix)
991 : {
992 : int rc;
993 : unsigned char buf[280];
994 : unsigned char *s;
995 : unsigned int langid;
996 : size_t i, n, len;
997 : char *result;
998 :
999 0 : if (!idx)
1000 0 : return NULL;
1001 :
1002 : /* Fixme: The next line is for the current Valgrid without support
1003 : for USB IOCTLs. */
1004 0 : memset (buf, 0, sizeof buf);
1005 :
1006 : /* First get the list of supported languages and use the first one.
1007 : If we do don't find it we try to use English. Note that this is
1008 : all in a 2 bute Unicode encoding using little endian. */
1009 0 : rc = libusb_control_transfer (idev, LIBUSB_ENDPOINT_IN,
1010 : LIBUSB_REQUEST_GET_DESCRIPTOR,
1011 : (LIBUSB_DT_STRING << 8), 0,
1012 : (char*)buf, sizeof buf, 1000 /* ms timeout */);
1013 0 : if (rc < 4)
1014 0 : langid = 0x0409; /* English. */
1015 : else
1016 0 : langid = (buf[3] << 8) | buf[2];
1017 :
1018 0 : rc = libusb_control_transfer (idev, LIBUSB_ENDPOINT_IN,
1019 : LIBUSB_REQUEST_GET_DESCRIPTOR,
1020 : (LIBUSB_DT_STRING << 8) + idx, langid,
1021 : (char*)buf, sizeof buf, 1000 /* ms timeout */);
1022 0 : if (rc < 2 || buf[1] != LIBUSB_DT_STRING)
1023 0 : return NULL; /* Error or not a string. */
1024 0 : len = buf[0];
1025 0 : if (len > rc)
1026 0 : return NULL; /* Larger than our buffer. */
1027 :
1028 0 : for (s=buf+2, i=2, n=0; i+1 < len; i += 2, s += 2)
1029 : {
1030 0 : if (s[1])
1031 0 : n++; /* High byte set. */
1032 0 : else if (*s <= 0x20 || *s >= 0x7f || *s == '%' || *s == ':')
1033 0 : n += 3 ;
1034 : else
1035 0 : n++;
1036 : }
1037 :
1038 0 : result = malloc (strlen (prefix) + n + strlen (suffix) + 1);
1039 0 : if (!result)
1040 0 : return NULL;
1041 :
1042 0 : strcpy (result, prefix);
1043 0 : n = strlen (prefix);
1044 0 : for (s=buf+2, i=2; i+1 < len; i += 2, s += 2)
1045 : {
1046 0 : if (s[1])
1047 0 : result[n++] = '\xff'; /* High byte set. */
1048 0 : else if (*s <= 0x20 || *s >= 0x7f || *s == '%' || *s == ':')
1049 : {
1050 0 : sprintf (result+n, "%%%02X", *s);
1051 0 : n += 3;
1052 : }
1053 : else
1054 0 : result[n++] = *s;
1055 : }
1056 0 : strcpy (result+n, suffix);
1057 :
1058 0 : return result;
1059 : }
1060 :
1061 : /* This function creates an reader id to be used to find the same
1062 : physical reader after a reset. It returns an allocated and possibly
1063 : percent escaped string or NULL if not enough memory is available. */
1064 : static char *
1065 0 : make_reader_id (libusb_device_handle *idev,
1066 : unsigned int vendor, unsigned int product,
1067 : unsigned char serialno_index)
1068 : {
1069 : char *rid;
1070 : char prefix[20];
1071 :
1072 0 : sprintf (prefix, "%04X:%04X:", (vendor & 0xffff), (product & 0xffff));
1073 0 : rid = get_escaped_usb_string (idev, serialno_index, prefix, ":0");
1074 0 : if (!rid)
1075 : {
1076 0 : rid = malloc (strlen (prefix) + 3 + 1);
1077 0 : if (!rid)
1078 0 : return NULL;
1079 0 : strcpy (rid, prefix);
1080 0 : strcat (rid, "X:0");
1081 : }
1082 0 : return rid;
1083 : }
1084 :
1085 :
1086 : /* Helper to find the endpoint from an interface descriptor. */
1087 : static int
1088 0 : find_endpoint (const struct libusb_interface_descriptor *ifcdesc, int mode)
1089 : {
1090 : int no;
1091 0 : int want_bulk_in = 0;
1092 :
1093 0 : if (mode == 1)
1094 0 : want_bulk_in = 0x80;
1095 0 : for (no=0; no < ifcdesc->bNumEndpoints; no++)
1096 : {
1097 0 : const struct libusb_endpoint_descriptor *ep = ifcdesc->endpoint + no;
1098 0 : if (ep->bDescriptorType != LIBUSB_DT_ENDPOINT)
1099 : ;
1100 0 : else if (mode == 2
1101 0 : && ((ep->bmAttributes & LIBUSB_TRANSFER_TYPE_MASK)
1102 : == LIBUSB_TRANSFER_TYPE_INTERRUPT)
1103 0 : && (ep->bEndpointAddress & 0x80))
1104 0 : return ep->bEndpointAddress;
1105 0 : else if (((ep->bmAttributes & LIBUSB_TRANSFER_TYPE_MASK)
1106 : == LIBUSB_TRANSFER_TYPE_BULK)
1107 0 : && (ep->bEndpointAddress & 0x80) == want_bulk_in)
1108 0 : return ep->bEndpointAddress;
1109 : }
1110 :
1111 0 : return -1;
1112 : }
1113 :
1114 :
1115 : /* Helper for scan_or_find_devices. This function returns true if a
1116 : requested device has been found or the caller should stop scanning
1117 : for other reasons. */
1118 : static int
1119 0 : scan_or_find_usb_device (int scan_mode,
1120 : int *readerno, int *count, char **rid_list,
1121 : const char *readerid,
1122 : struct libusb_device *dev,
1123 : char **r_rid,
1124 : struct libusb_device_descriptor *desc,
1125 : libusb_device_handle **r_idev,
1126 : unsigned char **ifcdesc_extra,
1127 : size_t *ifcdesc_extra_len,
1128 : int *interface_number,
1129 : int *ep_bulk_out, int *ep_bulk_in, int *ep_intr)
1130 : {
1131 : int cfg_no;
1132 : int ifc_no;
1133 : int set_no;
1134 : const struct libusb_interface_descriptor *ifcdesc;
1135 : char *rid;
1136 : libusb_device_handle *idev;
1137 : int err;
1138 :
1139 0 : err = libusb_get_device_descriptor (dev, desc);
1140 0 : if (err < 0)
1141 0 : return err;
1142 :
1143 0 : *r_idev = NULL;
1144 :
1145 0 : for (cfg_no=0; cfg_no < desc->bNumConfigurations; cfg_no++)
1146 : {
1147 : struct libusb_config_descriptor *config;
1148 :
1149 0 : err = libusb_get_config_descriptor (dev, cfg_no, &config);
1150 0 : if (err < 0)
1151 : {
1152 0 : if (err == LIBUSB_ERROR_NO_MEM)
1153 0 : return err;
1154 0 : continue;
1155 : }
1156 :
1157 0 : for (ifc_no=0; ifc_no < config->bNumInterfaces; ifc_no++)
1158 : {
1159 0 : for (set_no=0; set_no < config->interface[ifc_no].num_altsetting;
1160 0 : set_no++)
1161 : {
1162 0 : ifcdesc = (config->interface[ifc_no].altsetting + set_no);
1163 : /* The second condition is for older SCM SPR 532 who did
1164 : not know about the assigned CCID class. The third
1165 : condition does the same for a Cherry SmartTerminal
1166 : ST-2000. Instead of trying to interpret the strings
1167 : we simply check the product ID. */
1168 0 : if (ifcdesc && ifcdesc->extra
1169 0 : && ((ifcdesc->bInterfaceClass == 11
1170 0 : && ifcdesc->bInterfaceSubClass == 0
1171 0 : && ifcdesc->bInterfaceProtocol == 0)
1172 0 : || (ifcdesc->bInterfaceClass == 255
1173 0 : && desc->idVendor == VENDOR_SCM
1174 0 : && desc->idProduct == SCM_SPR532)
1175 0 : || (ifcdesc->bInterfaceClass == 255
1176 0 : && desc->idVendor == VENDOR_CHERRY
1177 0 : && desc->idProduct == CHERRY_ST2000)))
1178 : {
1179 0 : err = libusb_open (dev, &idev);
1180 0 : if (err < 0)
1181 : {
1182 0 : DEBUGOUT_1 ("usb_open failed: %s\n",
1183 : libusb_error_name (err));
1184 0 : continue; /* with next setting. */
1185 : }
1186 :
1187 0 : rid = make_reader_id (idev,
1188 0 : desc->idVendor,
1189 0 : desc->idProduct,
1190 0 : desc->iSerialNumber);
1191 0 : if (rid)
1192 : {
1193 0 : if (scan_mode)
1194 : {
1195 : char *p;
1196 :
1197 : /* We are collecting infos about all
1198 : available CCID readers. Store them and
1199 : continue. */
1200 0 : DEBUGOUT_2 ("found CCID reader %d (ID=%s)\n",
1201 : *count, rid );
1202 0 : p = malloc ((*rid_list? strlen (*rid_list):0) + 1
1203 0 : + strlen (rid) + 1);
1204 0 : if (p)
1205 : {
1206 0 : *p = 0;
1207 0 : if (*rid_list)
1208 : {
1209 0 : strcat (p, *rid_list);
1210 0 : free (*rid_list);
1211 : }
1212 0 : strcat (p, rid);
1213 0 : strcat (p, "\n");
1214 0 : *rid_list = p;
1215 : }
1216 : else /* Out of memory. */
1217 0 : free (rid);
1218 :
1219 0 : rid = NULL;
1220 0 : ++*count;
1221 : }
1222 0 : else if (!*readerno
1223 0 : || (*readerno < 0
1224 0 : && readerid
1225 0 : && !strcmp (readerid, rid)))
1226 : {
1227 : /* We found the requested reader. */
1228 0 : if (ifcdesc_extra && ifcdesc_extra_len)
1229 : {
1230 0 : *ifcdesc_extra = malloc (ifcdesc
1231 0 : ->extra_length);
1232 0 : if (!*ifcdesc_extra)
1233 : {
1234 0 : libusb_close (idev);
1235 0 : free (rid);
1236 0 : libusb_free_config_descriptor (config);
1237 0 : return 1; /* Out of core. */
1238 : }
1239 0 : memcpy (*ifcdesc_extra, ifcdesc->extra,
1240 0 : ifcdesc->extra_length);
1241 0 : *ifcdesc_extra_len = ifcdesc->extra_length;
1242 : }
1243 :
1244 0 : if (interface_number)
1245 0 : *interface_number = (ifcdesc->bInterfaceNumber);
1246 :
1247 0 : if (ep_bulk_out)
1248 0 : *ep_bulk_out = find_endpoint (ifcdesc, 0);
1249 0 : if (ep_bulk_in)
1250 0 : *ep_bulk_in = find_endpoint (ifcdesc, 1);
1251 0 : if (ep_intr)
1252 0 : *ep_intr = find_endpoint (ifcdesc, 2);
1253 :
1254 0 : if (r_rid)
1255 : {
1256 0 : *r_rid = rid;
1257 0 : rid = NULL;
1258 : }
1259 : else
1260 0 : free (rid);
1261 :
1262 0 : *r_idev = idev;
1263 0 : libusb_free_config_descriptor (config);
1264 0 : return 1; /* Found requested device. */
1265 : }
1266 : else
1267 : {
1268 : /* This is not yet the reader we want.
1269 : fixme: We should avoid the extra usb_open
1270 : in this case. */
1271 0 : if (*readerno >= 0)
1272 0 : --*readerno;
1273 : }
1274 0 : free (rid);
1275 : }
1276 :
1277 0 : libusb_close (idev);
1278 0 : idev = NULL;
1279 0 : libusb_free_config_descriptor (config);
1280 0 : return 0;
1281 : }
1282 : }
1283 : }
1284 :
1285 0 : libusb_free_config_descriptor (config);
1286 : }
1287 :
1288 0 : return 0;
1289 : }
1290 :
1291 : /* Combination function to either scan all CCID devices or to find and
1292 : open one specific device.
1293 :
1294 : The function returns 0 if a reader has been found or when a scan
1295 : returned without error.
1296 :
1297 : With READERNO = -1 and READERID is NULL, scan mode is used and
1298 : R_RID should be the address where to store the list of reader_ids
1299 : we found. If on return this list is empty, no CCID device has been
1300 : found; otherwise it points to an allocated linked list of reader
1301 : IDs. Note that in this mode the function always returns NULL.
1302 :
1303 : With READERNO >= 0 or READERID is not NULL find mode is used. This
1304 : uses the same algorithm as the scan mode but stops and returns at
1305 : the entry number READERNO and return the handle for the the opened
1306 : USB device. If R_RID is not NULL it will receive the reader ID of
1307 : that device. If R_DEV is not NULL it will the device pointer of
1308 : that device. If IFCDESC_EXTRA is NOT NULL it will receive a
1309 : malloced copy of the interfaces "extra: data filed;
1310 : IFCDESC_EXTRA_LEN receive the length of this field. If there is
1311 : no reader with number READERNO or that reader is not usable by our
1312 : implementation NULL will be returned. The caller must close a
1313 : returned USB device handle and free (if not passed as NULL) the
1314 : returned reader ID info as well as the IFCDESC_EXTRA. On error
1315 : NULL will get stored at R_RID, R_DEV, IFCDESC_EXTRA and
1316 : IFCDESC_EXTRA_LEN. With READERID being -1 the function stops if
1317 : the READERID was found.
1318 :
1319 : If R_FD is not -1 on return the device is not using USB for
1320 : transport but the device associated with that file descriptor. In
1321 : this case INTERFACE will receive the transport type and the other
1322 : USB specific return values are not used; the return value is
1323 : (void*)(1).
1324 :
1325 : Note that the first entry of the returned reader ID list in scan mode
1326 : corresponds with a READERNO of 0 in find mode.
1327 : */
1328 : static int
1329 0 : scan_or_find_devices (int readerno, const char *readerid,
1330 : char **r_rid,
1331 : struct libusb_device_descriptor *r_desc,
1332 : unsigned char **ifcdesc_extra,
1333 : size_t *ifcdesc_extra_len,
1334 : int *interface_number,
1335 : int *ep_bulk_out, int *ep_bulk_in, int *ep_intr,
1336 : libusb_device_handle **r_idev,
1337 : int *r_fd)
1338 : {
1339 0 : char *rid_list = NULL;
1340 0 : int count = 0;
1341 0 : libusb_device **dev_list = NULL;
1342 : libusb_device *dev;
1343 0 : libusb_device_handle *idev = NULL;
1344 0 : int scan_mode = (readerno == -1 && !readerid);
1345 : int i;
1346 : ssize_t n;
1347 : struct libusb_device_descriptor desc;
1348 :
1349 : /* Set return values to a default. */
1350 0 : if (r_rid)
1351 0 : *r_rid = NULL;
1352 0 : if (ifcdesc_extra)
1353 0 : *ifcdesc_extra = NULL;
1354 0 : if (ifcdesc_extra_len)
1355 0 : *ifcdesc_extra_len = 0;
1356 0 : if (interface_number)
1357 0 : *interface_number = 0;
1358 0 : if (r_idev)
1359 0 : *r_idev = NULL;
1360 0 : if (r_fd)
1361 0 : *r_fd = -1;
1362 :
1363 : /* See whether we want scan or find mode. */
1364 0 : if (scan_mode)
1365 : {
1366 0 : assert (r_rid);
1367 : }
1368 :
1369 0 : n = libusb_get_device_list (NULL, &dev_list);
1370 :
1371 0 : for (i = 0; i < n; i++)
1372 : {
1373 0 : dev = dev_list[i];
1374 0 : if (scan_or_find_usb_device (scan_mode, &readerno, &count, &rid_list,
1375 : readerid,
1376 : dev,
1377 : r_rid,
1378 : &desc,
1379 : &idev,
1380 : ifcdesc_extra,
1381 : ifcdesc_extra_len,
1382 : interface_number,
1383 : ep_bulk_out, ep_bulk_in, ep_intr))
1384 : {
1385 0 : libusb_free_device_list (dev_list, 1);
1386 : /* Found requested device or out of core. */
1387 0 : if (!idev)
1388 : {
1389 0 : free (rid_list);
1390 0 : return -1; /* error */
1391 : }
1392 0 : *r_idev = idev;
1393 0 : if (r_desc)
1394 0 : memcpy (r_desc, &desc, sizeof (struct libusb_device_descriptor));
1395 0 : return 0;
1396 : }
1397 : }
1398 :
1399 0 : libusb_free_device_list (dev_list, 1);
1400 :
1401 : /* Now check whether there are any devices with special transport types. */
1402 0 : for (i=0; transports[i].name; i++)
1403 : {
1404 : int fd;
1405 : char *rid, *p;
1406 :
1407 0 : fd = open (transports[i].name, O_RDWR);
1408 0 : if (fd == -1 && scan_mode && errno == EBUSY)
1409 : {
1410 : /* Ignore this error in scan mode because it indicates that
1411 : the device exists but is already open (most likely by us)
1412 : and thus in general suitable as a reader. */
1413 : }
1414 0 : else if (fd == -1)
1415 : {
1416 0 : DEBUGOUT_2 ("failed to open '%s': %s\n",
1417 : transports[i].name, strerror (errno));
1418 0 : continue;
1419 : }
1420 :
1421 0 : rid = malloc (strlen (transports[i].name) + 30 + 10);
1422 0 : if (!rid)
1423 : {
1424 0 : if (fd != -1)
1425 0 : close (fd);
1426 0 : free (rid_list);
1427 0 : return -1; /* Error. */
1428 : }
1429 0 : sprintf (rid, "0000:%04X:%s:0", transports[i].type, transports[i].name);
1430 0 : if (scan_mode)
1431 : {
1432 0 : DEBUGOUT_2 ("found CCID reader %d (ID=%s)\n", count, rid);
1433 0 : p = malloc ((rid_list? strlen (rid_list):0) + 1 + strlen (rid) + 1);
1434 0 : if (!p)
1435 : {
1436 0 : if (fd != -1)
1437 0 : close (fd);
1438 0 : free (rid_list);
1439 0 : free (rid);
1440 0 : return -1; /* Error. */
1441 : }
1442 0 : *p = 0;
1443 0 : if (rid_list)
1444 : {
1445 0 : strcat (p, rid_list);
1446 0 : free (rid_list);
1447 : }
1448 0 : strcat (p, rid);
1449 0 : strcat (p, "\n");
1450 0 : rid_list = p;
1451 0 : ++count;
1452 : }
1453 0 : else if (!readerno ||
1454 0 : (readerno < 0 && readerid && !strcmp (readerid, rid)))
1455 : {
1456 : /* Found requested device. */
1457 0 : if (interface_number)
1458 0 : *interface_number = transports[i].type;
1459 0 : if (r_rid)
1460 0 : *r_rid = rid;
1461 : else
1462 0 : free (rid);
1463 0 : if (r_fd)
1464 0 : *r_fd = fd;
1465 0 : return 0; /* Okay, found device */
1466 : }
1467 : else /* This is not yet the reader we want. */
1468 : {
1469 0 : if (readerno >= 0)
1470 0 : --readerno;
1471 : }
1472 0 : free (rid);
1473 0 : if (fd != -1)
1474 0 : close (fd);
1475 : }
1476 :
1477 0 : if (scan_mode)
1478 : {
1479 0 : *r_rid = rid_list;
1480 0 : return 0;
1481 : }
1482 : else
1483 0 : return -1;
1484 : }
1485 :
1486 :
1487 : /* Set the level of debugging to LEVEL and return the old level. -1
1488 : just returns the old level. A level of 0 disables debugging, 1
1489 : enables debugging, 2 enables additional tracing of the T=1
1490 : protocol, 3 additionally enables debugging for GetSlotStatus, other
1491 : values are not yet defined.
1492 :
1493 : Note that libusb may provide its own debugging feature which is
1494 : enabled by setting the envvar USB_DEBUG. */
1495 : int
1496 0 : ccid_set_debug_level (int level)
1497 : {
1498 0 : int old = debug_level;
1499 0 : if (level != -1)
1500 0 : debug_level = level;
1501 0 : return old;
1502 : }
1503 :
1504 :
1505 : char *
1506 0 : ccid_get_reader_list (void)
1507 : {
1508 : char *reader_list;
1509 :
1510 0 : if (!initialized_usb)
1511 : {
1512 0 : libusb_init (NULL);
1513 0 : initialized_usb = 1;
1514 : }
1515 :
1516 0 : if (scan_or_find_devices (-1, NULL, &reader_list, NULL, NULL, NULL, NULL,
1517 : NULL, NULL, NULL, NULL, NULL))
1518 0 : return NULL; /* Error. */
1519 0 : return reader_list;
1520 : }
1521 :
1522 :
1523 : /* Vendor specific custom initialization. */
1524 : static int
1525 0 : ccid_vendor_specific_init (ccid_driver_t handle)
1526 : {
1527 0 : if (handle->id_vendor == VENDOR_VEGA && handle->id_product == VEGA_ALPHA)
1528 : {
1529 : int r;
1530 : /*
1531 : * Vega alpha has a feature to show retry counter on the pinpad
1532 : * display. But it assumes that the card returns the value of
1533 : * retry counter by VERIFY with empty data (return code of
1534 : * 63Cx). Unfortunately, existing OpenPGP cards don't support
1535 : * VERIFY command with empty data. This vendor specific command
1536 : * sequence is to disable the feature.
1537 : */
1538 0 : const unsigned char cmd[] = { '\xb5', '\x01', '\x00', '\x03', '\x00' };
1539 :
1540 0 : r = send_escape_cmd (handle, cmd, sizeof (cmd), NULL, 0, NULL);
1541 0 : if (r != 0 && r != CCID_DRIVER_ERR_CARD_INACTIVE
1542 0 : && r != CCID_DRIVER_ERR_NO_CARD)
1543 0 : return r;
1544 : }
1545 :
1546 0 : return 0;
1547 : }
1548 :
1549 :
1550 : /* Open the reader with the internal number READERNO and return a
1551 : pointer to be used as handle in HANDLE. Returns 0 on success. */
1552 : int
1553 0 : ccid_open_reader (ccid_driver_t *handle, const char *readerid,
1554 : const char **rdrname_p)
1555 : {
1556 0 : int rc = 0;
1557 0 : libusb_device_handle *idev = NULL;
1558 0 : int dev_fd = -1;
1559 0 : char *rid = NULL;
1560 0 : unsigned char *ifcdesc_extra = NULL;
1561 : size_t ifcdesc_extra_len;
1562 : int readerno;
1563 : int ifc_no, ep_bulk_out, ep_bulk_in, ep_intr;
1564 : struct libusb_device_descriptor desc;
1565 :
1566 0 : *handle = NULL;
1567 :
1568 0 : if (!initialized_usb)
1569 : {
1570 0 : libusb_init (NULL);
1571 0 : initialized_usb = 1;
1572 : }
1573 :
1574 : /* See whether we want to use the reader ID string or a reader
1575 : number. A readerno of -1 indicates that the reader ID string is
1576 : to be used. */
1577 0 : if (readerid && strchr (readerid, ':'))
1578 0 : readerno = -1; /* We want to use the readerid. */
1579 0 : else if (readerid)
1580 : {
1581 0 : readerno = atoi (readerid);
1582 0 : if (readerno < 0)
1583 : {
1584 0 : DEBUGOUT ("no CCID readers found\n");
1585 0 : rc = CCID_DRIVER_ERR_NO_READER;
1586 0 : goto leave;
1587 : }
1588 : }
1589 : else
1590 0 : readerno = 0; /* Default. */
1591 :
1592 0 : if (scan_or_find_devices (readerno, readerid, &rid, &desc,
1593 : &ifcdesc_extra, &ifcdesc_extra_len,
1594 : &ifc_no, &ep_bulk_out, &ep_bulk_in, &ep_intr,
1595 : &idev, &dev_fd) )
1596 : {
1597 0 : if (readerno == -1)
1598 0 : DEBUGOUT_1 ("no CCID reader with ID %s\n", readerid );
1599 : else
1600 0 : DEBUGOUT_1 ("no CCID reader with number %d\n", readerno );
1601 0 : rc = CCID_DRIVER_ERR_NO_READER;
1602 0 : goto leave;
1603 : }
1604 :
1605 : /* Okay, this is a CCID reader. */
1606 0 : *handle = calloc (1, sizeof **handle);
1607 0 : if (!*handle)
1608 : {
1609 0 : DEBUGOUT ("out of memory\n");
1610 0 : rc = CCID_DRIVER_ERR_OUT_OF_CORE;
1611 0 : goto leave;
1612 : }
1613 0 : (*handle)->rid = rid;
1614 0 : if (idev) /* Regular USB transport. */
1615 : {
1616 0 : (*handle)->idev = idev;
1617 0 : (*handle)->dev_fd = -1;
1618 0 : (*handle)->id_vendor = desc.idVendor;
1619 0 : (*handle)->id_product = desc.idProduct;
1620 0 : (*handle)->bcd_device = desc.bcdDevice;
1621 0 : (*handle)->ifc_no = ifc_no;
1622 0 : (*handle)->ep_bulk_out = ep_bulk_out;
1623 0 : (*handle)->ep_bulk_in = ep_bulk_in;
1624 0 : (*handle)->ep_intr = ep_intr;
1625 : }
1626 0 : else if (dev_fd != -1) /* Device transport. */
1627 : {
1628 0 : (*handle)->idev = NULL;
1629 0 : (*handle)->dev_fd = dev_fd;
1630 0 : (*handle)->id_vendor = 0; /* Magic vendor for special transport. */
1631 0 : (*handle)->id_product = ifc_no; /* Transport type */
1632 0 : prepare_special_transport (*handle);
1633 : }
1634 : else
1635 : {
1636 0 : assert (!"no transport"); /* Bug. */
1637 : }
1638 :
1639 0 : DEBUGOUT_2 ("using CCID reader %d (ID=%s)\n", readerno, rid );
1640 :
1641 0 : if (idev)
1642 : {
1643 0 : if (parse_ccid_descriptor (*handle, ifcdesc_extra, ifcdesc_extra_len))
1644 : {
1645 0 : DEBUGOUT ("device not supported\n");
1646 0 : rc = CCID_DRIVER_ERR_NO_READER;
1647 0 : goto leave;
1648 : }
1649 :
1650 0 : rc = libusb_claim_interface (idev, ifc_no);
1651 0 : if (rc < 0)
1652 : {
1653 0 : DEBUGOUT_1 ("usb_claim_interface failed: %d\n", rc);
1654 0 : rc = CCID_DRIVER_ERR_CARD_IO_ERROR;
1655 0 : goto leave;
1656 : }
1657 : }
1658 :
1659 0 : rc = ccid_vendor_specific_init (*handle);
1660 :
1661 : leave:
1662 0 : free (ifcdesc_extra);
1663 0 : if (rc)
1664 : {
1665 0 : free (rid);
1666 0 : if (idev)
1667 0 : libusb_close (idev);
1668 0 : if (dev_fd != -1)
1669 0 : close (dev_fd);
1670 0 : free (*handle);
1671 0 : *handle = NULL;
1672 : }
1673 : else
1674 0 : if (rdrname_p)
1675 0 : *rdrname_p = (*handle)->rid;
1676 :
1677 0 : return rc;
1678 : }
1679 :
1680 :
1681 : static void
1682 0 : do_close_reader (ccid_driver_t handle)
1683 : {
1684 : int rc;
1685 : unsigned char msg[100];
1686 : size_t msglen;
1687 : unsigned char seqno;
1688 :
1689 0 : if (!handle->powered_off)
1690 : {
1691 0 : msg[0] = PC_to_RDR_IccPowerOff;
1692 0 : msg[5] = 0; /* slot */
1693 0 : msg[6] = seqno = handle->seqno++;
1694 0 : msg[7] = 0; /* RFU */
1695 0 : msg[8] = 0; /* RFU */
1696 0 : msg[9] = 0; /* RFU */
1697 0 : set_msg_len (msg, 0);
1698 0 : msglen = 10;
1699 :
1700 0 : rc = bulk_out (handle, msg, msglen, 0);
1701 0 : if (!rc)
1702 0 : bulk_in (handle, msg, sizeof msg, &msglen, RDR_to_PC_SlotStatus,
1703 : seqno, 2000, 0);
1704 0 : handle->powered_off = 1;
1705 : }
1706 0 : if (handle->idev)
1707 : {
1708 0 : libusb_release_interface (handle->idev, handle->ifc_no);
1709 0 : libusb_close (handle->idev);
1710 0 : handle->idev = NULL;
1711 : }
1712 0 : if (handle->dev_fd != -1)
1713 : {
1714 0 : close (handle->dev_fd);
1715 0 : handle->dev_fd = -1;
1716 : }
1717 0 : }
1718 :
1719 :
1720 : int
1721 0 : ccid_set_progress_cb (ccid_driver_t handle,
1722 : void (*cb)(void *, const char *, int, int, int),
1723 : void *cb_arg)
1724 : {
1725 0 : if (!handle || !handle->rid)
1726 0 : return CCID_DRIVER_ERR_INV_VALUE;
1727 :
1728 0 : handle->progress_cb = cb;
1729 0 : handle->progress_cb_arg = cb_arg;
1730 0 : return 0;
1731 : }
1732 :
1733 :
1734 : /* Close the reader HANDLE. */
1735 : int
1736 0 : ccid_close_reader (ccid_driver_t handle)
1737 : {
1738 0 : if (!handle || (!handle->idev && handle->dev_fd == -1))
1739 0 : return 0;
1740 :
1741 0 : do_close_reader (handle);
1742 0 : free (handle->rid);
1743 0 : free (handle);
1744 0 : return 0;
1745 : }
1746 :
1747 :
1748 : /* Return False if a card is present and powered. */
1749 : int
1750 0 : ccid_check_card_presence (ccid_driver_t handle)
1751 : {
1752 : (void)handle; /* Not yet implemented. */
1753 0 : return -1;
1754 : }
1755 :
1756 :
1757 : /* Write NBYTES of BUF to file descriptor FD. */
1758 : static int
1759 0 : writen (int fd, const void *buf, size_t nbytes)
1760 : {
1761 0 : size_t nleft = nbytes;
1762 : int nwritten;
1763 :
1764 0 : while (nleft > 0)
1765 : {
1766 0 : nwritten = write (fd, buf, nleft);
1767 0 : if (nwritten < 0)
1768 : {
1769 0 : if (errno == EINTR)
1770 0 : nwritten = 0;
1771 : else
1772 0 : return -1;
1773 : }
1774 0 : nleft -= nwritten;
1775 0 : buf = (const char*)buf + nwritten;
1776 : }
1777 :
1778 0 : return 0;
1779 : }
1780 :
1781 :
1782 : /* Write a MSG of length MSGLEN to the designated bulk out endpoint.
1783 : Returns 0 on success. */
1784 : static int
1785 0 : bulk_out (ccid_driver_t handle, unsigned char *msg, size_t msglen,
1786 : int no_debug)
1787 : {
1788 : int rc;
1789 :
1790 : /* No need to continue and clutter the log with USB write error
1791 : messages after we got the first ENODEV. */
1792 0 : if (handle->enodev_seen)
1793 0 : return CCID_DRIVER_ERR_NO_READER;
1794 :
1795 0 : if (debug_level && (!no_debug || debug_level >= 3))
1796 : {
1797 0 : switch (msglen? msg[0]:0)
1798 : {
1799 : case PC_to_RDR_IccPowerOn:
1800 0 : print_p2r_iccpoweron (msg, msglen);
1801 0 : break;
1802 : case PC_to_RDR_IccPowerOff:
1803 0 : print_p2r_iccpoweroff (msg, msglen);
1804 0 : break;
1805 : case PC_to_RDR_GetSlotStatus:
1806 0 : print_p2r_getslotstatus (msg, msglen);
1807 0 : break;
1808 : case PC_to_RDR_XfrBlock:
1809 0 : print_p2r_xfrblock (msg, msglen);
1810 0 : break;
1811 : case PC_to_RDR_GetParameters:
1812 0 : print_p2r_getparameters (msg, msglen);
1813 0 : break;
1814 : case PC_to_RDR_ResetParameters:
1815 0 : print_p2r_resetparameters (msg, msglen);
1816 0 : break;
1817 : case PC_to_RDR_SetParameters:
1818 0 : print_p2r_setparameters (msg, msglen);
1819 0 : break;
1820 : case PC_to_RDR_Escape:
1821 0 : print_p2r_escape (msg, msglen);
1822 0 : break;
1823 : case PC_to_RDR_IccClock:
1824 0 : print_p2r_iccclock (msg, msglen);
1825 0 : break;
1826 : case PC_to_RDR_T0APDU:
1827 0 : print_p2r_to0apdu (msg, msglen);
1828 0 : break;
1829 : case PC_to_RDR_Secure:
1830 0 : print_p2r_secure (msg, msglen);
1831 0 : break;
1832 : case PC_to_RDR_Mechanical:
1833 0 : print_p2r_mechanical (msg, msglen);
1834 0 : break;
1835 : case PC_to_RDR_Abort:
1836 0 : print_p2r_abort (msg, msglen);
1837 0 : break;
1838 : case PC_to_RDR_SetDataRate:
1839 0 : print_p2r_setdatarate (msg, msglen);
1840 0 : break;
1841 : default:
1842 0 : print_p2r_unknown (msg, msglen);
1843 0 : break;
1844 : }
1845 : }
1846 :
1847 0 : if (handle->idev)
1848 : {
1849 : int transferred;
1850 :
1851 0 : rc = libusb_bulk_transfer (handle->idev, handle->ep_bulk_out,
1852 : (char*)msg, msglen, &transferred,
1853 : 5000 /* ms timeout */);
1854 0 : if (rc == 0 && transferred == msglen)
1855 0 : return 0;
1856 :
1857 0 : if (rc < 0)
1858 : {
1859 0 : DEBUGOUT_1 ("usb_bulk_write error: %s\n", libusb_error_name (rc));
1860 0 : if (rc == LIBUSB_ERROR_NO_DEVICE)
1861 : {
1862 0 : handle->enodev_seen = 1;
1863 0 : return CCID_DRIVER_ERR_NO_READER;
1864 : }
1865 : }
1866 : }
1867 : else
1868 : {
1869 0 : rc = writen (handle->dev_fd, msg, msglen);
1870 0 : if (!rc)
1871 0 : return 0;
1872 0 : DEBUGOUT_2 ("writen to %d failed: %s\n",
1873 : handle->dev_fd, strerror (errno));
1874 :
1875 : }
1876 0 : return CCID_DRIVER_ERR_CARD_IO_ERROR;
1877 : }
1878 :
1879 :
1880 : /* Read a maximum of LENGTH bytes from the bulk in endpoint into
1881 : BUFFER and return the actual read number if bytes in NREAD. SEQNO
1882 : is the sequence number used to send the request and EXPECTED_TYPE
1883 : the type of message we expect. Does checks on the ccid
1884 : header. TIMEOUT is the timeout value in ms. NO_DEBUG may be set to
1885 : avoid debug messages in case of no error; this can be overriden
1886 : with a glibal debug level of at least 3. Returns 0 on success. */
1887 : static int
1888 0 : bulk_in (ccid_driver_t handle, unsigned char *buffer, size_t length,
1889 : size_t *nread, int expected_type, int seqno, int timeout,
1890 : int no_debug)
1891 : {
1892 : int rc;
1893 : int msglen;
1894 0 : int eagain_retries = 0;
1895 :
1896 : /* Fixme: The next line for the current Valgrind without support
1897 : for USB IOCTLs. */
1898 0 : memset (buffer, 0, length);
1899 : retry:
1900 0 : if (handle->idev)
1901 : {
1902 0 : rc = libusb_bulk_transfer (handle->idev, handle->ep_bulk_in,
1903 : (char*)buffer, length, &msglen, timeout);
1904 0 : if (rc < 0)
1905 : {
1906 0 : DEBUGOUT_1 ("usb_bulk_read error: %s\n", libusb_error_name (rc));
1907 0 : if (rc == LIBUSB_ERROR_NO_DEVICE)
1908 : {
1909 0 : handle->enodev_seen = 1;
1910 0 : return CCID_DRIVER_ERR_NO_READER;
1911 : }
1912 :
1913 0 : return CCID_DRIVER_ERR_CARD_IO_ERROR;
1914 : }
1915 0 : if (msglen < 0)
1916 0 : return CCID_DRIVER_ERR_INV_VALUE; /* Faulty libusb. */
1917 0 : *nread = msglen;
1918 : }
1919 : else
1920 : {
1921 0 : rc = read (handle->dev_fd, buffer, length);
1922 0 : if (rc < 0)
1923 : {
1924 0 : rc = errno;
1925 0 : DEBUGOUT_2 ("read from %d failed: %s\n",
1926 : handle->dev_fd, strerror (rc));
1927 0 : if (rc == EAGAIN && eagain_retries++ < 5)
1928 : {
1929 0 : my_sleep (1);
1930 0 : goto retry;
1931 : }
1932 0 : return CCID_DRIVER_ERR_CARD_IO_ERROR;
1933 : }
1934 0 : *nread = msglen = rc;
1935 : }
1936 0 : eagain_retries = 0;
1937 :
1938 0 : if (msglen < 10)
1939 : {
1940 0 : DEBUGOUT_1 ("bulk-in msg too short (%u)\n", (unsigned int)msglen);
1941 0 : abort_cmd (handle, seqno);
1942 0 : return CCID_DRIVER_ERR_INV_VALUE;
1943 : }
1944 0 : if (buffer[5] != 0)
1945 : {
1946 0 : DEBUGOUT_1 ("unexpected bulk-in slot (%d)\n", buffer[5]);
1947 0 : return CCID_DRIVER_ERR_INV_VALUE;
1948 : }
1949 0 : if (buffer[6] != seqno)
1950 : {
1951 0 : DEBUGOUT_2 ("bulk-in seqno does not match (%d/%d)\n",
1952 : seqno, buffer[6]);
1953 : /* Retry until we are synced again. */
1954 0 : goto retry;
1955 : }
1956 :
1957 : /* We need to handle the time extension request before we check that
1958 : we got the expected message type. This is in particular required
1959 : for the Cherry keyboard which sends a time extension request for
1960 : each key hit. */
1961 0 : if ( !(buffer[7] & 0x03) && (buffer[7] & 0xC0) == 0x80)
1962 : {
1963 : /* Card present and active, time extension requested. */
1964 0 : DEBUGOUT_2 ("time extension requested (%02X,%02X)\n",
1965 : buffer[7], buffer[8]);
1966 0 : goto retry;
1967 : }
1968 :
1969 0 : if (buffer[0] != expected_type)
1970 : {
1971 0 : DEBUGOUT_1 ("unexpected bulk-in msg type (%02x)\n", buffer[0]);
1972 0 : abort_cmd (handle, seqno);
1973 0 : return CCID_DRIVER_ERR_INV_VALUE;
1974 : }
1975 :
1976 0 : if (debug_level && (!no_debug || debug_level >= 3))
1977 : {
1978 0 : switch (buffer[0])
1979 : {
1980 : case RDR_to_PC_DataBlock:
1981 0 : print_r2p_datablock (buffer, msglen);
1982 0 : break;
1983 : case RDR_to_PC_SlotStatus:
1984 0 : print_r2p_slotstatus (buffer, msglen);
1985 0 : break;
1986 : case RDR_to_PC_Parameters:
1987 0 : print_r2p_parameters (buffer, msglen);
1988 0 : break;
1989 : case RDR_to_PC_Escape:
1990 0 : print_r2p_escape (buffer, msglen);
1991 0 : break;
1992 : case RDR_to_PC_DataRate:
1993 0 : print_r2p_datarate (buffer, msglen);
1994 0 : break;
1995 : default:
1996 0 : print_r2p_unknown (buffer, msglen);
1997 0 : break;
1998 : }
1999 : }
2000 0 : if (CCID_COMMAND_FAILED (buffer))
2001 0 : print_command_failed (buffer);
2002 :
2003 : /* Check whether a card is at all available. Note: If you add new
2004 : error codes here, check whether they need to be ignored in
2005 : send_escape_cmd. */
2006 0 : switch ((buffer[7] & 0x03))
2007 : {
2008 0 : case 0: /* no error */ break;
2009 0 : case 1: return CCID_DRIVER_ERR_CARD_INACTIVE;
2010 0 : case 2: return CCID_DRIVER_ERR_NO_CARD;
2011 0 : case 3: /* RFU */ break;
2012 : }
2013 0 : return 0;
2014 : }
2015 :
2016 :
2017 :
2018 : /* Send an abort sequence and wait until everything settled. */
2019 : static int
2020 0 : abort_cmd (ccid_driver_t handle, int seqno)
2021 : {
2022 : int rc;
2023 : char dummybuf[8];
2024 : unsigned char msg[100];
2025 : int msglen;
2026 :
2027 0 : if (!handle->idev)
2028 : {
2029 : /* I don't know how to send an abort to non-USB devices. */
2030 0 : rc = CCID_DRIVER_ERR_NOT_SUPPORTED;
2031 : }
2032 :
2033 0 : seqno &= 0xff;
2034 0 : DEBUGOUT_1 ("sending abort sequence for seqno %d\n", seqno);
2035 : /* Send the abort command to the control pipe. Note that we don't
2036 : need to keep track of sent abort commands because there should
2037 : never be another thread using the same slot concurrently. */
2038 0 : rc = libusb_control_transfer (handle->idev,
2039 : 0x21,/* bmRequestType: host-to-device,
2040 : class specific, to interface. */
2041 : 1, /* ABORT */
2042 : (seqno << 8 | 0 /* slot */),
2043 0 : handle->ifc_no,
2044 : dummybuf, 0,
2045 : 1000 /* ms timeout */);
2046 0 : if (rc < 0)
2047 : {
2048 0 : DEBUGOUT_1 ("usb_control_msg error: %s\n", libusb_error_name (rc));
2049 0 : return CCID_DRIVER_ERR_CARD_IO_ERROR;
2050 : }
2051 :
2052 : /* Now send the abort command to the bulk out pipe using the same
2053 : SEQNO and SLOT. Do this in a loop to so that all seqno are
2054 : tried. */
2055 0 : seqno--; /* Adjust for next increment. */
2056 : do
2057 : {
2058 : int transferred;
2059 :
2060 0 : seqno++;
2061 0 : msg[0] = PC_to_RDR_Abort;
2062 0 : msg[5] = 0; /* slot */
2063 0 : msg[6] = seqno;
2064 0 : msg[7] = 0; /* RFU */
2065 0 : msg[8] = 0; /* RFU */
2066 0 : msg[9] = 0; /* RFU */
2067 0 : msglen = 10;
2068 0 : set_msg_len (msg, 0);
2069 :
2070 0 : rc = libusb_bulk_transfer (handle->idev, handle->ep_bulk_out,
2071 : (char*)msg, msglen, &transferred,
2072 : 5000 /* ms timeout */);
2073 0 : if (rc == 0 && transferred == msglen)
2074 0 : rc = 0;
2075 0 : else if (rc < 0)
2076 0 : DEBUGOUT_1 ("usb_bulk_write error in abort_cmd: %s\n",
2077 : libusb_error_name (rc));
2078 :
2079 0 : if (rc)
2080 0 : return rc;
2081 :
2082 0 : rc = libusb_bulk_transfer (handle->idev, handle->ep_bulk_in,
2083 : (char*)msg, sizeof msg, &msglen,
2084 : 5000 /*ms timeout*/);
2085 0 : if (rc < 0)
2086 : {
2087 0 : DEBUGOUT_1 ("usb_bulk_read error in abort_cmd: %s\n",
2088 : libusb_error_name (rc));
2089 0 : return CCID_DRIVER_ERR_CARD_IO_ERROR;
2090 : }
2091 :
2092 0 : if (msglen < 10)
2093 : {
2094 0 : DEBUGOUT_1 ("bulk-in msg in abort_cmd too short (%u)\n",
2095 : (unsigned int)msglen);
2096 0 : return CCID_DRIVER_ERR_INV_VALUE;
2097 : }
2098 0 : if (msg[5] != 0)
2099 : {
2100 0 : DEBUGOUT_1 ("unexpected bulk-in slot (%d) in abort_cmd\n", msg[5]);
2101 0 : return CCID_DRIVER_ERR_INV_VALUE;
2102 : }
2103 :
2104 0 : DEBUGOUT_3 ("status: %02X error: %02X octet[9]: %02X\n",
2105 : msg[7], msg[8], msg[9]);
2106 0 : if (CCID_COMMAND_FAILED (msg))
2107 0 : print_command_failed (msg);
2108 : }
2109 0 : while (msg[0] != RDR_to_PC_SlotStatus && msg[5] != 0 && msg[6] != seqno);
2110 :
2111 0 : handle->seqno = ((seqno + 1) & 0xff);
2112 0 : DEBUGOUT ("sending abort sequence succeeded\n");
2113 :
2114 0 : return 0;
2115 : }
2116 :
2117 :
2118 : /* Note that this function won't return the error codes NO_CARD or
2119 : CARD_INACTIVE. IF RESULT is not NULL, the result from the
2120 : operation will get returned in RESULT and its length in RESULTLEN.
2121 : If the response is larger than RESULTMAX, an error is returned and
2122 : the required buffer length returned in RESULTLEN. */
2123 : static int
2124 0 : send_escape_cmd (ccid_driver_t handle,
2125 : const unsigned char *data, size_t datalen,
2126 : unsigned char *result, size_t resultmax, size_t *resultlen)
2127 : {
2128 : int rc;
2129 : unsigned char msg[100];
2130 : size_t msglen;
2131 : unsigned char seqno;
2132 :
2133 0 : if (resultlen)
2134 0 : *resultlen = 0;
2135 :
2136 0 : if (datalen > sizeof msg - 10)
2137 0 : return CCID_DRIVER_ERR_INV_VALUE; /* Escape data too large. */
2138 :
2139 0 : msg[0] = PC_to_RDR_Escape;
2140 0 : msg[5] = 0; /* slot */
2141 0 : msg[6] = seqno = handle->seqno++;
2142 0 : msg[7] = 0; /* RFU */
2143 0 : msg[8] = 0; /* RFU */
2144 0 : msg[9] = 0; /* RFU */
2145 0 : memcpy (msg+10, data, datalen);
2146 0 : msglen = 10 + datalen;
2147 0 : set_msg_len (msg, datalen);
2148 :
2149 0 : rc = bulk_out (handle, msg, msglen, 0);
2150 0 : if (rc)
2151 0 : return rc;
2152 0 : rc = bulk_in (handle, msg, sizeof msg, &msglen, RDR_to_PC_Escape,
2153 : seqno, 5000, 0);
2154 0 : if (result)
2155 0 : switch (rc)
2156 : {
2157 : /* We need to ignore certain errorcode here. */
2158 : case 0:
2159 : case CCID_DRIVER_ERR_CARD_INACTIVE:
2160 : case CCID_DRIVER_ERR_NO_CARD:
2161 : {
2162 0 : if (msglen > resultmax)
2163 0 : rc = CCID_DRIVER_ERR_INV_VALUE; /* Response too large. */
2164 : else
2165 : {
2166 0 : memcpy (result, msg, msglen);
2167 0 : *resultlen = msglen;
2168 0 : rc = 0;
2169 : }
2170 : }
2171 0 : break;
2172 : default:
2173 0 : break;
2174 : }
2175 :
2176 0 : return rc;
2177 : }
2178 :
2179 :
2180 : int
2181 0 : ccid_transceive_escape (ccid_driver_t handle,
2182 : const unsigned char *data, size_t datalen,
2183 : unsigned char *resp, size_t maxresplen, size_t *nresp)
2184 : {
2185 0 : return send_escape_cmd (handle, data, datalen, resp, maxresplen, nresp);
2186 : }
2187 :
2188 :
2189 :
2190 : /* experimental */
2191 : int
2192 0 : ccid_poll (ccid_driver_t handle)
2193 : {
2194 : int rc;
2195 : unsigned char msg[10];
2196 : int msglen;
2197 : int i, j;
2198 :
2199 0 : if (handle->idev)
2200 : {
2201 0 : rc = libusb_bulk_transfer (handle->idev, handle->ep_intr,
2202 : (char*)msg, sizeof msg, &msglen,
2203 : 0 /* ms timeout */ );
2204 0 : if (rc == LIBUSB_ERROR_TIMEOUT)
2205 0 : return 0;
2206 : }
2207 : else
2208 0 : return 0;
2209 :
2210 0 : if (rc < 0)
2211 : {
2212 0 : DEBUGOUT_1 ("usb_intr_read error: %s\n", libusb_error_name (rc));
2213 0 : return CCID_DRIVER_ERR_CARD_IO_ERROR;
2214 : }
2215 :
2216 0 : if (msglen < 1)
2217 : {
2218 0 : DEBUGOUT ("intr-in msg too short\n");
2219 0 : return CCID_DRIVER_ERR_INV_VALUE;
2220 : }
2221 :
2222 0 : if (msg[0] == RDR_to_PC_NotifySlotChange)
2223 : {
2224 0 : DEBUGOUT ("notify slot change:");
2225 0 : for (i=1; i < msglen; i++)
2226 0 : for (j=0; j < 4; j++)
2227 0 : DEBUGOUT_CONT_3 (" %d:%c%c",
2228 : (i-1)*4+j,
2229 : (msg[i] & (1<<(j*2)))? 'p':'-',
2230 : (msg[i] & (2<<(j*2)))? '*':' ');
2231 0 : DEBUGOUT_LF ();
2232 : }
2233 0 : else if (msg[0] == RDR_to_PC_HardwareError)
2234 : {
2235 0 : DEBUGOUT ("hardware error occurred\n");
2236 : }
2237 : else
2238 : {
2239 0 : DEBUGOUT_1 ("unknown intr-in msg of type %02X\n", msg[0]);
2240 : }
2241 :
2242 0 : return 0;
2243 : }
2244 :
2245 :
2246 : /* Note that this function won't return the error codes NO_CARD or
2247 : CARD_INACTIVE */
2248 : int
2249 0 : ccid_slot_status (ccid_driver_t handle, int *statusbits)
2250 : {
2251 : int rc;
2252 : unsigned char msg[100];
2253 : size_t msglen;
2254 : unsigned char seqno;
2255 0 : int retries = 0;
2256 :
2257 : retry:
2258 0 : msg[0] = PC_to_RDR_GetSlotStatus;
2259 0 : msg[5] = 0; /* slot */
2260 0 : msg[6] = seqno = handle->seqno++;
2261 0 : msg[7] = 0; /* RFU */
2262 0 : msg[8] = 0; /* RFU */
2263 0 : msg[9] = 0; /* RFU */
2264 0 : set_msg_len (msg, 0);
2265 :
2266 0 : rc = bulk_out (handle, msg, 10, 1);
2267 0 : if (rc)
2268 0 : return rc;
2269 : /* Note that we set the NO_DEBUG flag here, so that the logs won't
2270 : get cluttered up by a ticker function checking for the slot
2271 : status and debugging enabled. */
2272 0 : rc = bulk_in (handle, msg, sizeof msg, &msglen, RDR_to_PC_SlotStatus,
2273 : seqno, retries? 1000 : 200, 1);
2274 0 : if (rc == CCID_DRIVER_ERR_CARD_IO_ERROR && retries < 3)
2275 : {
2276 0 : if (!retries)
2277 : {
2278 0 : DEBUGOUT ("USB: CALLING USB_CLEAR_HALT\n");
2279 0 : libusb_clear_halt (handle->idev, handle->ep_bulk_in);
2280 0 : libusb_clear_halt (handle->idev, handle->ep_bulk_out);
2281 : }
2282 : else
2283 0 : DEBUGOUT ("USB: RETRYING bulk_in AGAIN\n");
2284 0 : retries++;
2285 0 : goto retry;
2286 : }
2287 0 : if (rc && rc != CCID_DRIVER_ERR_NO_CARD
2288 0 : && rc != CCID_DRIVER_ERR_CARD_INACTIVE)
2289 0 : return rc;
2290 0 : *statusbits = (msg[7] & 3);
2291 :
2292 0 : return 0;
2293 : }
2294 :
2295 :
2296 : /* Parse ATR string (of ATRLEN) and update parameters at PARAM.
2297 : Calling this routine, it should prepare default values at PARAM
2298 : beforehand. This routine assumes that card is accessed by T=1
2299 : protocol. It doesn't analyze historical bytes at all.
2300 :
2301 : Returns < 0 value on error:
2302 : -1 for parse error or integrity check error
2303 : -2 for card doesn't support T=1 protocol
2304 : -3 for parameters are nod explicitly defined by ATR
2305 : -4 for this driver doesn't support CRC
2306 :
2307 : Returns >= 0 on success:
2308 : 0 for card is negotiable mode
2309 : 1 for card is specific mode (and not negotiable)
2310 : */
2311 : static int
2312 0 : update_param_by_atr (unsigned char *param, unsigned char *atr, size_t atrlen)
2313 : {
2314 0 : int i = -1;
2315 : int t, y, chk;
2316 0 : int historical_bytes_num, negotiable = 1;
2317 :
2318 : #define NEXTBYTE() do { i++; if (atrlen <= i) return -1; } while (0)
2319 :
2320 0 : NEXTBYTE ();
2321 :
2322 0 : if (atr[i] == 0x3F)
2323 0 : param[1] |= 0x02; /* Convention is inverse. */
2324 0 : NEXTBYTE ();
2325 :
2326 0 : y = (atr[i] >> 4);
2327 0 : historical_bytes_num = atr[i] & 0x0f;
2328 0 : NEXTBYTE ();
2329 :
2330 0 : if ((y & 1))
2331 : {
2332 0 : param[0] = atr[i]; /* TA1 - Fi & Di */
2333 0 : NEXTBYTE ();
2334 : }
2335 :
2336 0 : if ((y & 2))
2337 0 : NEXTBYTE (); /* TB1 - ignore */
2338 :
2339 0 : if ((y & 4))
2340 : {
2341 0 : param[2] = atr[i]; /* TC1 - Guard Time */
2342 0 : NEXTBYTE ();
2343 : }
2344 :
2345 0 : if ((y & 8))
2346 : {
2347 0 : y = (atr[i] >> 4); /* TD1 */
2348 0 : t = atr[i] & 0x0f;
2349 0 : NEXTBYTE ();
2350 :
2351 0 : if ((y & 1))
2352 : { /* TA2 - PPS mode */
2353 0 : if ((atr[i] & 0x0f) != 1)
2354 0 : return -2; /* Wrong card protocol (!= 1). */
2355 :
2356 0 : if ((atr[i] & 0x10) != 0x10)
2357 0 : return -3; /* Transmission parameters are implicitly defined. */
2358 :
2359 0 : negotiable = 0; /* TA2 means specific mode. */
2360 0 : NEXTBYTE ();
2361 : }
2362 :
2363 0 : if ((y & 2))
2364 0 : NEXTBYTE (); /* TB2 - ignore */
2365 :
2366 0 : if ((y & 4))
2367 0 : NEXTBYTE (); /* TC2 - ignore */
2368 :
2369 0 : if ((y & 8))
2370 : {
2371 0 : y = (atr[i] >> 4); /* TD2 */
2372 0 : t = atr[i] & 0x0f;
2373 0 : NEXTBYTE ();
2374 : }
2375 : else
2376 0 : y = 0;
2377 :
2378 0 : while (y)
2379 : {
2380 0 : if ((y & 1))
2381 : { /* TAx */
2382 0 : if (t == 1)
2383 0 : param[5] = atr[i]; /* IFSC */
2384 0 : else if (t == 15)
2385 : /* XXX: check voltage? */
2386 0 : param[4] = (atr[i] >> 6); /* ClockStop */
2387 :
2388 0 : NEXTBYTE ();
2389 : }
2390 :
2391 0 : if ((y & 2))
2392 : {
2393 0 : if (t == 1)
2394 0 : param[3] = atr[i]; /* TBx - BWI & CWI */
2395 0 : NEXTBYTE ();
2396 : }
2397 :
2398 0 : if ((y & 4))
2399 : {
2400 0 : if (t == 1)
2401 0 : param[1] |= (atr[i] & 0x01); /* TCx - LRC/CRC */
2402 0 : NEXTBYTE ();
2403 :
2404 0 : if (param[1] & 0x01)
2405 0 : return -4; /* CRC not supported yet. */
2406 : }
2407 :
2408 0 : if ((y & 8))
2409 : {
2410 0 : y = (atr[i] >> 4); /* TDx */
2411 0 : t = atr[i] & 0x0f;
2412 0 : NEXTBYTE ();
2413 : }
2414 : else
2415 0 : y = 0;
2416 : }
2417 : }
2418 :
2419 0 : i += historical_bytes_num - 1;
2420 0 : NEXTBYTE ();
2421 0 : if (atrlen != i+1)
2422 0 : return -1;
2423 :
2424 : #undef NEXTBYTE
2425 :
2426 0 : chk = 0;
2427 : do
2428 : {
2429 0 : chk ^= atr[i];
2430 0 : i--;
2431 : }
2432 0 : while (i > 0);
2433 :
2434 0 : if (chk != 0)
2435 0 : return -1;
2436 :
2437 0 : return negotiable;
2438 : }
2439 :
2440 :
2441 : /* Return the ATR of the card. This is not a cached value and thus an
2442 : actual reset is done. */
2443 : int
2444 0 : ccid_get_atr (ccid_driver_t handle,
2445 : unsigned char *atr, size_t maxatrlen, size_t *atrlen)
2446 : {
2447 : int rc;
2448 : int statusbits;
2449 : unsigned char msg[100];
2450 : unsigned char *tpdu;
2451 : size_t msglen, tpdulen;
2452 : unsigned char seqno;
2453 0 : int use_crc = 0;
2454 : unsigned int edc;
2455 0 : int tried_iso = 0;
2456 : int got_param;
2457 0 : unsigned char param[7] = { /* For Protocol T=1 */
2458 : 0x11, /* bmFindexDindex */
2459 : 0x10, /* bmTCCKST1 */
2460 : 0x00, /* bGuardTimeT1 */
2461 : 0x4d, /* bmWaitingIntegersT1 */
2462 : 0x00, /* bClockStop */
2463 : 0x20, /* bIFSC */
2464 : 0x00 /* bNadValue */
2465 : };
2466 :
2467 : /* First check whether a card is available. */
2468 0 : rc = ccid_slot_status (handle, &statusbits);
2469 0 : if (rc)
2470 0 : return rc;
2471 0 : if (statusbits == 2)
2472 0 : return CCID_DRIVER_ERR_NO_CARD;
2473 :
2474 : /* For an inactive and also for an active card, issue the PowerOn
2475 : command to get the ATR. */
2476 : again:
2477 0 : msg[0] = PC_to_RDR_IccPowerOn;
2478 0 : msg[5] = 0; /* slot */
2479 0 : msg[6] = seqno = handle->seqno++;
2480 : /* power select (0=auto, 1=5V, 2=3V, 3=1.8V) */
2481 0 : msg[7] = handle->auto_voltage ? 0 : 1;
2482 0 : msg[8] = 0; /* RFU */
2483 0 : msg[9] = 0; /* RFU */
2484 0 : set_msg_len (msg, 0);
2485 0 : msglen = 10;
2486 :
2487 0 : rc = bulk_out (handle, msg, msglen, 0);
2488 0 : if (rc)
2489 0 : return rc;
2490 0 : rc = bulk_in (handle, msg, sizeof msg, &msglen, RDR_to_PC_DataBlock,
2491 : seqno, 5000, 0);
2492 0 : if (rc)
2493 0 : return rc;
2494 0 : if (!tried_iso && CCID_COMMAND_FAILED (msg) && CCID_ERROR_CODE (msg) == 0xbb
2495 0 : && ((handle->id_vendor == VENDOR_CHERRY
2496 0 : && handle->id_product == 0x0005)
2497 0 : || (handle->id_vendor == VENDOR_GEMPC
2498 0 : && handle->id_product == 0x4433)
2499 : ))
2500 : {
2501 0 : tried_iso = 1;
2502 : /* Try switching to ISO mode. */
2503 0 : if (!send_escape_cmd (handle, (const unsigned char*)"\xF1\x01", 2,
2504 : NULL, 0, NULL))
2505 0 : goto again;
2506 : }
2507 0 : else if (CCID_COMMAND_FAILED (msg))
2508 0 : return CCID_DRIVER_ERR_CARD_IO_ERROR;
2509 :
2510 :
2511 0 : handle->powered_off = 0;
2512 :
2513 0 : if (atr)
2514 : {
2515 0 : size_t n = msglen - 10;
2516 :
2517 0 : if (n > maxatrlen)
2518 0 : n = maxatrlen;
2519 0 : memcpy (atr, msg+10, n);
2520 0 : *atrlen = n;
2521 : }
2522 :
2523 0 : param[6] = handle->nonnull_nad? ((1 << 4) | 0): 0;
2524 0 : rc = update_param_by_atr (param, msg+10, msglen - 10);
2525 0 : if (rc < 0)
2526 : {
2527 0 : DEBUGOUT_1 ("update_param_by_atr failed: %d\n", rc);
2528 0 : return CCID_DRIVER_ERR_CARD_IO_ERROR;
2529 : }
2530 :
2531 0 : got_param = 0;
2532 :
2533 0 : if (handle->auto_param)
2534 : {
2535 0 : msg[0] = PC_to_RDR_GetParameters;
2536 0 : msg[5] = 0; /* slot */
2537 0 : msg[6] = seqno = handle->seqno++;
2538 0 : msg[7] = 0; /* RFU */
2539 0 : msg[8] = 0; /* RFU */
2540 0 : msg[9] = 0; /* RFU */
2541 0 : set_msg_len (msg, 0);
2542 0 : msglen = 10;
2543 0 : rc = bulk_out (handle, msg, msglen, 0);
2544 0 : if (!rc)
2545 0 : rc = bulk_in (handle, msg, sizeof msg, &msglen, RDR_to_PC_Parameters,
2546 : seqno, 2000, 0);
2547 0 : if (rc)
2548 0 : DEBUGOUT ("GetParameters failed\n");
2549 0 : else if (msglen == 17 && msg[9] == 1)
2550 0 : got_param = 1;
2551 : }
2552 0 : else if (handle->auto_pps)
2553 : ;
2554 0 : else if (rc == 1) /* It's negotiable, send PPS. */
2555 : {
2556 0 : msg[0] = PC_to_RDR_XfrBlock;
2557 0 : msg[5] = 0; /* slot */
2558 0 : msg[6] = seqno = handle->seqno++;
2559 0 : msg[7] = 0;
2560 0 : msg[8] = 0;
2561 0 : msg[9] = 0;
2562 0 : msg[10] = 0xff; /* PPSS */
2563 0 : msg[11] = 0x11; /* PPS0: PPS1, Protocol T=1 */
2564 0 : msg[12] = param[0]; /* PPS1: Fi / Di */
2565 0 : msg[13] = 0xff ^ 0x11 ^ param[0]; /* PCK */
2566 0 : set_msg_len (msg, 4);
2567 0 : msglen = 10 + 4;
2568 :
2569 0 : rc = bulk_out (handle, msg, msglen, 0);
2570 0 : if (rc)
2571 0 : return rc;
2572 :
2573 0 : rc = bulk_in (handle, msg, sizeof msg, &msglen, RDR_to_PC_DataBlock,
2574 : seqno, 5000, 0);
2575 0 : if (rc)
2576 0 : return rc;
2577 :
2578 0 : if (msglen != 10 + 4)
2579 : {
2580 0 : DEBUGOUT_1 ("Setting PPS failed: %zu\n", msglen);
2581 0 : return CCID_DRIVER_ERR_CARD_IO_ERROR;
2582 : }
2583 :
2584 0 : if (msg[10] != 0xff || msg[11] != 0x11 || msg[12] != param[0])
2585 : {
2586 0 : DEBUGOUT_1 ("Setting PPS failed: 0x%02x\n", param[0]);
2587 0 : return CCID_DRIVER_ERR_CARD_IO_ERROR;
2588 : }
2589 : }
2590 :
2591 : /* Setup parameters to select T=1. */
2592 0 : msg[0] = PC_to_RDR_SetParameters;
2593 0 : msg[5] = 0; /* slot */
2594 0 : msg[6] = seqno = handle->seqno++;
2595 0 : msg[7] = 1; /* Select T=1. */
2596 0 : msg[8] = 0; /* RFU */
2597 0 : msg[9] = 0; /* RFU */
2598 :
2599 0 : if (!got_param)
2600 0 : memcpy (&msg[10], param, 7);
2601 0 : set_msg_len (msg, 7);
2602 0 : msglen = 10 + 7;
2603 :
2604 0 : rc = bulk_out (handle, msg, msglen, 0);
2605 0 : if (rc)
2606 0 : return rc;
2607 0 : rc = bulk_in (handle, msg, sizeof msg, &msglen, RDR_to_PC_Parameters,
2608 : seqno, 5000, 0);
2609 0 : if (rc)
2610 0 : DEBUGOUT ("SetParameters failed (ignored)\n");
2611 :
2612 0 : if (!rc && msglen > 15 && msg[15] >= 16 && msg[15] <= 254 )
2613 0 : handle->ifsc = msg[15];
2614 : else
2615 0 : handle->ifsc = 128; /* Something went wrong, assume 128 bytes. */
2616 :
2617 0 : if (handle->nonnull_nad && msglen > 16 && msg[16] == 0)
2618 : {
2619 0 : DEBUGOUT ("Use Null-NAD, clearing handle->nonnull_nad.\n");
2620 0 : handle->nonnull_nad = 0;
2621 : }
2622 :
2623 0 : handle->t1_ns = 0;
2624 0 : handle->t1_nr = 0;
2625 :
2626 : /* Send an S-Block with our maximum IFSD to the CCID. */
2627 0 : if (!handle->apdu_level && !handle->auto_ifsd)
2628 : {
2629 0 : tpdu = msg+10;
2630 : /* NAD: DAD=1, SAD=0 */
2631 0 : tpdu[0] = handle->nonnull_nad? ((1 << 4) | 0): 0;
2632 0 : tpdu[1] = (0xc0 | 0 | 1); /* S-block request: change IFSD */
2633 0 : tpdu[2] = 1;
2634 0 : tpdu[3] = handle->max_ifsd? handle->max_ifsd : 32;
2635 0 : tpdulen = 4;
2636 0 : edc = compute_edc (tpdu, tpdulen, use_crc);
2637 0 : if (use_crc)
2638 0 : tpdu[tpdulen++] = (edc >> 8);
2639 0 : tpdu[tpdulen++] = edc;
2640 :
2641 0 : msg[0] = PC_to_RDR_XfrBlock;
2642 0 : msg[5] = 0; /* slot */
2643 0 : msg[6] = seqno = handle->seqno++;
2644 0 : msg[7] = 0;
2645 0 : msg[8] = 0; /* RFU */
2646 0 : msg[9] = 0; /* RFU */
2647 0 : set_msg_len (msg, tpdulen);
2648 0 : msglen = 10 + tpdulen;
2649 :
2650 0 : if (debug_level > 1)
2651 0 : DEBUGOUT_3 ("T=1: put %c-block seq=%d%s\n",
2652 : ((msg[11] & 0xc0) == 0x80)? 'R' :
2653 : (msg[11] & 0x80)? 'S' : 'I',
2654 : ((msg[11] & 0x80)? !!(msg[11]& 0x10)
2655 : : !!(msg[11] & 0x40)),
2656 : (!(msg[11] & 0x80) && (msg[11] & 0x20)? " [more]":""));
2657 :
2658 0 : rc = bulk_out (handle, msg, msglen, 0);
2659 0 : if (rc)
2660 0 : return rc;
2661 :
2662 :
2663 0 : rc = bulk_in (handle, msg, sizeof msg, &msglen,
2664 : RDR_to_PC_DataBlock, seqno, 5000, 0);
2665 0 : if (rc)
2666 0 : return rc;
2667 :
2668 0 : tpdu = msg + 10;
2669 0 : tpdulen = msglen - 10;
2670 :
2671 0 : if (tpdulen < 4)
2672 0 : return CCID_DRIVER_ERR_ABORTED;
2673 :
2674 0 : if (debug_level > 1)
2675 0 : DEBUGOUT_4 ("T=1: got %c-block seq=%d err=%d%s\n",
2676 : ((msg[11] & 0xc0) == 0x80)? 'R' :
2677 : (msg[11] & 0x80)? 'S' : 'I',
2678 : ((msg[11] & 0x80)? !!(msg[11]& 0x10)
2679 : : !!(msg[11] & 0x40)),
2680 : ((msg[11] & 0xc0) == 0x80)? (msg[11] & 0x0f) : 0,
2681 : (!(msg[11] & 0x80) && (msg[11] & 0x20)? " [more]":""));
2682 :
2683 0 : if ((tpdu[1] & 0xe0) != 0xe0 || tpdu[2] != 1)
2684 : {
2685 0 : DEBUGOUT ("invalid response for S-block (Change-IFSD)\n");
2686 0 : return -1;
2687 : }
2688 0 : DEBUGOUT_1 ("IFSD has been set to %d\n", tpdu[3]);
2689 : }
2690 :
2691 0 : return 0;
2692 : }
2693 :
2694 :
2695 :
2696 :
2697 : static unsigned int
2698 0 : compute_edc (const unsigned char *data, size_t datalen, int use_crc)
2699 : {
2700 0 : if (use_crc)
2701 : {
2702 0 : return 0x42; /* Not yet implemented. */
2703 : }
2704 : else
2705 : {
2706 0 : unsigned char crc = 0;
2707 :
2708 0 : for (; datalen; datalen--)
2709 0 : crc ^= *data++;
2710 0 : return crc;
2711 : }
2712 : }
2713 :
2714 :
2715 : /* Return true if APDU is an extended length one. */
2716 : static int
2717 0 : is_exlen_apdu (const unsigned char *apdu, size_t apdulen)
2718 : {
2719 0 : if (apdulen < 7 || apdu[4])
2720 0 : return 0; /* Too short or no Z byte. */
2721 0 : return 1;
2722 : }
2723 :
2724 :
2725 : /* Helper for ccid_transceive used for APDU level exchanges. */
2726 : static int
2727 0 : ccid_transceive_apdu_level (ccid_driver_t handle,
2728 : const unsigned char *apdu_buf, size_t apdu_len,
2729 : unsigned char *resp, size_t maxresplen,
2730 : size_t *nresp)
2731 : {
2732 : int rc;
2733 : unsigned char msg[CCID_MAX_BUF];
2734 : const unsigned char *apdu_p;
2735 : size_t apdu_part_len;
2736 : size_t msglen;
2737 : unsigned char seqno;
2738 0 : int bwi = 4;
2739 0 : unsigned char chain = 0;
2740 :
2741 0 : if (apdu_len == 0 || apdu_len > sizeof (msg) - 10)
2742 0 : return CCID_DRIVER_ERR_INV_VALUE; /* Invalid length. */
2743 :
2744 0 : apdu_p = apdu_buf;
2745 : while (1)
2746 : {
2747 0 : apdu_part_len = apdu_len;
2748 0 : if (apdu_part_len > handle->max_ccid_msglen - 10)
2749 : {
2750 0 : apdu_part_len = handle->max_ccid_msglen - 10;
2751 0 : chain |= 0x01;
2752 : }
2753 :
2754 0 : msg[0] = PC_to_RDR_XfrBlock;
2755 0 : msg[5] = 0; /* slot */
2756 0 : msg[6] = seqno = handle->seqno++;
2757 0 : msg[7] = bwi;
2758 0 : msg[8] = chain;
2759 0 : msg[9] = 0;
2760 0 : memcpy (msg+10, apdu_p, apdu_part_len);
2761 0 : set_msg_len (msg, apdu_part_len);
2762 0 : msglen = 10 + apdu_part_len;
2763 :
2764 0 : rc = bulk_out (handle, msg, msglen, 0);
2765 0 : if (rc)
2766 0 : return rc;
2767 :
2768 0 : apdu_p += apdu_part_len;
2769 0 : apdu_len -= apdu_part_len;
2770 :
2771 0 : rc = bulk_in (handle, msg, sizeof msg, &msglen,
2772 : RDR_to_PC_DataBlock, seqno, CCID_CMD_TIMEOUT, 0);
2773 0 : if (rc)
2774 0 : return rc;
2775 :
2776 0 : if (!(chain & 0x01))
2777 0 : break;
2778 :
2779 0 : chain = 0x02;
2780 0 : }
2781 :
2782 0 : apdu_len = 0;
2783 : while (1)
2784 : {
2785 0 : apdu_part_len = msglen - 10;
2786 0 : if (resp && apdu_len + apdu_part_len <= maxresplen)
2787 0 : memcpy (resp + apdu_len, msg+10, apdu_part_len);
2788 0 : apdu_len += apdu_part_len;
2789 :
2790 0 : if (!(msg[9] & 0x01))
2791 0 : break;
2792 :
2793 0 : msg[0] = PC_to_RDR_XfrBlock;
2794 0 : msg[5] = 0; /* slot */
2795 0 : msg[6] = seqno = handle->seqno++;
2796 0 : msg[7] = bwi;
2797 0 : msg[8] = 0x10; /* Request next data block */
2798 0 : msg[9] = 0;
2799 0 : set_msg_len (msg, 0);
2800 0 : msglen = 10;
2801 :
2802 0 : rc = bulk_out (handle, msg, msglen, 0);
2803 0 : if (rc)
2804 0 : return rc;
2805 :
2806 0 : rc = bulk_in (handle, msg, sizeof msg, &msglen,
2807 : RDR_to_PC_DataBlock, seqno, CCID_CMD_TIMEOUT, 0);
2808 0 : if (rc)
2809 0 : return rc;
2810 0 : }
2811 :
2812 0 : if (resp)
2813 : {
2814 0 : if (apdu_len > maxresplen)
2815 : {
2816 0 : DEBUGOUT_2 ("provided buffer too short for received data "
2817 : "(%u/%u)\n",
2818 : (unsigned int)apdu_len, (unsigned int)maxresplen);
2819 0 : return CCID_DRIVER_ERR_INV_VALUE;
2820 : }
2821 :
2822 0 : *nresp = apdu_len;
2823 : }
2824 :
2825 0 : return 0;
2826 : }
2827 :
2828 :
2829 :
2830 : /*
2831 : Protocol T=1 overview
2832 :
2833 : Block Structure:
2834 : Prologue Field:
2835 : 1 byte Node Address (NAD)
2836 : 1 byte Protocol Control Byte (PCB)
2837 : 1 byte Length (LEN)
2838 : Information Field:
2839 : 0-254 byte APDU or Control Information (INF)
2840 : Epilogue Field:
2841 : 1 byte Error Detection Code (EDC)
2842 :
2843 : NAD:
2844 : bit 7 unused
2845 : bit 4..6 Destination Node Address (DAD)
2846 : bit 3 unused
2847 : bit 2..0 Source Node Address (SAD)
2848 :
2849 : If node adresses are not used, SAD and DAD should be set to 0 on
2850 : the first block sent to the card. If they are used they should
2851 : have different values (0 for one is okay); that first block sets up
2852 : the addresses of the nodes.
2853 :
2854 : PCB:
2855 : Information Block (I-Block):
2856 : bit 7 0
2857 : bit 6 Sequence number (yep, that is modulo 2)
2858 : bit 5 Chaining flag
2859 : bit 4..0 reserved
2860 : Received-Ready Block (R-Block):
2861 : bit 7 1
2862 : bit 6 0
2863 : bit 5 0
2864 : bit 4 Sequence number
2865 : bit 3..0 0 = no error
2866 : 1 = EDC or parity error
2867 : 2 = other error
2868 : other values are reserved
2869 : Supervisory Block (S-Block):
2870 : bit 7 1
2871 : bit 6 1
2872 : bit 5 clear=request,set=response
2873 : bit 4..0 0 = resyncronisation request
2874 : 1 = information field size request
2875 : 2 = abort request
2876 : 3 = extension of BWT request
2877 : 4 = VPP error
2878 : other values are reserved
2879 :
2880 : */
2881 :
2882 : int
2883 0 : ccid_transceive (ccid_driver_t handle,
2884 : const unsigned char *apdu_buf, size_t apdu_buflen,
2885 : unsigned char *resp, size_t maxresplen, size_t *nresp)
2886 : {
2887 : int rc;
2888 : /* The size of the buffer used to be 10+259. For the via_escape
2889 : hack we need one extra byte, thus 11+259. */
2890 : unsigned char send_buffer[11+259], recv_buffer[11+259];
2891 : const unsigned char *apdu;
2892 : size_t apdulen;
2893 : unsigned char *msg, *tpdu, *p;
2894 : size_t msglen, tpdulen, last_tpdulen, n;
2895 : unsigned char seqno;
2896 : unsigned int edc;
2897 0 : int use_crc = 0;
2898 : int hdrlen, pcboff;
2899 : size_t dummy_nresp;
2900 0 : int via_escape = 0;
2901 0 : int next_chunk = 1;
2902 0 : int sending = 1;
2903 0 : int retries = 0;
2904 0 : int resyncing = 0;
2905 : int nad_byte;
2906 :
2907 0 : if (!nresp)
2908 0 : nresp = &dummy_nresp;
2909 0 : *nresp = 0;
2910 :
2911 : /* Smarter readers allow sending APDUs directly; divert here. */
2912 0 : if (handle->apdu_level)
2913 : {
2914 : /* We employ a hack for Omnikey readers which are able to send
2915 : TPDUs using an escape sequence. There is no documentation
2916 : but the Windows driver does it this way. Tested using a
2917 : CM6121. This method works also for the Cherry XX44
2918 : keyboards; however there are problems with the
2919 : ccid_tranceive_secure which leads to a loss of sync on the
2920 : CCID level. If Cherry wants to make their keyboard work
2921 : again, they should hand over some docs. */
2922 0 : if ((handle->id_vendor == VENDOR_OMNIKEY
2923 0 : || (!handle->idev && handle->id_product == TRANSPORT_CM4040))
2924 0 : && handle->apdu_level < 2
2925 0 : && is_exlen_apdu (apdu_buf, apdu_buflen))
2926 0 : via_escape = 1;
2927 : else
2928 0 : return ccid_transceive_apdu_level (handle, apdu_buf, apdu_buflen,
2929 : resp, maxresplen, nresp);
2930 : }
2931 :
2932 : /* The other readers we support require sending TPDUs. */
2933 :
2934 0 : tpdulen = 0; /* Avoid compiler warning about no initialization. */
2935 0 : msg = send_buffer;
2936 0 : hdrlen = via_escape? 11 : 10;
2937 :
2938 : /* NAD: DAD=1, SAD=0 */
2939 0 : nad_byte = handle->nonnull_nad? ((1 << 4) | 0): 0;
2940 0 : if (via_escape)
2941 0 : nad_byte = 0;
2942 :
2943 0 : last_tpdulen = 0; /* Avoid gcc warning (controlled by RESYNCING). */
2944 : for (;;)
2945 : {
2946 0 : if (next_chunk)
2947 : {
2948 0 : next_chunk = 0;
2949 :
2950 0 : apdu = apdu_buf;
2951 0 : apdulen = apdu_buflen;
2952 0 : assert (apdulen);
2953 :
2954 : /* Construct an I-Block. */
2955 0 : tpdu = msg + hdrlen;
2956 0 : tpdu[0] = nad_byte;
2957 0 : tpdu[1] = ((handle->t1_ns & 1) << 6); /* I-block */
2958 0 : if (apdulen > handle->ifsc )
2959 : {
2960 0 : apdulen = handle->ifsc;
2961 0 : apdu_buf += handle->ifsc;
2962 0 : apdu_buflen -= handle->ifsc;
2963 0 : tpdu[1] |= (1 << 5); /* Set more bit. */
2964 : }
2965 0 : tpdu[2] = apdulen;
2966 0 : memcpy (tpdu+3, apdu, apdulen);
2967 0 : tpdulen = 3 + apdulen;
2968 0 : edc = compute_edc (tpdu, tpdulen, use_crc);
2969 0 : if (use_crc)
2970 0 : tpdu[tpdulen++] = (edc >> 8);
2971 0 : tpdu[tpdulen++] = edc;
2972 : }
2973 :
2974 0 : if (via_escape)
2975 : {
2976 0 : msg[0] = PC_to_RDR_Escape;
2977 0 : msg[5] = 0; /* slot */
2978 0 : msg[6] = seqno = handle->seqno++;
2979 0 : msg[7] = 0; /* RFU */
2980 0 : msg[8] = 0; /* RFU */
2981 0 : msg[9] = 0; /* RFU */
2982 0 : msg[10] = 0x1a; /* Omnikey command to send a TPDU. */
2983 0 : set_msg_len (msg, 1 + tpdulen);
2984 : }
2985 : else
2986 : {
2987 0 : msg[0] = PC_to_RDR_XfrBlock;
2988 0 : msg[5] = 0; /* slot */
2989 0 : msg[6] = seqno = handle->seqno++;
2990 0 : msg[7] = 4; /* bBWI */
2991 0 : msg[8] = 0; /* RFU */
2992 0 : msg[9] = 0; /* RFU */
2993 0 : set_msg_len (msg, tpdulen);
2994 : }
2995 0 : msglen = hdrlen + tpdulen;
2996 0 : if (!resyncing)
2997 0 : last_tpdulen = tpdulen;
2998 0 : pcboff = hdrlen+1;
2999 :
3000 0 : if (debug_level > 1)
3001 0 : DEBUGOUT_3 ("T=1: put %c-block seq=%d%s\n",
3002 : ((msg[pcboff] & 0xc0) == 0x80)? 'R' :
3003 : (msg[pcboff] & 0x80)? 'S' : 'I',
3004 : ((msg[pcboff] & 0x80)? !!(msg[pcboff]& 0x10)
3005 : : !!(msg[pcboff] & 0x40)),
3006 : (!(msg[pcboff] & 0x80) && (msg[pcboff] & 0x20)?
3007 : " [more]":""));
3008 :
3009 0 : rc = bulk_out (handle, msg, msglen, 0);
3010 0 : if (rc)
3011 0 : return rc;
3012 :
3013 0 : msg = recv_buffer;
3014 0 : rc = bulk_in (handle, msg, sizeof recv_buffer, &msglen,
3015 : via_escape? RDR_to_PC_Escape : RDR_to_PC_DataBlock,
3016 : seqno, CCID_CMD_TIMEOUT, 0);
3017 0 : if (rc)
3018 0 : return rc;
3019 :
3020 0 : tpdu = msg + hdrlen;
3021 0 : tpdulen = msglen - hdrlen;
3022 0 : resyncing = 0;
3023 :
3024 0 : if (tpdulen < 4)
3025 : {
3026 0 : libusb_clear_halt (handle->idev, handle->ep_bulk_in);
3027 0 : return CCID_DRIVER_ERR_ABORTED;
3028 : }
3029 :
3030 0 : if (debug_level > 1)
3031 0 : DEBUGOUT_4 ("T=1: got %c-block seq=%d err=%d%s\n",
3032 : ((msg[pcboff] & 0xc0) == 0x80)? 'R' :
3033 : (msg[pcboff] & 0x80)? 'S' : 'I',
3034 : ((msg[pcboff] & 0x80)? !!(msg[pcboff]& 0x10)
3035 : : !!(msg[pcboff] & 0x40)),
3036 : ((msg[pcboff] & 0xc0) == 0x80)? (msg[pcboff] & 0x0f) : 0,
3037 : (!(msg[pcboff] & 0x80) && (msg[pcboff] & 0x20)?
3038 : " [more]":""));
3039 :
3040 0 : if (!(tpdu[1] & 0x80))
3041 : { /* This is an I-block. */
3042 0 : retries = 0;
3043 0 : if (sending)
3044 : { /* last block sent was successful. */
3045 0 : handle->t1_ns ^= 1;
3046 0 : sending = 0;
3047 : }
3048 :
3049 0 : if (!!(tpdu[1] & 0x40) != handle->t1_nr)
3050 : { /* Response does not match our sequence number. */
3051 0 : msg = send_buffer;
3052 0 : tpdu = msg + hdrlen;
3053 0 : tpdu[0] = nad_byte;
3054 0 : tpdu[1] = (0x80 | (handle->t1_nr & 1) << 4 | 2); /* R-block */
3055 0 : tpdu[2] = 0;
3056 0 : tpdulen = 3;
3057 0 : edc = compute_edc (tpdu, tpdulen, use_crc);
3058 0 : if (use_crc)
3059 0 : tpdu[tpdulen++] = (edc >> 8);
3060 0 : tpdu[tpdulen++] = edc;
3061 :
3062 0 : continue;
3063 : }
3064 :
3065 0 : handle->t1_nr ^= 1;
3066 :
3067 0 : p = tpdu + 3; /* Skip the prologue field. */
3068 0 : n = tpdulen - 3 - 1; /* Strip the epilogue field. */
3069 : /* fixme: verify the checksum. */
3070 0 : if (resp)
3071 : {
3072 0 : if (n > maxresplen)
3073 : {
3074 0 : DEBUGOUT_2 ("provided buffer too short for received data "
3075 : "(%u/%u)\n",
3076 : (unsigned int)n, (unsigned int)maxresplen);
3077 0 : return CCID_DRIVER_ERR_INV_VALUE;
3078 : }
3079 :
3080 0 : memcpy (resp, p, n);
3081 0 : resp += n;
3082 0 : *nresp += n;
3083 0 : maxresplen -= n;
3084 : }
3085 :
3086 0 : if (!(tpdu[1] & 0x20))
3087 0 : return 0; /* No chaining requested - ready. */
3088 :
3089 0 : msg = send_buffer;
3090 0 : tpdu = msg + hdrlen;
3091 0 : tpdu[0] = nad_byte;
3092 0 : tpdu[1] = (0x80 | (handle->t1_nr & 1) << 4); /* R-block */
3093 0 : tpdu[2] = 0;
3094 0 : tpdulen = 3;
3095 0 : edc = compute_edc (tpdu, tpdulen, use_crc);
3096 0 : if (use_crc)
3097 0 : tpdu[tpdulen++] = (edc >> 8);
3098 0 : tpdu[tpdulen++] = edc;
3099 : }
3100 0 : else if ((tpdu[1] & 0xc0) == 0x80)
3101 : { /* This is a R-block. */
3102 0 : if ( (tpdu[1] & 0x0f))
3103 : {
3104 0 : retries++;
3105 0 : if (via_escape && retries == 1 && (msg[pcboff] & 0x0f))
3106 : {
3107 : /* Error probably due to switching to TPDU. Send a
3108 : resync request. We use the recv_buffer so that
3109 : we don't corrupt the send_buffer. */
3110 0 : msg = recv_buffer;
3111 0 : tpdu = msg + hdrlen;
3112 0 : tpdu[0] = nad_byte;
3113 0 : tpdu[1] = 0xc0; /* S-block resync request. */
3114 0 : tpdu[2] = 0;
3115 0 : tpdulen = 3;
3116 0 : edc = compute_edc (tpdu, tpdulen, use_crc);
3117 0 : if (use_crc)
3118 0 : tpdu[tpdulen++] = (edc >> 8);
3119 0 : tpdu[tpdulen++] = edc;
3120 0 : resyncing = 1;
3121 0 : DEBUGOUT ("T=1: requesting resync\n");
3122 : }
3123 0 : else if (retries > 3)
3124 : {
3125 0 : DEBUGOUT ("T=1: 3 failed retries\n");
3126 0 : return CCID_DRIVER_ERR_CARD_IO_ERROR;
3127 : }
3128 : else
3129 : {
3130 : /* Error: repeat last block */
3131 0 : msg = send_buffer;
3132 0 : tpdulen = last_tpdulen;
3133 : }
3134 : }
3135 0 : else if (sending && !!(tpdu[1] & 0x10) == handle->t1_ns)
3136 : { /* Response does not match our sequence number. */
3137 0 : DEBUGOUT ("R-block with wrong seqno received on more bit\n");
3138 0 : return CCID_DRIVER_ERR_CARD_IO_ERROR;
3139 : }
3140 0 : else if (sending)
3141 : { /* Send next chunk. */
3142 0 : retries = 0;
3143 0 : msg = send_buffer;
3144 0 : next_chunk = 1;
3145 0 : handle->t1_ns ^= 1;
3146 : }
3147 : else
3148 : {
3149 0 : DEBUGOUT ("unexpected ACK R-block received\n");
3150 0 : return CCID_DRIVER_ERR_CARD_IO_ERROR;
3151 : }
3152 : }
3153 : else
3154 : { /* This is a S-block. */
3155 0 : retries = 0;
3156 0 : DEBUGOUT_2 ("T=1: S-block %s received cmd=%d\n",
3157 : (tpdu[1] & 0x20)? "response": "request",
3158 : (tpdu[1] & 0x1f));
3159 0 : if ( !(tpdu[1] & 0x20) && (tpdu[1] & 0x1f) == 1 && tpdu[2] == 1)
3160 0 : {
3161 : /* Information field size request. */
3162 0 : unsigned char ifsc = tpdu[3];
3163 :
3164 0 : if (ifsc < 16 || ifsc > 254)
3165 0 : return CCID_DRIVER_ERR_CARD_IO_ERROR;
3166 :
3167 0 : msg = send_buffer;
3168 0 : tpdu = msg + hdrlen;
3169 0 : tpdu[0] = nad_byte;
3170 0 : tpdu[1] = (0xc0 | 0x20 | 1); /* S-block response */
3171 0 : tpdu[2] = 1;
3172 0 : tpdu[3] = ifsc;
3173 0 : tpdulen = 4;
3174 0 : edc = compute_edc (tpdu, tpdulen, use_crc);
3175 0 : if (use_crc)
3176 0 : tpdu[tpdulen++] = (edc >> 8);
3177 0 : tpdu[tpdulen++] = edc;
3178 0 : DEBUGOUT_1 ("T=1: requesting an ifsc=%d\n", ifsc);
3179 : }
3180 0 : else if ( !(tpdu[1] & 0x20) && (tpdu[1] & 0x1f) == 3 && tpdu[2])
3181 0 : {
3182 : /* Wait time extension request. */
3183 0 : unsigned char bwi = tpdu[3];
3184 0 : msg = send_buffer;
3185 0 : tpdu = msg + hdrlen;
3186 0 : tpdu[0] = nad_byte;
3187 0 : tpdu[1] = (0xc0 | 0x20 | 3); /* S-block response */
3188 0 : tpdu[2] = 1;
3189 0 : tpdu[3] = bwi;
3190 0 : tpdulen = 4;
3191 0 : edc = compute_edc (tpdu, tpdulen, use_crc);
3192 0 : if (use_crc)
3193 0 : tpdu[tpdulen++] = (edc >> 8);
3194 0 : tpdu[tpdulen++] = edc;
3195 0 : DEBUGOUT_1 ("T=1: waittime extension of bwi=%d\n", bwi);
3196 0 : print_progress (handle);
3197 : }
3198 0 : else if ( (tpdu[1] & 0x20) && (tpdu[1] & 0x1f) == 0 && !tpdu[2])
3199 : {
3200 0 : DEBUGOUT ("T=1: resync ack from reader\n");
3201 : /* Repeat previous block. */
3202 0 : msg = send_buffer;
3203 0 : tpdulen = last_tpdulen;
3204 : }
3205 : else
3206 0 : return CCID_DRIVER_ERR_CARD_IO_ERROR;
3207 : }
3208 0 : } /* end T=1 protocol loop. */
3209 :
3210 : return 0;
3211 : }
3212 :
3213 :
3214 : /* Send the CCID Secure command to the reader. APDU_BUF should
3215 : contain the APDU template. PIN_MODE defines how the pin gets
3216 : formatted:
3217 :
3218 : 1 := The PIN is ASCII encoded and of variable length. The
3219 : length of the PIN entered will be put into Lc by the reader.
3220 : The APDU should me made up of 4 bytes without Lc.
3221 :
3222 : PINLEN_MIN and PINLEN_MAX define the limits for the pin length. 0
3223 : may be used t enable reasonable defaults.
3224 :
3225 : When called with RESP and NRESP set to NULL, the function will
3226 : merely check whether the reader supports the secure command for the
3227 : given APDU and PIN_MODE. */
3228 : int
3229 0 : ccid_transceive_secure (ccid_driver_t handle,
3230 : const unsigned char *apdu_buf, size_t apdu_buflen,
3231 : pininfo_t *pininfo,
3232 : unsigned char *resp, size_t maxresplen, size_t *nresp)
3233 : {
3234 : int rc;
3235 : unsigned char send_buffer[10+259], recv_buffer[10+259];
3236 : unsigned char *msg, *tpdu, *p;
3237 : size_t msglen, tpdulen, n;
3238 : unsigned char seqno;
3239 : size_t dummy_nresp;
3240 : int testmode;
3241 0 : int cherry_mode = 0;
3242 0 : int add_zero = 0;
3243 0 : int enable_varlen = 0;
3244 :
3245 0 : testmode = !resp && !nresp;
3246 :
3247 0 : if (!nresp)
3248 0 : nresp = &dummy_nresp;
3249 0 : *nresp = 0;
3250 :
3251 0 : if (apdu_buflen >= 4 && apdu_buf[1] == 0x20 && (handle->has_pinpad & 1))
3252 : ;
3253 0 : else if (apdu_buflen >= 4 && apdu_buf[1] == 0x24 && (handle->has_pinpad & 2))
3254 : ;
3255 : else
3256 0 : return CCID_DRIVER_ERR_NO_PINPAD;
3257 :
3258 0 : if (!pininfo->minlen)
3259 0 : pininfo->minlen = 1;
3260 0 : if (!pininfo->maxlen)
3261 0 : pininfo->maxlen = 15;
3262 :
3263 : /* Note that the 25 is the maximum value the SPR532 allows. */
3264 0 : if (pininfo->minlen < 1 || pininfo->minlen > 25
3265 0 : || pininfo->maxlen < 1 || pininfo->maxlen > 25
3266 0 : || pininfo->minlen > pininfo->maxlen)
3267 0 : return CCID_DRIVER_ERR_INV_VALUE;
3268 :
3269 : /* We have only tested a few readers so better don't risk anything
3270 : and do not allow the use with other readers. */
3271 0 : switch (handle->id_vendor)
3272 : {
3273 : case VENDOR_SCM: /* Tested with SPR 532. */
3274 : case VENDOR_KAAN: /* Tested with KAAN Advanced (1.02). */
3275 : case VENDOR_FSIJ: /* Tested with Gnuk (0.21). */
3276 0 : pininfo->maxlen = 25;
3277 0 : enable_varlen = 1;
3278 0 : break;
3279 : case VENDOR_REINER:/* Tested with cyberJack go */
3280 : case VENDOR_VASCO: /* Tested with DIGIPASS 920 */
3281 0 : enable_varlen = 1;
3282 0 : break;
3283 : case VENDOR_CHERRY:
3284 0 : pininfo->maxlen = 15;
3285 0 : enable_varlen = 1;
3286 : /* The CHERRY XX44 keyboard echos an asterisk for each entered
3287 : character on the keyboard channel. We use a special variant
3288 : of PC_to_RDR_Secure which directs these characters to the
3289 : smart card's bulk-in channel. We also need to append a zero
3290 : Lc byte to the APDU. It seems that it will be replaced with
3291 : the actual length instead of being appended before the APDU
3292 : is send to the card. */
3293 0 : add_zero = 1;
3294 0 : if (handle->id_product != CHERRY_ST2000)
3295 0 : cherry_mode = 1;
3296 0 : break;
3297 : default:
3298 0 : if ((handle->id_vendor == VENDOR_GEMPC &&
3299 0 : handle->id_product == GEMPC_PINPAD)
3300 0 : || (handle->id_vendor == VENDOR_VEGA &&
3301 0 : handle->id_product == VEGA_ALPHA))
3302 : {
3303 0 : enable_varlen = 0;
3304 0 : pininfo->minlen = 4;
3305 0 : pininfo->maxlen = 8;
3306 0 : break;
3307 : }
3308 0 : return CCID_DRIVER_ERR_NOT_SUPPORTED;
3309 : }
3310 :
3311 0 : if (enable_varlen)
3312 0 : pininfo->fixedlen = 0;
3313 :
3314 0 : if (testmode)
3315 0 : return 0; /* Success */
3316 :
3317 0 : if (pininfo->fixedlen < 0 || pininfo->fixedlen >= 16)
3318 0 : return CCID_DRIVER_ERR_NOT_SUPPORTED;
3319 :
3320 0 : msg = send_buffer;
3321 0 : if (handle->id_vendor == VENDOR_SCM)
3322 : {
3323 0 : DEBUGOUT ("sending escape sequence to switch to a case 1 APDU\n");
3324 0 : rc = send_escape_cmd (handle, (const unsigned char*)"\x80\x02\x00", 3,
3325 : NULL, 0, NULL);
3326 0 : if (rc)
3327 0 : return rc;
3328 : }
3329 :
3330 0 : msg[0] = cherry_mode? 0x89 : PC_to_RDR_Secure;
3331 0 : msg[5] = 0; /* slot */
3332 0 : msg[6] = seqno = handle->seqno++;
3333 0 : msg[7] = 0; /* bBWI */
3334 0 : msg[8] = 0; /* RFU */
3335 0 : msg[9] = 0; /* RFU */
3336 0 : msg[10] = apdu_buf[1] == 0x20 ? 0 : 1;
3337 : /* Perform PIN verification or PIN modification. */
3338 0 : msg[11] = 0; /* Timeout in seconds. */
3339 0 : msg[12] = 0x82; /* bmFormatString: Byte, pos=0, left, ASCII. */
3340 0 : if (handle->id_vendor == VENDOR_SCM)
3341 : {
3342 : /* For the SPR532 the next 2 bytes need to be zero. We do this
3343 : for all SCM products. Kudos to Martin Paljak for this
3344 : hint. */
3345 0 : msg[13] = msg[14] = 0;
3346 : }
3347 : else
3348 : {
3349 0 : msg[13] = pininfo->fixedlen; /* bmPINBlockString:
3350 : 0 bits of pin length to insert.
3351 : PIN block size by fixedlen. */
3352 0 : msg[14] = 0x00; /* bmPINLengthFormat:
3353 : Units are bytes, position is 0. */
3354 : }
3355 :
3356 0 : msglen = 15;
3357 0 : if (apdu_buf[1] == 0x24)
3358 : {
3359 0 : msg[msglen++] = 0; /* bInsertionOffsetOld */
3360 0 : msg[msglen++] = pininfo->fixedlen; /* bInsertionOffsetNew */
3361 : }
3362 :
3363 : /* The following is a little endian word. */
3364 0 : msg[msglen++] = pininfo->maxlen; /* wPINMaxExtraDigit-Maximum. */
3365 0 : msg[msglen++] = pininfo->minlen; /* wPINMaxExtraDigit-Minimum. */
3366 :
3367 0 : if (apdu_buf[1] == 0x24)
3368 0 : msg[msglen++] = apdu_buf[2] == 0 ? 0x03 : 0x01;
3369 : /* bConfirmPIN
3370 : * 0x00: new PIN once
3371 : * 0x01: new PIN twice (confirmation)
3372 : * 0x02: old PIN and new PIN once
3373 : * 0x03: old PIN and new PIN twice (confirmation)
3374 : */
3375 :
3376 0 : msg[msglen] = 0x02; /* bEntryValidationCondition:
3377 : Validation key pressed */
3378 0 : if (pininfo->minlen && pininfo->maxlen && pininfo->minlen == pininfo->maxlen)
3379 0 : msg[msglen] |= 0x01; /* Max size reached. */
3380 0 : msglen++;
3381 :
3382 0 : if (apdu_buf[1] == 0x20)
3383 0 : msg[msglen++] = 0x01; /* bNumberMessage. */
3384 : else
3385 0 : msg[msglen++] = 0x03; /* bNumberMessage. */
3386 :
3387 0 : msg[msglen++] = 0x09; /* wLangId-Low: English FIXME: use the first entry. */
3388 0 : msg[msglen++] = 0x04; /* wLangId-High. */
3389 :
3390 0 : if (apdu_buf[1] == 0x20)
3391 0 : msg[msglen++] = 0; /* bMsgIndex. */
3392 : else
3393 : {
3394 0 : msg[msglen++] = 0; /* bMsgIndex1. */
3395 0 : msg[msglen++] = 1; /* bMsgIndex2. */
3396 0 : msg[msglen++] = 2; /* bMsgIndex3. */
3397 : }
3398 :
3399 : /* Calculate Lc. */
3400 0 : n = pininfo->fixedlen;
3401 0 : if (apdu_buf[1] == 0x24)
3402 0 : n += pininfo->fixedlen;
3403 :
3404 : /* bTeoProlog follows: */
3405 0 : msg[msglen++] = handle->nonnull_nad? ((1 << 4) | 0): 0;
3406 0 : msg[msglen++] = ((handle->t1_ns & 1) << 6); /* I-block */
3407 0 : if (n)
3408 0 : msg[msglen++] = n + 5; /* apdulen should be filled for fixed length. */
3409 : else
3410 0 : msg[msglen++] = 0; /* The apdulen will be filled in by the reader. */
3411 : /* APDU follows: */
3412 0 : msg[msglen++] = apdu_buf[0]; /* CLA */
3413 0 : msg[msglen++] = apdu_buf[1]; /* INS */
3414 0 : msg[msglen++] = apdu_buf[2]; /* P1 */
3415 0 : msg[msglen++] = apdu_buf[3]; /* P2 */
3416 0 : if (add_zero)
3417 0 : msg[msglen++] = 0;
3418 0 : else if (pininfo->fixedlen != 0)
3419 : {
3420 0 : msg[msglen++] = n;
3421 0 : memset (&msg[msglen], 0xff, n);
3422 0 : msglen += n;
3423 : }
3424 : /* An EDC is not required. */
3425 0 : set_msg_len (msg, msglen - 10);
3426 :
3427 0 : rc = bulk_out (handle, msg, msglen, 0);
3428 0 : if (rc)
3429 0 : return rc;
3430 :
3431 0 : msg = recv_buffer;
3432 0 : rc = bulk_in (handle, msg, sizeof recv_buffer, &msglen,
3433 : RDR_to_PC_DataBlock, seqno, 30000, 0);
3434 0 : if (rc)
3435 0 : return rc;
3436 :
3437 0 : tpdu = msg + 10;
3438 0 : tpdulen = msglen - 10;
3439 :
3440 0 : if (handle->apdu_level)
3441 : {
3442 0 : if (resp)
3443 : {
3444 0 : if (tpdulen > maxresplen)
3445 : {
3446 0 : DEBUGOUT_2 ("provided buffer too short for received data "
3447 : "(%u/%u)\n",
3448 : (unsigned int)tpdulen, (unsigned int)maxresplen);
3449 0 : return CCID_DRIVER_ERR_INV_VALUE;
3450 : }
3451 :
3452 0 : memcpy (resp, tpdu, tpdulen);
3453 0 : *nresp = tpdulen;
3454 : }
3455 0 : return 0;
3456 : }
3457 :
3458 0 : if (tpdulen < 4)
3459 : {
3460 0 : libusb_clear_halt (handle->idev, handle->ep_bulk_in);
3461 0 : return CCID_DRIVER_ERR_ABORTED;
3462 : }
3463 0 : if (debug_level > 1)
3464 0 : DEBUGOUT_4 ("T=1: got %c-block seq=%d err=%d%s\n",
3465 : ((msg[11] & 0xc0) == 0x80)? 'R' :
3466 : (msg[11] & 0x80)? 'S' : 'I',
3467 : ((msg[11] & 0x80)? !!(msg[11]& 0x10) : !!(msg[11] & 0x40)),
3468 : ((msg[11] & 0xc0) == 0x80)? (msg[11] & 0x0f) : 0,
3469 : (!(msg[11] & 0x80) && (msg[11] & 0x20)? " [more]":""));
3470 :
3471 0 : if (!(tpdu[1] & 0x80))
3472 : { /* This is an I-block. */
3473 : /* Last block sent was successful. */
3474 0 : handle->t1_ns ^= 1;
3475 :
3476 0 : if (!!(tpdu[1] & 0x40) != handle->t1_nr)
3477 : { /* Response does not match our sequence number. */
3478 0 : DEBUGOUT ("I-block with wrong seqno received\n");
3479 0 : return CCID_DRIVER_ERR_CARD_IO_ERROR;
3480 : }
3481 :
3482 0 : handle->t1_nr ^= 1;
3483 :
3484 0 : p = tpdu + 3; /* Skip the prologue field. */
3485 0 : n = tpdulen - 3 - 1; /* Strip the epilogue field. */
3486 : /* fixme: verify the checksum. */
3487 0 : if (resp)
3488 : {
3489 0 : if (n > maxresplen)
3490 : {
3491 0 : DEBUGOUT_2 ("provided buffer too short for received data "
3492 : "(%u/%u)\n",
3493 : (unsigned int)n, (unsigned int)maxresplen);
3494 0 : return CCID_DRIVER_ERR_INV_VALUE;
3495 : }
3496 :
3497 0 : memcpy (resp, p, n);
3498 0 : resp += n;
3499 0 : *nresp += n;
3500 0 : maxresplen -= n;
3501 : }
3502 :
3503 0 : if (!(tpdu[1] & 0x20))
3504 0 : return 0; /* No chaining requested - ready. */
3505 :
3506 0 : DEBUGOUT ("chaining requested but not supported for Secure operation\n");
3507 0 : return CCID_DRIVER_ERR_CARD_IO_ERROR;
3508 : }
3509 0 : else if ((tpdu[1] & 0xc0) == 0x80)
3510 : { /* This is a R-block. */
3511 0 : if ( (tpdu[1] & 0x0f))
3512 : { /* Error: repeat last block */
3513 0 : DEBUGOUT ("No retries supported for Secure operation\n");
3514 0 : return CCID_DRIVER_ERR_CARD_IO_ERROR;
3515 : }
3516 0 : else if (!!(tpdu[1] & 0x10) == handle->t1_ns)
3517 : { /* Response does not match our sequence number. */
3518 0 : DEBUGOUT ("R-block with wrong seqno received on more bit\n");
3519 0 : return CCID_DRIVER_ERR_CARD_IO_ERROR;
3520 : }
3521 : else
3522 : { /* Send next chunk. */
3523 0 : DEBUGOUT ("chaining not supported on Secure operation\n");
3524 0 : return CCID_DRIVER_ERR_CARD_IO_ERROR;
3525 : }
3526 : }
3527 : else
3528 : { /* This is a S-block. */
3529 0 : DEBUGOUT_2 ("T=1: S-block %s received cmd=%d for Secure operation\n",
3530 : (tpdu[1] & 0x20)? "response": "request",
3531 : (tpdu[1] & 0x1f));
3532 0 : return CCID_DRIVER_ERR_CARD_IO_ERROR;
3533 : }
3534 :
3535 : return 0;
3536 : }
3537 :
3538 :
3539 :
3540 :
3541 : #ifdef TEST
3542 :
3543 :
3544 : static void
3545 : print_error (int err)
3546 : {
3547 : const char *p;
3548 : char buf[50];
3549 :
3550 : switch (err)
3551 : {
3552 : case 0: p = "success";
3553 : case CCID_DRIVER_ERR_OUT_OF_CORE: p = "out of core"; break;
3554 : case CCID_DRIVER_ERR_INV_VALUE: p = "invalid value"; break;
3555 : case CCID_DRIVER_ERR_NO_DRIVER: p = "no driver"; break;
3556 : case CCID_DRIVER_ERR_NOT_SUPPORTED: p = "not supported"; break;
3557 : case CCID_DRIVER_ERR_LOCKING_FAILED: p = "locking failed"; break;
3558 : case CCID_DRIVER_ERR_BUSY: p = "busy"; break;
3559 : case CCID_DRIVER_ERR_NO_CARD: p = "no card"; break;
3560 : case CCID_DRIVER_ERR_CARD_INACTIVE: p = "card inactive"; break;
3561 : case CCID_DRIVER_ERR_CARD_IO_ERROR: p = "card I/O error"; break;
3562 : case CCID_DRIVER_ERR_GENERAL_ERROR: p = "general error"; break;
3563 : case CCID_DRIVER_ERR_NO_READER: p = "no reader"; break;
3564 : case CCID_DRIVER_ERR_ABORTED: p = "aborted"; break;
3565 : default: sprintf (buf, "0x%05x", err); p = buf; break;
3566 : }
3567 : fprintf (stderr, "operation failed: %s\n", p);
3568 : }
3569 :
3570 :
3571 : static void
3572 : print_data (const unsigned char *data, size_t length)
3573 : {
3574 : if (length >= 2)
3575 : {
3576 : fprintf (stderr, "operation status: %02X%02X\n",
3577 : data[length-2], data[length-1]);
3578 : length -= 2;
3579 : }
3580 : if (length)
3581 : {
3582 : fputs (" returned data:", stderr);
3583 : for (; length; length--, data++)
3584 : fprintf (stderr, " %02X", *data);
3585 : putc ('\n', stderr);
3586 : }
3587 : }
3588 :
3589 : static void
3590 : print_result (int rc, const unsigned char *data, size_t length)
3591 : {
3592 : if (rc)
3593 : print_error (rc);
3594 : else if (data)
3595 : print_data (data, length);
3596 : }
3597 :
3598 : int
3599 : main (int argc, char **argv)
3600 : {
3601 : int rc;
3602 : ccid_driver_t ccid;
3603 : int slotstat;
3604 : unsigned char result[512];
3605 : size_t resultlen;
3606 : int no_pinpad = 0;
3607 : int verify_123456 = 0;
3608 : int did_verify = 0;
3609 : int no_poll = 0;
3610 :
3611 : if (argc)
3612 : {
3613 : argc--;
3614 : argv++;
3615 : }
3616 :
3617 : while (argc)
3618 : {
3619 : if ( !strcmp (*argv, "--list"))
3620 : {
3621 : char *p;
3622 : p = ccid_get_reader_list ();
3623 : if (!p)
3624 : return 1;
3625 : fputs (p, stderr);
3626 : free (p);
3627 : return 0;
3628 : }
3629 : else if ( !strcmp (*argv, "--debug"))
3630 : {
3631 : ccid_set_debug_level (ccid_set_debug_level (-1)+1);
3632 : argc--; argv++;
3633 : }
3634 : else if ( !strcmp (*argv, "--no-poll"))
3635 : {
3636 : no_poll = 1;
3637 : argc--; argv++;
3638 : }
3639 : else if ( !strcmp (*argv, "--no-pinpad"))
3640 : {
3641 : no_pinpad = 1;
3642 : argc--; argv++;
3643 : }
3644 : else if ( !strcmp (*argv, "--verify-123456"))
3645 : {
3646 : verify_123456 = 1;
3647 : argc--; argv++;
3648 : }
3649 : else
3650 : break;
3651 : }
3652 :
3653 : rc = ccid_open_reader (&ccid, argc? *argv:NULL, NULL);
3654 : if (rc)
3655 : return 1;
3656 :
3657 : if (!no_poll)
3658 : ccid_poll (ccid);
3659 : fputs ("getting ATR ...\n", stderr);
3660 : rc = ccid_get_atr (ccid, NULL, 0, NULL);
3661 : if (rc)
3662 : {
3663 : print_error (rc);
3664 : return 1;
3665 : }
3666 :
3667 : if (!no_poll)
3668 : ccid_poll (ccid);
3669 : fputs ("getting slot status ...\n", stderr);
3670 : rc = ccid_slot_status (ccid, &slotstat);
3671 : if (rc)
3672 : {
3673 : print_error (rc);
3674 : return 1;
3675 : }
3676 :
3677 : if (!no_poll)
3678 : ccid_poll (ccid);
3679 :
3680 : fputs ("selecting application OpenPGP ....\n", stderr);
3681 : {
3682 : static unsigned char apdu[] = {
3683 : 0, 0xA4, 4, 0, 6, 0xD2, 0x76, 0x00, 0x01, 0x24, 0x01};
3684 : rc = ccid_transceive (ccid,
3685 : apdu, sizeof apdu,
3686 : result, sizeof result, &resultlen);
3687 : print_result (rc, result, resultlen);
3688 : }
3689 :
3690 :
3691 : if (!no_poll)
3692 : ccid_poll (ccid);
3693 :
3694 : fputs ("getting OpenPGP DO 0x65 ....\n", stderr);
3695 : {
3696 : static unsigned char apdu[] = { 0, 0xCA, 0, 0x65, 254 };
3697 : rc = ccid_transceive (ccid, apdu, sizeof apdu,
3698 : result, sizeof result, &resultlen);
3699 : print_result (rc, result, resultlen);
3700 : }
3701 :
3702 : if (!no_pinpad)
3703 : {
3704 : }
3705 :
3706 : if (!no_pinpad)
3707 : {
3708 : static unsigned char apdu[] = { 0, 0x20, 0, 0x81 };
3709 :
3710 :
3711 : if (ccid_transceive_secure (ccid,
3712 : apdu, sizeof apdu,
3713 : 1, 0, 0, 0,
3714 : NULL, 0, NULL))
3715 : fputs ("can't verify using a PIN-Pad reader\n", stderr);
3716 : else
3717 : {
3718 : fputs ("verifying CHV1 using the PINPad ....\n", stderr);
3719 :
3720 : rc = ccid_transceive_secure (ccid,
3721 : apdu, sizeof apdu,
3722 : 1, 0, 0, 0,
3723 : result, sizeof result, &resultlen);
3724 : print_result (rc, result, resultlen);
3725 : did_verify = 1;
3726 : }
3727 : }
3728 :
3729 : if (verify_123456 && !did_verify)
3730 : {
3731 : fputs ("verifying that CHV1 is 123456....\n", stderr);
3732 : {
3733 : static unsigned char apdu[] = {0, 0x20, 0, 0x81,
3734 : 6, '1','2','3','4','5','6'};
3735 : rc = ccid_transceive (ccid, apdu, sizeof apdu,
3736 : result, sizeof result, &resultlen);
3737 : print_result (rc, result, resultlen);
3738 : }
3739 : }
3740 :
3741 : if (!rc)
3742 : {
3743 : fputs ("getting OpenPGP DO 0x5E ....\n", stderr);
3744 : {
3745 : static unsigned char apdu[] = { 0, 0xCA, 0, 0x5E, 254 };
3746 : rc = ccid_transceive (ccid, apdu, sizeof apdu,
3747 : result, sizeof result, &resultlen);
3748 : print_result (rc, result, resultlen);
3749 : }
3750 : }
3751 :
3752 : ccid_close_reader (ccid);
3753 :
3754 : return 0;
3755 : }
3756 :
3757 : /*
3758 : * Local Variables:
3759 : * compile-command: "gcc -DTEST -Wall -I/usr/local/include -lusb -g ccid-driver.c"
3760 : * End:
3761 : */
3762 : #endif /*TEST*/
3763 : #endif /*HAVE_LIBUSB*/
|