9b0eb157b19d44b2c8c3500a3dc7b239efad58db
[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 /* Return the secret key as an S-Exp after locating it using the grip.  Returns NULL if key is not available. */
34 GCRY_SEXP
35 agent_key_from_file (const unsigned char *grip)
36 {
37   int i, rc;
38   char *fname;
39   FILE *fp;
40   struct stat st;
41   char *buf;
42   size_t buflen, erroff;
43   GCRY_SEXP s_skey;
44   char hexgrip[41];
45   
46   for (i=0; i < 20; i++)
47     sprintf (hexgrip+2*i, "%02X", grip[i]);
48   hexgrip[40] = 0;
49
50   fname = make_filename (opt.homedir, "private-keys-v1.d", hexgrip, NULL );
51   fp = fopen (fname, "rb");
52   if (!fp)
53     {
54       log_error ("can't open `%s': %s\n", fname, strerror (errno));
55       xfree (fname);
56       return NULL;
57     }
58   
59   if (fstat (fileno(fp), &st))
60     {
61       log_error ("can't stat `%s': %s\n", fname, strerror (errno));
62       xfree (fname);
63       fclose (fp);
64       return NULL;
65     }
66
67   buflen = st.st_size;
68   buf = xmalloc (buflen+1);
69   if (fread (buf, buflen, 1, fp) != 1)
70     {
71       log_error ("error reading `%s': %s\n", fname, strerror (errno));
72       xfree (fname);
73       fclose (fp);
74       xfree (buf);
75       return NULL;
76     }
77
78   rc = gcry_sexp_sscan (&s_skey, &erroff, buf, buflen);
79   xfree (fname);
80   fclose (fp);
81   xfree (buf);
82   if (rc)
83     {
84       log_error ("failed to build S-Exp (off=%u): %s\n",
85                  (unsigned int)erroff, gcry_strerror (rc));
86       return NULL;
87     }
88
89   return s_skey;
90 }
91