* configure.ac: Removed OpenSC detection and options.
authorWerner Koch <wk@gnupg.org>
Wed, 27 Apr 2005 12:09:21 +0000 (12:09 +0000)
committerWerner Koch <wk@gnupg.org>
Wed, 27 Apr 2005 12:09:21 +0000 (12:09 +0000)
* acinclude.m4: Ditto.

* scdaemon.texi: Removed OpenSC specific options.

* app-p15.c: New.  Basic support for pkcs15 cards without OpenSC.
There are quite a couple of things missing but at least I can use
my old TCOS cards from the Aegypten-1 development for signing.
* app.c (select_application): Detect pkcs15 applications.
* Makefile.am (scdaemon_SOURCES): Removed card.c, card-common.h
and card-p15.c because they are now obsolete. Added app-p15.c.
Removed all OpenSC stuff.
* command.c (do_reset, open_card, cmd_serialno, cmd_learn)
(cmd_readcert, cmd_readkey, cmd_pksign, cmd_pkdecrypt): Removed
all special cases for the old card.c based mechanisms.
* scdaemon.c, apdu.c: Removed all special cases for OpenSC.

16 files changed:
ChangeLog
NEWS
acinclude.m4
configure.ac
doc/ChangeLog
doc/scdaemon.texi
scd/ChangeLog
scd/Makefile.am
scd/apdu.c
scd/app-common.h
scd/app-nks.c
scd/app-p15.c
scd/app.c
scd/command.c
scd/scdaemon.c
scd/scdaemon.h

index 5538a45..4f58b91 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2005-04-27  Werner Koch  <wk@g10code.com>
+
+       * configure.ac: Removed OpenSC detection and options.
+       * acinclude.m4: Ditto.
+
 2005-04-21  Werner Koch  <wk@g10code.com>
 
        Released 1.9.16.
diff --git a/NEWS b/NEWS
index 2c5440a..2d43d70 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -1,6 +1,11 @@
 Noteworthy changes in version 1.9.17
 -------------------------------------------------
 
+ * [scdaemon] Support for OpenSC has been removed.  Instead a new and
+   starightforward pkcs#15 modules has been written.  As of now it
+   does allows only signing using TCOS cards but we are going to
+   enhance it to match all the old capabilities.
+
 
 Noteworthy changes in version 1.9.16 (2005-04-21)
 -------------------------------------------------
index e933e6e..b8af932 100644 (file)
@@ -390,70 +390,3 @@ fi
 
 
 
-dnl AM_PATH_OPENSC([MINIMUM-VERSION,
-dnl               [ACTION-IF-FOUND [, ACTION-IF-NOT-FOUND ]]])
-dnl Test for OpenSC and define OPENSC_CFLAGS and OPENSC_LIBS
-dnl
-AC_DEFUN([AM_PATH_OPENSC],
-[ AC_ARG_WITH(opensc-prefix,
-            AC_HELP_STRING([--with-opensc-prefix=PFX],
-                           [prefix where OpenSC is installed (optional)]),
-     opensc_config_prefix="$withval", opensc_config_prefix="")
-  if test x$opensc_config_prefix != x ; then
-     opensc_config_args="$opensc_config_args --prefix=$opensc_config_prefix"
-     if test x${OPENSC_CONFIG+set} != xset ; then
-        OPENSC_CONFIG=$opensc_config_prefix/bin/opensc-config
-     fi
-  fi
-
-  AC_PATH_PROG(OPENSC_CONFIG, opensc-config, no)
-  min_opensc_version=ifelse([$1], ,0.7.0,$1)
-  AC_MSG_CHECKING(for OpenSC - version >= $min_opensc_version)
-  ok=no
-  if test "$OPENSC_CONFIG" != "no" ; then
-    req_major=`echo $min_opensc_version | \
-               sed 's/\([[0-9]]*\)\.\([[0-9]]*\)\.\([[0-9]]*\)/\1/'`
-    req_minor=`echo $min_opensc_version | \
-               sed 's/\([[0-9]]*\)\.\([[0-9]]*\)\.\([[0-9]]*\)/\2/'`
-    req_micro=`echo $min_opensc_version | \
-               sed 's/\([[0-9]]*\)\.\([[0-9]]*\)\.\([[0-9]]*\)/\3/'`
-    opensc_config_version=`$OPENSC_CONFIG $opensc_config_args --version 2>/dev/null || echo 0.0.0`
-    major=`echo $opensc_config_version | \
-               sed 's/\([[0-9]]*\)\.\([[0-9]]*\)\.\([[0-9]]*\).*/\1/'`
-    minor=`echo $opensc_config_version | \
-               sed 's/\([[0-9]]*\)\.\([[0-9]]*\)\.\([[0-9]]*\).*/\2/'`
-    micro=`echo $opensc_config_version | \
-               sed 's/\([[0-9]]*\)\.\([[0-9]]*\)\.\([[0-9]]*\).*/\3/'`
-    if test "$major" -gt "$req_major"; then
-        ok=yes
-    else 
-        if test "$major" -eq "$req_major"; then
-            if test "$minor" -gt "$req_minor"; then
-               ok=yes
-            else
-               if test "$minor" -eq "$req_minor"; then
-                   if test "$micro" -ge "$req_micro"; then
-                     ok=yes
-                   fi
-               fi
-            fi
-        fi
-    fi
-  fi
-  if test $ok = yes; then
-    OPENSC_CFLAGS=`$OPENSC_CONFIG $opensc_config_args --cflags`
-    OPENSC_LIBS=`$OPENSC_CONFIG $opensc_config_args --libs`
-    OPENSC_LIBS="$OPENSC_LIBS -lpcsclite -lpthread"
-    AC_MSG_RESULT(yes)
-    ifelse([$2], , :, [$2])
-  else
-    OPENSC_CFLAGS=""
-    OPENSC_LIBS=""
-    AC_MSG_RESULT(no)
-    ifelse([$3], , :, [$3])
-  fi
-  AC_SUBST(OPENSC_CFLAGS)
-  AC_SUBST(OPENSC_LIBS)
-])
-
-
index 10f45ee..dee0a9f 100644 (file)
@@ -38,9 +38,6 @@ NEED_LIBASSUAN_VERSION=0.6.9
 
 NEED_KSBA_VERSION=0.9.11
 
-NEED_OPENSC_VERSION=0.8.0
-
-
 
 PACKAGE=$PACKAGE_NAME
 PACKAGE_GT=${PACKAGE_NAME}2
@@ -59,7 +56,6 @@ have_gpg_error=no
 have_libgcrypt=no 
 have_libassuan=no
 have_ksba=no
-have_opensc=no
 have_pth=no
 
 GNUPG_BUILD_PROGRAM(gpg, no)
@@ -503,16 +499,6 @@ AC_PATH_PROG(SHRED, shred, /usr/bin/shred)
 AC_DEFINE_UNQUOTED(SHRED,
        "${SHRED}", [defines the filename of the shred program])
 
-#
-# OpenSC is needed by the SCdaemon - if it is not availbale we can only
-# build a limited SCdaemon
-#
-AM_PATH_OPENSC("$NEED_OPENSC_VERSION",have_opensc=yes,have_opensc=no)
-if test $have_opensc = yes; then
-  AC_DEFINE(HAVE_OPENSC,1,
-            [defined if the OpenSC library is available])
-fi
-AM_CONDITIONAL(HAVE_OPENSC, test "$have_opensc" = "yes")
 
 #
 # Check whether the (highly desirable) GNU Pth library is available
@@ -1052,10 +1038,6 @@ if test "$build_scdaemon" = "yes"; then
      tmp=", "
      missing_pth=yes
   fi
-  if test $have_opensc = no; then
-     build_scdaemon_extra="${build_scdaemon_extra}${tmp}no pkcs#15"
-     tmp=", "
-  fi      
   if test -n "$build_scdaemon_extra"; then
      build_scdaemon_extra="(${build_scdaemon_extra})"
   fi
index 4ad8b18..093e04f 100644 (file)
@@ -1,3 +1,7 @@
+2005-04-27  Werner Koch  <wk@g10code.com>
+
+       * scdaemon.texi: Removed OpenSC specific options.
+
 2005-04-20  Werner Koch  <wk@g10code.com>
 
        * gpg-agent.texi (Agent Configuration): New section.
index cb165da..971234e 100644 (file)
@@ -1,4 +1,4 @@
-@c Copyright (C) 2002 Free Software Foundation, Inc.
+g@c Copyright (C) 2002 Free Software Foundation, Inc.
 @c This is part of the GnuPG manual.
 @c For copying conditions, see the file gnupg.texi.
 
@@ -157,10 +157,6 @@ When running in server mode, wait @var{n} seconds before entering the
 actual processing loop and print the pid.  This gives time to attach a
 debugger.
 
-@item --debug-sc @var{n}
-@opindex debug-sc
-Set the debug level of the OpenSC library to @var{n}.
-
 @item --no-detach
 @opindex no-detach
 Don't detach the process from the console.  This is manly usefule for
@@ -172,10 +168,9 @@ Append all logging output to @var{file}.  This is very helpful in
 seeing what the agent actually does.
 
 @item --reader-port @var{number}
-When the program has been build without OpenSC support, this option must
-be used to specify the port of the card terminal.  A value of 0 refers
-to the first serial device; add 32768 to access USB devices.  The
-default is 32768 (first USB device).
+This option may be used to specify the port of the card terminal.  A
+value of 0 refers to the first serial device; add 32768 to access USB
+devices.  The default is 32768 (first USB device).
 
 @item --ctapi-driver @var{library}
 Use @var{library} to access the smartcard reader.  The current default
@@ -245,9 +240,8 @@ the German signature law and its bylaws (SigG and SigV).
 @node PKCS#15 Card
 @subsection The PKCS#15 card application ``p15''
 
-This is common fraqmework for smart card applications; support is only
-available if compiled with support for the OpenSC library.  It is used
-by @command{gpgsm}.
+This is common fraqmework for smart card applications.  It is used by
+@command{gpgsm}.
 
 
 
index c5a1062..4ce4c65 100644 (file)
@@ -1,3 +1,19 @@
+2005-04-27  Werner Koch  <wk@g10code.com>
+
+       Removal of the old OpenSC based code.
+       
+       * app-p15.c: New.  Basic support for pkcs15 cards without OpenSC.
+       There are quite a couple of things missing but at least I can use
+       my old TCOS cards from the Aegypten-1 development for signing.
+       * app.c (select_application): Detect pkcs15 applications.
+       * Makefile.am (scdaemon_SOURCES): Removed card.c, card-common.h
+       and card-p15.c because they are now obsolete. Added app-p15.c.
+       Removed all OpenSC stuff.
+       * command.c (do_reset, open_card, cmd_serialno, cmd_learn) 
+       (cmd_readcert, cmd_readkey, cmd_pksign, cmd_pkdecrypt): Removed
+       all special cases for the old card.c based mechanisms.
+       * scdaemon.c, apdu.c: Removed all special cases for OpenSC.
+
 2005-04-20  Werner Koch  <wk@g10code.com>
 
        * command.c: Use GPG_ERR_LOCKED instead of EBUSY.
index fba006c..c3688da 100644 (file)
@@ -1,4 +1,4 @@
-# Copyright (C) 2002, 2003 Free Software Foundation, Inc.
+# Copyright (C) 2002, 2003, 2005 Free Software Foundation, Inc.
 #
 # This file is part of GnuPG.
 #
@@ -27,24 +27,15 @@ AM_CPPFLAGS = -I$(top_srcdir)/intl -I$(top_srcdir)/common
 
 include $(top_srcdir)/am/cmacros.am
 
-# avoid linking against Pth if we are using OpenSC.
-if HAVE_OPENSC
-pth_libs = 
-else
-pth_libs = $(PTH_LIBS)
-endif
-
-AM_CFLAGS =  $(OPENSC_CFLAGS) $(LIBGCRYPT_CFLAGS) \
-             $(KSBA_CFLAGS) $(LIBASSUAN_CFLAGS) $(PTH_CFLAGS)
+AM_CFLAGS =  $(LIBGCRYPT_CFLAGS) \
+            $(KSBA_CFLAGS) $(LIBASSUAN_CFLAGS) $(PTH_CFLAGS)
 
 
-card_apps = app-openpgp.c app-nks.c app-dinsig.c
+card_apps = app-openpgp.c app-nks.c app-dinsig.c app-p15.c
 
 scdaemon_SOURCES = \
        scdaemon.c scdaemon.h \
-       command.c card.c \
-       card-common.h \
-       card-p15.c  \
+       command.c \
        apdu.c apdu.h \
        ccid-driver.c ccid-driver.h \
        iso7816.c iso7816.h \
@@ -53,8 +44,8 @@ scdaemon_SOURCES = \
 
 
 scdaemon_LDADD = ../jnlib/libjnlib.a ../common/libcommon.a \
-       $(LIBGCRYPT_LIBS) $(KSBA_LIBS) $(pth_libs) $(LIBASSUAN_LIBS) \
-       $(LIBUSB_LIBS) $(OPENSC_LIBS) -lgpg-error $(LIBINTL) $(DL_LIBS)
+       $(LIBGCRYPT_LIBS) $(KSBA_LIBS) $(PTH_LIBS) $(LIBASSUAN_LIBS) \
+       $(LIBUSB_LIBS) -lgpg-error $(LIBINTL) $(DL_LIBS)
 
 sc_copykeys_SOURCES = \
        sc-copykeys.c scdaemon.h \
@@ -68,8 +59,8 @@ sc_copykeys_SOURCES = \
 sc_copykeys_LDADD = \
        ../jnlib/libjnlib.a ../common/libcommon.a \
        ../common/libsimple-pwquery.a \
-       $(LIBGCRYPT_LIBS) $(pth_libs) $(KSBA_LIBS) $(LIBASSUAN_LIBS) \
-        $(LIBUSB_LIBS) $(OPENSC_LIBS) \
+       $(LIBGCRYPT_LIBS) $(PTH_LIBS) $(KSBA_LIBS) $(LIBASSUAN_LIBS) \
+        $(LIBUSB_LIBS) \
         -lgpg-error @LIBINTL@ @DL_LIBS@
 
 pcsc_wrapper_SOURCES = pcsc-wrapper.c
index 33b0802..d23a4ad 100644 (file)
 # include <unistd.h>
 # include <fcntl.h>
 #endif
-#ifdef HAVE_OPENSC
-# include <opensc/opensc.h>
-# ifdef USE_GNU_PTH
-# undef USE_GNU_PTH
-# endif
-#endif
+
 
 /* If requested include the definitions for the remote APDU protocol
    code. */
@@ -119,12 +114,6 @@ struct reader_table_s {
     pid_t pid;
 #endif /*NEED_PCSC_WRAPPER*/
   } pcsc;
