scd: KEYINFO: Send LF for --data.
[gnupg.git] / scd / app-help.c
1 /* app-help.c - Application helper functions
2  * Copyright (C) 2004, 2009 Free Software Foundation, Inc.
3  *
4  * This file is part of GnuPG.
5  *
6  * GnuPG is free software; you can redistribute it and/or modify
7  * it under the terms of the GNU General Public License as published by
8  * the Free Software Foundation; either version 3 of the License, or
9  * (at your option) any later version.
10  *
11  * GnuPG is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  * GNU General Public License for more details.
15  *
16  * You should have received a copy of the GNU General Public License
17  * along with this program; if not, see <https://www.gnu.org/licenses/>.
18  */
19
20 #include <config.h>
21 #include <errno.h>
22 #include <stdio.h>
23 #include <stdlib.h>
24 #include <string.h>
25
26 #include "scdaemon.h"
27 #include "app-common.h"
28 #include "iso7816.h"
29 #include "../common/tlv.h"
30
31
32 /* Count the number of bits, assuming that A represents an unsigned
33  * big integer of length LEN bytes.  If A is NULL a length of 0 is
34  * returned. */
35 unsigned int
36 app_help_count_bits (const unsigned char *a, size_t len)
37 {
38   unsigned int n = len * 8;
39   int i;
40
41   if (!a)
42     return 0;
43
44   for (; len && !*a; len--, a++, n -=8)
45     ;
46   if (len)
47     {
48       for (i=7; i && !(*a & (1<<i)); i--)
49         n--;
50     }
51   return n;
52 }
53
54
55 /* Return the KEYGRIP for the canonical encoded public key (PK,PKLEN)
56  * as an hex encoded string in the user provided buffer HEXKEYGRIP
57  * which must be of at least 41 bytes. */
58 gpg_error_t
59 app_help_get_keygrip_string_pk (const void *pk, size_t pklen, char *hexkeygrip)
60 {
61   gpg_error_t err;
62   gcry_sexp_t s_pkey;
63   unsigned char array[KEYGRIP_LEN];
64
65   err = gcry_sexp_sscan (&s_pkey, NULL, pk, pklen);
66   if (err)
67     return err; /* Can't parse that S-expression. */
68   if (!gcry_pk_get_keygrip (s_pkey, array))
69     {
70       gcry_sexp_release (s_pkey);
71       return gpg_error (GPG_ERR_GENERAL); /* Failed to calculate the keygrip.*/
72     }
73   gcry_sexp_release (s_pkey);
74
75   bin2hex (array, KEYGRIP_LEN, hexkeygrip);
76
77   return 0;
78 }
79
80
81 /* Return the KEYGRIP for the certificate CERT as an hex encoded
82    string in the user provided buffer HEXKEYGRIP which must be of at
83    least 41 bytes. */
84 gpg_error_t
85 app_help_get_keygrip_string (ksba_cert_t cert, char *hexkeygrip)
86 {
87   gpg_error_t err;
88   ksba_sexp_t p;
89   size_t n;
90
91   p = ksba_cert_get_public_key (cert);
92   if (!p)
93     return gpg_error (GPG_ERR_BUG);
94   n = gcry_sexp_canon_len (p, 0, NULL, NULL);
95   if (!n)
96     return gpg_error (GPG_ERR_INV_SEXP);
97   err = app_help_get_keygrip_string_pk ((void*)p, n, hexkeygrip);
98   ksba_free (p);
99   return err;
100 }
101
102
103 gpg_error_t
104 app_help_pubkey_from_cert (const void *cert, size_t certlen,
105                            unsigned char **r_pk, size_t *r_pklen)
106 {
107   gpg_error_t err;
108   ksba_cert_t kc;
109   unsigned char *pk;
110   size_t pklen;
111
112   *r_pk = NULL;
113   *r_pklen = 0;
114
115   err = ksba_cert_new (&kc);
116   if (err)
117     return err;
118
119   err = ksba_cert_init_from_mem (kc, cert, certlen);
120   if (err)
121     goto leave;
122
123   pk = ksba_cert_get_public_key (kc);
124   if (!pk)
125     {
126       err = gpg_error (GPG_ERR_NO_PUBKEY);
127       goto leave;
128     }
129   pklen = gcry_sexp_canon_len (pk, 0, NULL, &err);
130
131  leave:
132   if (!err)
133     {
134       *r_pk = pk;
135       *r_pklen = pklen;
136     }
137   else
138     ksba_free (pk);
139   ksba_cert_release (kc);
140   return err;
141 }
142
143 /* Given the SLOT and the File ID FID, return the length of the
144    certificate contained in that file. Returns 0 if the file does not
145    exists or does not contain a certificate.  If R_CERTOFF is not
146    NULL, the length the header will be stored at this address; thus to
147    parse the X.509 certificate a read should start at that offset.
148
149    On success the file is still selected.
150 */
151 size_t
152 app_help_read_length_of_cert (int slot, int fid, size_t *r_certoff)
153 {
154   gpg_error_t err;
155   unsigned char *buffer;
156   const unsigned char *p;
157   size_t buflen, n;
158   int class, tag, constructed, ndef;
159   size_t resultlen, objlen, hdrlen;
160
161   err = iso7816_select_file (slot, fid, 0);
162   if (err)
163     {
164       log_info ("error selecting FID 0x%04X: %s\n", fid, gpg_strerror (err));
165       return 0;
166     }
167
168   err = iso7816_read_binary (slot, 0, 32, &buffer, &buflen);
169   if (err)
170     {
171       log_info ("error reading certificate from FID 0x%04X: %s\n",
172                  fid, gpg_strerror (err));
173       return 0;
174     }
175
176   if (!buflen || *buffer == 0xff)
177     {
178       log_info ("no certificate contained in FID 0x%04X\n", fid);
179       xfree (buffer);
180       return 0;
181     }
182
183   p = buffer;
184   n = buflen;
185   err = parse_ber_header (&p, &n, &class, &tag, &constructed,
186                           &ndef, &objlen, &hdrlen);
187   if (err)
188     {
189       log_info ("error parsing certificate in FID 0x%04X: %s\n",
190                 fid, gpg_strerror (err));
191       xfree (buffer);
192       return 0;
193     }
194
195   /* All certificates should commence with a SEQUENCE except for the
196      special ROOT CA which are enclosed in a SET. */
197   if ( !(class == CLASS_UNIVERSAL &&  constructed
198          && (tag == TAG_SEQUENCE || tag == TAG_SET)))
199     {
200       log_info ("data at FID 0x%04X does not look like a certificate\n", fid);
201       return 0;
202     }
203
204   resultlen = objlen + hdrlen;
205   if (r_certoff)
206     {
207       /* The callers want the offset to the actual certificate. */
208       *r_certoff = hdrlen;
209
210       err = parse_ber_header (&p, &n, &class, &tag, &constructed,
211                               &ndef, &objlen, &hdrlen);
212       if (err)
213         return 0;
214
215       if (class == CLASS_UNIVERSAL && tag == TAG_OBJECT_ID && !constructed)
216         {
217           /* The certificate seems to be contained in a
218              userCertificate container.  Assume the following sequence
219              is the certificate. */
220           *r_certoff += hdrlen + objlen;
221           if (*r_certoff > resultlen)
222             {
223               *r_certoff = 0;
224               return 0; /* That should never happen. */
225             }
226         }
227       else
228         *r_certoff = 0;
229     }
230
231   return resultlen;
232 }