scd: Minor and editorial changes to app-sc-hsm.c
[gnupg.git] / scd / app-sc-hsm.c
1 /* app-sc-hsm.c - The SmartCard-HSM card application (www.smartcard-hsm.com).
2  *      Copyright (C) 2005 Free Software Foundation, Inc.
3  *      Copyright (C) 2014 Andreas Schwier <andreas.schwier@cardcontact.de>
4  *
5  * This file is part of GnuPG.
6  *
7  * GnuPG is free software; you can redistribute it and/or modify
8  * it under the terms of the GNU General Public License as published by
9  * the Free Software Foundation; either version 3 of the License, or
10  * (at your option) any later version.
11  *
12  * GnuPG is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15  * GNU General Public License for more details.
16  *
17  * You should have received a copy of the GNU General Public License
18  * along with this program; if not, see <http://www.gnu.org/licenses/>.
19  */
20
21 /*
22    Code in this driver is based on app-p15.c with modifications.
23  */
24
25 #include <config.h>
26 #include <errno.h>
27 #include <stdio.h>
28 #include <stdlib.h>
29 #include <string.h>
30 #include <assert.h>
31 #include <time.h>
32
33 #include "scdaemon.h"
34
35 #include "iso7816.h"
36 #include "app-common.h"
37 #include "tlv.h"
38 #include "apdu.h"
39
40
41 /* The AID of the SmartCard-HSM applet. */
42 static char const sc_hsm_aid[] = { 0xE8, 0x2B, 0x06, 0x01, 0x04, 0x01, 0x81,
43                                    0xC3, 0x1F, 0x02, 0x01  };
44
45
46 /* Special file identifier for SmartCard-HSM */
47 typedef enum
48 {
49     SC_HSM_PRKD_PREFIX = 0xC4,
50     SC_HSM_CD_PREFIX = 0xC8,
51     SC_HSM_DCOD_PREFIX = 0xC9,
52     SC_HSM_CA_PREFIX = 0xCA,
53     SC_HSM_KEY_PREFIX = 0xCC,
54     SC_HSM_EE_PREFIX = 0xCE
55 } fid_prefix_type_t;
56
57
58 /* The key types supported by the SmartCard-HSM */
59 typedef enum
60   {
61     KEY_TYPE_RSA,
62     KEY_TYPE_ECC
63   } key_type_t;
64
65
66 /* A bit array with for the key usage flags from the
67    commonKeyAttributes. */
68 struct keyusage_flags_s
69 {
70     unsigned int encrypt: 1;
71     unsigned int decrypt: 1;
72     unsigned int sign: 1;
73     unsigned int sign_recover: 1;
74     unsigned int wrap: 1;
75     unsigned int unwrap: 1;
76     unsigned int verify: 1;
77     unsigned int verify_recover: 1;
78     unsigned int derive: 1;
79     unsigned int non_repudiation: 1;
80 };
81 typedef struct keyusage_flags_s keyusage_flags_t;
82
83
84
85 /* This is an object to store information about a Certificate
86    Directory File (CDF) in a format suitable for further processing by
87    us. To keep memory management, simple we use a linked list of
88    items; i.e. one such object represents one certificate and the list
89    the entire CDF. */
90 struct cdf_object_s
91 {
92   /* Link to next item when used in a linked list. */
93   struct cdf_object_s *next;
94
95   /* Length and allocated buffer with the Id of this object. */
96   size_t objidlen;
97   unsigned char *objid;
98
99   /* To avoid reading a certificate more than once, we cache it in an
100      allocated memory IMAGE of IMAGELEN. */
101   size_t imagelen;
102   unsigned char *image;
103
104   /* EF containing certificate */
105   unsigned short fid;
106 };
107 typedef struct cdf_object_s *cdf_object_t;
108
109
110
111 /* This is an object to store information about a Private Key
112    Directory File (PrKDF) in a format suitable for further processing
113    by us. To keep memory management, simple we use a linked list of
114    items; i.e. one such object represents one certificate and the list
115    the entire PrKDF. */
116 struct prkdf_object_s
117 {
118   /* Link to next item when used in a linked list. */
119   struct prkdf_object_s *next;
120
121   /* Key type */
122   key_type_t keytype;
123
124   /* Key size in bits or 0 if unknown */
125   size_t keysize;
126
127   /* Length and allocated buffer with the Id of this object. */
128   size_t objidlen;
129   unsigned char *objid;
130
131   /* The key's usage flags. */
132   keyusage_flags_t usageflags;
133
134   /* The keyReference */
135   unsigned char key_reference;
136 };
137 typedef struct prkdf_object_s *prkdf_object_t;
138
139
140
141 /* Context local to this application. */
142 struct app_local_s
143 {
144   /* Information on all certificates. */
145   cdf_object_t certificate_info;
146   /* Information on all trusted certificates. */
147   cdf_object_t trusted_certificate_info;
148   /* Information on all private keys. */
149   prkdf_object_t private_key_info;
150 };
151
152
153
154 /*** Local prototypes.  ***/
155 static gpg_error_t readcert_by_cdf (app_t app, cdf_object_t cdf,
156                                     unsigned char **r_cert, size_t *r_certlen);
157
158
159
160 /* Release the CDF object A  */
161 static void
162 release_cdflist (cdf_object_t a)
163 {
164   while (a)
165     {
166       cdf_object_t tmp = a->next;
167       xfree (a->image);
168       xfree (a->objid);
169       xfree (a);
170       a = tmp;
171     }
172 }
173
174
175
176 /* Release the PrKDF object A.  */
177 static void
178 release_prkdflist (prkdf_object_t a)
179 {
180   while (a)
181     {
182       prkdf_object_t tmp = a->next;
183       xfree (a->objid);
184       xfree (a);
185       a = tmp;
186     }
187 }
188
189
190
191 /* Release all local resources.  */
192 static void
193 do_deinit (app_t app)
194 {
195   if (app && app->app_local)
196     {
197       release_cdflist (app->app_local->certificate_info);
198       release_cdflist (app->app_local->trusted_certificate_info);
199       release_prkdflist (app->app_local->private_key_info);
200       xfree (app->app_local);
201       app->app_local = NULL;
202     }
203 }
204
205
206
207 /* Get the list of EFs from the SmartCard-HSM. On success a dynamically
208  * buffer containing the EF list is returned. The caller is responsible for
209  * freeing the buffer.
210  */
211 static gpg_error_t
212 list_ef (int slot, unsigned char **result, size_t *resultlen)
213 {
214   int sw;
215
216   if (!result || !resultlen)
217     return gpg_error (GPG_ERR_INV_VALUE);
218   *result = NULL;
219   *resultlen = 0;
220
221   sw = apdu_send_le (slot, 1, 0x80, 0x58, 0x00, 0x00, -1, NULL, 65536,
222                      result, resultlen);
223   if (sw != SW_SUCCESS)
224     {
225       /* Make sure that pending buffers are released. */
226       xfree (*result);
227       *result = NULL;
228       *resultlen = 0;
229     }
230   return iso7816_map_sw (sw);
231 }
232
233
234
235 /* Do a select and a read for the file with EFID.  EFID_DESC is a
236    description of the EF to be used with error messages.  On success
237    BUFFER and BUFLEN contain the entire content of the EF.  The caller
238    must free BUFFER only on success. */
239 static gpg_error_t
240 select_and_read_binary (int slot, unsigned short efid, const char *efid_desc,
241                         unsigned char **buffer, size_t *buflen, int maxread)
242 {
243   gpg_error_t err;
244   unsigned char cdata[4];
245   int sw;
246
247   cdata[0] = 0x54;      /* Create ISO 7861-4 odd ins READ BINARY */
248   cdata[1] = 0x02;
249   cdata[2] = 0x00;
250   cdata[3] = 0x00;
251
252   sw = apdu_send_le(slot, 1, 0x00, 0xB1, efid >> 8, efid & 0xFF,
253                     4, cdata, maxread, buffer, buflen);
254
255   if (sw == SW_EOF_REACHED)
256     sw = SW_SUCCESS;
257
258   err = iso7816_map_sw (sw);
259   if (err)
260     {
261       log_error ("error reading %s (0x%04X): %s\n",
262                  efid_desc, efid, gpg_strerror (err));
263       return err;
264     }
265   return 0;
266 }
267
268
269
270 /* Parse a cert Id string (or a key Id string) and return the binary
271    object Id string in a newly allocated buffer stored at R_OBJID and
272    R_OBJIDLEN.  On Error NULL will be stored there and an error code
273    returned. On success caller needs to free the buffer at R_OBJID. */
274 static gpg_error_t
275 parse_certid (const char *certid, unsigned char **r_objid, size_t *r_objidlen)
276 {
277   const char *s;
278   size_t objidlen;
279   unsigned char *objid;
280   int i;
281
282   *r_objid = NULL;
283   *r_objidlen = 0;
284
285   if (strncmp (certid, "HSM.", 4))
286     return gpg_error (GPG_ERR_INV_ID);
287   certid += 4;
288
289   for (s=certid, objidlen=0; hexdigitp (s); s++, objidlen++)
290     ;
291   if (*s || !objidlen || (objidlen%2))
292     return gpg_error (GPG_ERR_INV_ID);
293   objidlen /= 2;
294   objid = xtrymalloc (objidlen);
295   if (!objid)
296     return gpg_error_from_syserror ();
297   for (s=certid, i=0; i < objidlen; i++, s+=2)
298     objid[i] = xtoi_2 (s);
299   *r_objid = objid;
300   *r_objidlen = objidlen;
301   return 0;
302 }
303
304
305
306 /* Find a certificate object by the certificate ID CERTID and store a
307    pointer to it at R_CDF. */
308 static gpg_error_t
309 cdf_object_from_certid (app_t app, const char *certid, cdf_object_t *r_cdf)
310 {
311   gpg_error_t err;
312   size_t objidlen;
313   unsigned char *objid;
314   cdf_object_t cdf;
315
316   err = parse_certid (certid, &objid, &objidlen);
317   if (err)
318     return err;
319
320   for (cdf = app->app_local->certificate_info; cdf; cdf = cdf->next)
321     if (cdf->objidlen == objidlen && !memcmp (cdf->objid, objid, objidlen))
322       break;
323   if (!cdf)
324     for (cdf = app->app_local->trusted_certificate_info; cdf; cdf = cdf->next)
325       if (cdf->objidlen == objidlen && !memcmp (cdf->objid, objid, objidlen))
326         break;
327   xfree (objid);
328   if (!cdf)
329     return gpg_error (GPG_ERR_NOT_FOUND);
330   *r_cdf = cdf;
331   return 0;
332 }
333
334
335
336 /* Find a private key object by the key Id string KEYIDSTR and store a
337    pointer to it at R_PRKDF. */
338 static gpg_error_t
339 prkdf_object_from_keyidstr (app_t app, const char *keyidstr,
340                             prkdf_object_t *r_prkdf)
341 {
342   gpg_error_t err;
343   size_t objidlen;
344   unsigned char *objid;
345   prkdf_object_t prkdf;
346
347   err = parse_certid (keyidstr, &objid, &objidlen);
348   if (err)
349     return err;
350
351   for (prkdf = app->app_local->private_key_info; prkdf; prkdf = prkdf->next)
352     if (prkdf->objidlen == objidlen && !memcmp (prkdf->objid, objid, objidlen))
353       break;
354   xfree (objid);
355   if (!prkdf)
356     return gpg_error (GPG_ERR_NOT_FOUND);
357   *r_prkdf = prkdf;
358   return 0;
359 }
360
361
362
363 /* Parse the BIT STRING with the keyUsageFlags from the
364    CommonKeyAttributes. */
365 static gpg_error_t
366 parse_keyusage_flags (const unsigned char *der, size_t derlen,
367                       keyusage_flags_t *usageflags)
368 {
369   unsigned int bits, mask;
370   int i, unused, full;
371
372   memset (usageflags, 0, sizeof *usageflags);
373   if (!derlen)
374     return gpg_error (GPG_ERR_INV_OBJ);
375
376   unused = *der++; derlen--;
377   if ((!derlen && unused) || unused/8 > derlen)
378     return gpg_error (GPG_ERR_ENCODING_PROBLEM);
379   full = derlen - (unused+7)/8;
380   unused %= 8;
381   mask = 0;
382   for (i=1; unused; i <<= 1, unused--)
383     mask |= i;
384
385   /* First octet */
386   if (derlen)
387     {
388       bits = *der++; derlen--;
389       if (full)
390         full--;
391       else
392         {
393           bits &= ~mask;
394           mask = 0;
395         }
396     }
397   else
398     bits = 0;
399   if ((bits & 0x80)) usageflags->encrypt = 1;
400   if ((bits & 0x40)) usageflags->decrypt = 1;
401   if ((bits & 0x20)) usageflags->sign = 1;
402   if ((bits & 0x10)) usageflags->sign_recover = 1;
403   if ((bits & 0x08)) usageflags->wrap = 1;
404   if ((bits & 0x04)) usageflags->unwrap = 1;
405   if ((bits & 0x02)) usageflags->verify = 1;
406   if ((bits & 0x01)) usageflags->verify_recover = 1;
407
408   /* Second octet. */
409   if (derlen)
410     {
411       bits = *der++; derlen--;
412       if (full)
413         full--;
414       else
415         {
416           bits &= ~mask;
417           mask = 0;
418         }
419     }
420   else
421     bits = 0;
422   if ((bits & 0x80)) usageflags->derive = 1;
423   if ((bits & 0x40)) usageflags->non_repudiation = 1;
424
425   return 0;
426 }
427
428
429
430 /* Read and parse a Private Key Directory File containing a single key
431    description in PKCS#15 format.  For each private key a matching
432    certificate description is created, if the certificate EF exists
433    and contains a X.509 certificate.
434
435    Example data:
436
437 0000  30 2A 30 13 0C 11 4A 6F 65 20 44 6F 65 20 28 52  0*0...Joe Doe (R
438 0010  53 41 32 30 34 38 29 30 07 04 01 01 03 02 02 74  SA2048)0.......t
439 0020  A1 0A 30 08 30 02 04 00 02 02 08 00              ..0.0.......
440
441    Decoded example:
442
443 SEQUENCE SIZE( 42 )
444   SEQUENCE SIZE( 19 )
445     UTF8-STRING SIZE( 17 )                -- label
446       0000  4A 6F 65 20 44 6F 65 20 28 52 53 41 32 30 34 38  Joe Doe (RSA2048
447       0010  29                                               )
448   SEQUENCE SIZE( 7 )
449     OCTET-STRING SIZE( 1 )                -- id
450       0000  01
451     BIT-STRING SIZE( 2 )                  -- key usage
452       0000  02 74
453   A1 [ CONTEXT 1 ] IMPLICIT SEQUENCE SIZE( 10 )
454     SEQUENCE SIZE( 8 )
455       SEQUENCE SIZE( 2 )
456         OCTET-STRING SIZE( 0 )            -- empty path, req object in PKCS#15
457       INTEGER SIZE( 2 )                   -- modulus size in bits
458         0000  08 00
459 */
460 static gpg_error_t
461 read_ef_prkd (app_t app, unsigned short fid, prkdf_object_t *prkdresult,
462               cdf_object_t *cdresult)
463 {
464 #warning  function not yet audited
465   gpg_error_t err;
466   unsigned char *buffer = NULL;
467   size_t buflen;
468   const unsigned char *p;
469   size_t n, objlen, hdrlen;
470   int class, tag, constructed, ndef;
471   int i;
472   const unsigned char *pp;
473   size_t nn;
474   int where;
475   const char *errstr = NULL;
476   prkdf_object_t prkdf = NULL;
477   cdf_object_t cdf = NULL;
478   unsigned long ul;
479   const unsigned char *objid;
480   size_t objidlen;
481   keyusage_flags_t usageflags;
482   const char *s;
483   key_type_t keytype;
484   size_t keysize;
485
486   if (!fid)
487     return gpg_error (GPG_ERR_NO_DATA); /* No private keys. */
488
489   err = select_and_read_binary (app->slot, fid, "PrKDF", &buffer, &buflen, 255);
490   if (err)
491     return err;
492
493   p = buffer;
494   n = buflen;
495
496   err = parse_ber_header (&p, &n, &class, &tag, &constructed,
497       &ndef, &objlen, &hdrlen);
498   if (!err && (objlen > n || (tag != TAG_SEQUENCE && tag != 0x00)))
499     err = gpg_error (GPG_ERR_INV_OBJ);
500   if (err)
501     {
502       log_error ("error parsing PrKDF record: %s\n", gpg_strerror (err));
503       goto leave;
504     }
505
506   keytype = tag == 0x00 ? KEY_TYPE_ECC : KEY_TYPE_RSA;
507
508   pp = p;
509   nn = objlen;
510   p += objlen;
511   n -= objlen;
512
513   /* Parse the commonObjectAttributes.  */
514   where = __LINE__;
515   err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
516       &ndef, &objlen, &hdrlen);
517   if (!err && (objlen > nn || tag != TAG_SEQUENCE))
518     err = gpg_error (GPG_ERR_INV_OBJ);
519   if (err)
520     goto parse_error;
521   {
522       const unsigned char *ppp = pp;
523       size_t nnn = objlen;
524
525       pp += objlen;
526       nn -= objlen;
527
528       /* Search the optional AuthId.  We need to skip the optional
529            Label (UTF8STRING) and the optional CommonObjectFlags
530            (BITSTRING). */
531       where = __LINE__;
532       err = parse_ber_header (&ppp, &nnn, &class, &tag, &constructed,
533           &ndef, &objlen, &hdrlen);
534       if (!err && (objlen > nnn || class != CLASS_UNIVERSAL))
535         err = gpg_error (GPG_ERR_INV_OBJ);
536       if (gpg_err_code (err) == GPG_ERR_EOF)
537         goto no_authid;
538       if (err)
539         goto parse_error;
540       if (tag == TAG_UTF8_STRING)
541         {
542           ppp += objlen; /* Skip the Label. */
543           nnn -= objlen;
544
545           where = __LINE__;
546           err = parse_ber_header (&ppp, &nnn, &class, &tag, &constructed,
547               &ndef, &objlen, &hdrlen);
548           if (!err && (objlen > nnn || class != CLASS_UNIVERSAL))
549             err = gpg_error (GPG_ERR_INV_OBJ);
550           if (gpg_err_code (err) == GPG_ERR_EOF)
551             goto no_authid;
552           if (err)
553             goto parse_error;
554         }
555       if (tag == TAG_BIT_STRING)
556         {
557           ppp += objlen; /* Skip the CommonObjectFlags.  */
558           nnn -= objlen;
559
560           where = __LINE__;
561           err = parse_ber_header (&ppp, &nnn, &class, &tag, &constructed,
562               &ndef, &objlen, &hdrlen);
563           if (!err && (objlen > nnn || class != CLASS_UNIVERSAL))
564             err = gpg_error (GPG_ERR_INV_OBJ);
565           if (gpg_err_code (err) == GPG_ERR_EOF)
566             goto no_authid;
567           if (err)
568             goto parse_error;
569         }
570       if (tag == TAG_OCTET_STRING && objlen)
571         {
572           /* AuthId ignored */
573         }
574       no_authid:
575       ;
576   }
577
578   /* Parse the commonKeyAttributes.  */
579   where = __LINE__;
580   err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
581       &ndef, &objlen, &hdrlen);
582   if (!err && (objlen > nn || tag != TAG_SEQUENCE))
583     err = gpg_error (GPG_ERR_INV_OBJ);
584   if (err)
585     goto parse_error;
586   {
587       const unsigned char *ppp = pp;
588       size_t nnn = objlen;
589
590       pp += objlen;
591       nn -= objlen;
592
593       /* Get the Id. */
594       where = __LINE__;
595       err = parse_ber_header (&ppp, &nnn, &class, &tag, &constructed,
596           &ndef, &objlen, &hdrlen);
597       if (!err && (objlen > nnn
598           || class != CLASS_UNIVERSAL || tag != TAG_OCTET_STRING))
599         err = gpg_error (GPG_ERR_INV_OBJ);
600       if (err)
601         goto parse_error;
602       objid = ppp;
603       objidlen = objlen;
604       ppp += objlen;
605       nnn -= objlen;
606
607       /* Get the KeyUsageFlags. */
608       where = __LINE__;
609       err = parse_ber_header (&ppp, &nnn, &class, &tag, &constructed,
610           &ndef, &objlen, &hdrlen);
611       if (!err && (objlen > nnn
612           || class != CLASS_UNIVERSAL || tag != TAG_BIT_STRING))
613         err = gpg_error (GPG_ERR_INV_OBJ);
614       if (err)
615         goto parse_error;
616       err = parse_keyusage_flags (ppp, objlen, &usageflags);
617       if (err)
618         goto parse_error;
619       ppp += objlen;
620       nnn -= objlen;
621
622       /* Find the keyReference */
623       where = __LINE__;
624       err = parse_ber_header (&ppp, &nnn, &class, &tag, &constructed,
625           &ndef, &objlen, &hdrlen);
626       if (gpg_err_code (err) == GPG_ERR_EOF)
627         goto leave_cki;
628       if (!err && objlen > nnn)
629         err = gpg_error (GPG_ERR_INV_OBJ);
630       if (err)
631         goto parse_error;
632       if (class == CLASS_UNIVERSAL && tag == TAG_BOOLEAN)
633         {
634           /* Skip the native element. */
635           ppp += objlen;
636           nnn -= objlen;
637
638           err = parse_ber_header (&ppp, &nnn, &class, &tag, &constructed,
639               &ndef, &objlen, &hdrlen);
640           if (gpg_err_code (err) == GPG_ERR_EOF)
641             goto leave_cki;
642           if (!err && objlen > nnn)
643             err = gpg_error (GPG_ERR_INV_OBJ);
644           if (err)
645             goto parse_error;
646         }
647       if (class == CLASS_UNIVERSAL && tag == TAG_BIT_STRING)
648         {
649           /* Skip the accessFlags. */
650           ppp += objlen;
651           nnn -= objlen;
652
653           err = parse_ber_header (&ppp, &nnn, &class, &tag, &constructed,
654               &ndef, &objlen, &hdrlen);
655           if (gpg_err_code (err) == GPG_ERR_EOF)
656             goto leave_cki;
657           if (!err && objlen > nnn)
658             err = gpg_error (GPG_ERR_INV_OBJ);
659           if (err)
660             goto parse_error;
661         }
662       if (class == CLASS_UNIVERSAL && tag == TAG_INTEGER)
663         {
664           /* Yep, this is the keyReference.  */
665           for (ul=0; objlen; objlen--)
666             {
667               ul <<= 8;
668               ul |= (*ppp++) & 0xff;
669               nnn--;
670             }
671         }
672
673       leave_cki:
674       ;
675   }
676
677
678   /* Skip subClassAttributes.  */
679   where = __LINE__;
680   err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
681       &ndef, &objlen, &hdrlen);
682   if (!err && objlen > nn)
683     err = gpg_error (GPG_ERR_INV_OBJ);
684   if (err)
685     goto parse_error;
686   if (class == CLASS_CONTEXT && tag == 0)
687     {
688       pp += objlen;
689       nn -= objlen;
690
691       where = __LINE__;
692       err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
693           &ndef, &objlen, &hdrlen);
694     }
695   /* Parse the keyAttributes.  */
696   if (!err && (objlen > nn || class != CLASS_CONTEXT || tag != 1))
697     err = gpg_error (GPG_ERR_INV_OBJ);
698   if (err)
699     goto parse_error;
700   nn = objlen;
701
702   where = __LINE__;
703   err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
704       &ndef, &objlen, &hdrlen);
705   if (!err && objlen > nn)
706     err = gpg_error (GPG_ERR_INV_OBJ);
707   if (err)
708     goto parse_error;
709
710   nn = objlen;
711
712   /* Check that the reference is a Path object.  */
713   where = __LINE__;
714   err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
715       &ndef, &objlen, &hdrlen);
716   if (!err && objlen > nn)
717     err = gpg_error (GPG_ERR_INV_OBJ);
718   if (err)
719     goto parse_error;
720   if (class != CLASS_UNIVERSAL || tag != TAG_SEQUENCE)
721     {
722       errstr = "unsupported reference type";
723       goto parse_error;
724     }
725
726   pp += objlen;
727   nn -= objlen;
728
729   /* Parse the key size object. */
730   where = __LINE__;
731   err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
732       &ndef, &objlen, &hdrlen);
733   if (!err && objlen > nn)
734     err = gpg_error (GPG_ERR_INV_OBJ);
735   if (err)
736     goto parse_error;
737   keysize = 0;
738   if (class == CLASS_UNIVERSAL && tag == TAG_INTEGER && objlen == 2)
739     {
740       keysize  = *pp++ << 8;
741       keysize += *pp++;
742     }
743
744
745   /* Create a new PrKDF list item. */
746   prkdf = xtrycalloc (1, sizeof *prkdf);
747   if (!prkdf)
748     {
749       err = gpg_error_from_syserror ();
750       goto leave;
751     }
752   prkdf->keytype = keytype;
753   prkdf->keysize = keysize;
754   prkdf->objidlen = objidlen;
755   prkdf->objid = xtrymalloc (objidlen);
756   if (!prkdf->objid)
757     {
758       err = gpg_error_from_syserror ();
759       xfree (prkdf);
760       goto leave;
761     }
762   memcpy (prkdf->objid, objid, objidlen);
763
764   prkdf->usageflags = usageflags;
765   prkdf->key_reference = fid & 0xFF;
766
767   log_debug ("PrKDF %04hX: id=", fid);
768   for (i=0; i < prkdf->objidlen; i++)
769     log_printf ("%02X", prkdf->objid[i]);
770   log_printf (" keyref=0x%02X", prkdf->key_reference);
771   log_printf (" keysize=%u", (unsigned int)prkdf->keysize);
772   log_printf (" usage=");
773   s = "";
774   if (prkdf->usageflags.encrypt) log_printf ("%sencrypt", s), s = ",";
775   if (prkdf->usageflags.decrypt) log_printf ("%sdecrypt", s), s = ",";
776   if (prkdf->usageflags.sign   ) log_printf ("%ssign", s), s = ",";
777   if (prkdf->usageflags.sign_recover)
778     log_printf ("%ssign_recover", s), s = ",";
779   if (prkdf->usageflags.wrap   ) log_printf ("%swrap", s), s = ",";
780   if (prkdf->usageflags.unwrap ) log_printf ("%sunwrap", s), s = ",";
781   if (prkdf->usageflags.verify ) log_printf ("%sverify", s), s = ",";
782   if (prkdf->usageflags.verify_recover)
783     log_printf ("%sverify_recover", s), s = ",";
784   if (prkdf->usageflags.derive ) log_printf ("%sderive", s), s = ",";
785   if (prkdf->usageflags.non_repudiation)
786     log_printf ("%snon_repudiation", s), s = ",";
787   log_printf ("\n");
788
789   xfree (buffer);
790   buffer = NULL;
791   buflen = 0;
792   err = select_and_read_binary (app->slot,
793         (SC_HSM_EE_PREFIX << 8) | (fid & 0xFF), "CertEF", &buffer, &buflen, 1);
794
795   if (!err && buffer[0] == 0x30)
796     {
797       /* Create a matching CDF list item. */
798       cdf = xtrycalloc (1, sizeof *cdf);
799       if (!cdf)
800         {
801           err = gpg_error_from_syserror ();
802           goto leave;
803         }
804       cdf->objidlen = prkdf->objidlen;
805       cdf->objid = xtrymalloc (cdf->objidlen);
806       if (!cdf->objid)
807         {
808           err = gpg_error_from_syserror ();
809           xfree (cdf);
810           goto leave;
811         }
812       memcpy (cdf->objid, prkdf->objid, objidlen);
813
814       cdf->fid = (SC_HSM_EE_PREFIX << 8) | (fid & 0xFF);
815
816       log_debug ("CDF %04hX: id=", fid);
817       for (i=0; i < cdf->objidlen; i++)
818         log_printf ("%02X", cdf->objid[i]);
819       log_printf (" fid=%04X\n", cdf->fid);
820     }
821   goto leave; /* Ready. */
822
823   parse_error:
824   log_error ("error parsing PrKDF record (%d): %s - skipped\n",
825       where, errstr? errstr : gpg_strerror (err));
826   err = 0;
827
828   leave:
829   xfree (buffer);
830   if (err)
831     {
832       if (prkdf)
833         {
834           if (prkdf->objid)
835             xfree (prkdf->objid);
836           xfree (prkdf);
837         }
838       if (cdf)
839         {
840           if (cdf->objid)
841             xfree (cdf->objid);
842           xfree (cdf);
843         }
844     } else {
845         prkdf->next = *prkdresult;
846         *prkdresult = prkdf;
847         if (cdf)
848           {
849             cdf->next = *cdresult;
850             *cdresult = cdf;
851           }
852     }
853   return err;
854 }
855
856
857
858 /* Read and parse the Certificate Description File identified by FID.
859    On success a the CDF list gets stored at RESULT and the caller is
860    then responsible of releasing the object.
861
862    Example data:
863
864 0000  30 35 30 11 0C 0B 43 65 72 74 69 66 69 63 61 74  050...Certificat
865 0010  65 03 02 06 40 30 16 04 14 C2 01 7C 2F BA A4 4A  e...@0.....|/..J
866 0020  4A BB B8 49 11 DB 4A CA AA 7E 6A 2D 1B A1 08 30  J..I..J..~j-...0
867 0030  06 30 04 04 02 CA 00                             .0.....
868
869    Decoded example:
870
871 SEQUENCE SIZE( 53 )
872   SEQUENCE SIZE( 17 )
873     UTF8-STRING SIZE( 11 )                      -- label
874       0000  43 65 72 74 69 66 69 63 61 74 65                 Certificate
875     BIT-STRING SIZE( 2 )                        -- common object attributes
876       0000  06 40
877   SEQUENCE SIZE( 22 )
878     OCTET-STRING SIZE( 20 )                     -- id
879       0000  C2 01 7C 2F BA A4 4A 4A BB B8 49 11 DB 4A CA AA
880       0010  7E 6A 2D 1B
881   A1 [ CONTEXT 1 ] IMPLICIT SEQUENCE SIZE( 8 )
882     SEQUENCE SIZE( 6 )
883       SEQUENCE SIZE( 4 )
884         OCTET-STRING SIZE( 2 )                  -- path
885           0000  CA 00                                            ..
886  */
887 static gpg_error_t
888 read_ef_cd (app_t app, unsigned short fid, cdf_object_t *result)
889 {
890 #warning needs an audit
891   gpg_error_t err;
892   unsigned char *buffer = NULL;
893   size_t buflen;
894   const unsigned char *p;
895   size_t n, objlen, hdrlen;
896   int class, tag, constructed, ndef;
897   int i;
898   const unsigned char *pp;
899   size_t nn;
900   int where;
901   const char *errstr = NULL;
902   cdf_object_t cdf = NULL;
903   const unsigned char *objid;
904   size_t objidlen;
905
906   if (!fid)
907     return gpg_error (GPG_ERR_NO_DATA); /* No certificates. */
908
909   err = select_and_read_binary (app->slot, fid, "CDF", &buffer, &buflen, 255);
910   if (err)
911     return err;
912
913   p = buffer;
914   n = buflen;
915
916   err = parse_ber_header (&p, &n, &class, &tag, &constructed,
917       &ndef, &objlen, &hdrlen);
918   if (!err && (objlen > n || tag != TAG_SEQUENCE))
919     err = gpg_error (GPG_ERR_INV_OBJ);
920   if (err)
921     {
922       log_error ("error parsing CDF record: %s\n", gpg_strerror (err));
923       goto leave;
924     }
925   pp = p;
926   nn = objlen;
927   p += objlen;
928   n -= objlen;
929
930   /* Skip the commonObjectAttributes.  */
931   where = __LINE__;
932   err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
933       &ndef, &objlen, &hdrlen);
934   if (!err && (objlen > nn || tag != TAG_SEQUENCE))
935     err = gpg_error (GPG_ERR_INV_OBJ);
936   if (err)
937     goto parse_error;
938   pp += objlen;
939   nn -= objlen;
940
941   /* Parse the commonCertificateAttributes.  */
942   where = __LINE__;
943   err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
944       &ndef, &objlen, &hdrlen);
945   if (!err && (objlen > nn || tag != TAG_SEQUENCE))
946     err = gpg_error (GPG_ERR_INV_OBJ);
947   if (err)
948     goto parse_error;
949   {
950       const unsigned char *ppp = pp;
951       size_t nnn = objlen;
952
953       pp += objlen;
954       nn -= objlen;
955
956       /* Get the Id. */
957       where = __LINE__;
958       err = parse_ber_header (&ppp, &nnn, &class, &tag, &constructed,
959           &ndef, &objlen, &hdrlen);
960       if (!err && (objlen > nnn
961           || class != CLASS_UNIVERSAL || tag != TAG_OCTET_STRING))
962         err = gpg_error (GPG_ERR_INV_OBJ);
963       if (err)
964         goto parse_error;
965       objid = ppp;
966       objidlen = objlen;
967   }
968
969   /* Parse the certAttribute.  */
970   where = __LINE__;
971   err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
972       &ndef, &objlen, &hdrlen);
973   if (!err && (objlen > nn || class != CLASS_CONTEXT || tag != 1))
974     err = gpg_error (GPG_ERR_INV_OBJ);
975   if (err)
976     goto parse_error;
977   nn = objlen;
978
979   where = __LINE__;
980   err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
981       &ndef, &objlen, &hdrlen);
982   if (!err && (objlen > nn
983       || class != CLASS_UNIVERSAL || tag != TAG_SEQUENCE))
984     err = gpg_error (GPG_ERR_INV_OBJ);
985   if (err)
986     goto parse_error;
987   nn = objlen;
988
989   /* Check that the reference is a Path object.  */
990   where = __LINE__;
991   err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
992       &ndef, &objlen, &hdrlen);
993   if (!err && objlen > nn)
994     err = gpg_error (GPG_ERR_INV_OBJ);
995   if (err)
996     goto parse_error;
997   if (class != CLASS_UNIVERSAL || tag != TAG_SEQUENCE)
998     {
999       err = gpg_error (GPG_ERR_INV_OBJ);
1000       goto parse_error;
1001     }
1002   nn = objlen;
1003
1004   /* Parse the Path object. */
1005   where = __LINE__;
1006   err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
1007       &ndef, &objlen, &hdrlen);
1008   if (!err && objlen > nn)
1009     err = gpg_error (GPG_ERR_INV_OBJ);
1010   if (err)
1011     goto parse_error;
1012
1013   /* Make sure that the next element is a non zero path and of
1014          even length (FID are two bytes each). */
1015   if (class != CLASS_UNIVERSAL || tag != TAG_OCTET_STRING
1016       || (objlen & 1) )
1017     {
1018       errstr = "invalid path reference";
1019       goto parse_error;
1020     }
1021   /* Create a new CDF list item. */
1022   cdf = xtrycalloc (1, sizeof *cdf);
1023   if (!cdf)
1024     {
1025       err = gpg_error_from_syserror ();
1026       goto leave;
1027     }
1028   cdf->objidlen = objidlen;
1029   cdf->objid = xtrymalloc (objidlen);
1030   if (!cdf->objid)
1031     {
1032       err = gpg_error_from_syserror ();
1033       xfree (cdf);
1034       goto leave;
1035     }
1036   memcpy (cdf->objid, objid, objidlen);
1037
1038   cdf->fid = (SC_HSM_CA_PREFIX << 8) | (fid & 0xFF);
1039
1040   log_debug ("CDF %04hX: id=", fid);
1041   for (i=0; i < cdf->objidlen; i++)
1042     log_printf ("%02X", cdf->objid[i]);
1043
1044   goto leave;
1045
1046   parse_error:
1047   log_error ("error parsing CDF record (%d): %s - skipped\n",
1048       where, errstr? errstr : gpg_strerror (err));
1049   err = 0;
1050
1051   leave:
1052   xfree (buffer);
1053   if (err)
1054     {
1055       if (cdf)
1056         {
1057           if (cdf->objid)
1058             xfree (cdf->objid);
1059           xfree (cdf);
1060         }
1061     }
1062   else
1063     {
1064       cdf->next = *result;
1065       *result = cdf;
1066     }
1067   return err;
1068 }
1069
1070
1071
1072 /* Read the device certificate and extract the serial number.
1073
1074    EF.C_DevAut (2F02) contains two CVCs, the first is the device
1075    certificate, the second is the issuer certificate.
1076
1077    Example data:
1078
1079 0000  7F 21 81 E2 7F 4E 81 9B 5F 29 01 00 42 0B 55 54  .!...N.._)..B.UT
1080 0010  43 43 30 32 30 30 30 30 32 7F 49 4F 06 0A 04 00  CC0200002.IO....
1081 0020  7F 00 07 02 02 02 02 03 86 41 04 6D FF D6 85 57  .........A.m...W
1082 0030  40 FB 10 5D 94 71 8A 94 D2 5E 50 33 E7 1E C0 6C  @..].q...^P3...l
1083 0040  63 D5 C8 FC BA F3 02 1D 70 23 F6 47 E8 35 48 EF  c.......p#.G.5H.
1084 0050  B5 94 72 3C 6F BE C0 EB 9A C7 FB 06 59 26 CF 65  ..r<o.......Y&.e
1085 0060  EF A1 72 E0 98 F3 F0 44 1B B7 71 5F 20 10 55 54  ..r....D..q_ .UT
1086 0070  43 43 30 32 30 30 30 31 33 30 30 30 30 30 7F 4C  CC020001300000.L
1087 0080  10 06 0B 2B 06 01 04 01 81 C3 1F 03 01 01 53 01  ...+..........S.
1088 0090  00 5F 25 06 01 04 00 07 01 01 5F 24 06 02 01 00  ._%......._$....
1089 00A0  03 02 07 5F 37 40 7F 73 04 3B 06 63 79 41 BE 1A  ..._7@.s.;.cyA..
1090 00B0  9F FC F6 77 67 2B 8A 41 D1 11 F6 9B 54 44 AD 19  ...wg+.A....TD..
1091 00C0  FB B8 0C C6 2F 34 71 8E 4F F6 92 59 34 61 D9 4F  ..../4q.O..Y4a.O
1092 00D0  4A 86 36 A8 D8 9A C6 3C 17 7E 71 CE A8 26 D0 C5  J.6....<.~q..&..
1093 00E0  25 61 78 9D 01 F8 7F 21 81 E0 7F 4E 81 99 5F 29  %ax....!...N.._)
1094 00F0  01 00 42 0E 55 54 53 52 43 41 43 43 31 30 30 30  ..B.UTSRCACC1000
1095 0100  30 31 7F 49 4F 06 0A 04 00 7F 00 07 02 02 02 02  01.IO...........
1096 0110  03 86 41 04 2F EA 33 47 7F 45 81 E2 FC CB 66 87  ..A./.3G.E....f.
1097 0120  4B 96 21 1D 68 81 73 F2 9F 8F 6B 91 F0 DE 4B 54  K.!.h.s...k...KT
1098 0130  8E D8 F0 82 3D CB BE 10 98 A3 1E 4F F0 72 5C E5  ....=......O.r\.
1099 0140  7B 1E F7 3C 68 09 03 E8 A0 3F 3E 06 C1 B0 3C 18  {..<h....?>...<.
1100 0150  6B AC 06 EA 5F 20 0B 55 54 43 43 30 32 30 30 30  k..._ .UTCC02000
1101 0160  30 32 7F 4C 10 06 0B 2B 06 01 04 01 81 C3 1F 03  02.L...+........
1102 0170  01 01 53 01 80 5F 25 06 01 03 00 03 02 08 5F 24  ..S.._%......._$
1103 0180  06 02 01 00 03 02 07 5F 37 40 93 C1 42 8B B3 8E  ......._7@..B...
1104 0190  42 61 6F 2C 19 E6 98 41 BD AA 60 BD E0 DD 4E F0  Bao,...A..`...N.
1105 01A0  15 D5 4F 71 B7 BB C3 3A F2 AD 27 5E DD EE 6D 12  ..Oq...:..'^..m.
1106 01B0  76 E6 2B A0 4C 01 CA C1 26 0C 45 6D C6 CB EC 92  v.+.L...&.Em....
1107 01C0  BF 38 18 AD 8F B2 29 40 A9 51                    .8....)@.Q
1108
1109    The certificate format is defined in BSI TR-03110:
1110
1111 7F21 [ APPLICATION 33 ] IMPLICIT SEQUENCE SIZE( 226 )
1112   7F4E [ APPLICATION 78 ] IMPLICIT SEQUENCE SIZE( 155 )
1113     5F29 [ APPLICATION 41 ] SIZE( 1 )                           -- profile id
1114       0000  00
1115     42 [ APPLICATION 2 ] SIZE( 11 )                             -- CAR
1116       0000  55 54 43 43 30 32 30 30 30 30 32                 UTCC0200002
1117     7F49 [ APPLICATION 73 ] IMPLICIT SEQUENCE SIZE( 79 )        -- public key
1118       OBJECT IDENTIFIER = { id-TA-ECDSA-SHA-256 }
1119       86 [ CONTEXT 6 ] SIZE( 65 )
1120         0000  04 6D FF D6 85 57 40 FB 10 5D 94 71 8A 94 D2 5E
1121         0010  50 33 E7 1E C0 6C 63 D5 C8 FC BA F3 02 1D 70 23
1122         0020  F6 47 E8 35 48 EF B5 94 72 3C 6F BE C0 EB 9A C7
1123         0030  FB 06 59 26 CF 65 EF A1 72 E0 98 F3 F0 44 1B B7
1124         0040  71
1125     5F20 [ APPLICATION 32 ] SIZE( 16 )                          -- CHR
1126       0000  55 54 43 43 30 32 30 30 30 31 33 30 30 30 30 30  UTCC020001300000
1127     7F4C [ APPLICATION 76 ] IMPLICIT SEQUENCE SIZE( 16 )        -- CHAT
1128       OBJECT IDENTIFIER = { 1 3 6 1 4 1 24991 3 1 1 }
1129       53 [ APPLICATION 19 ] SIZE( 1 )
1130         0000  00
1131     5F25 [ APPLICATION 37 ] SIZE( 6 )                           -- Valid from
1132       0000  01 04 00 07 01 01
1133     5F24 [ APPLICATION 36 ] SIZE( 6 )                           -- Valid to
1134       0000  02 01 00 03 02 07
1135   5F37 [ APPLICATION 55 ] SIZE( 64 )                            -- Signature
1136     0000  7F 73 04 3B 06 63 79 41 BE 1A 9F FC F6 77 67 2B
1137     0010  8A 41 D1 11 F6 9B 54 44 AD 19 FB B8 0C C6 2F 34
1138     0020  71 8E 4F F6 92 59 34 61 D9 4F 4A 86 36 A8 D8 9A
1139     0030  C6 3C 17 7E 71 CE A8 26 D0 C5 25 61 78 9D 01 F8
1140
1141    The serial number is contained in tag 5F20, while the last 5 digits
1142    are truncated.
1143  */
1144 static gpg_error_t
1145 read_serialno(app_t app)
1146 {
1147 #warning audit!
1148   gpg_error_t err;
1149   unsigned char *buffer = NULL;
1150   size_t buflen;
1151   const unsigned char *p,*chr;
1152   size_t n, objlen, hdrlen, chrlen;
1153   int class, tag, constructed, ndef;
1154
1155   err = select_and_read_binary (app->slot, 0x2F02, "EF.C_DevAut",
1156                                 &buffer, &buflen, 512);
1157   if (err)
1158     return err;
1159
1160   p = buffer;
1161   n = buflen;
1162
1163   err = parse_ber_header (&p, &n, &class, &tag, &constructed,
1164                           &ndef, &objlen, &hdrlen);
1165   if (!err && (objlen > n || tag != 0x21))
1166     err = gpg_error (GPG_ERR_INV_OBJ);
1167   if (err)
1168     {
1169       log_error ("error parsing C_DevAut: %s\n", gpg_strerror (err));
1170       goto leave;
1171     }
1172
1173   chr = find_tlv (p, objlen, 0x5F20, &chrlen);
1174   if (!chr)
1175     {
1176       err = gpg_error (GPG_ERR_INV_OBJ);
1177       log_error ("CHR not found in CVC\n");
1178       goto leave;
1179     }
1180
1181   chrlen -= 5;
1182
1183   app->serialno = xtrymalloc (chrlen);
1184   if (!app->serialno)
1185     {
1186       err = gpg_error_from_syserror ();
1187       goto leave;
1188     }
1189
1190   app->serialnolen = chrlen;
1191   memcpy(app->serialno, chr, chrlen);
1192
1193   leave:
1194    xfree (buffer);
1195    return err;
1196 }
1197
1198
1199
1200 /* Get all the basic information from the SmartCard-HSM, check the
1201    structure and initialize our local context.  This is used once at
1202    application initialization.  */
1203 static gpg_error_t
1204 read_meta (app_t app)
1205 {
1206 #warning audit!
1207   gpg_error_t err;
1208   unsigned char *eflist = NULL;
1209   size_t eflistlen = 0;
1210   int i;
1211
1212   err = read_serialno(app);
1213   if (err)
1214     return err;
1215
1216   err = list_ef (app->slot, &eflist, &eflistlen);
1217   if (err)
1218     return err;
1219
1220   for (i = 0; i < eflistlen; i += 2)
1221     {
1222       switch(eflist[i])
1223         {
1224         case SC_HSM_KEY_PREFIX:
1225           if (eflist[i + 1] == 0)    /* No key with ID=0 */
1226             break;
1227           err = read_ef_prkd (app, ((SC_HSM_PRKD_PREFIX << 8) | eflist[i + 1]),
1228                               &app->app_local->private_key_info,
1229                               &app->app_local->certificate_info);
1230           if (gpg_err_code (err) == GPG_ERR_NO_DATA)
1231             err = 0;
1232           if (err)
1233             return err;
1234           break;
1235         case SC_HSM_CD_PREFIX:
1236           err = read_ef_cd (app, ((eflist[i] << 8) | eflist[i + 1]),
1237                             &app->app_local->trusted_certificate_info);
1238           if (gpg_err_code (err) == GPG_ERR_NO_DATA)
1239             err = 0;
1240           if (err)
1241             return err;
1242           break;
1243         }
1244     }
1245
1246   xfree (eflist);
1247
1248   return err;
1249 }
1250
1251
1252
1253 /* Helper to do_learn_status: Send information about all certificates
1254    listed in CERTINFO back.  Use CERTTYPE as type of the
1255    certificate. */
1256 static gpg_error_t
1257 send_certinfo (ctrl_t ctrl, const char *certtype, cdf_object_t certinfo)
1258 {
1259   for (; certinfo; certinfo = certinfo->next)
1260     {
1261       char *buf, *p;
1262
1263       buf = xtrymalloc (4 + certinfo->objidlen*2 + 1);
1264       if (!buf)
1265         return gpg_error_from_syserror ();
1266       p = stpcpy (buf, "HSM.");
1267       bin2hex (certinfo->objid, certinfo->objidlen, p);
1268
1269       send_status_info (ctrl, "CERTINFO",
1270                         certtype, strlen (certtype),
1271                         buf, strlen (buf),
1272                         NULL, (size_t)0);
1273       xfree (buf);
1274     }
1275   return 0;
1276 }
1277
1278
1279
1280 /* Get the keygrip of the private key object PRKDF.  On success the
1281    keygrip gets returned in the caller provided 41 byte buffer
1282    R_GRIPSTR. */
1283 static gpg_error_t
1284 keygripstr_from_prkdf (app_t app, prkdf_object_t prkdf, char *r_gripstr)
1285 {
1286   gpg_error_t err;
1287   cdf_object_t cdf;
1288   unsigned char *der;
1289   size_t derlen;
1290   ksba_cert_t cert;
1291
1292   /* Look for a matching certificate. A certificate matches if the Id
1293      matches the one of the private key info. */
1294   for (cdf = app->app_local->certificate_info; cdf; cdf = cdf->next)
1295     if (cdf->objidlen == prkdf->objidlen
1296         && !memcmp (cdf->objid, prkdf->objid, prkdf->objidlen))
1297       break;
1298   if (!cdf)
1299     return gpg_error (GPG_ERR_NOT_FOUND);
1300
1301   err = readcert_by_cdf (app, cdf, &der, &derlen);
1302   if (err)
1303     return err;
1304
1305   err = ksba_cert_new (&cert);
1306   if (!err)
1307     err = ksba_cert_init_from_mem (cert, der, derlen);
1308   xfree (der);
1309   if (!err)
1310     err = app_help_get_keygrip_string (cert, r_gripstr);
1311   ksba_cert_release (cert);
1312
1313   return err;
1314 }
1315
1316
1317
1318 /* Helper to do_learn_status: Send information about all known
1319    keypairs back. */
1320 static gpg_error_t
1321 send_keypairinfo (app_t app, ctrl_t ctrl, prkdf_object_t keyinfo)
1322 {
1323   gpg_error_t err;
1324
1325   for (; keyinfo; keyinfo = keyinfo->next)
1326     {
1327       char gripstr[40+1];
1328       char *buf, *p;
1329
1330       buf = xtrymalloc (4 + keyinfo->objidlen*2 + 1);
1331       if (!buf)
1332         return gpg_error_from_syserror ();
1333       p = stpcpy (buf, "HSM.");
1334       bin2hex (keyinfo->objid, keyinfo->objidlen, p);
1335
1336       err = keygripstr_from_prkdf (app, keyinfo, gripstr);
1337       if (err)
1338         {
1339           log_error ("can't get keygrip from %04X\n", keyinfo->key_reference);
1340         }
1341       else
1342         {
1343           assert (strlen (gripstr) == 40);
1344           send_status_info (ctrl, "KEYPAIRINFO",
1345                             gripstr, 40,
1346                             buf, strlen (buf),
1347                             NULL, (size_t)0);
1348         }
1349       xfree (buf);
1350     }
1351   return 0;
1352 }
1353
1354
1355
1356 /* This is the handler for the LEARN command. */
1357 static gpg_error_t
1358 do_learn_status (app_t app, ctrl_t ctrl, unsigned int flags)
1359 {
1360   gpg_error_t err;
1361
1362   if ((flags & 1))
1363     err = 0;
1364   else
1365     {
1366       err = send_certinfo (ctrl, "100", app->app_local->certificate_info);
1367       if (!err)
1368         err = send_certinfo (ctrl, "101",
1369             app->app_local->trusted_certificate_info);
1370     }
1371
1372   if (!err)
1373     err = send_keypairinfo (app, ctrl, app->app_local->private_key_info);
1374
1375   return err;
1376 }
1377
1378
1379
1380 /* Read a certificate using the information in CDF and return the
1381    certificate in a newly allocated buffer R_CERT and its length
1382    R_CERTLEN. */
1383 static gpg_error_t
1384 readcert_by_cdf (app_t app, cdf_object_t cdf,
1385                  unsigned char **r_cert, size_t *r_certlen)
1386 {
1387   gpg_error_t err;
1388   unsigned char *buffer = NULL;
1389   const unsigned char *p, *save_p;
1390   size_t buflen, n;
1391   int class, tag, constructed, ndef;
1392   size_t totobjlen, objlen, hdrlen;
1393   int rootca;
1394   int i;
1395
1396   *r_cert = NULL;
1397   *r_certlen = 0;
1398
1399   /* First check whether it has been cached. */
1400   if (cdf->image)
1401     {
1402       *r_cert = xtrymalloc (cdf->imagelen);
1403       if (!*r_cert)
1404         return gpg_error_from_syserror ();
1405       memcpy (*r_cert, cdf->image, cdf->imagelen);
1406       *r_certlen = cdf->imagelen;
1407       return 0;
1408     }
1409
1410   err = select_and_read_binary (app->slot, cdf->fid, "CD",
1411                                 &buffer, &buflen, 4096);
1412   if (err)
1413     {
1414       log_error ("error reading certificate with Id ");
1415       for (i=0; i < cdf->objidlen; i++)
1416         log_printf ("%02X", cdf->objid[i]);
1417       log_printf (": %s\n", gpg_strerror (err));
1418       goto leave;
1419     }
1420
1421   /* Check whether this is really a certificate.  */
1422   p = buffer;
1423   n = buflen;
1424   err = parse_ber_header (&p, &n, &class, &tag, &constructed,
1425                           &ndef, &objlen, &hdrlen);
1426   if (err)
1427     goto leave;
1428
1429   if (class == CLASS_UNIVERSAL && tag == TAG_SEQUENCE && constructed)
1430     rootca = 0;
1431   else if ( class == CLASS_UNIVERSAL && tag == TAG_SET && constructed )
1432     rootca = 1;
1433   else
1434     {
1435       err = gpg_error (GPG_ERR_INV_OBJ);
1436       goto leave;
1437     }
1438   totobjlen = objlen + hdrlen;
1439   assert (totobjlen <= buflen);
1440
1441   err = parse_ber_header (&p, &n, &class, &tag, &constructed,
1442                           &ndef, &objlen, &hdrlen);
1443   if (err)
1444     goto leave;
1445
1446   if (!rootca
1447       && class == CLASS_UNIVERSAL && tag == TAG_OBJECT_ID && !constructed)
1448     {
1449       /* The certificate seems to be contained in a userCertificate
1450          container.  Skip this and assume the following sequence is
1451          the certificate. */
1452       if (n < objlen)
1453         {
1454           err = gpg_error (GPG_ERR_INV_OBJ);
1455           goto leave;
1456         }
1457       p += objlen;
1458       n -= objlen;
1459       save_p = p;
1460       err = parse_ber_header (&p, &n, &class, &tag, &constructed,
1461                               &ndef, &objlen, &hdrlen);
1462       if (err)
1463         goto leave;
1464       if ( !(class == CLASS_UNIVERSAL && tag == TAG_SEQUENCE && constructed) )
1465         {
1466           err = gpg_error (GPG_ERR_INV_OBJ);
1467           goto leave;
1468         }
1469       totobjlen = objlen + hdrlen;
1470       assert (save_p + totobjlen <= buffer + buflen);
1471       memmove (buffer, save_p, totobjlen);
1472     }
1473
1474   *r_cert = buffer;
1475   buffer = NULL;
1476   *r_certlen = totobjlen;
1477
1478   /* Try to cache it. */
1479   if (!cdf->image && (cdf->image = xtrymalloc (*r_certlen)))
1480     {
1481       memcpy (cdf->image, *r_cert, *r_certlen);
1482       cdf->imagelen = *r_certlen;
1483     }
1484
1485
1486  leave:
1487   xfree (buffer);
1488   return err;
1489 }
1490
1491
1492
1493 /* Handler for the READCERT command.
1494
1495    Read the certificate with id CERTID (as returned by learn_status in
1496    the CERTINFO status lines) and return it in the freshly allocated
1497    buffer to be stored at R_CERT and its length at R_CERTLEN.  A error
1498    code will be returned on failure and R_CERT and R_CERTLEN will be
1499    set to (NULL,0). */
1500 static gpg_error_t
1501 do_readcert (app_t app, const char *certid,
1502              unsigned char **r_cert, size_t *r_certlen)
1503 {
1504   gpg_error_t err;
1505   cdf_object_t cdf;
1506
1507   *r_cert = NULL;
1508   *r_certlen = 0;
1509   err = cdf_object_from_certid (app, certid, &cdf);
1510   if (!err)
1511     err = readcert_by_cdf (app, cdf, r_cert, r_certlen);
1512   return err;
1513 }
1514
1515
1516
1517 /* Implement the GETATTR command.  This is similar to the LEARN
1518    command but returns just one value via the status interface. */
1519 static gpg_error_t
1520 do_getattr (app_t app, ctrl_t ctrl, const char *name)
1521 {
1522   if (!strcmp (name, "$AUTHKEYID"))
1523     {
1524       char *buf, *p;
1525       prkdf_object_t prkdf;
1526
1527       /* We return the ID of the first private key capable of
1528          signing. */
1529       for (prkdf = app->app_local->private_key_info; prkdf;
1530            prkdf = prkdf->next)
1531         if (prkdf->usageflags.sign)
1532           break;
1533       if (prkdf)
1534         {
1535           buf = xtrymalloc (4 + prkdf->objidlen*2 + 1);
1536           if (!buf)
1537             return gpg_error_from_syserror ();
1538           p = stpcpy (buf, "HSM.");
1539           bin2hex (prkdf->objid, prkdf->objidlen, p);
1540
1541           send_status_info (ctrl, name, buf, strlen (buf), NULL, 0);
1542           xfree (buf);
1543           return 0;
1544         }
1545     }
1546   else if (!strcmp (name, "$DISPSERIALNO"))
1547     {
1548       send_status_info (ctrl, name, app->serialno, app->serialnolen, NULL, 0);
1549       return 0;
1550     }
1551
1552   return gpg_error (GPG_ERR_INV_NAME);
1553 }
1554
1555
1556
1557 /* Apply PKCS#1 V1.5 padding for signature operation.  The function
1558  * combines padding, digest info and the hash value.  The buffer must
1559  * be allocated by the caller matching the key size.  */
1560 static void
1561 apply_PKCS_padding(const unsigned char *dig, int diglen,
1562                    const unsigned char *prefix, int prefixlen,
1563                    unsigned char *buff, int bufflen)
1564 {
1565 #warning Seems okay but needs a seconds opinion
1566   int i;
1567
1568   /* Caller must ensure a sufficient buffer.  */
1569   if (diglen + prefixlen + 4 > bufflen)
1570     return;
1571
1572   *buff++ = 0x00;
1573   *buff++ = 0x01;
1574   for (i = bufflen - diglen - prefixlen - 3; i > 0; i--)
1575     *buff++ = 0xFF;
1576
1577   *buff++ = 0x00;
1578   if (prefix)
1579     memcpy (buff, prefix, prefixlen);
1580   buff += prefixlen;
1581   memcpy (buff, dig, diglen);
1582 }
1583
1584
1585
1586 /* Decode a digest info structure (DI,DILEN) to extract the hash
1587  * value.  The buffer HASH to receive the digest must be provided by
1588  * the caller with HASHLEN pointing to the inbound length.  HASHLEN is
1589  * updated to the outbound length.  */
1590 static int
1591 hash_from_digestinfo (const unsigned char *di, size_t dilen,
1592                       unsigned char *hash, size_t *hashlen)
1593 {
1594 #warning audit!
1595   const unsigned char *p,*pp;
1596   size_t n, nn, objlen, hdrlen;
1597   int class, tag, constructed, ndef;
1598   gpg_error_t err;
1599
1600   p = di;
1601   n = dilen;
1602
1603   err = parse_ber_header (&p, &n, &class, &tag, &constructed,
1604                           &ndef, &objlen, &hdrlen);
1605
1606   if (!err && (objlen > n || tag != TAG_SEQUENCE))
1607     err = gpg_error (GPG_ERR_INV_OBJ);
1608   if ( err )
1609     return err;
1610
1611   pp = p;
1612   nn = objlen;
1613
1614   err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
1615                           &ndef, &objlen, &hdrlen);
1616
1617   if (!err && (objlen > nn || tag != TAG_SEQUENCE))
1618     err = gpg_error (GPG_ERR_INV_OBJ);
1619   if ( err )
1620     return err;
1621
1622   pp += objlen;
1623   nn -= objlen;
1624
1625   err = parse_ber_header (&pp, &nn, &class, &tag, &constructed,
1626                           &ndef, &objlen, &hdrlen);
1627
1628   if (!err && (objlen > nn || tag != TAG_OCTET_STRING))
1629     err = gpg_error (GPG_ERR_INV_OBJ);
1630   if ( err )
1631     return err;
1632
1633   if (*hashlen < objlen)
1634     return gpg_error (GPG_ERR_TOO_SHORT);
1635
1636   memcpy(hash, pp, objlen);
1637   *hashlen = objlen;
1638
1639   return err;
1640 }
1641
1642
1643
1644 /* Perform PIN verification
1645  */
1646 static gpg_error_t
1647 verify_pin (app_t app, gpg_error_t (*pincb)(void*, const char *, char **),
1648             void *pincb_arg)
1649 {
1650   gpg_error_t err;
1651   pininfo_t pininfo;
1652   char *pinvalue;
1653   char *prompt;
1654   int sw;
1655
1656   sw = apdu_send_simple (app->slot, 0, 0x00, ISO7816_VERIFY, 0x00, 0x81,
1657                          -1, NULL);
1658
1659   if (sw == SW_SUCCESS)
1660     return 0;                   /* PIN already verified */
1661
1662   if (sw == SW_REF_DATA_INV)
1663     {
1664       log_error ("SmartCard-HSM not initialized. Run sc-hsm-tool first\n");
1665       return gpg_error (GPG_ERR_NO_PIN);
1666     }
1667
1668   if (sw == SW_CHV_BLOCKED)
1669     {
1670       log_error ("PIN Blocked\n");
1671       return gpg_error (GPG_ERR_PIN_BLOCKED);
1672     }
1673
1674   memset (&pininfo, 0, sizeof pininfo);
1675   pininfo.fixedlen = 0;
1676   pininfo.minlen = 6;
1677   pininfo.maxlen = 15;
1678
1679   prompt = "||Please enter the PIN";
1680
1681   if (!opt.disable_pinpad
1682       && !iso7816_check_pinpad (app->slot, ISO7816_VERIFY, &pininfo) )
1683     {
1684       err = pincb (pincb_arg, prompt, NULL);
1685       if (err)
1686         {
1687           log_info ("PIN callback returned error: %s\n", gpg_strerror (err));
1688           return err;
1689         }
1690
1691       err = iso7816_verify_kp (app->slot, 0x81, &pininfo);
1692       pincb (pincb_arg, NULL, NULL);  /* Dismiss the prompt. */
1693     }
1694   else
1695     {
1696       err = pincb (pincb_arg, prompt, &pinvalue);
1697       if (err)
1698         {
1699           log_info ("PIN callback returned error: %s\n", gpg_strerror (err));
1700           return err;
1701         }
1702
1703       err = iso7816_verify (app->slot, 0x81, pinvalue, strlen(pinvalue));
1704       xfree (pinvalue);
1705     }
1706   if (err)
1707     {
1708       log_error ("PIN verification failed: %s\n", gpg_strerror (err));
1709       return err;
1710     }
1711   log_debug ("PIN verification succeeded\n");
1712   return err;
1713 }
1714
1715
1716
1717 /* Handler for the PKSIGN command.
1718
1719    Create the signature and return the allocated result in OUTDATA.
1720    If a PIN is required, the PINCB will be used to ask for the PIN;
1721    that callback should return the PIN in an allocated buffer and
1722    store that as the 3rd argument.
1723
1724    The API is somewhat inconsistent: The caller can either supply
1725    a plain hash and the algorithm in hashalgo or a complete
1726    DigestInfo structure. The former is detect by characteristic length
1727    of the provided data (20,28,32,48 or 64 byte).
1728
1729    The function returns the RSA block in the size of the modulus or
1730    the ECDSA signature in X9.62 format (SEQ/INT(r)/INT(s))
1731 */
1732 static gpg_error_t
1733 do_sign (app_t app, const char *keyidstr, int hashalgo,
1734          gpg_error_t (*pincb)(void*, const char *, char **),
1735          void *pincb_arg,
1736          const void *indata, size_t indatalen,
1737          unsigned char **outdata, size_t *outdatalen )
1738 {
1739   static unsigned char rmd160_prefix[15] = /* Object ID is 1.3.36.3.2.1 */
1740     { 0x30, 0x21, 0x30, 0x09, 0x06, 0x05, 0x2b, 0x24, 0x03,
1741       0x02, 0x01, 0x05, 0x00, 0x04, 0x14  };
1742   static unsigned char sha1_prefix[15] =   /* (1.3.14.3.2.26) */
1743     { 0x30, 0x21, 0x30, 0x09, 0x06, 0x05, 0x2b, 0x0e, 0x03,
1744       0x02, 0x1a, 0x05, 0x00, 0x04, 0x14  };
1745   static unsigned char sha224_prefix[19] = /* (2.16.840.1.101.3.4.2.4) */
1746     { 0x30, 0x2D, 0x30, 0x0d, 0x06, 0x09, 0x60, 0x86, 0x48,
1747       0x01, 0x65, 0x03, 0x04, 0x02, 0x04, 0x05, 0x00, 0x04,
1748       0x1C  };
1749   static unsigned char sha256_prefix[19] = /* (2.16.840.1.101.3.4.2.1) */
1750     { 0x30, 0x31, 0x30, 0x0d, 0x06, 0x09, 0x60, 0x86,
1751       0x48, 0x01, 0x65, 0x03, 0x04, 0x02, 0x01, 0x05,
1752       0x00, 0x04, 0x20  };
1753   static unsigned char sha384_prefix[19] = /* (2.16.840.1.101.3.4.2.2) */
1754     { 0x30, 0x41, 0x30, 0x0d, 0x06, 0x09, 0x60, 0x86,
1755       0x48, 0x01, 0x65, 0x03, 0x04, 0x02, 0x02, 0x05,
1756       0x00, 0x04, 0x30  };
1757   static unsigned char sha512_prefix[19] = /* (2.16.840.1.101.3.4.2.3) */
1758     { 0x30, 0x51, 0x30, 0x0d, 0x06, 0x09, 0x60, 0x86,
1759       0x48, 0x01, 0x65, 0x03, 0x04, 0x02, 0x03, 0x05,
1760       0x00, 0x04, 0x40  };
1761
1762   gpg_error_t err;
1763   unsigned char cdsblk[256]; /* Raw PKCS#1 V1.5 block with padding
1764                                 (RSA) or hash.  */
1765   prkdf_object_t prkdf;      /* The private key object. */
1766   size_t cdsblklen;
1767   unsigned char algoid;
1768   int sw;
1769
1770   if (!keyidstr || !*keyidstr)
1771     return gpg_error (GPG_ERR_INV_VALUE);
1772
1773   if (indatalen > 124)          /* Limit for 1024 bit key */
1774     return gpg_error (GPG_ERR_INV_VALUE);
1775
1776   err = prkdf_object_from_keyidstr (app, keyidstr, &prkdf);
1777   if (err)
1778     return err;
1779   if (!(prkdf->usageflags.sign || prkdf->usageflags.sign_recover
1780         ||prkdf->usageflags.non_repudiation))
1781     {
1782       log_error ("key %s may not be used for signing\n", keyidstr);
1783       return gpg_error (GPG_ERR_WRONG_KEY_USAGE);
1784     }
1785
1786   if (prkdf->keytype == KEY_TYPE_RSA)
1787     {
1788       algoid = 0x20;
1789
1790       cdsblklen = prkdf->keysize >> 3;
1791       if (!cdsblklen)
1792         cdsblklen = 256;
1793
1794       if (hashalgo == GCRY_MD_SHA1 && indatalen == 20)
1795         apply_PKCS_padding (indata, indatalen,
1796                             sha1_prefix, sizeof(sha1_prefix),
1797                             cdsblk, cdsblklen);
1798       else if (hashalgo == GCRY_MD_MD5 && indatalen == 20)
1799         apply_PKCS_padding (indata, indatalen,
1800                             rmd160_prefix, sizeof(rmd160_prefix),
1801                             cdsblk, cdsblklen);
1802       else if (hashalgo == GCRY_MD_SHA224 && indatalen == 28)
1803         apply_PKCS_padding (indata, indatalen,
1804                             sha224_prefix, sizeof(sha224_prefix),
1805                             cdsblk, cdsblklen);
1806       else if (hashalgo == GCRY_MD_SHA256 && indatalen == 32)
1807         apply_PKCS_padding (indata, indatalen,
1808                             sha256_prefix, sizeof(sha256_prefix),
1809                             cdsblk, cdsblklen);
1810       else if (hashalgo == GCRY_MD_SHA384 && indatalen == 48)
1811         apply_PKCS_padding (indata, indatalen,
1812                             sha384_prefix, sizeof(sha384_prefix),
1813                             cdsblk, cdsblklen);
1814       else if (hashalgo == GCRY_MD_SHA512 && indatalen == 64)
1815         apply_PKCS_padding (indata, indatalen,
1816                             sha512_prefix, sizeof(sha512_prefix),
1817                             cdsblk, cdsblklen);
1818       else  /* Assume it's already a digest info or TLS_MD5SHA1 */
1819         apply_PKCS_padding (indata, indatalen, NULL, 0, cdsblk, cdsblklen);
1820     }
1821   else
1822     {
1823       algoid = 0x70;
1824       if (indatalen != 20 && indatalen != 28 && indatalen != 32
1825           && indatalen != 48 && indatalen != 64)
1826         {
1827           cdsblklen = sizeof(cdsblk);
1828           err = hash_from_digestinfo (indata, indatalen, cdsblk, &cdsblklen);
1829           if (err)
1830             {
1831               log_error ("DigestInfo invalid: %s\n", gpg_strerror (err));
1832               return err;
1833             }
1834         }
1835       else
1836         {
1837           memcpy (cdsblk, indata, indatalen);
1838           cdsblklen = indatalen;
1839         }
1840     }
1841
1842   err = verify_pin (app, pincb, pincb_arg);
1843   if (err)
1844     return err;
1845
1846   sw = apdu_send_le (app->slot, 1, 0x80, 0x68, prkdf->key_reference, algoid,
1847                      cdsblklen, cdsblk, 0, outdata, outdatalen);
1848   return iso7816_map_sw (sw);
1849 }
1850
1851
1852
1853 /* Handler for the PKAUTH command.
1854
1855    This is basically the same as the PKSIGN command but we first check
1856    that the requested key is suitable for authentication; that is, it
1857    must match the criteria used for the attribute $AUTHKEYID.  See
1858    do_sign for calling conventions; there is no HASHALGO, though. */
1859 static gpg_error_t
1860 do_auth (app_t app, const char *keyidstr,
1861          gpg_error_t (*pincb)(void*, const char *, char **),
1862          void *pincb_arg,
1863          const void *indata, size_t indatalen,
1864          unsigned char **outdata, size_t *outdatalen )
1865 {
1866   gpg_error_t err;
1867   prkdf_object_t prkdf;
1868   int algo;
1869
1870   if (!keyidstr || !*keyidstr)
1871     return gpg_error (GPG_ERR_INV_VALUE);
1872
1873   err = prkdf_object_from_keyidstr (app, keyidstr, &prkdf);
1874   if (err)
1875     return err;
1876   if (!prkdf->usageflags.sign)
1877     {
1878       log_error ("key %s may not be used for authentication\n", keyidstr);
1879       return gpg_error (GPG_ERR_WRONG_KEY_USAGE);
1880     }
1881
1882   algo = indatalen == 36? MD_USER_TLS_MD5SHA1 : GCRY_MD_SHA1;
1883   return do_sign (app, keyidstr, algo, pincb, pincb_arg,
1884                   indata, indatalen, outdata, outdatalen);
1885 }
1886
1887
1888
1889 /* Check PKCS#1 V1.5 padding and extract plain text.  The function
1890  * allocates a buffer for the plain text.  The caller must release the
1891  * buffer.  */
1892 static gpg_error_t
1893 strip_PKCS15_padding(unsigned char *src, int srclen, unsigned char **dst,
1894                      size_t *dstlen)
1895 {
1896 #warning audit!
1897   int c1,c2,c3;
1898   unsigned char *p;
1899
1900   c1 = *src++ == 0x00;
1901   c2 = *src++ == 0x02;
1902   srclen -= 2;
1903   while ((srclen > 0) && *src)
1904     {
1905       src++;
1906       srclen--;
1907     }
1908   c3 = (srclen > 0);
1909
1910   if (!(c1 && c2 && c3))
1911     return gpg_error (GPG_ERR_DECRYPT_FAILED);
1912
1913   src++;
1914   srclen--;
1915
1916   p = xtrymalloc (srclen);
1917   if (!p)
1918     return gpg_error_from_syserror ();
1919
1920   memcpy (p, src, srclen);
1921   *dst = p;
1922   *dstlen = srclen;
1923
1924   return 0;
1925 }
1926
1927
1928 /* Decrypt a PKCS#1 V1.5 formatted cryptogram using the referenced
1929    key.  */
1930 static gpg_error_t
1931 do_decipher (app_t app, const char *keyidstr,
1932              gpg_error_t (*pincb)(void*, const char *, char **),
1933              void *pincb_arg,
1934              const void *indata, size_t indatalen,
1935              unsigned char **outdata, size_t *outdatalen,
1936              unsigned int *r_info)
1937 {
1938   gpg_error_t err;
1939   unsigned char p1blk[256]; /* Enciphered P1 block */
1940   prkdf_object_t prkdf;     /* The private key object. */
1941   unsigned char *rspdata;
1942   size_t rspdatalen;
1943   size_t p1blklen;
1944   int sw;
1945
1946   if (!keyidstr || !*keyidstr || !indatalen)
1947     return gpg_error (GPG_ERR_INV_VALUE);
1948
1949   err = prkdf_object_from_keyidstr (app, keyidstr, &prkdf);
1950   if (err)
1951     return err;
1952   if (!(prkdf->usageflags.decrypt || prkdf->usageflags.unwrap))
1953     {
1954       log_error ("key %s may not be used for deciphering\n", keyidstr);
1955       return gpg_error (GPG_ERR_WRONG_KEY_USAGE);
1956     }
1957
1958   if (prkdf->keytype != KEY_TYPE_RSA)
1959     return gpg_error (GPG_ERR_NOT_SUPPORTED);
1960
1961   p1blklen = prkdf->keysize >> 3;
1962   if (!p1blklen)
1963     p1blklen = 256;
1964
1965   /* The input may be shorter (due to MPIs not storing leading zeroes)
1966      or longer than the block size.  We put INDATA right aligned into
1967      the buffer.  If INDATA is longer than the block size we truncate
1968      it on the left. */
1969   memset (p1blk, 0, sizeof(p1blk));
1970   if (indatalen > p1blklen)
1971     memcpy (p1blk, (unsigned char *)indata + (indatalen - p1blklen), p1blklen);
1972   else
1973     memcpy (p1blk + (p1blklen - indatalen), indata, indatalen);
1974
1975
1976   err = verify_pin(app, pincb, pincb_arg);
1977   if (err)
1978     return err;
1979
1980   sw = apdu_send_le (app->slot, 1, 0x80, 0x62, prkdf->key_reference, 0x21,
1981                      p1blklen, p1blk, 0, &rspdata, &rspdatalen);
1982   err = iso7816_map_sw (sw);
1983   if (err)
1984     {
1985       log_error ("Decrypt failed: %s\n", gpg_strerror (err));
1986       return err;
1987     }
1988
1989   err = strip_PKCS15_padding (rspdata, rspdatalen, outdata, outdatalen);
1990   xfree (rspdata);
1991
1992   if (!err)
1993     *r_info |= APP_DECIPHER_INFO_NOPAD;
1994
1995   return err;
1996 }
1997
1998
1999
2000 /*
2001  * Select the SmartCard-HSM application on the card in SLOT.
2002  */
2003 gpg_error_t
2004 app_select_sc_hsm (app_t app)
2005 {
2006   int slot = app->slot;
2007   int rc;
2008
2009   rc = iso7816_select_application (slot, sc_hsm_aid, sizeof sc_hsm_aid, 0);
2010   if (!rc)
2011     {
2012       app->apptype = "SC-HSM";
2013
2014       app->app_local = xtrycalloc (1, sizeof *app->app_local);
2015       if (!app->app_local)
2016         {
2017           rc = gpg_error_from_syserror ();
2018           goto leave;
2019         }
2020
2021       rc = read_meta (app);
2022       if (rc)
2023         goto leave;
2024
2025       app->fnc.deinit = do_deinit;
2026       app->fnc.learn_status = do_learn_status;
2027       app->fnc.readcert = do_readcert;
2028       app->fnc.getattr = do_getattr;
2029       app->fnc.setattr = NULL;
2030       app->fnc.genkey = NULL;
2031       app->fnc.sign = do_sign;
2032       app->fnc.auth = do_auth;
2033       app->fnc.decipher = do_decipher;
2034       app->fnc.change_pin = NULL;
2035       app->fnc.check_pin = NULL;
2036
2037     leave:
2038       if (rc)
2039         do_deinit (app);
2040    }
2041
2042   return rc;
2043 }