-#ifdef HAVE_OPENSC
-  struct {
-    struct sc_context *ctx;
-    struct sc_card *scard;
-  } osc;
-#endif /*HAVE_OPENSC*/
 #ifdef USE_G10CODE_RAPDU
   struct {
     rapdu_t handle;
@@ -1771,224 +1760,6 @@ open_ccid_reader (const char *portstr)
 
 
 \f
-#ifdef HAVE_OPENSC
-/*
-     OpenSC Interface.
-
-     This uses the OpenSC primitives to send APDUs.  We need this
-     because we can't mix OpenSC and native (i.e. ctAPI or PC/SC)
-     access to a card for resource conflict reasons.
- */
-
-
-static int
-close_osc_reader (int slot)
-{
-  /* FIXME: Implement. */
-  reader_table[slot].used = 0;
-  return 0;
-}
-
-static int
-reset_osc_reader (int slot)
-{
-  return SW_HOST_NOT_SUPPORTED;
-}
-
-
-static int
-osc_get_status (int slot, unsigned int *status)
-{
-  return SW_HOST_NOT_SUPPORTED;
-}
-
-
-/* Actually send the APDU of length APDULEN to SLOT and return a
-   maximum of *BUFLEN data in BUFFER, the actual returned size will be
-   set to BUFLEN.  Returns: OpenSC error code. */
-static int
-osc_send_apdu (int slot, unsigned char *apdu, size_t apdulen,
-                unsigned char *buffer, size_t *buflen)
-{
-  long err;
-  struct sc_apdu a;
-  unsigned char data[SC_MAX_APDU_BUFFER_SIZE];
-  unsigned char result[SC_MAX_APDU_BUFFER_SIZE];
-
-  if (DBG_CARD_IO)
-    log_printhex ("  APDU_data:", apdu, apdulen);
-
-  if (apdulen < 4)
-    {
-      log_error ("osc_send_apdu: APDU is too short\n");
-      return SW_HOST_INV_VALUE;
-    }
-
-  memset(&a, 0, sizeof a);
-  a.cla = *apdu++;
-  a.ins = *apdu++;
-  a.p1 = *apdu++;
-  a.p2 = *apdu++;
-  apdulen -= 4;
-
-  if (!apdulen)
-    a.cse = SC_APDU_CASE_1;
-  else if (apdulen == 1)
-    {
-      a.le = *apdu? *apdu : 256;
-      apdu++; apdulen--;
-      a.cse = SC_APDU_CASE_2_SHORT;
-    }
-  else
-    {
-      a.lc = *apdu++; apdulen--;
-      if (apdulen < a.lc)
-        {
-          log_error ("osc_send_apdu: APDU shorter than specified in Lc\n");
-          return SW_HOST_INV_VALUE;
-
-        }
-      memcpy(data, apdu, a.lc);
-      apdu += a.lc; apdulen -= a.lc;
-
-      a.data = data;
-      a.datalen = a.lc;
-
-      if (!apdulen)
-        a.cse = SC_APDU_CASE_3_SHORT;
-      else
-        {
-          a.le = *apdu? *apdu : 256;
-          apdu++; apdulen--;
-          if (apdulen)
-            {
-              log_error ("osc_send_apdu: APDU larger than specified\n");
-              return SW_HOST_INV_VALUE;
-            }
-          a.cse = SC_APDU_CASE_4_SHORT;
-        }
-    }
-
-  a.resp = result;
-  a.resplen = DIM(result);
-
-  err = sc_transmit_apdu (reader_table[slot].osc.scard, &a);
-  if (err)
-    {
-      log_error ("sc_apdu_transmit failed: %s\n", sc_strerror (err));
-      return SW_HOST_CARD_IO_ERROR;
-    }
-
-  if (*buflen < 2 || a.resplen > *buflen - 2)
-    {
-      log_error ("osc_send_apdu: provided buffer too short to store result\n");
-      return SW_HOST_INV_VALUE;
-    }
-  memcpy (buffer, a.resp, a.resplen);
-  buffer[a.resplen] = a.sw1;
-  buffer[a.resplen+1] = a.sw2;
-  *buflen = a.resplen + 2;
-  return 0;
-}
-
-static int
-open_osc_reader (int portno)
-{
-  int err;
-  int slot;
-  reader_table_t slotp;
-
-  slot = new_reader_slot ();
-  if (slot == -1)
-    return -1;
-  slotp = reader_table + slot;
-
-  err = sc_establish_context (&slotp->osc.ctx, "scdaemon");
-  if (err)
-    {
-      log_error ("failed to establish SC context: %s\n", sc_strerror (err));
-      slotp->used = 0;
-      return -1;
-    }
-  if (portno < 0 || portno >= slotp->osc.ctx->reader_count)
-    {
-      log_error ("no card reader available\n");
-      sc_release_context (slotp->osc.ctx);
-      slotp->used = 0;
-      return -1;
-    }
-
-  /* Redirect to our logging facility. */
-  slotp->osc.ctx->error_file = log_get_stream ();
-  slotp->osc.ctx->debug = opt.debug_sc;
-  slotp->osc.ctx->debug_file = log_get_stream ();
-
-  if (sc_detect_card_presence (slotp->osc.ctx->reader[portno], 0) != 1)
-    {
-      log_error ("no card present\n");
-      sc_release_context (slotp->osc.ctx);
-      slotp->used = 0;
-      return -1;
-    }
-
-  /* We want the standard ISO driver. */
-  /*FIXME: OpenSC does not like "iso7816", so we use EMV for now. */
-  err = sc_set_card_driver(slotp->osc.ctx, "emv");
-  if (err)
-    {
-      log_error ("failed to select the iso7816 driver: %s\n",
-                 sc_strerror (err));
-      sc_release_context (slotp->osc.ctx);
-      slotp->used = 0;
-      return -1;
-    }
-
-  /* Now connect the card and hope that OpenSC won't try to be too
-     smart. */
-  err = sc_connect_card (slotp->osc.ctx->reader[portno], 0,
-                         &slotp->osc.scard);
-  if (err)
-    {
-      log_error ("failed to connect card in reader %d: %s\n",
-                 portno, sc_strerror (err));
-      sc_release_context (slotp->osc.ctx);
-      slotp->used = 0;
-      return -1;
-    }
-  if (opt.verbose)
-    log_info ("connected to card in opensc reader %d using driver `%s'\n",
-              portno, slotp->osc.scard->driver->name);
-
-  err = sc_lock (slotp->osc.scard);
-  if (err)
-    {
-      log_error ("can't lock card in reader %d: %s\n",
-                 portno, sc_strerror (err));
-      sc_disconnect_card (slotp->osc.scard, 0);
-      sc_release_context (slotp->osc.ctx);
-      slotp->used = 0;
-      return -1;
-    }
-
-  if (slotp->osc.scard->atr_len >= DIM (slotp->atr))
-    log_bug ("ATR returned by opensc is too large\n");
-  slotp->atrlen = slotp->osc.scard->atr_len;
-  memcpy (slotp->atr, slotp->osc.scard->atr, slotp->atrlen);
-
-  reader_table[slot].close_reader = close_osc_reader;
-  reader_table[slot].reset_reader = reset_osc_reader;
-  reader_table[slot].get_status_reader = osc_get_status;
-  reader_table[slot].send_apdu_reader = osc_send_apdu;
-  reader_table[slot].dump_status_reader = NULL;
-
-  dump_reader_status (slot);
-  return slot;
-}
-
-#endif /* HAVE_OPENSC */
-
-
-\f
 #ifdef USE_G10CODE_RAPDU
 /*
      The Remote APDU Interface.
@@ -2130,7 +1901,7 @@ my_rapdu_get_status (int slot, unsigned int *status)
 
 /* Actually send the APDU of length APDULEN to SLOT and return a
    maximum of *BUFLEN data in BUFFER, the actual returned size will be
-   set to BUFLEN.  Returns: OpenSC error code. */
+   set to BUFLEN.  Returns: APDU error code. */
 static int
 my_rapdu_send_apdu (int slot, unsigned char *apdu, size_t apdulen,
                     unsigned char *buffer, size_t *buflen)
@@ -2325,8 +2096,7 @@ unlock_slot (int slot)
 
 /* Open the reader and return an internal slot number or -1 on
    error. If PORTSTR is NULL we default to a suitable port (for ctAPI:
-   the first USB reader.  For PC/SC the first listed reader).  If
-   OpenSC support is compiled in, we first try to use OpenSC. */
+   the first USB reader.  For PC/SC the first listed reader). */
 int
 apdu_open_reader (const char *portstr)
 {
@@ -2352,16 +2122,6 @@ apdu_open_reader (const char *portstr)
 
 #endif /* HAVE_LIBUSB */
 
-#ifdef HAVE_OPENSC
-  if (!opt.disable_opensc)
-    {
-      int port = portstr? atoi (portstr) : 0;
-
-      return open_osc_reader (port);
-    }
-#endif /* HAVE_OPENSC */
-
-
   if (opt.ctapi_driver && *opt.ctapi_driver)
     {
       int port = portstr? atoi (portstr) : 32768;
index 4a2adaa..594f938 100644 (file)
@@ -175,7 +175,7 @@ int app_select_nks (app_t app);
 int app_select_dinsig (app_t app);
 
 /*-- app-p15.c --*/
-int app_select_p15 (app_t app);
+gpg_error_t app_select_p15 (app_t app);
 
 
 #endif
index e69b598..f14b679 100644 (file)
@@ -305,7 +305,7 @@ verify_pin (app_t app,
             void *pincb_arg)
 {
   /* Note that force_chv1 is never set but we do it here anyway so
-     that other applications may euse this function.  For example it
+     that other applications may reuse this function.  For example it
      makes sense to set force_chv1 for German signature law cards.
      NKS is very similar to the DINSIG draft standard. */
   if (!app->did_chv1 || app->force_chv1 ) 
@@ -444,7 +444,7 @@ do_decipher (app_t app, const char *keyidstr,
 {
   static const unsigned char mse_parm[] = {
     0x80, 1, 0x10, /* Select algorithm RSA. */
-    0x84, 1, 0x81  /* Select locak secret key 1 for descryption. */
+    0x84, 1, 0x81  /* Select local secret key 1 for decryption. */
   };
   int rc, i;
   int fid;
index af2eed4..7a92da1 100644 (file)
@@ -1,5 +1,5 @@
 /* app-p15.c - The pkcs#15 card application.
- *     Copyright (C) 2004 Free Software Foundation, Inc.
+ *     Copyright (C) 2005 Free Software Foundation, Inc.
  *
  * This file is part of GnuPG.
  *
 #include "iso7816.h"
 #include "app-common.h"
 #include "tlv.h"
+#include "apdu.h" /* fixme: we should move the card detection to a
+                     separate file */
+
+/* Types of cards we know and which needs special treatment. */
+typedef enum
+  {
+    CARD_TYPE_UNKNOWN,
+    CARD_TYPE_TCOS,
+    CARD_TYPE_MICARDO
+  } card_type_t;
+
+/* A list card types with ATRs noticed with these cards. */
+static struct 
+{
+  size_t atrlen;
+  unsigned char *atr;
+  card_type_t type;
+} card_atr_list[] = {
+  { 19, "\x3B\xBA\x13\x00\x81\x31\x86\x5D\x00\x64\x05\x0A\x02\x01\x31\x80"
+        "\x90\x00\x8B", 
+    CARD_TYPE_TCOS },  /* SLE44 */
+  { 19, "\x3B\xBA\x14\x00\x81\x31\x86\x5D\x00\x64\x05\x14\x02\x02\x31\x80"
+        "\x90\x00\x91", 
+    CARD_TYPE_TCOS }, /* SLE66S */
+  { 19, "\x3B\xBA\x96\x00\x81\x31\x86\x5D\x00\x64\x05\x60\x02\x03\x31\x80"
+        "\x90\x00\x66",
+    CARD_TYPE_TCOS }, /* SLE66P */
+  { 27, "\x3B\xFF\x94\x00\xFF\x80\xB1\xFE\x45\x1F\x03\x00\x68\xD2\x76\x00"
+        "\x00\x28\xFF\x05\x1E\x31\x80\x00\x90\x00\x23", 
+    CARD_TYPE_MICARDO }, /* German BMI card */
+  { 26, "\x3B\xFE\x94\x00\xFF\x80\xB1\xFA\x45\x1F\x03\x45\x73\x74\x45\x49"
+        "\x44\x20\x76\x65\x72\x20\x31\x2E\x30\x43",
+    CARD_TYPE_MICARDO }, /* EstEID (Estonian Big Brother card) */
+  { 0 }
+};
+
+
+/* The Pin Types as defined in pkcs#15 v1.1 */
+typedef enum 
+  {
+    PIN_TYPE_BCD = 0,
+    PIN_TYPE_ASCII_NUMERIC = 1,
+    PIN_TYPE_UTF8 = 2,
+    PIN_TYPE_HALF_NIBBLE_BCD = 3,
+    PIN_TYPE_ISO9564_1 = 4
+  } pin_type_t;
+
+
+/* A bit array with for the key usage flags from the
+   commonKeyAttributes. */
+struct keyusage_flags_s
+{
+    unsigned int encrypt: 1;
+    unsigned int decrypt: 1;
+    unsigned int sign: 1;
+    unsigned int sign_recover: 1;
+    unsigned int wrap: 1;
+    unsigned int unwrap: 1;
+    unsigned int verify: 1;
+    unsigned int verify_recover: 1;
+    unsigned int derive: 1;
+    unsigned int non_repudiation: 1;
+};
+typedef struct keyusage_flags_s keyusage_flags_t;
+
+
+
+/* This is an object to store information about a Certificate
+   Directory File (CDF) in a format suitable for further processing by
+   us. To keep memory management, simple we use a linked list of
+   items; i.e. one such object represents one certificate and the list
+   the entire CDF. */
+struct cdf_object_s 
+{
+  /* Link to next item when used in a linked list. */
+  struct cdf_object_s *next; 
+
+  /* Length and allocated buffer with the Id of this object. */
+  size_t objidlen;
+  unsigned char *objid;
+
+  /* To avoid reading a certificate more than once, we cache it in an
+     allocated memory IMAGE of IMAGELEN. */
+  size_t imagelen;
+  unsigned char *image;
+  
+  /* Set to true if a length and offset is available. */
+  int have_off;
+  /* The offset and length of the object.  They are only valid if
+     HAVE_OFF is true and set to 0 if HAVE_OFF is false. */
+  unsigned long off, len;
+
+  /* The length of the path as given in the CDF and the path itself.
+     path[0] is the top DF (usually 0x3f00). The path will never be
+     empty. */
+  size_t pathlen;
+  unsigned short path[1];
+};
+typedef struct cdf_object_s *cdf_object_t;
+
+
+/* This is an object to store information about a Private Key
+   Directory File (PrKDF) in a format suitable for further processing
+   by us. To keep memory management, simple we use a linked list of
+   items; i.e. one such object represents one certificate and the list
+   the entire PrKDF. */
+struct prkdf_object_s 
+{
+  /* Link to next item when used in a linked list. */
+  struct prkdf_object_s *next; 
+
+  /* Length and allocated buffer with the Id of this object. */
+  size_t objidlen;
+  unsigned char *objid;
+
+  /* Length and allocated buffer with the authId of this object or
+     NULL if no authID is known. */
+  size_t authidlen;
+  unsigned char *authid;
+
+  /* The key's usage flags. */
+  keyusage_flags_t usageflags;
+
+  /* The keyReference and a flag telling whether it is valid. */ 
+  unsigned long key_reference;
+  int key_reference_valid;
+
+  /* Set to true if a length and offset is available. */
+  int have_off;
+  /* The offset and length of the object.  They are only valid if
+     HAVE_OFF is true and set to 0 if HAVE_OFF is false. */
+  unsigned long off, len;
+
+  /* The length of the path as given in the PrKDF and the path itself.
+     path[0] is the top DF (usually 0x3f00). */
+  size_t pathlen;
+  unsigned short path[1];
+};
+typedef struct prkdf_object_s *prkdf_object_t;
+
+
+/* This is an object to store information about a Authentication
+   Object Directory File (AODF) in a format suitable for further
+   processing by us. To keep memory management, simple we use a linked
+   list of items; i.e. one such object represents one authentication
+   object and the list the entire AOKDF. */
+struct aodf_object_s 
+{
+  /* Link to next item when used in a linked list. */
+  struct aodf_object_s *next; 
+
+  /* Length and allocated buffer with the Id of this object. */
+  size_t objidlen;
+  unsigned char *objid;
+
+  /* Length and allocated buffer with the authId of this object or
+     NULL if no authID is known. */
+  size_t authidlen;
+  unsigned char *authid;
+
+  /* The PIN Flags. */
+  struct 
+  {
+    unsigned int case_sensitive: 1;
+    unsigned int local: 1;
+    unsigned int change_disabled: 1;
+    unsigned int unblock_disabled: 1;
+    unsigned int initialized: 1;
+    unsigned int needs_padding: 1;
+    unsigned int unblocking_pin: 1;
+    unsigned int so_pin: 1;
+    unsigned int disable_allowed: 1;
+    unsigned int integrity_protected: 1;
+    unsigned int confidentiality_protected: 1;
+    unsigned int exchange_ref_data: 1;
+  } pinflags;
+
+  /* The PIN Type. */
+  pin_type_t pintype;
+
+  /* The minimum length of a PIN. */
+  unsigned long min_length;
+
+  /* The stored length of a PIN. */
+  unsigned long stored_length;
+
+  /* The maximum length of a PIN and a flag telling whether it is valid. */
+  unsigned long max_length;
+  int max_length_valid;
+
+  /* The pinReference and a flag telling whether it is valid. */ 
+  unsigned long pin_reference;
+  int pin_reference_valid;
+
+  /* The padChar and a flag telling whether it is valid. */
+  char pad_char;
+  int pad_char_valid;
+
+
+  /* Set to true if a length and offset is available. */
+  int have_off;
+  /* The offset and length of the object.  They are only valid if
+     HAVE_OFF is true and set to 0 if HAVE_OFF is false. */
+  unsigned long off, len;
+
+  /* The length of the path as given in the Aodf and the path itself.
+     path[0] is the top DF (usually 0x3f00). PATH is optional and thus
+     may be NULL.  Malloced.*/
+  size_t pathlen;
+  unsigned short *path;
+};
+typedef struct aodf_object_s *aodf_object_t;
 
 
 /* Context local to this application. */
 struct app_local_s 
 {
-  unsigned short home_df;  /* The home DF. Note, that we don't yet
-                              support a multilevel hierachy.  Thus we
-                              assume this is directly below the MF.  */
+  /* The home DF. Note, that we don't yet support a multilevel
+     hierachy.  Thus we assume this is directly below the MF.  */
+  unsigned short home_df;
+
+  /* The type of the card. */
+  card_type_t card_type;
+
+  /* Structure with the EFIDs of the objects described in the ODF
+     file. */
   struct
   {
     unsigned short private_keys;
@@ -52,16 +270,104 @@ struct app_local_s
     unsigned short auth_objects;
   } odf;  
 
+  /* Information on all certificates. */
+  cdf_object_t certificate_info;
+  /* Information on all trusted certificates. */
+  cdf_object_t trusted_certificate_info;
+  /* Information on all useful certificates. */
+  cdf_object_t useful_certificate_info;
+
+  /* Information on all private keys. */
+  prkdf_object_t private_key_info;
+
+  /* Information on all authentication objects. */
+  aodf_object_t auth_object_info;
 
 };
 
 
+/*** Local prototypes.  ***/
+static gpg_error_t readcert_by_cdf (app_t app, cdf_object_t cdf,
+                                    unsigned char **r_cert, size_t *r_certlen);
+
+
+
+/* Release the CDF object A  */
+static void
+release_cdflist (cdf_object_t a)
+{
+  while (a)
+    {
+      cdf_object_t tmp = a->next;
+      xfree (a->image);
+      xfree (a->objid);
+      xfree (a);
+      a = tmp;
+    }
+}
+
+/* Release the PrKDF object A.  */
+static void
+release_prkdflist (prkdf_object_t a)
+{
+  while (a)
+    {
+      prkdf_object_t tmp = a->next;
+      xfree (a->objid);
+      xfree (a->authid);
+      xfree (a);
+      a = tmp;
+    }
+}
+
+/* Release just one aodf object. */
+void
+release_aodf_object (aodf_object_t a)
+{
+  if (a)
+    {
+      xfree (a->objid);
+      xfree (a->authid);
+      xfree (a->path);
+      xfree (a);
+    }
+}
+
+/* Release the AODF list A.  */
+static void
+release_aodflist (aodf_object_t a)
+{
+  while (a)
+    {
+      aodf_object_t tmp = a->next;
+      release_aodf_object (a);
+      a = tmp;
+    }
+}
+
+
+/* Release all local resources.  */
+static void
+do_deinit (app_t app)
+{
+  if (app && app->app_local)
+    {
+      release_cdflist (app->app_local->certificate_info);
+      release_cdflist (app->app_local->trusted_certificate_info);
+      release_cdflist (app->app_local->useful_certificate_info);
+      release_prkdflist (app->app_local->private_key_info);
+      release_aodflist (app->app_local->auth_object_info);
+      xfree (app->app_local);
+      app->app_local = NULL;
+    }
+}
+
 
 
-/* Do a select and a read for the file with EFID.  EFID is a
+/* Do a select and a read for the file with EFID.  EFID_DESC is a
    desctription of the EF to be used with error messages.  On success
    BUFFER and BUFLEN contain the entire content of the EF.  The caller
-   must free BUFFER but only on success. */
+   must free BUFFER only on success. */
 static gpg_error_t 
 select_and_read_binary (int slot, unsigned short efid, const char *efid_desc,
                         unsigned char **buffer, size_t *buflen)
@@ -86,10 +392,151 @@ select_and_read_binary (int slot, unsigned short efid, const char *efid_desc,
 }
 
 
+/* This function calls select file to read a file suing a complete
+   path which may or may not start at the master file (MF). */ 
+static gpg_error_t
+select_ef_by_path (app_t app, const unsigned short *path, size_t pathlen)
+{
+  gpg_error_t err;
+  int i, j;
+
+  /* FIXME: Need code to remember the last PATH so that we can decide
+     what select commands to send in case the path does not start off
+     with 3F00.  We might also want to use direct path selection if
+     supported by the card. */
+  if (pathlen && *path != 0x3f00 )
+    log_debug ("WARNING: relative path selection not yet implemented\n");
+
+  for (i=0; i < pathlen; i++)
+    {
+      err = iso7816_select_file (app->slot, path[i],
+                                 !(i+1 == pathlen), NULL, NULL);
+      if (err)
+        {
+          log_error ("error selecting part %d from path ", i);
+          for (j=0; j < pathlen; j++)
+            log_printf ("%04hX", path[j]);
+          log_printf (": %s\n", gpg_strerror (err));
+          return err;
+        }
+    }
+  return 0;
+}
+
+/* Parse a cert Id string (or a key Id string) and return the binary
+   object Id string in a newly allocated buffer stored at R_OBJID and
+   R_OBJIDLEN.  On Error NULL will be stored there and an error code
+   returned. On success caller needs to free the buffer at R_OBJID. */
+static gpg_error_t
+parse_certid (app_t app, const char *certid,
+              unsigned char **r_objid, size_t *r_objidlen)
+{
+  char tmpbuf[10];
+  const char *s;
+  size_t objidlen;
+  unsigned char *objid;
+  int i;
+
+  *r_objid = NULL;
+  *r_objidlen = 0;
+
+  if (app->app_local->home_df)
+    sprintf (tmpbuf, "P15-%04hX.", (app->app_local->home_df & 0xffff));
+  else
+    strcpy (tmpbuf, "P15.");
+  if (strncmp (certid, tmpbuf, strlen (tmpbuf)) )
+    {
+      if (!strncmp (certid, "P15.", 4)
+          || (!strncmp (certid, "P15-", 4)
+              && hexdigitp (certid+4)
+              && hexdigitp (certid+5)
+              && hexdigitp (certid+6)
+              && hexdigitp (certid+7)
+              && certid[8] == '.'))
+        return gpg_error (GPG_ERR_NOT_FOUND);
+      return gpg_error (GPG_ERR_INV_ID);
+    }
+  certid += strlen (tmpbuf);
+
+  for (s=certid, objidlen=0; hexdigitp (s); s++, objidlen++)
+    ;
+  if (*s || !objidlen || (objidlen%2))
+    return gpg_error (GPG_ERR_INV_ID);
+  objidlen /= 2;
+  objid = xtrymalloc (objidlen);
+  if (!objid)
+    return gpg_error_from_errno (errno);
+  for (s=certid, i=0; i < objidlen; i++, s+=2)
+    objid[i] = xtoi_2 (s);
+  *r_objid = objid;
+  *r_objidlen = objidlen;
+  return 0;
+}
+
+
+/* Find a certificate object by the certificate ID CERTID and store a
+   pointer to it at R_CDF. */
+static gpg_error_t
+cdf_object_from_certid (app_t app, const char *certid, cdf_object_t *r_cdf)
+{
+  gpg_error_t err;
+  size_t objidlen;
+  unsigned char *objid;
+  cdf_object_t cdf;
+
+  err = parse_certid (app, certid, &objid, &objidlen);
+  if (err)
+    return err;
+
+  for (cdf = app->app_local->certificate_info; cdf; cdf = cdf->next)
+    if (cdf->objidlen == objidlen && !memcmp (cdf->objid, objid, objidlen))
+      break;
+  if (!cdf)
+    for (cdf = app->app_local->trusted_certificate_info; cdf; cdf = cdf->next)
+      if (cdf->objidlen == objidlen && !memcmp (cdf->objid, objid, objidlen))
+        break;
+  if (!cdf)
+    for (cdf = app->app_local->useful_certificate_info; cdf; cdf = cdf->next)
+      if (cdf->objidlen == objidlen && !memcmp (cdf->objid, objid, objidlen))
+        break;
+  xfree (objid);
+  if (!cdf)
+    return gpg_error (GPG_ERR_NOT_FOUND);
+  *r_cdf = cdf;
+  return 0;
+}
+
+
+/* Find a private key object by the key Id string KEYIDSTR and store a
+   pointer to it at R_PRKDF. */
+static gpg_error_t
+prkdf_object_from_keyidstr (app_t app, const char *keyidstr,
+                            prkdf_object_t *r_prkdf)
+{
+  gpg_error_t err;
+  size_t objidlen;
+  unsigned char *objid;
+  prkdf_object_t prkdf;
+
+  err = parse_certid (app, keyidstr, &objid, &objidlen);
+  if (err)
+    return err;
+
+  for (prkdf = app->app_local->private_key_info; prkdf; prkdf = prkdf->next)
+    if (prkdf->objidlen == objidlen && !memcmp (prkdf->objid, objid, objidlen))
+      break;
+  xfree (objid);
+  if (!prkdf)
+    return gpg_error (GPG_ERR_NOT_FOUND);
+  *r_prkdf = prkdf;
+  return 0;
+}
+
 
 
+\f
 /* Read and parse the Object Directory File and store away the
-   pointers.
+   pointers. ODF_FID shall contain the FID of the ODF.
 
    Example of such a file:
 
@@ -99,32 +546,49 @@ select_and_read_binary (int slot, unsigned short efid, const char *efid_desc,
    A7 06 30 04 04 02 60 37  = DataObjects
    A8 06 30 04 04 02 60 38  = AuthObjects
     
-   These are all PathOrObjects using the path CHOICE.  The paths are
-   octet strings of length 2.  Using this Path CHOICE is recommended,
-   so we only implement that for now.
+   These are all PathOrObjects using the path CHOICE element.  The
+   paths are octet strings of length 2.  Using this Path CHOICE
+   element is recommended, so we only implement that for now.
 */
 static gpg_error_t
-read_ef_odf (app_t app)
+read_ef_odf (app_t app, unsigned short odf_fid)
 {
   gpg_error_t err;
   unsigned char *buffer, *p;
   size_t buflen;
   unsigned short value;
+  size_t offset;
 
-  err = select_and_read_binary (app->slot, 0x5031, "ODF", &buffer, &buflen);
+  err = select_and_read_binary (app->slot, odf_fid, "ODF", &buffer, &buflen);
   if (err)
     return err;
 
-  if (len < 8)
+  if (buflen < 8)
     {
       log_error ("error: ODF too short\n");
       xfree (buffer);
       return gpg_error (GPG_ERR_INV_OBJ);
     }
-  for (p=buffer; buflen >= 8; p += 8, buflen -= 8)
+  p = buffer;
+  while (buflen && *p && *p != 0xff)
     {
-      if ( (p[0] & 0xf0) != 0xA0
-           || memcmp (p+1, "\x06\x30\x04\x04\x02", 5) )
+      if ( buflen >= 8
+           && (p[0] & 0xf0) == 0xA0
+           && !memcmp (p+1, "\x06\x30\x04\x04\x02", 5) )
+        {
+          offset = 6;
+        }
+      else if ( buflen >= 12 
+                && (p[0] & 0xf0) == 0xA0
+                && !memcmp (p+1, "\x0a\x30\x08\x04\x06\x3F\x00\x50\x15", 9)
+                && app->app_local->home_df == 0x5015 )
+        {
+          /* This format using a full path is used by a self-created
+             test card of mine.  I have not checked whether this is
+             legal.  We assume a home DF of 0x5015 here. */
+          offset = 10;
+        }
+      else
         {
           log_error ("ODF format is not supported by us\n");
           xfree (buffer);
@@ -145,10 +609,10 @@ read_ef_odf (app_t app)
         }
       if (value)
         {
-          log_error ("duplicate object type %d in ODF ignored\n",(p[0)&0x0f));
+          log_error ("duplicate object type %d in ODF ignored\n",(p[0]&0x0f));
           continue;
         }
-      value = ((p[6] << 8) | p[7]);
+      value = ((p[offset] << 8) | p[offset+1]);
       switch ((p[0] & 0x0f))
         {
         case 0: app->app_local->odf.private_keys = value; break;
@@ -161,8 +625,14 @@ read_ef_odf (app_t app)
         case 7: app->app_local->odf.data_objects = value; break;
         case 8: app->app_local->odf.auth_objects = value; break;
         default: 
-          log_error ("unknown object type %d in ODF ignored\n", (p[0)&0x0f));
+          log_error ("unknown object type %d in ODF ignored\n", (p[0]&0x0f));
         }
+      offset += 2;
+
+      if (buflen < offset)
+        break;
+      p += offset;
+      buflen -= offset;
     }
 
   if (buflen)
@@ -173,6 +643,70 @@ read_ef_odf (app_t app)
 }
 
 
+/* Parse the BIT STRING with the keyUsageFlags from teh
+   CommonKeyAttributes. */
+static gpg_error_t
+parse_keyusage_flags (const unsigned char *der, size_t derlen,
+                      keyusage_flags_t *usageflags)
+{
+  unsigned int bits, mask;
+  int i, unused, full;
+
+  memset (usageflags, 0, sizeof *usageflags);
+  if (!derlen)
+    return gpg_error (GPG_ERR_INV_OBJ);
+          
+  unused = *der++; derlen--;
+  if ((!derlen && unused) || unused/8 > derlen)
+    return gpg_error (GPG_ERR_ENCODING_PROBLEM);
+  full = derlen - (unused+7)/8;
+  unused %= 8;
+  mask = 0;
+  for (i=1; unused; i <<= 1, unused--)
+    mask |= i;
+  
+  /* First octet */
+  if (derlen)
+    {
+      bits = *der++; derlen--;
+      if (full)
+        full--;
+      else 
+        {
+          bits &= ~mask;
+          mask = 0; 
+        }
+    }
+  else
+    bits = 0;
+  if ((bits & 0x80)) usageflags->encrypt = 1;
+  if ((bits & 0x40)) usageflags->decrypt = 1;
+  if ((bits & 0x20)) usageflags->sign = 1;  
+  if ((bits & 0x10)) usageflags->sign_recover = 1;
+  if ((bits & 0x08)) usageflags->wrap = 1;
+  if ((bits & 0x04)) usageflags->unwrap = 1; 
+  if ((bits & 0x02)) usageflags->verify = 1;  
+  if ((bits & 0x01)) usageflags->verify_recover = 1;
+
+  /* Second octet. */
+  if (derlen)
+    {
+      bits = *der++; derlen--;
+      if (full)
+        full--;
+      else 
+        {
+          bits &= ~mask;
+          mask = 0; 
+        }
+    }
+  else
+    bits = 0;
+  if ((bits & 0x80)) usageflags->derive = 1;
+  if ((bits & 0x40)) usageflags->non_repudiation = 1;
+
+  return 0;
+}
 
 /* Read and  parse the Private Key Directory Files. */
 /*
@@ -195,135 +729,77 @@ read_ef_odf (app_t app)
 00 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00   ................
 00 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00   ................
 
-*/
-static gpg_error_t
-read_ef_prkdf (app_t app)
-{
-
-
-}
-
-/* Read and  parse the Public Key Directory Files. */
-static gpg_error_t
-read_ef_pukdf (app_t app)
-{
-
-
-}
-
-
-/* Read and parse the Certificate Directory Files. */
-/* 
-
-6035 (certificates)
-
-30 2A 30 15 0C 0C 43 5F 58  35 30 39 2E 43 48 2E   0*0...C_X509.CH.
-44 53 03 02 06 40 04 01 0A  30 03 04 01 01 A1 0C   DS...@...0......
-30 0A 30 08 04 06 3F 00 40  16 C0 00 30 2A 30 15   0.0...?.@...0*0.
-0C 0C 43 5F 58 35 30 39 2E  43 48 2E 4B 45 03 02   ..C_X509.CH.KE..
-06 40 04 01 0A 30 03 04 01  0C A1 0C 30 0A 30 08   .@...0......0.0.
-04 06 3F 00 40 16 C2 00 30  2B 30 16 0C 0D 43 5F   ..?.@...0+0...C_
-58 35 30 39 2E 43 48 2E 41  55 54 03 02 06 40 04   X509.CH.AUT...@.
-01 0A 30 03 04 01 0D A1 0C  30 0A 30 08 04 06 3F   ..0......0.0...?
-00 40 16 C5 00 30 2E 30 19  0C 10 43 5F 58 35 30   .@...0.0...C_X50
-39 2E 43 48 2E 44 53 2D 53  50 58 03 02 06 40 04   9.CH.DS-SPX...@.
-01 0A 30 03 04 01 02 A1 0C  30 0A 30 08 04 06 3F   ..0......0.0...?
-00 40 16 C1 20 00 00 00 00  00 00 00 00 00 00 00   .@.. ...........
-00 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00   ................
-00 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00   ................
-00 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00   ................
-00 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00   ................
-
-   0   42: SEQUENCE {
-   2   21:   SEQUENCE {   -- commonObjectAttributes
-   4   12:     UTF8String 'C_X509.CH.DS'
-  18    2:     BIT STRING 6 unused bits
-         :       '10'B (bit 1)
-  22    1:     OCTET STRING 0A
-         :     }
-  25    3:   SEQUENCE {   -- commonCertificateAttributes
-  27    1:     OCTET STRING 01
-         :     }
-  30   12:   [1] {        -- certAttributes
-  32   10:     SEQUENCE {
-  34    8:       SEQUENCE {
-  36    6:         OCTET STRING 3F 00 40 16 C0 00
-         :         }
-         :       }
-         :     }
-         :   }
-
-
-
-6036 (trustedcertificates)
-
-30 35 30 06 03 02 00 00 04  00 30 16 04 14 2D 36   050.......0...-6
-33 39 33 33 39 34 30 33 39  37 37 36 34 30 31 32   3933940397764012
-31 36 A1 13 30 11 30 0F 04  06 3F 00 40 16 C7 08   16..0.0...?.@...
-02 01 00 80 02 02 29 30 35  30 06 03 02 00 00 04   ......)050......
-00 30 16 04 14 2D 34 30 31  39 30 35 32 37 32 36   .0...-4019052726
-38 30 31 36 39 33 34 39 32  A1 13 30 11 30 0F 04   801693492..0.0..
-06 3F 00 40 16 C7 0E 02 01  00 80 02 04 12 30 34   .?.@..........04
-30 06 03 02 00 00 04 00 30  15 04 13 37 39 36 33   0.......0...7963
-32 38 33 36 35 30 37 36 36  34 38 32 39 36 30 A1   283650766482960.
-13 30 11 30 0F 04 06 3F 00  40 16 C0 08 02 01 00   .0.0...?.@......
-80 02 04 11 00 00 00 00 00  00 00 00 00 00 00 00   ................
-00 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00   ................
-
-   0   53: SEQUENCE {
-   2    6:   SEQUENCE {
-   4    2:     BIT STRING
-         :       '00000000'B
-         :       Error: Spurious zero bits in bitstring.
-   8    0:     OCTET STRING
-         :       Error: Object has zero length.
-         :     }
-  10   22:   SEQUENCE {
-  12   20:     OCTET STRING '-6393394039776401216'
-         :     }
-  34   19:   [1] {
-  36   17:     SEQUENCE {
-  38   15:       SEQUENCE {
-  40    6:         OCTET STRING 3F 00 40 16 C7 08
-  48    1:         INTEGER 0       -- index
-  51    2:         [0] 02 29       -- length
-         :         }
-         :       }
-         :     }
-         :   }
+   0 30   51: SEQUENCE {
+   2 30   17:   SEQUENCE { -- commonObjectAttributes
+   4 0C    8:     UTF8String 'SK.CH.DS'
+  14 03    2:     BIT STRING 6 unused bits
+            :       '01'B (bit 0)
+  18 04    1:     OCTET STRING --authid
+            :       07
+            :     }
+  21 30   12:   SEQUENCE { -- commonKeyAttributes
+  23 04    1:     OCTET STRING
+            :       01
+  26 03    3:     BIT STRING 6 unused bits
+            :       '1000000000'B (bit 9)
+  31 02    2:     INTEGER 80  -- keyReference (optional)
+            :     }
+  35 A1   16:   [1] {  -- keyAttributes
+  37 30   14:     SEQUENCE { -- privateRSAKeyAttributes
+  39 30    8:       SEQUENCE { -- objectValue
+  41 04    6:         OCTET STRING --path
+            :           3F 00 40 16 00 50
+            :         }
+  49 02    2:       INTEGER 1024 -- modulus
+            :       }
+            :     }
+            :   }
 
 
 */
 static gpg_error_t
-read_ef_cdf (app_t app)
+read_ef_prkdf (app_t app, unsigned short fid, prkdf_object_t *result)
 {
   gpg_error_t err;
   unsigned char *buffer = NULL;
   size_t buflen;
-  unsigned short value;
-  unsigned short fid;
   const unsigned char *p;
   size_t n, objlen, hdrlen;
   int class, tag, constructed, ndef;
+  prkdf_object_t prkdflist = NULL;
+  int i;
   
-  fid = app->app_local->odf.certificates;
   if (!fid)
-    return 0; /* No certificates. */
+    return gpg_error (GPG_ERR_NO_DATA); /* No private keys. */
   
-  err = select_and_read_binary (app->slot, fid, "CDF", &buffer, &buflen);
+  err = select_and_read_binary (app->slot, fid, "PrKDF", &buffer, &buflen);
   if (err)
     return err;
   
   p = buffer;
   n = buflen;
 
+  /* FIXME: This shares a LOT of code with read_ef_cdf! */
+
   /* Loop over the records.  We stop as soon as we detect a new record
-     starting with 0x00 or 0xff as these values are commonly used to pad
-     the the read datablocks and are no valid ASN.1 encoding. */
-  while (n && *p && *p == 0xff)
+     starting with 0x00 or 0xff as these values are commonly used to
+     pad data blocks and are no valid ASN.1 encoding. */
+  while (n && *p && *p != 0xff)
     {
       const unsigned char *pp;
       size_t nn;
+      int where;
+      const char *errstr = NULL;
+      prkdf_object_t prkdf = NULL;
+      unsigned long ul;
+      const unsigned char *objid;
+      size_t objidlen;
+      const unsigned char *authid = NULL;
+      size_t authidlen = 0;
+      keyusage_flags_t usageflags;
+      unsigned long key_reference = 0;
+      int key_reference_valid = 0;
+      const char *s;
 
       err = parse_ber_header (&p, &n, &class, &tag, &constructed,
                               &ndef, &objlen, &hdrlen);
@@ -331,7 +807,7 @@ read_ef_cdf (app_t app)
         err = gpg_error (GPG_ERR_INV_OBJ);
       if (err)
         {
-          log_error ("error parsing CDF record: %s\n", gpg_strerror (err));
+          log_error ("error parsing PrKDF record: %s\n", gpg_strerror (err));
           goto leave;
         }
       pp = p;
@@ -339,144 +815,1299 @@ read_ef_cdf (app_t app)
       p += objlen;
       n -= objlen;
 
-      /* Skip the commonObjectAttributes.  */
+      /* Parse the commonObjectAttributes.  */
+      where = __LINE__;
       err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
                               &ndef, &objlen, &hdrlen);
       if (!err && (objlen > nn || tag != TAG_SEQUENCE))
         err = gpg_error (GPG_ERR_INV_OBJ);
       if (err)
-        {
-          log_error ("error parsing CDF record: %s - skipped\n",
-                     gpg_strerror (err));
-          continue;
-        }
-      pp += objlen;
-      nn -= objlen;
-
-      /* Skip the commonCertificateAttributes.  */
+        goto parse_error;
+      {
+        const unsigned char *ppp = pp;
+        size_t nnn = objlen;
+
+        pp += objlen;
+        nn -= objlen;
+
+        /* Search the optional AuthId.  We need to skip the optional
+           Label (UTF8STRING) and the optional CommonObjectFlags
+           (BITSTRING). */
+        where = __LINE__;
+        err = parse_ber_header (&ppp, &nnn, &class, &tag, &constructed,
+                                &ndef, &objlen, &hdrlen);
+        if (!err && (objlen > nnn || class != CLASS_UNIVERSAL))
+          err = gpg_error (GPG_ERR_INV_OBJ);
+        if (gpg_err_code (err) == GPG_ERR_EOF)
+          goto no_authid;
+        if (err)
+          goto parse_error;
+        if (tag == TAG_UTF8_STRING)
+          {
+            ppp += objlen; /* Skip the Label. */
+            nnn -= objlen;
+
+            where = __LINE__;
+            err = parse_ber_header (&ppp, &nnn, &class, &tag, &constructed,
+                                    &ndef, &objlen, &hdrlen);
+            if (!err && (objlen > nnn || class != CLASS_UNIVERSAL))
+              err = gpg_error (GPG_ERR_INV_OBJ);
+            if (gpg_err_code (err) == GPG_ERR_EOF)
+              goto no_authid;
+            if (err)
+              goto parse_error;
+          }
+        if (tag == TAG_BIT_STRING)
+          {
+            ppp += objlen; /* Skip the CommonObjectFlags.  */
+            nnn -= objlen;
+
+            where = __LINE__;
+            err = parse_ber_header (&ppp, &nnn, &class, &tag, &constructed,
+                                    &ndef, &objlen, &hdrlen);
+            if (!err && (objlen > nnn || class != CLASS_UNIVERSAL))
+              err = gpg_error (GPG_ERR_INV_OBJ);
+            if (gpg_err_code (err) == GPG_ERR_EOF)
+              goto no_authid;
+            if (err)
+              goto parse_error;
+          }
+        if (tag == TAG_OCTET_STRING && objlen)
+          {
+            authid = ppp;
+            authidlen = objlen;
+          }
+      no_authid:
+        ;
+      }
+
+      /* Parse the commonKeyAttributes.  */
+      where = __LINE__;
       err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
                               &ndef, &objlen, &hdrlen);
       if (!err && (objlen > nn || tag != TAG_SEQUENCE))
         err = gpg_error (GPG_ERR_INV_OBJ);
       if (err)
-        {
-          log_error ("error parsing CDF record: %s - skipped\n",
-                     gpg_strerror (err));
-          continue;
-        }
-      pp += objlen;
-      nn -= objlen;
-
-      /* FIXME: Check that this is a reference to a certificate. */
-
-
-    }
-
+        goto parse_error;
+      {
+        const unsigned char *ppp = pp;
+        size_t nnn = objlen;
 
- leave:
-  xfree (buffer);
-  return err;
-}
+        pp += objlen;
+        nn -= objlen;
 
-/* Read and parse Authentication Object Directory Files.  */
-static gpg_error_t 
-read_ef_aodf (app_t app)
-{
-
-}
+        /* Get the Id. */
+        where = __LINE__;
+        err = parse_ber_header (&ppp, &nnn, &class, &tag, &constructed,
+                              &ndef, &objlen, &hdrlen);
+        if (!err && (objlen > nnn
+                     || class != CLASS_UNIVERSAL || tag != TAG_OCTET_STRING))
+          err = gpg_error (GPG_ERR_INV_OBJ);
+        if (err)
+          goto parse_error;
+        objid = ppp;
+        objidlen = objlen;
+        ppp += objlen;
+        nnn -= objlen;
+
+        /* Get the KeyUsageFlags. */
+        where = __LINE__;
+        err = parse_ber_header (&ppp, &nnn, &class, &tag, &constructed,
+                              &ndef, &objlen, &hdrlen);
+        if (!err && (objlen > nnn
+                     || class != CLASS_UNIVERSAL || tag != TAG_BIT_STRING))
+          err = gpg_error (GPG_ERR_INV_OBJ);
+        if (err)
+          goto parse_error;
+        err = parse_keyusage_flags (ppp, objlen, &usageflags);
+        if (err)
+          goto parse_error;
+        ppp += objlen;
+        nnn -= objlen;
+
+        /* Find the keyReference */
+        where = __LINE__;
+        err = parse_ber_header (&ppp, &nnn, &class, &tag, &constructed,
+                              &ndef, &objlen, &hdrlen);
+        if (gpg_err_code (err) == GPG_ERR_EOF)
+          goto leave_cki;
+        if (!err && objlen > nnn)
+          err = gpg_error (GPG_ERR_INV_OBJ);
+        if (err)
+          goto parse_error;
+        if (class == CLASS_UNIVERSAL && tag == TAG_BOOLEAN)
+          {
+            /* Skip the native element. */
+            ppp += objlen;
+            nnn -= objlen;
+            
+            err = parse_ber_header (&ppp, &nnn, &class, &tag, &constructed,
+                                    &ndef, &objlen, &hdrlen);
+            if (gpg_err_code (err) == GPG_ERR_EOF)
+              goto leave_cki;
+            if (!err && objlen > nnn)
+              err = gpg_error (GPG_ERR_INV_OBJ);
+            if (err)
+              goto parse_error;
+          }
+        if (class == CLASS_UNIVERSAL && tag == TAG_BIT_STRING)
+          {
+            /* Skip the accessFlags. */
+            ppp += objlen;
+            nnn -= objlen;
+            
+            err = parse_ber_header (&ppp, &nnn, &class, &tag, &constructed,
+                                    &ndef, &objlen, &hdrlen);
+            if (gpg_err_code (err) == GPG_ERR_EOF)
+              goto leave_cki;
+            if (!err && objlen > nnn)
+              err = gpg_error (GPG_ERR_INV_OBJ);
+            if (err)
+              goto parse_error;
+          }
+        if (class == CLASS_UNIVERSAL && tag == TAG_INTEGER)
+          {
+            /* Yep, this is the keyReference.  */
+            for (ul=0; objlen; objlen--)
+              {
+                ul <<= 8;
+                ul |= (*ppp++) & 0xff; 
+                nnn--;
+            }
+            key_reference = ul;
+            key_reference_valid = 1;
+          }
 
+      leave_cki:
+        ;
+      }
 
-/* 6037 (dataobjects)
-
-30 1E 30 0B 0C 06 45 46 2E  47 44 4F 04 01 0A 30   0.0...EF.GDO...0
-02 0C 00 A1 0B 30 09 04 04  3F 00 2F 02 80 01 0E   .....0...?./....
-30 30 30 18 0C 0F 64 69 73  70 6C 61 79 20 6D 65   000...display me
-73 73 61 67 65 03 02 06 C0  04 01 0A 30 05 0C 03   ssage.......0...
-42 53 53 A1 0D 30 0B 04 06  3F 00 40 16 D0 00 80   BSS..0...?.@....
-01 20 30 2B 30 0C 0C 03 53  53 4F 03 02 06 C0 04   . 0+0...SSO.....
-01 0A 30 0B 0C 09 53 61 66  65 47 75 61 72 64 A1   ..0...SafeGuard.
-0E 30 0C 04 06 3F 00 0F FF  30 02 80 02 03 00 30   .0...?...0.....0
-30 30 11 0C 08 53 47 41 53  64 61 74 61 03 02 06   00...SGASdata...
-C0 04 01 0A 30 0B 0C 09 53  61 66 65 47 75 61 72   ....0...SafeGuar
-64 A1 0E 30 0C 04 06 3F 00  0F FF 40 01 80 02 00   d..0...?...@....
-80 30 30 30 11 0C 08 55 73  65 72 64 61 74 61 03   .000...Userdata.
-02 06 40 04 01 0A 30 0B 0C  09 53 61 66 65 47 75   ..@...0...SafeGu
-61 72 64 A1 0E 30 0C 04 06  3F 00 0F FF 30 01 80   ard..0...?...0..
-02 01 00 30 2C 30 13 0C 0A  62 61 73 69 63 20 64   ...0,0...basic d
-61 74 61 03 02 06 C0 04 01  0A 30 05 0C 03 49 44   ata.......0...ID
-44 A1 0E 30 0C 04 06 3F 00  40 17 D0 01 80 02 02   D..0...?.@......
-00 30 2F 30 16 0C 0D 65 78  74 65 6E 64 65 64 20   .0/0...extended 
-64 61 74 61 03 02 06 C0 04  01 0A 30 05 0C 03 49   data.......0...I
-44 44 A1 0E 30 0C 04 06 3F  00 40 17 D0 02 80 02   DD..0...?.@.....
-08 00 30 34 30 1B 0C 12 73  70 65 63 69 61 6C 20   ..040...special 
-70 72 69 76 69 6C 65 67 65  73 03 02 06 C0 04 01   privileges......
-0A 30 05 0C 03 49 44 44 A1  0E 30 0C 04 06 3F 00   .0...IDD..0...?.
-40 17 D0 03 80 02 04 00                            @.......        
-
-   0   30: SEQUENCE {
-   2   11:   SEQUENCE {
-   4    6:     UTF8String 'EF.GDO'
-  12    1:     OCTET STRING 0A
-         :     }
-  15    2:   SEQUENCE {
-  17    0:     UTF8String
-         :       Error: Object has zero length.
-         :     }
-  19   11:   [1] {
-  21    9:     SEQUENCE {
-  23    4:       OCTET STRING 3F 00 2F 02
-  29    1:       [0] 0E
-         :       }
-         :     }
-         :   }
 
+      /* Skip subClassAttributes.  */
+      where = __LINE__;
+      err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
+                              &ndef, &objlen, &hdrlen);
+      if (!err && objlen > nn)
+        err = gpg_error (GPG_ERR_INV_OBJ);
+      if (err)
+        goto parse_error;
+      if (class == CLASS_CONTEXT && tag == 0)
+        {
+          pp += objlen;
+          nn -= objlen;
+      
+          where = __LINE__;
+          err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
+                                  &ndef, &objlen, &hdrlen);
+        }
+      /* Parse the keyAttributes.  */
+      if (!err && (objlen > nn || class != CLASS_CONTEXT || tag != 1))
+        err = gpg_error (GPG_ERR_INV_OBJ);
+      if (err)
+        goto parse_error;
+      nn = objlen;
 
+      where = __LINE__;
+      err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
+                              &ndef, &objlen, &hdrlen);
+      if (!err && objlen > nn)
+        err = gpg_error (GPG_ERR_INV_OBJ);
+      if (err)
+        goto parse_error;
+      if (class == CLASS_UNIVERSAL && tag == TAG_SEQUENCE)
+        ; /* RSA */
+      else if (class == CLASS_CONTEXT)
+        {
+          switch (tag)
+            {
+            case 0: errstr = "EC key objects are not supported"; break;
+            case 1: errstr = "DH key objects are not supported"; break;
+            case 2: errstr = "DSA key objects are not supported"; break;
+            case 3: errstr = "KEA key objects are not supported"; break;
+            default: errstr = "unknown privateKeyObject"; break;
+            }
+          goto parse_error;
+        }
+      else
+        {
+          err = gpg_error (GPG_ERR_INV_OBJ);
+          goto parse_error;
+        }
 
