* util.h (digitp, hexdigitp): New ctype like macros.
[gnupg.git] / agent / findkey.c
1 /* findkey.c - locate the secret key
2  *      Copyright (C) 2001 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 2 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, write to the Free Software
18  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
19  */
20
21 #include <config.h>
22 #include <errno.h>
23 #include <stdio.h>
24 #include <stdlib.h>
25 #include <string.h>
26 #include <ctype.h>
27 #include <assert.h>
28 #include <unistd.h>
29 #include <sys/stat.h>
30
31 #include "agent.h"
32
33 static int
34 unprotect (GCRY_SEXP s_skey)
35 {
36   struct pin_entry_info_s *pi;
37   int rc;
38
39   /* fixme: check whether the key needs unprotection */
40
41   /* fixme: allocate the pin in secure memory */
42   pi = xtrycalloc (1, sizeof (*pi) + 100);
43   pi->max_length = 100;
44   pi->min_digits = 4;
45   pi->max_digits = 8;
46   pi->max_tries = 3;
47
48   rc = agent_askpin (NULL, pi);
49   /* fixme: actually unprotect the key and ask again until we get a valid
50      PIN - agent_askpin takes care of counting failed tries */
51
52   xfree (pi);
53   return rc;
54 }
55
56
57
58
59
60 /* Return the secret key as an S-Exp after locating it using the grip.  Returns NULL if key is not available. */
61 GCRY_SEXP
62 agent_key_from_file (const unsigned char *grip)
63 {
64   int i, rc;
65   char *fname;
66   FILE *fp;
67   struct stat st;
68   char *buf;
69   size_t buflen, erroff;
70   GCRY_SEXP s_skey;
71   char hexgrip[41];
72   
73   for (i=0; i < 20; i++)
74     sprintf (hexgrip+2*i, "%02X", grip[i]);
75   hexgrip[40] = 0;
76
77   fname = make_filename (opt.homedir, "private-keys-v1.d", hexgrip, NULL );
78   fp = fopen (fname, "rb");
79   if (!fp)
80     {
81       log_error ("can't open `%s': %s\n", fname, strerror (errno));
82       xfree (fname);
83       return NULL;
84     }
85   
86   if (fstat (fileno(fp), &st))
87     {
88       log_error ("can't stat `%s': %s\n", fname, strerror (errno));
89       xfree (fname);
90       fclose (fp);
91       return NULL;
92     }
93
94   buflen = st.st_size;
95   buf = xmalloc (buflen+1);
96   if (fread (buf, buflen, 1, fp) != 1)
97     {
98       log_error ("error reading `%s': %s\n", fname, strerror (errno));
99       xfree (fname);
100       fclose (fp);
101       xfree (buf);
102       return NULL;
103     }
104
105   rc = gcry_sexp_sscan (&s_skey, &erroff, buf, buflen);
106   xfree (fname);
107   fclose (fp);
108   xfree (buf);
109   if (rc)
110     {
111       log_error ("failed to build S-Exp (off=%u): %s\n",
112                  (unsigned int)erroff, gcry_strerror (rc));
113       return NULL;
114     }
115
116   rc = unprotect (s_skey);
117   if (rc)
118     {
119       gcry_sexp_release (s_skey);
120       log_error ("failed to unprotect the secret key: %s\n",
121                  gcry_strerror (rc));
122       return NULL;
123     }
124
125   return s_skey;
126 }
127
128
129