dnssec-makekeyset.c 11.2 KB
Newer Older
1
/*
2
3
 * Portions Copyright (C) 2000  Internet Software Consortium.
 * Portions Copyright (C) 1995-2000 by Network Associates, Inc.
4
 *
5
6
7
 * Permission to use, copy, modify, and distribute this software for any
 * purpose with or without fee is hereby granted, provided that the above
 * copyright notice and this permission notice appear in all copies.
8
 *
9
10
11
12
13
14
15
16
17
 * THE SOFTWARE IS PROVIDED "AS IS" AND INTERNET SOFTWARE CONSORTIUM AND
 * NETWORK ASSOCIATES DISCLAIM ALL WARRANTIES WITH REGARD TO THIS
 * SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
 * FITNESS. IN NO EVENT SHALL INTERNET SOFTWARE CONSORTIUM OR NETWORK
 * ASSOCIATES BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR
 * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF
 * USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
 * OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
 * PERFORMANCE OF THIS SOFTWARE.
18
19
 */

20
/* $Id: dnssec-makekeyset.c,v 1.37 2000/09/08 08:47:29 bwelling Exp $ */
David Lawrence's avatar
David Lawrence committed
21

22
23
24
25
26
#include <config.h>

#include <stdlib.h>

#include <isc/commandline.h>
Brian Wellington's avatar
Brian Wellington committed
27
#include <isc/entropy.h>
28
#include <isc/mem.h>
29
#include <isc/string.h>
Brian Wellington's avatar
Brian Wellington committed
30
#include <isc/util.h>
31
32

#include <dns/db.h>
33
34
35
#include <dns/dnssec.h>
#include <dns/fixedname.h>
#include <dns/log.h>
36
37
38
39
#include <dns/rdata.h>
#include <dns/rdatalist.h>
#include <dns/rdataset.h>
#include <dns/result.h>
40
#include <dns/secalg.h>
41
42
#include <dns/time.h>

43
44
45
#include <dst/dst.h>

#include "dnssectool.h"
46

47
48
#define BUFSIZE 2048

David Lawrence's avatar
David Lawrence committed
49
const char *program = "dnssec-makekeyset";
50
51
int verbose;

52
53
54
55
56
57
58
59
60
61
62
typedef struct keynode keynode_t;
struct keynode {
	dst_key_t *key;
	ISC_LINK(keynode_t) link;
};
typedef ISC_LIST(keynode_t) keylist_t;

static isc_stdtime_t starttime = 0, endtime = 0, now;
static int ttl = -1;

static isc_mem_t *mctx = NULL;
Brian Wellington's avatar
Brian Wellington committed
63
static isc_entropy_t *ectx = NULL;
64
65

static keylist_t keylist;
66

67
static void
68
usage(void) {
69
	fprintf(stderr, "Usage:\n");
70
	fprintf(stderr, "\t%s [options] keys\n", program);
71
72
73
74
75
76
77

	fprintf(stderr, "\n");

	fprintf(stderr, "Options: (default value in parenthesis) \n");
	fprintf(stderr, "\t-s YYYYMMDDHHMMSS|+offset:\n");
	fprintf(stderr, "\t\tSIG start time - absolute|offset (now)\n");
	fprintf(stderr, "\t-e YYYYMMDDHHMMSS|+offset|\"now\"+offset]:\n");
78
79
	fprintf(stderr, "\t\tSIG end time  - "
			     "absolute|from start|from now (now + 30 days)\n");
80
	fprintf(stderr, "\t-t ttl\n");
81
82
	fprintf(stderr, "\t-p\n");
	fprintf(stderr, "\t\tuse pseudorandom data (faster but less secure)\n");
83
84
	fprintf(stderr, "\t-r randomdev:\n");
	fprintf(stderr, "\t\ta file containing random data\n");
85
86
87
88
89
	fprintf(stderr, "\t-v level:\n");
	fprintf(stderr, "\t\tverbose level (0)\n");

	fprintf(stderr, "\n");

90
	fprintf(stderr, "keys:\n");
91
	fprintf(stderr, "\tkeyfile (Kname+alg+tag)\n");
92
93
94
95
96
97
98
	exit(0);
}