-6038 (authobjects)
-
-30 2A 30 0B 0C 05 62 61 73  69 63 03 02 00 C0 30   0*0...basic....0
-03 04 01 0A A1 16 30 14 03  03 00 0C 10 0A 01 01   ......0.........
-02 01 06 02 01 06 02 01 08  80 01 01 30 51 30 19   ............0Q0.
-0C 13 73 70 65 63 69 66 69  63 20 50 49 4E 20 66   ..specific PIN f
-6F 72 20 44 53 03 02 00 C0  30 03 04 01 07 A1 2F   or DS....0...../
-30 2D 03 03 00 4C 10 0A 01  01 02 01 06 02 01 06   0-...L..........
-02 01 08 80 01 02 18 0F 32  30 30 32 30 34 31 39   ........20020419
-31 32 31 33 34 31 5A 30 06  04 04 3F 00 40 16      121341Z0...?.@. 
-
-   0   42: SEQUENCE {
-   2   11:   SEQUENCE {
-   4    5:     UTF8String 'basic'
-  11    2:     BIT STRING
-         :       '00000011'B
-         :       Error: Spurious zero bits in bitstring.
-         :     }
-  15    3:   SEQUENCE {
-  17    1:     OCTET STRING 0A
-         :     }
-  20   22:   [1] {
-  22   20:     SEQUENCE {
-  24    3:       BIT STRING
-         :         '0000100000110000'B
-         :         Error: Spurious zero bits in bitstring.
-  29    1:       ENUMERATED 1
-  32    1:       INTEGER 6
-  35    1:       INTEGER 6
-  38    1:       INTEGER 8
-  41    1:       [0] 01
-         :       }
-         :     }
-         :   }
+      nn = objlen;
 
