agent: Add DBUS_SESSION_BUS_ADDRESS et al. to the startup list.
[gnupg.git] / tools / make-dns-cert.c
1 /* make-dns-cert.c - An OpenPGP-to-DNS CERT conversion tool
2  * Copyright (C) 2006, 2008 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 #ifdef HAVE_CONFIG_H
21 # include <config.h>
22 #endif
23
24 #include <unistd.h>
25 #ifdef HAVE_GETOPT_H
26 #include <getopt.h>
27 #endif
28 #include <stdio.h>
29 #include <stdlib.h>
30 #include <string.h>
31 #include <errno.h>
32 #include <unistd.h>
33 #include <sys/types.h>
34 #include <sys/stat.h>
35 #include <fcntl.h>
36
37 /* We use TYPE37 instead of CERT since not all nameservers can handle
38    CERT yet... */
39
40 static int
41 cert_key(const char *name,const char *keyfile)
42 {
43   int fd,ret=1,err,i;
44   struct stat statbuf;
45
46   fd=open(keyfile,O_RDONLY);
47   if(fd==-1)
48     {
49       fprintf(stderr,"Cannot open key file %s: %s\n",keyfile,strerror(errno));
50       return 1;
51     }
52
53   err=fstat(fd,&statbuf);
54   if(err==-1)
55     {
56       fprintf(stderr,"Unable to stat key file %s: %s\n",
57               keyfile,strerror(errno));
58       goto fail;
59     }
60
61   if(statbuf.st_size>65536)
62     {
63       fprintf(stderr,"Key %s too large for CERT encoding\n",keyfile);
64       goto fail;
65     }
66
67   if(statbuf.st_size>16384)
68     fprintf(stderr,"Warning: key file %s is larger than the default"
69             " GnuPG max-cert-size\n",keyfile);
70
71   printf("%s\tTYPE37\t\\# %u 0003 0000 00 ",
72          name,(unsigned int)statbuf.st_size+5);
73
74   err=1;
75   while(err!=0)
76     {
77       unsigned char buffer[1024];
78
79       do 
80         err = read (fd,buffer,1024);
81       while (err == -1 && errno == EINTR);
82       if(err==-1)
83         {
84           fprintf(stderr,"Unable to read key file %s: %s\n",
85                   keyfile,strerror(errno));
86           goto fail;
87         }
88
89       for(i=0;i<err;i++)
90         printf("%02X",buffer[i]);
91     }
92
93   printf("\n");
94
95   ret=0;
96
97  fail:
98   close(fd);
99
100   return ret;
101 }
102
103 static int
104 url_key(const char *name,const char *fpr,const char *url)
105 {
106   int len=6,fprlen=0;
107
108   if(fpr)
109     {
110       const char *tmp = fpr;
111       while (*tmp)
112         {
113           if ((*tmp >= 'A' && *tmp <= 'F') ||
114               (*tmp >= 'a' && *tmp <= 'f') ||
115               (*tmp >= '0' && *tmp <= '9'))
116             {
117               fprlen++;
118             }
119           else if (*tmp != ' ' && *tmp != '\t')
120             {
121               fprintf(stderr,"Fingerprint must consist of only hex digits"
122                       " and whitespace\n");
123               return 1;
124             }
125
126           tmp++;
127         }
128
129       if(fprlen%2)
130         {
131           fprintf(stderr,"Fingerprint must be an even number of characters\n");
132           return 1;
133         }
134
135       fprlen/=2;
136       len+=fprlen;
137     }
138
139   if(url)
140     len+=strlen(url);
141
142   if(!fpr && !url)
143     {
144       fprintf(stderr,
145               "Cannot generate a CERT without either a fingerprint or URL\n");
146       return 1;
147     }
148
149   printf("%s\tTYPE37\t\\# %d 0006 0000 00 %02X",name,len,fprlen);
150
151   if(fpr)
152     printf(" %s",fpr);
153
154   if(url)
155     {
156       const char *c;
157       printf(" ");
158       for(c=url;*c;c++)
159         printf("%02X",*c);
160     }
161
162   printf("\n");
163
164   return 0;
165 }
166
167 static void
168 usage(FILE *stream)
169 {
170   fprintf(stream,"make-dns-cert\n");
171   fprintf(stream,"\t-f\tfingerprint\n");
172   fprintf(stream,"\t-u\tURL\n");
173   fprintf(stream,"\t-k\tkey file\n");
174   fprintf(stream,"\t-n\tDNS name\n");
175 }
176
177 int
178 main(int argc,char *argv[])
179 {
180   int arg,err=1;
181   char *fpr=NULL,*url=NULL,*keyfile=NULL,*name=NULL;
182
183   if(argc==1)
184     {
185       usage(stderr);
186       return 1;
187     }
188   else if(argc>1 && strcmp(argv[1],"--version")==0)
189     {
190 #if defined(HAVE_CONFIG_H) && defined(VERSION)
191       printf ("make-dns-cert (GnuPG) " VERSION "\n");
192 #else
193       printf ("make-dns-cert gnupg-svn%d\n", atoi (10+"$Revision$"));
194 #endif
195       return 0;
196     }
197   else if(argc>1 && strcmp(argv[1],"--help")==0)
198     {
199       usage(stdout);
200       return 0;
201     }
202
203   while((arg=getopt(argc,argv,"hf:u:k:n:"))!=-1)
204     switch(arg)
205       {
206       default:
207       case 'h':
208         usage(stdout);
209         exit(0);
210
211       case 'f':
212         fpr=optarg;
213         break;
214
215       case 'u':
216         url=optarg;
217         break;
218
219       case 'k':
220         keyfile=optarg;
221         break;
222
223       case 'n':
224         name=optarg;
225         break;
226       }
227
228   if(!name)
229     {
230       fprintf(stderr,"No name provided\n");
231       return 1;
232     }
233
234   if(keyfile && (fpr || url))
235     {
236       fprintf(stderr,"Cannot generate a CERT record with both a keyfile and"
237               " a fingerprint or URL\n");
238       return 1;
239     }
240
241   if(keyfile)
242     err=cert_key(name,keyfile);
243   else
244     err=url_key(name,fpr,url);
245
246   return err;
247 }