int
main(int argc, char *argv[]) {
	int i, ch;
	char *startstr = NULL, *endstr = NULL;
99
	char *randomfile = NULL;
100
	dns_fixedname_t fdomain;
101
	dns_name_t *domain = NULL;
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
	char *output = NULL;
	char *endp;
	unsigned char *data;
	dns_db_t *db;
	dns_dbnode_t *node;
	dns_dbversion_t *version;
	dst_key_t *key = NULL;
	dns_rdata_t *rdata;
	dns_rdatalist_t rdatalist, sigrdatalist;
	dns_rdataset_t rdataset, sigrdataset;
	isc_result_t result;
	isc_buffer_t b;
	isc_region_t r;
	isc_log_t *log = NULL;
	keynode_t *keynode;
117
	dns_name_t *savedname = NULL;
118
119
	unsigned int eflags;
	isc_boolean_t pseudorandom = ISC_FALSE;
120
121

	result = isc_mem_create(0, 0, &mctx);
122
123
124
	if (result != ISC_R_SUCCESS)
		fatal("failed to create memory context: %s",
		      isc_result_totext(result));
125

Brian Wellington's avatar
Brian Wellington committed
126
127
	dns_result_register();

128
	while ((ch = isc_commandline_parse(argc, argv, "s:e:t:r:v:ph")) != -1)
129
130
131
	{
		switch (ch) {
		case 's':
132
			startstr = isc_commandline_argument;
133
134
135
			break;

		case 'e':
136
			endstr = isc_commandline_argument;
137
138
139
140
141
142
			break;

		case 't':
			endp = NULL;
			ttl = strtol(isc_commandline_argument, &endp, 0);
			if (*endp != '\0')
143
				fatal("TTL must be numeric");
144
145
			break;

146
147
148
149
150
151
152
		case 'r':
			randomfile = isc_mem_strdup(mctx,
						    isc_commandline_argument);
			if (randomfile == NULL)
				fatal("out of memory");
			break;

153
154
155
156
		case 'v':
			endp = NULL;
			verbose = strtol(isc_commandline_argument, &endp, 0);
			if (*endp != '\0')
157
				fatal("verbose level must be numeric");
158
159
			break;

160
161
162
163
		case 'p':
			pseudorandom = ISC_TRUE;
			break;

Brian Wellington's avatar
Brian Wellington committed
164
		case 'h':
165
166
167
168
169
170
171
172
173
		default:
			usage();

		}
	}

	argc -= isc_commandline_index;
	argv += isc_commandline_index;

174
	if (argc < 1)
175
176
		usage();

177
178
179
	setup_entropy(mctx, randomfile, &ectx);
	if (randomfile != NULL)
		isc_mem_free(mctx, randomfile);
180
181
182
183
	eflags = ISC_ENTROPY_BLOCKING;
	if (!pseudorandom)
		eflags |= ISC_ENTROPY_GOODONLY;
	result = dst_lib_init(mctx, ectx, eflags);
Brian Wellington's avatar
Brian Wellington committed
184
185
186
	if (result != ISC_R_SUCCESS)
		fatal("could not initialize dst");

187
188
	isc_stdtime_get(&now);

189
	if (startstr != NULL)
190
191
192
193
		starttime = strtotime(startstr, now, now);
	else
		starttime = now;

194
	if (endstr != NULL)
195
196
197
198
199
200
		endtime = strtotime(endstr, now, starttime);
	else
		endtime = starttime + (30 * 24 * 60 * 60);

	if (ttl == -1) {
		ttl = 3600;
201
		fprintf(stderr, "%s: TTL not specified, assuming 3600\n",
202
			program);
203
204
	}

205
	setup_logging(verbose, mctx, &log);
206
207
208
209
210
211
212
213
214
215

	dns_rdatalist_init(&rdatalist);
	rdatalist.rdclass = dns_rdataclass_in;
	rdatalist.type = dns_rdatatype_key;
	rdatalist.covers = 0;
	rdatalist.ttl = ttl;

	ISC_LIST_INIT(keylist);

	for (i = 0; i < argc; i++) {
216
217
218
		char namestr[DNS_NAME_FORMATSIZE];
		isc_buffer_t namebuf;

Brian Wellington's avatar
Brian Wellington committed
219
220
221
		key = NULL;
		result = dst_key_fromnamedfile(argv[i], DST_TYPE_PUBLIC,
					       mctx, &key);
222
		if (result != ISC_R_SUCCESS)
Brian Wellington's avatar
Brian Wellington committed
223
224
			fatal("error loading key from %s", argv[i]);

225
226
227
228
229
230
		isc_buffer_init(&namebuf, namestr, sizeof namestr);
		result = dns_name_totext(dst_key_name(key), ISC_FALSE,
					 &namebuf);
		check_result(result, "dns_name_totext");
		isc_buffer_putuint8(&namebuf, 0);
		
231
		if (savedname == NULL) {
Brian Wellington's avatar
Brian Wellington committed
232
233
234
235
236
237
238
239
240
			savedname = isc_mem_get(mctx, sizeof(dns_name_t));
			if (savedname == NULL)
				fatal("out of memory");
			dns_name_init(savedname, NULL);
			result = dns_name_dup(dst_key_name(key), mctx,
					      savedname);
			if (result != ISC_R_SUCCESS)
				fatal("out of memory");
		} else {
241
242
243
			char savednamestr[DNS_NAME_FORMATSIZE];
			dns_name_format(savedname, savednamestr,
					sizeof savednamestr);
Brian Wellington's avatar
Brian Wellington committed
244
			if (!dns_name_equal(savedname, dst_key_name(key)) != 0)
245
246
				fatal("all keys must have the same owner - %s "
				      "and %s do not match",
247
				      savednamestr, namestr);
248
		}
249
250
		if (output == NULL) {
			output = isc_mem_allocate(mctx,
251
						  strlen("keyset-") +
252
						  strlen(namestr) + 1);
253
			if (output == NULL)
254
				fatal("out of memory");
255
256
			strcpy(output, "keyset-");
			strcat(output, namestr);
257
258
259
260
261
262
263
264
		}
		if (domain == NULL) {
			dns_fixedname_init(&fdomain);
			domain = dns_fixedname_name(&fdomain);
			isc_buffer_init(&b, namestr, strlen(namestr));
			isc_buffer_add(&b, strlen(namestr));
			result = dns_name_fromtext(domain, &b, dns_rootname,
						   ISC_FALSE, NULL);
265
266
267
			if (result != ISC_R_SUCCESS)
				fatal("%s is not a valid name: %s",
				      namestr, isc_result_totext(result));
268
		}
269
270
		if (dst_key_iszonekey(key)) {
			dst_key_t *zonekey = NULL;
Brian Wellington's avatar
Brian Wellington committed
271
272
273
			result = dst_key_fromnamedfile(argv[i],
						       DST_TYPE_PRIVATE,
						       mctx, &zonekey);
274
			if (result != ISC_R_SUCCESS)
Brian Wellington's avatar
Brian Wellington committed
275
276
				fatal("failed to read key %s: %s",
				      argv[i], isc_result_totext(result));
277
278
			keynode = isc_mem_get(mctx, sizeof (keynode_t));
			if (keynode == NULL)
279
				fatal("out of memory");
280
281
282
283
284
285
			keynode->key = zonekey;
			ISC_LINK_INIT(keynode, link);
			ISC_LIST_APPEND(keylist, keynode, link);
		}
		rdata = isc_mem_get(mctx, sizeof(dns_rdata_t));
		if (rdata == NULL)
286
			fatal("out of memory");
287
288
		data = isc_mem_get(mctx, BUFSIZE);
		if (data == NULL)
289
			fatal("out of memory");
290
		isc_buffer_init(&b, data, BUFSIZE);
291
		result = dst_key_todns(key, &b);
292
		if (result != ISC_R_SUCCESS)
Brian Wellington's avatar
Brian Wellington committed
293
294
			fatal("failed to convert key %s to a DNS KEY: %s",
			      argv[i], isc_result_totext(result));
Bob Halley's avatar
Bob Halley committed
295
		isc_buffer_usedregion(&b, &r);
296
297
298
		dns_rdata_fromregion(rdata, dns_rdataclass_in,
				     dns_rdatatype_key, &r);
		ISC_LIST_APPEND(rdatalist.rdata, rdata, link);
299
		dst_key_free(&key);
300
301
302
303
304
305
306
307
308
309
310
311
312
313
	}

	dns_rdataset_init(&rdataset);
	result = dns_rdatalist_tordataset(&rdatalist, &rdataset);
	check_result(result, "dns_rdatalist_tordataset()");

	dns_rdatalist_init(&sigrdatalist);
	sigrdatalist.rdclass = dns_rdataclass_in;
	sigrdatalist.type = dns_rdatatype_sig;
	sigrdatalist.covers = dns_rdatatype_key;
	sigrdatalist.ttl = ttl;

	if (ISC_LIST_EMPTY(keylist))
		fprintf(stderr,
314
			"%s: no private zone key found; not self-signing\n",
315
			program);
316
317
318
319
320
321
	for (keynode = ISC_LIST_HEAD(keylist);
	     keynode != NULL;
	     keynode = ISC_LIST_NEXT(keynode, link))
	{
		rdata = isc_mem_get(mctx, sizeof(dns_rdata_t));
		if (rdata == NULL)
322
			fatal("out of memory");
323
324
		data = isc_mem_get(mctx, BUFSIZE);
		if (data == NULL)
325
			fatal("out of memory");
326
		isc_buffer_init(&b, data, BUFSIZE);
327
		result = dns_dnssec_sign(domain, &rdataset, keynode->key,
328
329
					 &starttime, &endtime, mctx, &b,
					 rdata);
330
		isc_entropy_stopcallbacksources(ectx);
331
332
333
334
335
336
		if (result != ISC_R_SUCCESS) {
			char keystr[KEY_FORMATSIZE];
			key_format(keynode->key, keystr, sizeof keystr);
			fatal("failed to sign keyset with key %s: %s",
			      keystr, isc_result_totext(result));
		}
337
338
339
340
341
342
343
		ISC_LIST_APPEND(sigrdatalist.rdata, rdata, link);
		dns_rdataset_init(&sigrdataset);
		result = dns_rdatalist_tordataset(&sigrdatalist, &sigrdataset);
		check_result(result, "dns_rdatalist_tordataset()");
	}

	db = NULL;
344
	result = dns_db_create(mctx, "rbt", domain, dns_dbtype_zone,
345
			       dns_rdataclass_in, 0, NULL, &db);
346
347
348
349
350
	if (result != ISC_R_SUCCESS) {
		char domainstr[DNS_NAME_FORMATSIZE];
		dns_name_format(domain, domainstr, sizeof domainstr);
		fatal("failed to create a database for %s", domainstr);
	}
351
352
353
354
355
356
357
358
359
360

	version = NULL;
	dns_db_newversion(db, &version);

	node = NULL;
	result = dns_db_findnode(db, domain, ISC_TRUE, &node);
	check_result(result, "dns_db_findnode()");

	dns_db_addrdataset(db, node, version, 0, &rdataset, 0, NULL);
	if (!ISC_LIST_EMPTY(keylist))
361
362
		dns_db_addrdataset(db, node, version, 0, &sigrdataset, 0,
				   NULL);
363
364
365
366

	dns_db_detachnode(db, &node);
	dns_db_closeversion(db, &version, ISC_TRUE);
	result = dns_db_dump(db, version, output);
367
368
369
	if (result != ISC_R_SUCCESS) {
		char domainstr[DNS_NAME_FORMATSIZE];
		dns_name_format(domain, domainstr, sizeof domainstr);
370
		fatal("failed to write database for %s to %s",
371
372
		      domainstr, output);
	}
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392

	dns_db_detach(&db);

	dns_rdataset_disassociate(&rdataset);
	while (!ISC_LIST_EMPTY(rdatalist.rdata)) {
		rdata = ISC_LIST_HEAD(rdatalist.rdata);
		ISC_LIST_UNLINK(rdatalist.rdata, rdata, link);
		isc_mem_put(mctx, rdata->data, BUFSIZE);
		isc_mem_put(mctx, rdata, sizeof *rdata);
	}
	while (!ISC_LIST_EMPTY(sigrdatalist.rdata)) {
		rdata = ISC_LIST_HEAD(sigrdatalist.rdata);
		ISC_LIST_UNLINK(sigrdatalist.rdata, rdata, link);
		isc_mem_put(mctx, rdata->data, BUFSIZE);
		isc_mem_put(mctx, rdata, sizeof *rdata);
	}

	while (!ISC_LIST_EMPTY(keylist)) {
		keynode = ISC_LIST_HEAD(keylist);
		ISC_LIST_UNLINK(keylist, keynode, link);
393
		dst_key_free(&keynode->key);
394
395
396
		isc_mem_put(mctx, keynode, sizeof(keynode_t));
	}

Brian Wellington's avatar
Brian Wellington committed
397
398
399
400
401
	if (savedname != NULL) {
		dns_name_free(savedname, mctx);
		isc_mem_put(mctx, savedname, sizeof(dns_name_t));
	}

402
403
	if (log != NULL)
		isc_log_destroy(&log);
Brian Wellington's avatar
Brian Wellington committed
404
	cleanup_entropy(&ectx);
405
406

	isc_mem_free(mctx, output);
Brian Wellington's avatar
Brian Wellington committed
407
	dst_lib_destroy();
408
409
	if (verbose > 10)
		isc_mem_stats(mctx, stdout);
410
411
412
	isc_mem_destroy(&mctx);
	return (0);
}