+      /* Check that the reference is a Path object.  */
+      where = __LINE__;
+      err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
+                              &ndef, &objlen, &hdrlen);
+      if (!err && objlen > nn)
+        err = gpg_error (GPG_ERR_INV_OBJ);
+      if (err)
+        goto parse_error;
+      if (class != CLASS_UNIVERSAL || tag != TAG_SEQUENCE)
+        {
+          errstr = "unsupported reference type";
+          goto parse_error;
+        }
+      nn = objlen;
 
+      /* Parse the Path object. */
+      where = __LINE__;
+      err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
+                              &ndef, &objlen, &hdrlen);
+      if (!err && objlen > nn)
+        err = gpg_error (GPG_ERR_INV_OBJ);
+      if (err)
+        goto parse_error;
 
-*/
+      /* Make sure that the next element is a non zero path and of
+         even length (FID are two bytes each). */
+      if (class != CLASS_UNIVERSAL || tag != TAG_OCTET_STRING
+          ||  !objlen || (objlen & 1) )
+        {
+          errstr = "invalid path reference";
+          goto parse_error;
+        }
+      /* Create a new PrKDF list item. */
+      prkdf = xtrycalloc (1, (sizeof *prkdf 
+                              - sizeof(unsigned short)
+                              + objlen/2 * sizeof(unsigned short)));
+      if (!prkdf)
+        {
+          err = gpg_error_from_errno (errno);
+          goto leave;
+        }
+      prkdf->objidlen = objidlen;
+      prkdf->objid = xtrymalloc (objidlen);
+      if (!prkdf->objid)
+        {
+          err = gpg_error_from_errno (errno);
+          xfree (prkdf);
+          goto leave;
+        }
+      memcpy (prkdf->objid, objid, objidlen);
+      if (authid)
+        {
+          prkdf->authidlen = authidlen;
+          prkdf->authid = xtrymalloc (authidlen);
+          if (!prkdf->authid)
+            {
+              err = gpg_error_from_errno (errno);
+              xfree (prkdf->objid);
+              xfree (prkdf);
+              goto leave;
+            }
+          memcpy (prkdf->authid, authid, authidlen);
+        }
 
+      prkdf->pathlen = objlen/2;
+      for (i=0; i < prkdf->pathlen; i++, pp += 2, nn -= 2)
+        prkdf->path[i] = ((pp[0] << 8) | pp[1]);
 
-/* Read and parse the EF(TokenInfo). 
+      prkdf->usageflags = usageflags;
+      prkdf->key_reference = key_reference;
+      prkdf->key_reference_valid = key_reference_valid;
 
-TokenInfo ::= SEQUENCE {
-    version            INTEGER {v1(0)} (v1,...),
-    serialNumber       OCTET STRING,
+      if (nn)
+        {
+          /* An index and length follows. */
+          prkdf->have_off = 1;
+          where = __LINE__;
+          err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
+                                  &ndef, &objlen, &hdrlen);
+          if (!err && (objlen > nn
+                       || class != CLASS_UNIVERSAL || tag != TAG_INTEGER))
+            err = gpg_error (GPG_ERR_INV_OBJ);
+          if (err)
+            goto parse_error;
+          
+          for (ul=0; objlen; objlen--)
+            {
+              ul <<= 8;
+              ul |= (*pp++) & 0xff; 
+              nn--;
+            }
+          prkdf->off = ul;
+          
+          where = __LINE__;
+          err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
+                                  &ndef, &objlen, &hdrlen);
+          if (!err && (objlen > nn
+                       || class != CLASS_CONTEXT || tag != 0))
+            err = gpg_error (GPG_ERR_INV_OBJ);
+          if (err)
+            goto parse_error;
+          
+          for (ul=0; objlen; objlen--)
+            {
+              ul <<= 8;
+              ul |= (*pp++) & 0xff; 
+              nn--;
+            }
+          prkdf->len = ul;
+        }
+
+
+      log_debug ("PrKDF %04hX: id=", fid);
+      for (i=0; i < prkdf->objidlen; i++)
+        log_printf ("%02X", prkdf->objid[i]);
+      log_printf (" path=");
+      for (i=0; i < prkdf->pathlen; i++)
+        log_printf ("%04hX", prkdf->path[i]);
+      if (prkdf->have_off)
+        log_printf ("[%lu/%lu]", prkdf->off, prkdf->len);
+      if (prkdf->authid)
+        {
+          log_printf (" authid=");
+          for (i=0; i < prkdf->authidlen; i++)
+            log_printf ("%02X", prkdf->authid[i]);
+        }
+      if (prkdf->key_reference_valid)
+        log_printf (" keyref=0x%02lX", prkdf->key_reference);
+      log_printf (" usage=");
+      s = "";
+      if (prkdf->usageflags.encrypt) log_printf ("%sencrypt", s), s = ",";
+      if (prkdf->usageflags.decrypt) log_printf ("%sdecrypt", s), s = ",";
+      if (prkdf->usageflags.sign   ) log_printf ("%ssign", s), s = ",";
+      if (prkdf->usageflags.sign_recover)
+        log_printf ("%ssign_recover", s), s = ",";
+      if (prkdf->usageflags.wrap   ) log_printf ("%swrap", s), s = ",";
+      if (prkdf->usageflags.unwrap ) log_printf ("%sunwrap", s), s = ",";
+      if (prkdf->usageflags.verify ) log_printf ("%sverify", s), s = ",";
+      if (prkdf->usageflags.verify_recover)
+        log_printf ("%sverify_recover", s), s = ",";
+      if (prkdf->usageflags.derive ) log_printf ("%sderive", s), s = ",";
+      if (prkdf->usageflags.non_repudiation)
+        log_printf ("%snon_repudiation", s), s = ",";
+      log_printf ("\n");
+      
+      /* Put it into the list. */
+      prkdf->next = prkdflist;
+      prkdflist = prkdf;
+      prkdf = NULL;
+      continue; /* Ready. */
+
+    parse_error:
+      log_error ("error parsing PrKDF record (%d): %s - skipped\n",
+                 where, errstr? errstr : gpg_strerror (err));
+      if (prkdf)
+        {
+          xfree (prkdf->objid);
+          xfree (prkdf->authid);
+          xfree (prkdf);
+        }
+      err = 0;
+    } /* End looping over all records. */
+
+ leave:
+  xfree (buffer);
+  if (err)
+    release_prkdflist (prkdflist);
+  else
+    *result = prkdflist;
+  return err;
+}
+
+
+/* Read and parse the Certificate Directory Files identified by FID.
+   On success a newlist of CDF object gets stored at RESULT and the
+   caller is then responsible of releasing this list.  On error a
+   error code is returned and RESULT won't get changed.  */
+static gpg_error_t
+read_ef_cdf (app_t app, unsigned short fid, cdf_object_t *result)
+{
+  gpg_error_t err;
+  unsigned char *buffer = NULL;
+  size_t buflen;
+  const unsigned char *p;
+  size_t n, objlen, hdrlen;
+  int class, tag, constructed, ndef;
+  cdf_object_t cdflist = NULL;
+  int i;
+  
+  if (!fid)
+    return gpg_error (GPG_ERR_NO_DATA); /* No certificates. */
+  
+  err = select_and_read_binary (app->slot, fid, "CDF", &buffer, &buflen);
+  if (err)
+    return err;
+  
+  p = buffer;
+  n = buflen;
+
+  /* Loop over the records.  We stop as soon as we detect a new record
+     starting with 0x00 or 0xff as these values are commonly used to
+     pad data blocks and are no valid ASN.1 encoding. */
+  while (n && *p && *p != 0xff)
+    {
+      const unsigned char *pp;
+      size_t nn;
+      int where;
+      const char *errstr = NULL;
+      cdf_object_t cdf = NULL;
+      unsigned long ul;
+      const unsigned char *objid;
+      size_t objidlen;
+      
+      err = parse_ber_header (&p, &n, &class, &tag, &constructed,
+                              &ndef, &objlen, &hdrlen);
+      if (!err && (objlen > n || tag != TAG_SEQUENCE))
+        err = gpg_error (GPG_ERR_INV_OBJ);
+      if (err)
+        {
+          log_error ("error parsing CDF record: %s\n", gpg_strerror (err));
+          goto leave;
+        }
+      pp = p;
+      nn = objlen;
+      p += objlen;
+      n -= objlen;
+
+      /* Skip the commonObjectAttributes.  */
+      where = __LINE__;
+      err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
+                              &ndef, &objlen, &hdrlen);
+      if (!err && (objlen > nn || tag != TAG_SEQUENCE))
+        err = gpg_error (GPG_ERR_INV_OBJ);
+      if (err)
+        goto parse_error;
+      pp += objlen;
+      nn -= objlen;
+
+      /* Parse the commonCertificateAttributes.  */
+      where = __LINE__;
+      err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
+                              &ndef, &objlen, &hdrlen);
+      if (!err && (objlen > nn || tag != TAG_SEQUENCE))
+        err = gpg_error (GPG_ERR_INV_OBJ);
+      if (err)
+        goto parse_error;
+      {
+        const unsigned char *ppp = pp;
+        size_t nnn = objlen;
+
+        pp += objlen;
+        nn -= objlen;
+
+        /* Get the Id. */
+        where = __LINE__;
+        err = parse_ber_header (&ppp, &nnn, &class, &tag, &constructed,
+                              &ndef, &objlen, &hdrlen);
+        if (!err && (objlen > nnn
+                     || class != CLASS_UNIVERSAL || tag != TAG_OCTET_STRING))
+          err = gpg_error (GPG_ERR_INV_OBJ);
+        if (err)
+          goto parse_error;
+        objid = ppp;
+        objidlen = objlen;
+      }
+
+      /* Parse the certAttribute.  */
+      where = __LINE__;
+      err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
+                              &ndef, &objlen, &hdrlen);
+      if (!err && (objlen > nn || class != CLASS_CONTEXT || tag != 1))
+        err = gpg_error (GPG_ERR_INV_OBJ);
+      if (err)
+        goto parse_error;
+      nn = objlen;
+
+      where = __LINE__;
+      err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
+                              &ndef, &objlen, &hdrlen);
+      if (!err && (objlen > nn
+                   || class != CLASS_UNIVERSAL || tag != TAG_SEQUENCE))
+        err = gpg_error (GPG_ERR_INV_OBJ);
+      if (err)
+        goto parse_error;
+      nn = objlen;
+
+      /* Check that the reference is a Path object.  */
+      where = __LINE__;
+      err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
+                              &ndef, &objlen, &hdrlen);
+      if (!err && objlen > nn)
+        err = gpg_error (GPG_ERR_INV_OBJ);
+      if (err)
+        goto parse_error;
+      if (class != CLASS_UNIVERSAL || tag != TAG_SEQUENCE)
+        {
+          errstr = "unsupported reference type";
+          continue;
+        }
+      nn = objlen;
+
+      /* Parse the Path object. */
+      where = __LINE__;
+      err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
+                              &ndef, &objlen, &hdrlen);
+      if (!err && objlen > nn)
+        err = gpg_error (GPG_ERR_INV_OBJ);
+      if (err)
+        goto parse_error;
+
+      /* Make sure that the next element is a non zero path and of
+         even length (FID are two bytes each). */
+      if (class != CLASS_UNIVERSAL || tag != TAG_OCTET_STRING
+          ||  !objlen || (objlen & 1) )
+        {
+          errstr = "invalid path reference";
+          goto parse_error;
+        }
+      /* Create a new CDF list item. */
+      cdf = xtrycalloc (1, (sizeof *cdf 
+                            - sizeof(unsigned short)
+                            + objlen/2 * sizeof(unsigned short)));
+      if (!cdf)
+        {
+          err = gpg_error_from_errno (errno);
+          goto leave;
+        }
+      cdf->objidlen = objidlen;
+      cdf->objid = xtrymalloc (objidlen);
+      if (!cdf->objid)
+        {
+          err = gpg_error_from_errno (errno);
+          xfree (cdf);
+          goto leave;
+        }
+      memcpy (cdf->objid, objid, objidlen);
+
+      cdf->pathlen = objlen/2;
+      for (i=0; i < cdf->pathlen; i++, pp += 2, nn -= 2)
+        cdf->path[i] = ((pp[0] << 8) | pp[1]);
+
+      if (nn)
+        {
+          /* An index and length follows. */
+          cdf->have_off = 1;
+          where = __LINE__;
+          err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
+                                  &ndef, &objlen, &hdrlen);
+          if (!err && (objlen > nn
+                       || class != CLASS_UNIVERSAL || tag != TAG_INTEGER))
+            err = gpg_error (GPG_ERR_INV_OBJ);
+          if (err)
+            goto parse_error;
+          
+          for (ul=0; objlen; objlen--)
+            {
+              ul <<= 8;
+              ul |= (*pp++) & 0xff; 
+              nn--;
+            }
+          cdf->off = ul;
+          
+          where = __LINE__;
+          err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
+                                  &ndef, &objlen, &hdrlen);
+          if (!err && (objlen > nn
+                       || class != CLASS_CONTEXT || tag != 0))
+            err = gpg_error (GPG_ERR_INV_OBJ);
+          if (err)
+            goto parse_error;
+          
+          for (ul=0; objlen; objlen--)
+            {
+              ul <<= 8;
+              ul |= (*pp++) & 0xff; 
+              nn--;
+            }
+          cdf->len = ul;
+        }
+
+      log_debug ("CDF %04hX: id=", fid);
+      for (i=0; i < cdf->objidlen; i++)
+        log_printf ("%02X", cdf->objid[i]);
+      log_printf (" path=");
+      for (i=0; i < cdf->pathlen; i++)
+        log_printf ("%04hX", cdf->path[i]);
+      if (cdf->have_off)
+        log_printf ("[%lu/%lu]", cdf->off, cdf->len);
+      log_printf ("\n");
+      
+      /* Put it into the list. */
+      cdf->next = cdflist;
+      cdflist = cdf;
+      cdf = NULL;
+      continue; /* Ready. */
+
+    parse_error:
+      log_error ("error parsing CDF record (%d): %s - skipped\n",
+                 where, errstr? errstr : gpg_strerror (err));
+      xfree (cdf);
+      err = 0;
+    } /* End looping over all records. */
+
+ leave:
+  xfree (buffer);
+  if (err)
+    release_cdflist (cdflist);
+  else
+    *result = cdflist;
+  return err;
+}
+
+
+/*
+SEQUENCE {
+  SEQUENCE { -- CommonObjectAttributes
+    UTF8String 'specific PIN for DS'
+    BIT STRING 0 unused bits
+      '00000011'B
+    }
+  SEQUENCE { -- CommonAuthenticationObjectAttributes
+    OCTET STRING
+      07    -- iD
+    }
+
+  [1] { -- typeAttributes
+    SEQUENCE { -- PinAttributes
+      BIT STRING 0 unused bits
+        '0000100000110010'B  -- local,initialized,needs-padding
+                             -- exchangeRefData
+      ENUMERATED 1           -- ascii-numeric
+      INTEGER 6              -- minLength
+      INTEGER 6              -- storedLength
+      INTEGER 8              -- maxLength
+      [0]
+        02                   -- pinReference
+      GeneralizedTime 19/04/2002 12:12 GMT  -- lastPinChange
+      SEQUENCE {
+        OCTET STRING
+          3F 00 40 16        -- path to DF of PIN
+        }
+      }
+    }
+  }
+
+*/
+/* Read and parse an Authentication Object Directory File identified
+   by FID.  On success a newlist of AODF objects gets stored at RESULT
+   and the caller is responsible of releasing this list.  On error a
+   error code is returned and RESULT won't get changed.  */
+static gpg_error_t
+read_ef_aodf (app_t app, unsigned short fid, aodf_object_t *result)
+{
+  gpg_error_t err;
+  unsigned char *buffer = NULL;
+  size_t buflen;
+  const unsigned char *p;
+  size_t n, objlen, hdrlen;
+  int class, tag, constructed, ndef;
+  aodf_object_t aodflist = NULL;
+  int i;
+  
+  if (!fid)
+    return gpg_error (GPG_ERR_NO_DATA); /* No authentication objects. */
+  
+  err = select_and_read_binary (app->slot, fid, "AODF", &buffer, &buflen);
+  if (err)
+    return err;
+  
+  p = buffer;
+  n = buflen;
+
+  /* FIXME: This shares a LOT of code with read_ef_prkdf! */
+
+  /* Loop over the records.  We stop as soon as we detect a new record
+     starting with 0x00 or 0xff as these values are commonly used to
+     pad data blocks and are no valid ASN.1 encoding. */
+  while (n && *p && *p != 0xff)
+    {
+      const unsigned char *pp;
+      size_t nn;
+      int where;
+      const char *errstr = NULL;
+      aodf_object_t aodf = NULL;
+      unsigned long ul;
+      const char *s;
+
+      err = parse_ber_header (&p, &n, &class, &tag, &constructed,
+                              &ndef, &objlen, &hdrlen);
+      if (!err && (objlen > n || tag != TAG_SEQUENCE))
+        err = gpg_error (GPG_ERR_INV_OBJ);
+      if (err)
+        {
+          log_error ("error parsing AODF record: %s\n", gpg_strerror (err));
+          goto leave;
+        }
+      pp = p;
+      nn = objlen;
+      p += objlen;
+      n -= objlen;
+
+      /* Allocate memory for a new AODF list item. */
+      aodf = xtrycalloc (1, sizeof *aodf);
+      if (!aodf)
+        goto no_core;
+
+      /* Parse the commonObjectAttributes.  */
+      where = __LINE__;
+      err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
+                              &ndef, &objlen, &hdrlen);
+      if (!err && (objlen > nn || tag != TAG_SEQUENCE))
+        err = gpg_error (GPG_ERR_INV_OBJ);
+      if (err)
+        goto parse_error;
+      {
+        const unsigned char *ppp = pp;
+        size_t nnn = objlen;
+
+        pp += objlen;
+        nn -= objlen;
+
+        /* Search the optional AuthId.  We need to skip the optional
+           Label (UTF8STRING) and the optional CommonObjectFlags
+           (BITSTRING). */
+        where = __LINE__;
+        err = parse_ber_header (&ppp, &nnn, &class, &tag, &constructed,
+                                &ndef, &objlen, &hdrlen);
+        if (!err && (objlen > nnn || class != CLASS_UNIVERSAL))
+          err = gpg_error (GPG_ERR_INV_OBJ);
+        if (gpg_err_code (err) == GPG_ERR_EOF)
+          goto no_authid;
+        if (err)
+          goto parse_error;
+        if (tag == TAG_UTF8_STRING)
+          {
+            ppp += objlen; /* Skip the Label. */
+            nnn -= objlen;
+
+            where = __LINE__;
+            err = parse_ber_header (&ppp, &nnn, &class, &tag, &constructed,
+                                    &ndef, &objlen, &hdrlen);
+            if (!err && (objlen > nnn || class != CLASS_UNIVERSAL))
+              err = gpg_error (GPG_ERR_INV_OBJ);
+            if (gpg_err_code (err) == GPG_ERR_EOF)
+              goto no_authid;
+            if (err)
+              goto parse_error;
+          }
+        if (tag == TAG_BIT_STRING)
+          {
+            ppp += objlen; /* Skip the CommonObjectFlags.  */
+            nnn -= objlen;
+
+            where = __LINE__;
+            err = parse_ber_header (&ppp, &nnn, &class, &tag, &constructed,
+                                    &ndef, &objlen, &hdrlen);
+            if (!err && (objlen > nnn || class != CLASS_UNIVERSAL))
+              err = gpg_error (GPG_ERR_INV_OBJ);
+            if (gpg_err_code (err) == GPG_ERR_EOF)
+              goto no_authid;
+            if (err)
+              goto parse_error;
+          }
+        if (tag == TAG_OCTET_STRING && objlen)
+          {
+            aodf->authidlen = objlen;
+            aodf->authid = xtrymalloc (objlen);
+            if (!aodf->authid)
+              goto no_core;
+            memcpy (aodf->authid, ppp, objlen);
+          }
+      no_authid:
+        ;
+      }
+
+      /* Parse the CommonAuthenticationObjectAttributes.  */
+      where = __LINE__;
+      err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
+                              &ndef, &objlen, &hdrlen);
+      if (!err && (objlen > nn || tag != TAG_SEQUENCE))
+        err = gpg_error (GPG_ERR_INV_OBJ);
+      if (err)
+        goto parse_error;
+      {
+        const unsigned char *ppp = pp;
+        size_t nnn = objlen;
+
+        pp += objlen;
+        nn -= objlen;
+
+        /* Get the Id. */
+        where = __LINE__;
+        err = parse_ber_header (&ppp, &nnn, &class, &tag, &constructed,
+                              &ndef, &objlen, &hdrlen);
+        if (!err && (objlen > nnn
+                     || class != CLASS_UNIVERSAL || tag != TAG_OCTET_STRING))
+          err = gpg_error (GPG_ERR_INV_OBJ);
+        if (err)
+          goto parse_error;
+
+        aodf->objidlen = objlen;
+        aodf->objid = xtrymalloc (objlen);
+        if (!aodf->objid)
+          goto no_core;
+        memcpy (aodf->objid, ppp, objlen);
+      }
+
+      /* Parse the typeAttributes.  */
+      where = __LINE__;
+      err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
+                              &ndef, &objlen, &hdrlen);
+      if (!err && (objlen > nn || class != CLASS_CONTEXT || tag != 1))
+        err = gpg_error (GPG_ERR_INV_OBJ);
+      if (err)
+        goto parse_error;
+      nn = objlen;
+
+      where = __LINE__;
+      err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
+                              &ndef, &objlen, &hdrlen);
+      if (!err && objlen > nn)
+        err = gpg_error (GPG_ERR_INV_OBJ);
+      if (err)
+        goto parse_error;
+      if (class == CLASS_UNIVERSAL && tag == TAG_SEQUENCE)
+        ; /* PinAttributes */
+      else if (class == CLASS_CONTEXT)
+        {
+          switch (tag)
+            {
+            case 0: errstr = "biometric auth types are not supported"; break;
+            case 1: errstr = "authKey auth types are not supported"; break;
+            case 2: errstr = "external auth type are not supported"; break;
+            default: errstr = "unknown privateKeyObject"; break;
+            }
+          goto parse_error;
+        }
+      else
+        {
+          err = gpg_error (GPG_ERR_INV_OBJ);
+          goto parse_error;
+        }
+
+      nn = objlen;
+
+      /* PinFlags */
+      where = __LINE__;
+      err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
+                              &ndef, &objlen, &hdrlen);
+      if (!err && (objlen > nn || !objlen
+                   || class != CLASS_UNIVERSAL || tag != TAG_BIT_STRING))
+        err = gpg_error (GPG_ERR_INV_OBJ);
+      if (err)
+        goto parse_error;
+
+      {
+        unsigned int bits, mask;
+        int unused, full;
+        
+        unused = *pp++; nn--; objlen--;
+        if ((!objlen && unused) || unused/8 > objlen)
+          {
+            err = gpg_error (GPG_ERR_ENCODING_PROBLEM);
+            goto parse_error;
+          }
+        full = objlen - (unused+7)/8;
+        unused %= 8;
+        mask = 0;
+        for (i=1; unused; i <<= 1, unused--)
+          mask |= i;
+      
+        /* The first octet */
+        bits = 0;
+        if (objlen)
+          {
+            bits = *pp++; nn--; objlen--;
+            if (full)
+              full--;
+            else 
+              {
+                bits &= ~mask;
+                mask = 0; 
+              }
+          }
+        if ((bits & 0x80)) /* ASN.1 bit 0. */
+          aodf->pinflags.case_sensitive = 1;
+        if ((bits & 0x40)) /* ASN.1 bit 1. */
+          aodf->pinflags.local = 1;
+        if ((bits & 0x20)) 
+          aodf->pinflags.change_disabled = 1;
+        if ((bits & 0x10)) 
+          aodf->pinflags.unblock_disabled = 1;
+        if ((bits & 0x08)) 
+          aodf->pinflags.initialized = 1;
+        if ((bits & 0x04)) 
+          aodf->pinflags.needs_padding = 1;
+        if ((bits & 0x02)) 
+          aodf->pinflags.unblocking_pin = 1;
+        if ((bits & 0x01)) 
+          aodf->pinflags.so_pin = 1;
+        /* The second octet. */
+        bits = 0;
+        if (objlen)
+          {
+            bits = *pp++; nn--; objlen--;
+            if (full)
+              full--;
+            else 
+              {
+                bits &= ~mask;
+                mask = 0; 
+              }
+          }
+        if ((bits & 0x80)) 
+          aodf->pinflags.disable_allowed = 1;
+        if ((bits & 0x40)) 
+          aodf->pinflags.integrity_protected = 1;
+        if ((bits & 0x20)) 
+          aodf->pinflags.confidentiality_protected = 1;
+        if ((bits & 0x10)) 
+          aodf->pinflags.exchange_ref_data = 1;
+        /* Skip remaining bits. */
+        pp += objlen;
+        nn -= objlen;
+      }
+
+
+      /* PinType */
+      where = __LINE__;
+      err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
+                              &ndef, &objlen, &hdrlen);
+      if (!err && (objlen > nn
+                   || class != CLASS_UNIVERSAL || tag != TAG_ENUMERATED))
+        err = gpg_error (GPG_ERR_INV_OBJ);
+      if (!err && (objlen > sizeof (pin_type_t) || objlen > sizeof (ul)))
+        err = gpg_error (GPG_ERR_UNSUPPORTED_ENCODING);
+      if (err)
+        goto parse_error;
+
+      for (ul=0; objlen; objlen--)
+        {
+          ul <<= 8;
+          ul |= (*pp++) & 0xff; 
+          nn--;
+        }
+      aodf->pintype = ul;
+
+
+      /* minLength */
+      where = __LINE__;
+      err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
+                              &ndef, &objlen, &hdrlen);
+      if (!err && (objlen > nn
+                   || class != CLASS_UNIVERSAL || tag != TAG_INTEGER))
+        err = gpg_error (GPG_ERR_INV_OBJ);
+      if (!err && objlen > sizeof (ul))
+        err = gpg_error (GPG_ERR_UNSUPPORTED_ENCODING);
+      if (err)
+        goto parse_error;
+      for (ul=0; objlen; objlen--)
+        {
+          ul <<= 8;
+          ul |= (*pp++) & 0xff; 
+          nn--;
+        }
+      aodf->min_length = ul;
+
+
+      /* storedLength */
+      where = __LINE__;
+      err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
+                              &ndef, &objlen, &hdrlen);
+      if (!err && (objlen > nn
+                   || class != CLASS_UNIVERSAL || tag != TAG_INTEGER))
+        err = gpg_error (GPG_ERR_INV_OBJ);
+      if (!err && objlen > sizeof (ul))
+        err = gpg_error (GPG_ERR_UNSUPPORTED_ENCODING);
+      if (err)
+        goto parse_error;
+      for (ul=0; objlen; objlen--)
+        {
+          ul <<= 8;
+          ul |= (*pp++) & 0xff; 
+          nn--;
+        }
+      aodf->stored_length = ul;
+
+      /* optional maxLength */
+      where = __LINE__;
+      err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
+                              &ndef, &objlen, &hdrlen);
+      if (gpg_err_code (err) == GPG_ERR_EOF)
+        goto ready;
+      if (!err && objlen > nn)
+        err = gpg_error (GPG_ERR_INV_OBJ);
+      if (err)
+        goto parse_error;
+      if (class == CLASS_UNIVERSAL && tag == TAG_INTEGER)
+        {
+          if (objlen > sizeof (ul))
+            {
+              err = gpg_error (GPG_ERR_UNSUPPORTED_ENCODING);
+              goto parse_error;
+            }
+          for (ul=0; objlen; objlen--)
+            {
+              ul <<= 8;
+              ul |= (*pp++) & 0xff; 
+              nn--;
+            }
+          aodf->max_length = ul;
+          aodf->max_length_valid = 1;
+          
+          where = __LINE__;
+          err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
+                                  &ndef, &objlen, &hdrlen);
+          if (gpg_err_code (err) == GPG_ERR_EOF)
+            goto ready;
+          if (!err && objlen > nn)
+            err = gpg_error (GPG_ERR_INV_OBJ);
+          if (err)
+            goto parse_error;
+        }
+
+      /* Optional pinReference. */
+      if (class == CLASS_CONTEXT && tag == 0)
+        {
+          if (objlen > sizeof (ul))
+            {
+              err = gpg_error (GPG_ERR_UNSUPPORTED_ENCODING);
+              goto parse_error;
+            }
+          for (ul=0; objlen; objlen--)
+            {
+              ul <<= 8;
+              ul |= (*pp++) & 0xff; 
+              nn--;
+            }
+          aodf->pin_reference = ul;
+          aodf->pin_reference_valid = 1;
+          
+          where = __LINE__;
+          err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
+                                  &ndef, &objlen, &hdrlen);
+          if (gpg_err_code (err) == GPG_ERR_EOF)
+            goto ready;
+          if (!err && objlen > nn)
+            err = gpg_error (GPG_ERR_INV_OBJ);
+          if (err)
+            goto parse_error;
+        }
+
+      /* Optional padChar. */
+      if (class == CLASS_UNIVERSAL && tag == TAG_OCTET_STRING)
+        {
+          if (objlen != 1)
+            {
+              errstr = "padChar is not of size(1)";
+              goto parse_error;
+            }
+          aodf->pad_char = *pp++; nn--;
+          aodf->pad_char_valid = 1;
+          
+          where = __LINE__;
+          err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
+                                  &ndef, &objlen, &hdrlen);
+          if (gpg_err_code (err) == GPG_ERR_EOF)
+            goto ready;
+          if (!err && objlen > nn)
+            err = gpg_error (GPG_ERR_INV_OBJ);
+          if (err)
+            goto parse_error;
+        }
+
+      /* Skip optional lastPinChange. */
+      if (class == CLASS_UNIVERSAL && tag == TAG_GENERALIZED_TIME)
+        {
+          pp += objlen;
+          nn -= objlen;
+          
+          where = __LINE__;
+          err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
+                                  &ndef, &objlen, &hdrlen);
+          if (gpg_err_code (err) == GPG_ERR_EOF)
+            goto ready;
+          if (!err && objlen > nn)
+            err = gpg_error (GPG_ERR_INV_OBJ);
+          if (err)
+            goto parse_error;
+        }
+
+      /* Optional Path object.  */
+      if (class == CLASS_UNIVERSAL || tag == TAG_SEQUENCE)
+        {
+          const unsigned char *ppp = pp;
+          size_t nnn = objlen;
+          
+          pp += objlen;
+          nn -= objlen;
+
+          where = __LINE__;
+          err = parse_ber_header (&ppp, &nnn, &class, &tag, &constructed,
+                                  &ndef, &objlen, &hdrlen);
+          if (!err && objlen > nnn)
+            err = gpg_error (GPG_ERR_INV_OBJ);
+          if (err)
+            goto parse_error;
+
+          /* Make sure that the next element is a non zero FID and of
+             even length (FID are two bytes each). */
+          if (class != CLASS_UNIVERSAL || tag != TAG_OCTET_STRING
+              ||  !objlen || (objlen & 1) )
+            {
+              errstr = "invalid path reference";
+              goto parse_error;
+            }
+
+          aodf->pathlen = objlen/2;
+          aodf->path = xtrymalloc (aodf->pathlen);
+          if (!aodf->path)
+            goto no_core;
+          for (i=0; i < aodf->pathlen; i++, ppp += 2, nnn -= 2)
+            aodf->path[i] = ((ppp[0] << 8) | ppp[1]);
+          
+          if (nnn)
+            {
+              /* An index and length follows. */
+              aodf->have_off = 1;
+              where = __LINE__;
+              err = parse_ber_header (&ppp, &nnn, &class, &tag, &constructed,
+                                      &ndef, &objlen, &hdrlen);
+              if (!err && (objlen > nnn
+                       || class != CLASS_UNIVERSAL || tag != TAG_INTEGER))
+                err = gpg_error (GPG_ERR_INV_OBJ);
+              if (err)
+                goto parse_error;
+              
+              for (ul=0; objlen; objlen--)
+                {
+                  ul <<= 8;
+                  ul |= (*ppp++) & 0xff; 
+                  nnn--;
+                }
+              aodf->off = ul;
+              
+              where = __LINE__;
+              err = parse_ber_header (&ppp, &nnn, &class, &tag, &constructed,
+                                      &ndef, &objlen, &hdrlen);
+              if (!err && (objlen > nnn
+                           || class != CLASS_CONTEXT || tag != 0))
+                err = gpg_error (GPG_ERR_INV_OBJ);
+              if (err)
+                goto parse_error;
+              
+              for (ul=0; objlen; objlen--)
+                {
+                  ul <<= 8;
+                  ul |= (*ppp++) & 0xff; 
+                  nnn--;
+                }
+              aodf->len = ul;
+            }
+        }
+      
+      /* Igonore further objects which might be there due to future
+         extensions of pkcs#15. */
+
+    ready:
+      log_debug ("AODF %04hX: id=", fid);
+      for (i=0; i < aodf->objidlen; i++)
+        log_printf ("%02X", aodf->objid[i]);
+      if (aodf->authid)
+        {
+          log_printf (" authid=");
+          for (i=0; i < aodf->authidlen; i++)
+            log_printf ("%02X", aodf->authid[i]);
+        }
+      log_printf (" flags=");
+      s = "";
+      if (aodf->pinflags.case_sensitive)
+        log_printf ("%scase_sensitive", s), s = ",";
+      if (aodf->pinflags.local)
+        log_printf ("%slocal", s), s = ",";
+      if (aodf->pinflags.change_disabled)
+        log_printf ("%schange_disabled", s), s = ",";
+      if (aodf->pinflags.unblock_disabled)
+        log_printf ("%sunblock_disabled", s), s = ",";
+      if (aodf->pinflags.initialized)
+        log_printf ("%sinitialized", s), s = ",";
+      if (aodf->pinflags.needs_padding)
+        log_printf ("%sneeds_padding", s), s = ",";
+      if (aodf->pinflags.unblocking_pin)
+        log_printf ("%sunblocking_pin", s), s = ",";
+      if (aodf->pinflags.so_pin)
+        log_printf ("%sso_pin", s), s = ",";
+      if (aodf->pinflags.disable_allowed)
+        log_printf ("%sdisable_allowed", s), s = ",";
+      if (aodf->pinflags.integrity_protected)
+        log_printf ("%sintegrity_protected", s), s = ",";
+      if (aodf->pinflags.confidentiality_protected)
+        log_printf ("%sconfidentiality_protected", s), s = ",";
+      if (aodf->pinflags.exchange_ref_data)
+        log_printf ("%sexchange_ref_data", s), s = ",";
+      {
+        char numbuf[50];
+        switch (aodf->pintype)
+          {
+          case PIN_TYPE_BCD: s = "bcd"; break;
+          case PIN_TYPE_ASCII_NUMERIC: s = "ascii-numeric"; break;
+          case PIN_TYPE_UTF8: s = "utf8"; break;
+          case PIN_TYPE_HALF_NIBBLE_BCD: s = "half-nibble-bcd"; break;
+          case PIN_TYPE_ISO9564_1: s = "iso9564-1"; break;
+          default:
+            sprintf (numbuf, "%lu", (unsigned long)aodf->pintype);
+            s = numbuf;
+          }
+        log_printf (" type=%s", s);
+      }
+      log_printf (" min=%lu", aodf->min_length);
+      log_printf (" stored=%lu", aodf->stored_length);
+      if (aodf->max_length_valid)
+        log_printf (" max=%lu", aodf->max_length);
+      if (aodf->pad_char_valid)
+        log_printf (" pad=0x%02x", aodf->pad_char);
+      if (aodf->pin_reference_valid)
+        log_printf (" pinref=0x%02lX", aodf->pin_reference);
+      if (aodf->pathlen)
+        {
+          log_printf (" path=");
+          for (i=0; i < aodf->pathlen; i++)
+            log_printf ("%04hX", aodf->path[i]);
+          if (aodf->have_off)
+            log_printf ("[%lu/%lu]", aodf->off, aodf->len);
+        }
+      log_printf ("\n");
+      
+      /* Put it into the list. */
+      aodf->next = aodflist;
+      aodflist = aodf;
+      aodf = NULL;
+      continue; /* Ready. */
+
+    no_core:
+      err = gpg_error_from_errno (errno);
+      release_aodf_object (aodf);
+      goto leave;
+
+    parse_error:
+      log_error ("error parsing AODF record (%d): %s - skipped\n",
+                 where, errstr? errstr : gpg_strerror (err));
+      err = 0;
+      release_aodf_object (aodf);
+    } /* End looping over all records. */
+
+ leave:
+  xfree (buffer);
+  if (err)
+    release_aodflist (aodflist);
+  else
+    *result = aodflist;
+  return err;
+}
+
+
+
+
+
+/* Read and parse the EF(TokenInfo). 
+
+TokenInfo ::= SEQUENCE {
+    version            INTEGER {v1(0)} (v1,...),
+    serialNumber       OCTET STRING,
     manufacturerID     Label OPTIONAL,
     label              [0] Label OPTIONAL,
     tokenflags                 TokenFlags,
@@ -521,105 +2152,678 @@ TokenFlags ::= BIT STRING {
 
 
  */
+/* static gpg_error_t */
+/* read_ef_tokeninfo (app_t app) */
+/* { */
+/*   unsigned short efid = 0x5032; */
+/*   return 0; */
+/* } */
+
+
+/* Get all the basic information from the pkcs#15 card, check the
+   structure and initialize our local context.  This is used once at
+   application initialization. */
 static gpg_error_t
-read_ef_tokeninfo (app_t app)
+read_p15_info (app_t app)
 {
-  unsigned short efid = 0x5032;
+  gpg_error_t err;
+
+  /* Fixme: We might need to read the tokeninfo to get a non-standard
+     ODF FID.  */
+
+  /* Read the ODF so that we know the location of all directory
+     files. */
+  err = read_ef_odf (app, 0x5031);
+  if (err)
+    return err;
+
+  /* Read certificate information. */
+  assert (!app->app_local->certificate_info);
+  assert (!app->app_local->trusted_certificate_info);
+  assert (!app->app_local->useful_certificate_info);
+  err = read_ef_cdf (app, app->app_local->odf.certificates, 
+                     &app->app_local->certificate_info);
+  if (!err || gpg_err_code (err) == GPG_ERR_NO_DATA)
+    err = read_ef_cdf (app, app->app_local->odf.trusted_certificates, 
+                       &app->app_local->trusted_certificate_info);
+  if (!err || gpg_err_code (err) == GPG_ERR_NO_DATA)
+    err = read_ef_cdf (app, app->app_local->odf.useful_certificates, 
+                       &app->app_local->useful_certificate_info);
+  if (gpg_err_code (err) == GPG_ERR_NO_DATA)
+    err = 0;
+  if (err)
+    return err;
 
+  /* Read information about private keys. */
+  assert (!app->app_local->private_key_info);
+  err = read_ef_prkdf (app, app->app_local->odf.private_keys,
+                       &app->app_local->private_key_info);
+  if (gpg_err_code (err) == GPG_ERR_NO_DATA)
+    err = 0;
+  if (err)
+    return err;
+
+  /* Read information about authentication objects. */
+  assert (!app->app_local->auth_object_info);
+  err = read_ef_aodf (app, app->app_local->odf.auth_objects,
+                      &app->app_local->auth_object_info);
+  if (gpg_err_code (err) == GPG_ERR_NO_DATA)
+    err = 0;
+
+
+  return err;
 }
 
 
-/* Get all the basic information from the pkcs#15 card, check the
-   structure and init our context.  This is used once at application
-   initialization. */
+/* Helper to do_learn_status: Send information about all certificates
+   listed in CERTINFO back.  Use CERTTYPE as type of the
+   certificate. */
 static gpg_error_t
-read_p15_info (app_t app)
+send_certinfo (app_t app, ctrl_t ctrl, const char *certtype,
+               cdf_object_t certinfo)
 {
-  gpg_error_t err;
+  for (; certinfo; certinfo = certinfo->next)
+    {
+      char *buf, *p;
+      int i;
+
+      buf = xtrymalloc (9 + certinfo->objidlen*2 + 1);
+      if (!buf)
+        return gpg_error_from_errno (errno);
+      p = stpcpy (buf, "P15");
+      if (app->app_local->home_df)
+        {
+          sprintf (p, "-%04hX", (app->app_local->home_df & 0xffff));
+          p += 5;
+        }
+      p = stpcpy (p, ".");
+      for (i=0; i < certinfo->objidlen; i++)
+        {
+          sprintf (p, "%02X", certinfo->objid[i]);
+          p += 2;
+        }
+
+      send_status_info (ctrl, "CERTINFO",
+                        certtype, strlen (certtype),
+                        buf, strlen (buf), 
+                        NULL, (size_t)0);
+      xfree (buf);
+    }
+  return 0;
+}
 
-  err = read_ed_odf (app);
+
+/* Get the keygrip of the private key object PRKDF.  On success the
+   keygrip gets returned in the caller provided 41 byte buffer
+   R_GRIPSTR. */
+static gpg_error_t
+keygripstr_from_prkdf (app_t app, prkdf_object_t prkdf, char *r_gripstr)
+{
+  gpg_error_t err;
+  cdf_object_t cdf;
+  unsigned char *der;
+  size_t derlen;
+  ksba_cert_t cert;
+
+  /* FIXME: We should check whether a public key directory file and a
+     matching public key for PRKDF is available.  This should make
+     extraction of the key much easier.  My current test card doesn't
+     have one, so we can only use the fallback solution bu looking for
+     a matching certificate and extract the key from there. */
+
+  /* Look for a matching certificate. A certificate matches if the Id
+     matches the obne of the private key info. */
+  for (cdf = app->app_local->certificate_info; cdf; cdf = cdf->next)
+    if (cdf->objidlen == prkdf->objidlen
+        && !memcmp (cdf->objid, prkdf->objid, prkdf->objidlen))
+      break;
+  if (!cdf)
+    for (cdf = app->app_local->trusted_certificate_info; cdf; cdf = cdf->next)
+      if (cdf->objidlen == prkdf->objidlen
+          && !memcmp (cdf->objid, prkdf->objid, prkdf->objidlen))
+        break;
+  if (!cdf)
+    for (cdf = app->app_local->useful_certificate_info; cdf; cdf = cdf->next)
+      if (cdf->objidlen == prkdf->objidlen
+          && !memcmp (cdf->objid, prkdf->objid, prkdf->objidlen))
+        break;
+  if (!cdf)
+    return gpg_error (GPG_ERR_NOT_FOUND);
+
+  err = readcert_by_cdf (app, cdf, &der, &derlen);
   if (err)
     return err;
 
+  err = ksba_cert_new (&cert);
+  if (!err)
+    err = ksba_cert_init_from_mem (cert, der, derlen);
+  xfree (der);
+  if (!err)
+    err = app_help_get_keygrip_string (cert, r_gripstr);
+  ksba_cert_release (cert);
+
+  return err;
+}
+
+
+
+
+/* Helper to do_learn_status: Send information about all known
+   keypairs back.  FIXME: much code duplication from
+   send_sertinfo(). */
+static gpg_error_t
+send_keypairinfo (app_t app, ctrl_t ctrl, prkdf_object_t keyinfo)
+{
+  gpg_error_t err;
+
+  for (; keyinfo; keyinfo = keyinfo->next)
+    {
+      char gripstr[40+1];
+      char *buf, *p;
+      int i, j;
+
+      buf = xtrymalloc (9 + keyinfo->objidlen*2 + 1);
+      if (!buf)
+        return gpg_error_from_errno (errno);
+      p = stpcpy (buf, "P15");
+      if (app->app_local->home_df)
+        {
+          sprintf (p, "-%04hX", (app->app_local->home_df & 0xffff));
+          p += 5;
+        }
+      p = stpcpy (p, ".");
+      for (i=0; i < keyinfo->objidlen; i++)
+        {
+          sprintf (p, "%02X", keyinfo->objid[i]);
+          p += 2;
+        }
+
+      err = keygripstr_from_prkdf (app, keyinfo, gripstr);
+      if (err)
+        {
+          log_error ("can't get keygrip from ");
+          for (j=0; j < keyinfo->pathlen; j++)
+            log_printf ("%04hX", keyinfo->path[j]);
+          log_printf (": %s\n", gpg_strerror (err));
+        }
+      else
+        {
+          assert (strlen (gripstr) == 40);
+          send_status_info (ctrl, "KEYPAIRINFO",
+                            gripstr, 40,
+                            buf, strlen (buf), 
+                            NULL, (size_t)0);
+        }
+      xfree (buf);
+    }
+  return 0;
+}
+
+
+
+/* This is the handler for the LEARN command.  */
+static int  /* FIXME: change this to gpg_error_t */
+do_learn_status (app_t app, ctrl_t ctrl)
+{
+  gpg_error_t err;
+
+  err = send_certinfo (app, ctrl, "100", app->app_local->certificate_info);
+  if (!err)
+    err = send_certinfo (app, ctrl, "101",
+                         app->app_local->trusted_certificate_info);
+  if (!err)
+    err = send_certinfo (app, ctrl, "102",
+                         app->app_local->useful_certificate_info);
+  if (!err)
+    err = send_keypairinfo (app, ctrl, app->app_local->private_key_info);
+
+  return err;
+}
+
+
+/* Read a certifciate using the information in CDF and return the
+   certificate in a newly llocated buffer R_CERT and its length
+   R_CERTLEN. */
+static gpg_error_t
+readcert_by_cdf (app_t app, cdf_object_t cdf,
+                 unsigned char **r_cert, size_t *r_certlen)
+{
+  gpg_error_t err;
+  unsigned char *buffer = NULL;
+  const unsigned char *p, *save_p;
+  size_t buflen, n;
+  int class, tag, constructed, ndef;
+  size_t totobjlen, objlen, hdrlen;
+  int rootca;
+  int i;
+
+  *r_cert = NULL;
+  *r_certlen = 0;
+
+  /* First check whether it has been cached. */
+  if (cdf->image)
+    {
+      *r_cert = xtrymalloc (cdf->imagelen);
+      if (!*r_cert)
+        return gpg_error_from_errno (errno);
+      memcpy (*r_cert, cdf->image, cdf->imagelen);
+      *r_certlen = cdf->imagelen;
+      return 0;
+    }
+
+  /* Read the entire file.  fixme: This could be optimized by first
+     reading the header to figure out how long the certificate
+     actually is. */
+  err = select_ef_by_path (app, cdf->path, cdf->pathlen);
+  if (err)
+    goto leave;
+
+  err = iso7816_read_binary (app->slot, cdf->off, cdf->len, &buffer, &buflen);
+  if (!err && (!buflen || *buffer == 0xff))
+    err = gpg_error (GPG_ERR_NOT_FOUND);
+  if (err)
+    {
+      log_error ("error reading certificate with Id ");
+      for (i=0; i < cdf->objidlen; i++)
+        log_printf ("%02X", cdf->objid[i]);
+      log_printf (": %s\n", gpg_strerror (err));
+      goto leave;
+    }
+  
+  /* Check whether this is really a certificate.  */
+  p = buffer;
+  n = buflen;
+  err = parse_ber_header (&p, &n, &class, &tag, &constructed,
+                          &ndef, &objlen, &hdrlen);
+  if (err)
+    goto leave;
+
+  if (class == CLASS_UNIVERSAL && tag == TAG_SEQUENCE && constructed)
+    rootca = 0;
+  else if ( class == CLASS_UNIVERSAL && tag == TAG_SET && constructed )
+    rootca = 1;
+  else
+    {
+      err = gpg_error (GPG_ERR_INV_OBJ);
+      goto leave;
+    }
+  totobjlen = objlen + hdrlen;
+  assert (totobjlen <= buflen);
+
+  err = parse_ber_header (&p, &n, &class, &tag, &constructed,
+                          &ndef, &objlen, &hdrlen);
+  if (err)
+    goto leave;
+  
+  if (!rootca
+      && class == CLASS_UNIVERSAL && tag == TAG_OBJECT_ID && !constructed)
+    {
+      /* The certificate seems to be contained in a userCertificate
+         container.  Skip this and assume the following sequence is
+         the certificate. */
+      if (n < objlen)
+        {
+          err = gpg_error (GPG_ERR_INV_OBJ);
+          goto leave;
+        }
+      p += objlen;
+      n -= objlen;
+      save_p = p;
+      err = parse_ber_header (&p, &n, &class, &tag, &constructed,
+                              &ndef, &objlen, &hdrlen);
+      if (err) 
+        goto leave;
+      if ( !(class == CLASS_UNIVERSAL && tag == TAG_SEQUENCE && constructed) )
+        {
+          err = gpg_error (GPG_ERR_INV_OBJ);
+          goto leave;
+        }
+      totobjlen = objlen + hdrlen;
+      assert (save_p + totobjlen <= buffer + buflen);
+      memmove (buffer, save_p, totobjlen);
+    }
+
+  *r_cert = buffer;
+  buffer = NULL;
+  *r_certlen = totobjlen;
+
+  /* Try to cache it. */
+  if (!cdf->image && (cdf->image = xtrymalloc (*r_certlen)))
+    {
+      memcpy (cdf->image, *r_cert, *r_certlen);
+      cdf->imagelen = *r_certlen;
+    }
+
+
+ leave:
+  xfree (buffer);
+  return err;
+}
+
+
+
+/* Handler for the READCERT command.
+
+   Read the certificate with id CERTID (as returned by learn_status in
+   the CERTINFO status lines) and return it in the freshly allocated
+   buffer to be stored at R_CERT and its length at R_CERTLEN.  A error
+   code will be returned on failure and R_CERT and R_CERTLEN will be
+   set to NULL/0. */
+static int /* FIXME: change this to gpg_error_t */
+do_readcert (app_t app, const char *certid,
+             unsigned char **r_cert, size_t *r_certlen)
+{
+  gpg_error_t err;
+  cdf_object_t cdf;
+
+  *r_cert = NULL;
+  *r_certlen = 0;
+  err = cdf_object_from_certid (app, certid, &cdf);
+  if (!err)
+    err =readcert_by_cdf (app, cdf, r_cert, r_certlen);
+  return err;
 }
 
 
-static int
-do_learn_status (APP app, CTRL ctrl)
+
+/* Handler for the PKSIGN command. 
+
+   Create the signature and return the allocated result in OUTDATA.
+   If a PIN is required, the PINCB will be used to ask for the PIN;
+   that callback should return the PIN in an allocated buffer and
+   store that as the 3rd argument.  */
+static int 
+do_sign (app_t app, const char *keyidstr, int hashalgo,
+         int (pincb)(void*, const char *, char **),
+         void *pincb_arg,
+         const void *indata, size_t indatalen,
+         unsigned char **outdata, size_t *outdatalen )
 {
+  static unsigned char sha1_prefix[15] = /* Object ID is 1.3.14.3.2.26 */
+    { 0x30, 0x21, 0x30, 0x09, 0x06, 0x05, 0x2b, 0x0e, 0x03,
+      0x02, 0x1a, 0x05, 0x00, 0x04, 0x14 };
+  static unsigned char rmd160_prefix[15] = /* Object ID is 1.3.36.3.2.1 */
+    { 0x30, 0x21, 0x30, 0x09, 0x06, 0x05, 0x2b, 0x24, 0x03,
+      0x02, 0x01, 0x05, 0x00, 0x04, 0x14 };
+
   gpg_error_t err;
-  char ct_buf[100], id_buf[100];
   int i;
+  unsigned char data[35];   /* Must be large enough for a SHA-1 digest
+                               + the largest OID prefix above. */
+  prkdf_object_t prkdf;    /* The private key object. */
+  aodf_object_t aodf;      /* The associated authentication object. */
+
+  if (!keyidstr || !*keyidstr)
+    return gpg_error (GPG_ERR_INV_VALUE);
+  if (indatalen != 20 && indatalen != 16 && indatalen != 35)
+    return gpg_error (GPG_ERR_INV_VALUE);
+
+  err = prkdf_object_from_keyidstr (app, keyidstr, &prkdf);
+  if (err)
+    return err;
+  if (!prkdf->authid)
+    {
+      log_error ("no authentication object defined for %s\n", keyidstr);
+      /* fixme: we might want to go ahead and do without PIN
+         verification. */
+      return gpg_error (GPG_ERR_UNSUPPORTED_OPERATION);
+    }
+
+  /* Find the authentication object to this private key object. */
+  for (aodf = app->app_local->auth_object_info; aodf; aodf = aodf->next)
+    if (aodf->objidlen == prkdf->authidlen 
+        && !memcmp (aodf->objid, prkdf->authid, prkdf->authidlen))
+      break;
+  if (!aodf)
+    {
+      log_error ("authentication object for %s missing\n", keyidstr);
+      return gpg_error (GPG_ERR_INV_CARD);
+    }
+  if (aodf->authid)
+    {
+      log_error ("PIN verification is protected by an "
+                 "additional authentication token\n");
+      return gpg_error (GPG_ERR_BAD_PIN_METHOD);
+    }
+  if (aodf->pinflags.integrity_protected
+      || aodf->pinflags.confidentiality_protected)
+    {
+      log_error ("PIN verification requires unsupported protecion method\n");
+      return gpg_error (GPG_ERR_BAD_PIN_METHOD);
+    }
+  if (!aodf->stored_length && aodf->pinflags.needs_padding)
+    {
+      log_error ("PIN verification requires padding but no length known\n");
+      return gpg_error (GPG_ERR_INV_CARD);
+    }
 
-  /* Output information about all useful objects. */
-  for (i=0; objlist[i].fid; i++)
+  /* Now that we have all the information available, prepare and run
+     the PIN verification.*/
+  if (1)
     {
-      if (filelist[i].certtype)
+      char *pinvalue;
+      size_t pinvaluelen;
+      const char *errstr;
+      const char *s;
+      
+      err = pincb (pincb_arg, "PIN", &pinvalue);
+      if (err)
+        {
+          log_info ("PIN callback returned error: %s\n", gpg_strerror (err));
+          return err;
+        }
+
+      /* We might need to cope with UTF8 things here.  Not sure how
+         min_length etc. are exactly defined, for now we take them as
+         a plain octet count. */
+
+      if (strlen (pinvalue) < aodf->min_length)
+        {
+          log_error ("PIN is too short; minimum length is %lu\n",
+                     aodf->min_length);         
+          err = gpg_error (GPG_ERR_BAD_PIN);
+        }
+      else if (aodf->stored_length && strlen (pinvalue) > aodf->stored_length)
+        {
+          /* This would otherwise truncate the PIN silently. */
+          log_error ("PIN is too large; maximum length is %lu\n",
+                     aodf->stored_length);
+          err = gpg_error (GPG_ERR_BAD_PIN);
+        }
+      else if (aodf->max_length_valid && strlen (pinvalue) > aodf->max_length)
+        {
+          log_error ("PIN is too large; maximum length is %lu\n",
+                     aodf->max_length);
+          err = gpg_error (GPG_ERR_BAD_PIN);
+        }
+
+      if (err)
         {
-          size_t len;
+          xfree (pinvalue);
+          return err;
+        }
 
-          len = app_help_read_length_of_cert (app->slot,
-                                              filelist[i].fid, NULL);
-          if (len)
+      errstr = NULL;
+      err = 0;
+      switch (aodf->pintype)
+        {
+        case PIN_TYPE_BCD:
+          errstr = "PIN type BCD is not supported"; 
+          break;
+        case PIN_TYPE_ASCII_NUMERIC:
+          for (s=pinvalue; digitp (s); s++)
+            ;
+          if (*s)
             {
-              /* FIXME: We should store the length in the application's
-                 context so that a following readcert does only need to
-                 read that many bytes. */
-              sprintf (ct_buf, "%d", filelist[i].certtype);
-              sprintf (id_buf, "P15-DF01.%04X", filelist[i].fid);
-              send_status_info (ctrl, "CERTINFO",
-                                ct_buf, strlen (ct_buf), 
-                                id_buf, strlen (id_buf), 
-                                NULL, (size_t)0);
+              errstr = "Non-numeric digits found in PIN";
+              err = gpg_error (GPG_ERR_BAD_PIN);
             }
+          break;
+        case PIN_TYPE_UTF8:
+          break;
+        case PIN_TYPE_HALF_NIBBLE_BCD:
+          errstr = "PIN type Half-Nibble-BCD is not supported"; 
+          break;
+        case PIN_TYPE_ISO9564_1:
+          errstr = "PIN type ISO9564-1 is not supported";
+          break;
+        default:
+          errstr = "Unknown PIN type";
+          break;
         }
-      else if (filelist[i].iskeypair)
+      if (errstr)
         {
-          char gripstr[40+1];
+          log_error ("can't verify PIN: %s\n", errstr);
+          xfree (pinvalue);
+          return err? err : gpg_error (GPG_ERR_BAD_PIN_METHOD);
+        }
 
-          err = keygripstr_from_pk_file (app->slot, filelist[i].fid, gripstr);
-          if (err)
-            log_error ("can't get keygrip from FID 0x%04X: %s\n",
-                       filelist[i].fid, gpg_strerror (err));
-          else
+      if (aodf->pinflags.needs_padding)
+        {
+          char *paddedpin;
+
+          paddedpin = xtrymalloc (aodf->stored_length+1);
+          if (!paddedpin)
             {
-              sprintf (id_buf, "P15-DF01.%04X", filelist[i].fid);
-              send_status_info (ctrl, "KEYPAIRINFO",
-                                gripstr, 40, 
-                                id_buf, strlen (id_buf), 
-                                NULL, (size_t)0);
+              err = gpg_error_from_errno (errno);
+              xfree (pinvalue);
+              return err;
             }
+          for (i=0, s=pinvalue; i < aodf->stored_length && *s; i++, s++)
+            paddedpin[i] = *s;
+          /* Not sure what padding char to use if none has been set.
+             For now we use 0x00; maybe a space would be better. */
+          for (; i < aodf->stored_length; i++)
+            paddedpin[i] = aodf->pad_char_valid? aodf->pad_char : 0;
+          paddedpin[i] = 0;
+          pinvaluelen = i;
+          xfree (pinvalue);
+          pinvalue = paddedpin;
+        }
+      else
+        pinvaluelen = strlen (pinvalue);
+
+      err = iso7816_verify (app->slot,
+                            aodf->pin_reference_valid? aodf->pin_reference : 0,
+                            pinvalue, pinvaluelen);
+      xfree (pinvalue);
+      if (err)
+        {
+          log_error ("PIN verification failed: %s\n", gpg_strerror (err));
+          return err;
         }
+      log_debug ("PIN verification succeeded\n");
     }
 
-  return 0;
-}
+  /* Prepare the DER object from INDATA. */
+  if (indatalen == 35)
+    {
+      /* Alright, the caller was so kind to send us an already
+         prepared DER object.  Check that it is what we want and that
+         it matches the hash algorithm. */
+      if (hashalgo == GCRY_MD_SHA1 && !memcmp (indata, sha1_prefix, 15))
+        ;
+      else if (hashalgo == GCRY_MD_RMD160
+               && !memcmp (indata, rmd160_prefix, 15))
+        ;
+      else 
+        return gpg_error (GPG_ERR_UNSUPPORTED_ALGORITHM);
+      memcpy (data, indata, indatalen);
+    }
+  else
+    {
+      /* Need to prepend the prefix. */
+      if (hashalgo == GCRY_MD_SHA1)
+        memcpy (data, sha1_prefix, 15);
+      else if (hashalgo == GCRY_MD_RMD160)
+        memcpy (data, rmd160_prefix, 15);
+      else 
+        return gpg_error (GPG_ERR_UNSUPPORTED_ALGORITHM);
+      memcpy (data+15, indata, indatalen);
+    }
 
+  /* Manage security environment needs to be weaked for certain cards. */
+  if (app->app_local->card_type == CARD_TYPE_TCOS)
+    {
+      /* TCOS creates signatures always using the local key 0.  MSE
+         may not be used. */
+    }
+  else if (app->app_local->card_type == CARD_TYPE_MICARDO)
+    {
+      /* Micardo cards are very special in that they need to restore a
+         security environment using a infomration from a special
+         file. */
+      log_error ("WARNING: support for MICARDO cards is not yet available\n");
+    }
+  else if (prkdf->key_reference_valid)
+    {
+      unsigned char mse[3];
+      
+      mse[0] = 0x84; /* Select asym. key. */
+      mse[1] = 1;
+      mse[2] = prkdf->key_reference;
 
+      err = iso7816_manage_security_env (app->slot, 
+                                         0x41, 0xB6,
+                                         mse, sizeof mse);
+      if (err)
+        {
+          log_error ("MSE failed: %s\n", gpg_strerror (err));
+          return err;
+        }
+    }
 
 
-/* Release all resources.  */
-static void
-do_deinit (app_t app)
-{
-  if (app && app->app_local)
-    {
-      xfree (app->app_local);
-      app->app_local = NULL;
-    }
+  err = iso7816_compute_ds (app->slot, data, 35, outdata, outdatalen);
+  return err;
 }
 
 
+
+
+
+
+
 /* Select the PKCS#15 application on the card in SLOT.  */
-int
-app_select_p15 (APP app)
+gpg_error_t
+app_select_p15 (app_t app)
 {
   static char const aid[] = { 0xA0, 0, 0, 0, 0x63,
                               0x50, 0x4B, 0x43, 0x53, 0x2D, 0x31, 0x35 };
   int slot = app->slot;
   int rc;
+  unsigned short def_home_df = 0;
+  card_type_t card_type = CARD_TYPE_UNKNOWN;
   
   rc = iso7816_select_application (slot, aid, sizeof aid);
+  if (rc)
+    {
+      def_home_df = 0x5015;
+      rc = iso7816_select_file (slot, def_home_df, 1, NULL, NULL);
+    }
+  if (!rc)
+    {
+      /* We need to know the ATR for tweaking some security operations. */
+      unsigned char *atr;
+      size_t atrlen;
+      int i;
+
+      atr = apdu_get_atr (app->slot, &atrlen);
+      if (!atr)
+        rc = gpg_error (GPG_ERR_INV_CARD);
+      else
+        {
+          for (i=0; card_atr_list[i].atrlen; i++)
+            if (card_atr_list[i].atrlen == atrlen
+                && !memcmp (card_atr_list[i].atr, atr, atrlen))
+              {
+                card_type = card_atr_list[i].type;
+                break;
+              }
+          xfree (atr);
+        }
+    }
   if (!rc)
     {
       app->apptype = "P15";
@@ -631,37 +2835,49 @@ app_select_p15 (APP app)
           goto leave;
         }
 
+      /* Set the home DF.  Note that we currently can't do that if the
+         selection via application ID worked.  This will store 0 there
+         instead.  FIXME: We either need to figure the home_df via the
+         DIR file or using the return values from the select file
+         APDU. */
+      app->app_local->home_df = def_home_df;
+
+      /* Store the card type.  FIXME: We might want to put this into
+         the common APP structure. */
+      app->app_local->card_type = card_type;
+
       /* Read basic information and check whether this is a real
          card.  */
       rc = read_p15_info (app);
-      
-      /* Special serial number munging.  We need to do one case here
-         because we need to access the EF(TokenInfo).  */
+      if (rc)
+        goto leave;
+
+      /* Special serial number munging.  We need to check for a German
+         prototype card right here because we need to access to
+         EF(TokenInfo).  We mark such a serial number by the using a
+         prefix of FF0100. */
       if (app->serialnolen == 12
-          && !memcmp (app->serial, "\xD2\x76\0\0\0\0\0\0\0\0\0\0", 12))
+          && !memcmp (app->serialno, "\xD2\x76\0\0\0\0\0\0\0\0\0\0", 12))
         {
           /* This is a German card with a silly serial number.  Try to get
-             the serial number from the EF(TokenInfo). We indicate such a
-             serial number by the using the prefix: "FF0100". */
-          const char *efser = card->p15card->serial_number;
-          char *p;
-          
-          if (!efser)
-            efser = "";
+             the serial number from the EF(TokenInfo). . */
+          unsigned char *p;
+
+          /* FIXME: actually get it from EF(TokenInfo). */
           
-          xfree (*serial);
-          *serial = NULL;
-          p = xtrymalloc (strlen (efser) + 7);
+          p = xtrymalloc (3 + app->serialnolen);
           if (!p)
             rc = gpg_error (gpg_err_code_from_errno (errno));
           else
             {
-              strcpy (p, "FF0100");
-              strcpy (p+6, efser);
-              *serial = p;
+              memcpy (p, "\xff\x01", 3);
+              memcpy (p+3, app->serialno, app->serialnolen);
+              app->serialnolen += 3;
+              xfree (app->serialno);
+              app->serialno = p;
             }
         }
-      else
+      else /* Use standard munging code. */
         rc = app_munge_serialno (app);
 
       app->fnc.deinit = do_deinit;
@@ -672,17 +2888,13 @@ app_select_p15 (APP app)
       app->fnc.genkey = NULL;
       app->fnc.sign = do_sign;
       app->fnc.auth = NULL;
-      app->fnc.decipher = do_decipher;
+      app->fnc.decipher = NULL;
       app->fnc.change_pin = NULL;
       app->fnc.check_pin = NULL;
 
     leave:
       if (rc)
-        {
-          xfree (app->app_local);
-          app->app_local = NULL;
-        }
-      
+        do_deinit (app);
    }
 
   return rc;
index e035e9b..b6d4632 100644 (file)
--- a/scd/app.c
+++ b/scd/app.c
@@ -125,8 +125,8 @@ select_application (ctrl_t ctrl, int slot, const char *name, app_t *r_app)
     rc = app_select_openpgp (app);
   if (rc && is_app_allowed ("nks") && (!name || !strcmp (name, "nks")))
     rc = app_select_nks (app);
-/*   if (rc && is_app_allowed ("p12") && (!name || !strcmp (name, "p12"))) */
-/*     rc = app_select_p12 (app); */
+  if (rc && is_app_allowed ("p15") && (!name || !strcmp (name, "p15")))
+    rc = app_select_p15 (app);
   if (rc && is_app_allowed ("dinsig") && (!name || !strcmp (name, "dinsig")))
     rc = app_select_dinsig (app);
   if (rc && name)
@@ -177,7 +177,7 @@ release_application (app_t app)
    
      FF 00 00 = For serial numbers starting with an FF
      FF 01 00 = Some german p15 cards return an empty serial number so the
-                serial number from the EF(TokeInfo is used instead.
+                serial number from the EF(TokenInfo) is used instead.
      
      All other serial number not starting with FF are used as they are.
 */
index 7d777d8..c8eebaa 100644 (file)
@@ -129,13 +129,6 @@ do_reset (ctrl_t ctrl, int do_close)
 {
   int slot = ctrl->reader_slot;
 
-  if (ctrl->card_ctx)
-    {
-      card_close (ctrl->card_ctx);
-      ctrl->card_ctx = NULL;
-      xfree (ctrl->in_data.value);
-      ctrl->in_data.value = NULL;
-    }
   if (ctrl->app_ctx)
     {
       release_application (ctrl->app_ctx);
@@ -259,8 +252,6 @@ open_card (ctrl_t ctrl, const char *apptype)
 
   if (ctrl->app_ctx)
     return 0; /* Already initialized for one specific application. */
-  if (ctrl->card_ctx)
-    return 0; /* Already initialized using a card context. */
 
   if ( IS_LOCKED (ctrl) )
     return gpg_error (GPG_ERR_LOCKED);
@@ -274,19 +265,6 @@ open_card (ctrl_t ctrl, const char *apptype)
     err = gpg_error (GPG_ERR_CARD);
   else
     err = select_application (ctrl, slot, apptype, &ctrl->app_ctx);
-  if (!ctrl->app_ctx
-      && gpg_err_code (err) != GPG_ERR_CARD_NOT_PRESENT)
-    { 
-      /* No application found - fall back to old mode. */
-      /* Note that we should rework the old code to use the
-         application paradigma too. */
-      /* If an APPTYPE was requested and it is not pkcs#15, we return
-         an error here. */
-      if (apptype && !(!strcmp (apptype, "P15") || !strcmp (apptype, "p15")))
-        err = gpg_error (GPG_ERR_NOT_SUPPORTED);
-      else 
-        err = card_open (&ctrl->card_ctx);
-    }
 
   TEST_CARD_REMOVAL (ctrl, err);
   return map_to_assuan_status (err);
@@ -367,12 +345,10 @@ cmd_serialno (assuan_context_t ctx, char *line)
   if ((rc = open_card (ctrl, *line? line:NULL)))
     return rc;
 
-  if (ctrl->app_ctx)
-    rc = app_get_serial_and_stamp (ctrl->app_ctx, &serial, &stamp);
-  else
-    rc = card_get_serial_and_stamp (ctrl->card_ctx, &serial, &stamp);
+  rc = app_get_serial_and_stamp (ctrl->app_ctx, &serial, &stamp);
   if (rc)
     return map_to_assuan_status (rc);
+
   rc = asprintf (&serial_and_stamp, "%s %lu", serial, (unsigned long)stamp);
   xfree (serial);
   if (rc < 0)
@@ -453,7 +429,6 @@ cmd_learn (assuan_context_t ctx, char *line)
 {
   ctrl_t ctrl = assuan_get_pointer (ctx);
   int rc = 0;
-  int idx;
 
   if ((rc = open_card (ctrl, NULL)))
     return rc;
@@ -467,10 +442,7 @@ cmd_learn (assuan_context_t ctx, char *line)
     char *serial;
     time_t stamp;
 
-    if (ctrl->app_ctx)
-      rc = app_get_serial_and_stamp (ctrl->app_ctx, &serial, &stamp);
-    else
-      rc = card_get_serial_and_stamp (ctrl->card_ctx, &serial, &stamp);
+    rc = app_get_serial_and_stamp (ctrl->app_ctx, &serial, &stamp);
     if (rc)
       return map_to_assuan_status (rc);
     rc = asprintf (&serial_and_stamp, "%s %lu", serial, (unsigned long)stamp);
@@ -506,87 +478,11 @@ cmd_learn (assuan_context_t ctx, char *line)
     free (serial_and_stamp);
   }
 
-  /* If we are using the modern application paradigma, let the
-     application print out its collection of useful status
+  /* Let the application print out its collection of useful status
      information. */
-  if (!rc && ctrl->app_ctx)
+  if (!rc)
     rc = app_write_learn_status (ctrl->app_ctx, ctrl);
 
-  /* Return information about the certificates.  FIXME: Move this into
-     an app-p15.c*/
-  for (idx=0; !rc && !ctrl->app_ctx; idx++)
-    {
-      char *certid;
-      int certtype;
-
-      rc = card_enum_certs (ctrl->card_ctx, idx, &certid, &certtype);
-      if (!rc)
-        {
-          char *buf;
-
-          buf = xtrymalloc (40 + 1 + strlen (certid) + 1);
-          if (!buf)
-            rc = gpg_error (gpg_err_code_from_errno (errno));
-          else
-            {
-              sprintf (buf, "%d %s", certtype, certid);
-              assuan_write_status (ctx, "CERTINFO", buf);
-              xfree (buf);
-            }
-        }
-      xfree (certid);
-    }
-  if (rc == -1)
-    rc = 0;
-
-  /* Return information about the keys. FIXME: Move this into an
-     app-p15.c */
-  for (idx=0; !rc && !ctrl->app_ctx; idx++)
-    {
-      unsigned char keygrip[20];
-      char *keyid;
-      int no_cert = 0;
-
-      rc = card_enum_keypairs (ctrl->card_ctx, idx, keygrip, &keyid);
-      if (gpg_err_code (rc) == GPG_ERR_MISSING_CERT && keyid)
-        {
-          /* This does happen with an incomplete personalized
-             card; i.e. during the time we have stored the key on the
-             card but not stored the certificate; probably becuase it
-             has not yet been received back from the CA.  Note that we
-             must release KEYID in this case. */
-          rc = 0; 
-          no_cert = 1;
-        }
-      if (!rc)
-        {
-          char *buf, *p;
-
-          buf = p = xtrymalloc (40 + 1 + strlen (keyid) + 1);
-          if (!buf)
-            rc = gpg_error (gpg_err_code_from_errno (errno));
-          else
-            {
-              int i;
-              
-              if (no_cert)
-                *p++ = 'X';
-              else
-                {
-                  for (i=0; i < 20; i++, p += 2)
-                    sprintf (p, "%02X", keygrip[i]);
-                }
-              *p++ = ' ';
-              strcpy (p, keyid);
-              assuan_write_status (ctx, "KEYPAIRINFO", buf);
-              xfree (buf);
-            }
-        }
-      xfree (keyid);
-    }
-  if (rc == -1)
-    rc = 0;
-
   TEST_CARD_REMOVAL (ctrl, rc);
   return map_to_assuan_status (rc);
 }
@@ -595,7 +491,7 @@ cmd_learn (assuan_context_t ctx, char *line)
 \f
 /* READCERT <hexified_certid>
 
-   Note, that this function may be even be used on a locked card.
+   Note, that this function may even be used on a locked card.
  */
 static int
 cmd_readcert (assuan_context_t ctx, char *line)
@@ -609,18 +505,9 @@ cmd_readcert (assuan_context_t ctx, char *line)
     return rc;
 
   line = xstrdup (line); /* Need a copy of the line. */
-  if (ctrl->app_ctx)
-    {
-      rc = app_readcert (ctrl->app_ctx, line, &cert, &ncert);
-      if (rc)
-        log_error ("app_readcert failed: %s\n", gpg_strerror (rc));
-    }
-  else
-    {
-      rc = card_read_cert (ctrl->card_ctx, line, &cert, &ncert);
-      if (rc)
-        log_error ("card_read_cert failed: %s\n", gpg_strerror (rc));
-    }
+  rc = app_readcert (ctrl->app_ctx, line, &cert, &ncert);
+  if (rc)
+    log_error ("app_readcert failed: %s\n", gpg_strerror (rc));
   xfree (line);
   line = NULL;
   if (!rc)
@@ -641,7 +528,7 @@ cmd_readcert (assuan_context_t ctx, char *line)
    Return the public key for the given cert or key ID as an standard
    S-Expression.
 
-   Note, that this function may be even be used on a locked card.
+   Note, that this function may even be used on a locked card.
   */
 static int
 cmd_readkey (assuan_context_t ctx, char *line)
@@ -652,44 +539,34 @@ cmd_readkey (assuan_context_t ctx, char *line)
   size_t ncert, n;
   ksba_cert_t kc = NULL;
   ksba_sexp_t p;
+  unsigned char *pk;
+  size_t pklen;
 
   if ((rc = open_card (ctrl, NULL)))
     return rc;
 
   line = xstrdup (line); /* Need a copy of the line. */
-  if (ctrl->app_ctx)
-    {
-      unsigned char *pk;
-      size_t pklen;
-
-      /* If the application supports the READKEY function we use that.
-         Otherwise we use the old way by extracting it from the
-         certificate.  */
-      rc = app_readkey (ctrl->app_ctx, line, &pk, &pklen);
-      if (!rc)
-        { /* Yeah, got that key - send it back.  */
-          rc = assuan_send_data (ctx, pk, pklen);
-          xfree (pk);
-          rc = map_assuan_err (rc);
-          xfree (line);
-          line = NULL;
-          goto leave;
-        }
-
-      if (gpg_err_code (rc) != GPG_ERR_UNSUPPORTED_OPERATION)
-        log_error ("app_readkey failed: %s\n", gpg_strerror (rc));
-      else  
-        {
-          rc = app_readcert (ctrl->app_ctx, line, &cert, &ncert);
-          if (rc)
-            log_error ("app_readcert failed: %s\n", gpg_strerror (rc));
-        }
+  /* If the application supports the READKEY function we use that.
+     Otherwise we use the old way by extracting it from the
+     certificate.  */
+  rc = app_readkey (ctrl->app_ctx, line, &pk, &pklen);
+  if (!rc)
+    { /* Yeah, got that key - send it back.  */
+      rc = assuan_send_data (ctx, pk, pklen);
+      xfree (pk);
+      rc = map_assuan_err (rc);
+      xfree (line);
+      line = NULL;
+      goto leave;
     }
-  else
+
+  if (gpg_err_code (rc) != GPG_ERR_UNSUPPORTED_OPERATION)
+    log_error ("app_readkey failed: %s\n", gpg_strerror (rc));
+  else  
     {
-      rc = card_read_cert (ctrl->card_ctx, line, &cert, &ncert);
+      rc = app_readcert (ctrl->app_ctx, line, &cert, &ncert);
       if (rc)
-        log_error ("card_read_cert failed: %s\n", gpg_strerror (rc));
+        log_error ("app_readcert failed: %s\n", gpg_strerror (rc));
     }
   xfree (line);
   line = NULL;
@@ -786,8 +663,8 @@ pin_cb (void *opaque, const char *info, char **retstr)
   if (rc < 0)
     return gpg_error (gpg_err_code_from_errno (errno));
 
-  /* FIXME: Write an inquire function which returns the result in
-     secure memory */
+  /* Fixme: Write an inquire function which returns the result in
+     secure memory and check all futher handling of the PIN. */
   rc = assuan_inquire (ctx, command, &value, &valuelen, MAXLEN_PIN); 
   free (command);  
   if (rc)
@@ -829,18 +706,12 @@ cmd_pksign (assuan_context_t ctx, char *line)
   if (!keyidstr)
     return ASSUAN_Out_Of_Core;
   
-  if (ctrl->app_ctx)
-    rc = app_sign (ctrl->app_ctx,
-                    keyidstr, GCRY_MD_SHA1,
-                    pin_cb, ctx,
-                    ctrl->in_data.value, ctrl->in_data.valuelen,
-                    &outdata, &outdatalen);
-  else  
-    rc = card_sign (ctrl->card_ctx,
-                    keyidstr, GCRY_MD_SHA1,
-                    pin_cb, ctx,
-                    ctrl->in_data.value, ctrl->in_data.valuelen,
-                    &outdata, &outdatalen);
+  rc = app_sign (ctrl->app_ctx,
+                 keyidstr, GCRY_MD_SHA1,
+                 pin_cb, ctx,
+                 ctrl->in_data.value, ctrl->in_data.valuelen,
+                 &outdata, &outdatalen);
+
   xfree (keyidstr);
   if (rc)
     {
@@ -929,18 +800,12 @@ cmd_pkdecrypt (assuan_context_t ctx, char *line)
   keyidstr = xtrystrdup (line);
   if (!keyidstr)
     return ASSUAN_Out_Of_Core;
-  if (ctrl->app_ctx)
-    rc = app_decipher (ctrl->app_ctx,
-                        keyidstr, 
-                        pin_cb, ctx,
-                        ctrl->in_data.value, ctrl->in_data.valuelen,
-                        &outdata, &outdatalen);
-  else
-    rc = card_decipher (ctrl->card_ctx,
-                        keyidstr, 
-                        pin_cb, ctx,
-                        ctrl->in_data.value, ctrl->in_data.valuelen,
-                        &outdata, &outdatalen);
+  rc = app_decipher (ctrl->app_ctx,
+                     keyidstr, 
+                     pin_cb, ctx,
+                     ctrl->in_data.value, ctrl->in_data.valuelen,
+                     &outdata, &outdatalen);
+
   xfree (keyidstr);
   if (rc)
     {
index 0fefbd9..7b0f31c 100644 (file)
@@ -108,7 +108,6 @@ static ARGPARSE_OPTS opts[] = {
   { oDebugAll, "debug-all"     ,0, "@"},
   { oDebugLevel, "debug-level" ,2, "@"},
   { oDebugWait,"debug-wait",1, "@"},
-  { oDebugSC,  "debug-sc",  1, N_("|N|set OpenSC debug level to N")},
   { oNoDetach, "no-detach" ,0, N_("do not detach from the console")},
   { oLogFile,  "log-file"   ,2, N_("use a log file for the server")},
   { oReaderPort, "reader-port", 2, N_("|N|connect to reader at port N")},
@@ -121,17 +120,14 @@ static ARGPARSE_OPTS opts[] = {
                                     "@"
 #endif
                                          /* end --disable-ccid */},
-  { oDisableOpenSC, "disable-opensc", 0,
-#ifdef HAVE_OPENSC
-                                    N_("do not use the OpenSC layer")
-#else
-                                    "@"
-#endif
-                                         /* end --disable-opensc */},
   { oAllowAdmin, "allow-admin", 0, N_("allow the use of admin card commands")},
   { oDenyAdmin,  "deny-admin",  0, "@" },  
   { oDisableApplication, "disable-application", 2, "@"},
 
+  /* Dummy options to be removed at some point. */
+  { oDebugSC,  "debug-sc",  1, "@" },
+  { oDisableOpenSC, "disable-opensc", 0, "@" },
+
   {0}
 };
 
@@ -156,14 +152,12 @@ static int maybe_setuid = 1;
 static char socket_name[128];
 
 
-#ifndef HAVE_OPENSC
 #ifdef USE_GNU_PTH
 /* Pth wrapper function definitions. */
 GCRY_THREAD_OPTION_PTH_IMPL;
 
 static void *ticker_thread (void *arg);
 #endif /*USE_GNU_PTH*/
-#endif /*!HAVE_OPENSC*/
 
 static const char *
 my_strusage (int level)
@@ -349,7 +343,6 @@ main (int argc, char **argv )
 
   /* Libgcrypt requires us to register the threading model first.
      Note that this will also do the pth_init. */
-#ifndef HAVE_OPENSC
 #ifdef USE_GNU_PTH
   err = gcry_control (GCRYCTL_SET_THREAD_CBS, &gcry_threads_pth);
   if (err)
@@ -358,7 +351,6 @@ main (int argc, char **argv )
                  gpg_strerror (err));
     }
 #endif /*USE_GNU_PTH*/
-#endif /*!HAVE_OPENSC*/
 
   /* Check that the libraries are suitable.  Do it here because
      the option parsing may need services of the library */
@@ -469,7 +461,7 @@ main (int argc, char **argv )
         case oDebugAll: opt.debug = ~0; break;
         case oDebugLevel: debug_level = pargs.r.ret_str; break;
         case oDebugWait: debug_wait = pargs.r.ret_int; break;
-        case oDebugSC: opt.debug_sc = pargs.r.ret_int; break;
+        case oDebugSC: break;
 
         case oOptions:
           /* config files may not be nested (silently ignore them) */
@@ -495,7 +487,7 @@ main (int argc, char **argv )
         case octapiDriver: opt.ctapi_driver = pargs.r.ret_str; break;
         case opcscDriver: opt.pcsc_driver = pargs.r.ret_str; break;
         case oDisableCCID: opt.disable_ccid = 1; break;
-        case oDisableOpenSC: opt.disable_opensc = 1; break;
+        case oDisableOpenSC: break;
 
         case oAllowAdmin: opt.allow_admin = 1; break;
         case oDenyAdmin: opt.allow_admin = 0; break;
@@ -593,9 +585,6 @@ main (int argc, char **argv )
 #ifdef HAVE_LIBUSB
       printf ("disable-ccid:%lu:\n", GC_OPT_FLAG_NONE );
 #endif
-#ifdef HAVE_LIBUSB
-      printf ("disable-opensc:%lu:\n", GC_OPT_FLAG_NONE );
-#endif
       printf ("allow-admin:%lu:\n", GC_OPT_FLAG_NONE );
 
 
@@ -612,7 +601,6 @@ main (int argc, char **argv )
 
   if (pipe_server)
     { /* This is the simple pipe based server */
-#ifndef HAVE_OPENSC
 #ifdef USE_GNU_PTH
       pth_attr_t tattr;
  
@@ -627,7 +615,6 @@ main (int argc, char **argv )
           scd_exit (2);
         }
 #endif /*USE_GNU_PTH*/
-#endif /*!HAVE_OPENSC*/
       scd_command_handler (-1);
     }
   else if (!is_daemon)
@@ -859,7 +846,6 @@ scd_init_default_ctrl (CTRL ctrl)
 }
 
 
-#ifndef HAVE_OPENSC
 #ifdef USE_GNU_PTH
 
 static void
@@ -971,4 +957,3 @@ ticker_thread (void *dummy_arg)
   return NULL;
 }
 #endif /*USE_GNU_PTH*/
-#endif /*!HAVE_OPENSC*/
index c598794..5e49f3a 100644 (file)
@@ -42,7 +42,6 @@
 /* A large struct name "opt" to keep global flags */
 struct {
   unsigned int debug; /* debug flags (DBG_foo_VALUE) */
-  int debug_sc;     /* OpenSC debug level */
   int verbose;      /* verbosity level */
   int quiet;        /* be as quiet as possible */
   int dry_run;      /* don't change any persistent data */
@@ -51,7 +50,6 @@ struct {
   const char *ctapi_driver; /* Library to access the ctAPI. */
   const char *pcsc_driver;  /* Library to access the PC/SC system. */
   const char *reader_port;  /* NULL or reder port to use. */
-  int disable_opensc;  /* Disable the use of the OpenSC framework. */
   int disable_ccid;    /* Disable the use of the internal CCID driver. */
   int allow_admin;     /* Allow the use of admin commands for certain
                           cards. */
@@ -96,7 +94,6 @@ struct server_control_s {
 
 typedef struct server_control_s *CTRL;
 typedef struct server_control_s *ctrl_t;
-typedef struct card_ctx_s *CARD;
 typedef struct app_ctx_s *APP;
 typedef struct app_ctx_s *app_t;
 
@@ -109,27 +106,5 @@ void scd_command_handler (int);
 void send_status_info (CTRL ctrl, const char *keyword, ...);
 void scd_update_reader_status_file (void);
 
-/*-- card.c --*/
-int card_open (CARD *rcard);
-void card_close (CARD card);
-int card_get_serial_and_stamp (CARD card, char **serial, time_t *stamp);
-int card_enum_keypairs (CARD card, int idx,
-                        unsigned char *keygrip,
-                        char **keyid);
-int card_enum_certs (CARD card, int idx, char **certid, int *certtype);
-int card_read_cert (CARD card, const char *certidstr,
-                    unsigned char **cert, size_t *ncert);
-int card_sign (CARD card,
-               const char *keyidstr, int hashalgo,
-               int (pincb)(void*, const char *, char **),
-               void *pincb_arg,
-               const void *indata, size_t indatalen,
-               unsigned char **outdata, size_t *outdatalen );
-int card_decipher (CARD card, const char *keyidstr,
-                   int (pincb)(void*, const char *, char **),
-                   void *pincb_arg,
-                   const void *indata, size_t indatalen,
-                   unsigned char **outdata, size_t *outdatalen);
-
 
 #endif /*SCDAEMON_H*/