?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
ldns: Update vendor branch from 1.6.16 to 1.7.0
[dragonfly.git] / contrib / ldns / dnssec.c
blobe3c99de27693e2cc8e6d7bdd77fa6128d8c6440b
1 /*
2 * dnssec.c
3 *
4 * contains the cryptographic function needed for DNSSEC in ldns
5 * The crypto library used is openssl
6 *
7 * (c) NLnet Labs, 2004-2008
8 *
9 * See the file LICENSE for the license
10 */
11
12 #include <ldns/config.h>
13
14 #include <ldns/ldns.h>
15 #include <ldns/dnssec.h>
16
17 #include <strings.h>
18 #include <time.h>
19
20 #ifdef HAVE_SSL
21 #include <openssl/ssl.h>
22 #include <openssl/evp.h>
23 #include <openssl/rand.h>
24 #include <openssl/err.h>
25 #include <openssl/md5.h>
26 #endif
27
28 ldns_rr *
29 ldns_dnssec_get_rrsig_for_name_and_type(const ldns_rdf *name,
30 const ldns_rr_type type,
31 const ldns_rr_list *rrs)
32 {
33 size_t i;
34 ldns_rr *candidate;
35
36 if (!name || !rrs) {
37 return NULL;
38 }
39
40 for (i = 0; i < ldns_rr_list_rr_count(rrs); i++) {
41 candidate = ldns_rr_list_rr(rrs, i);
42 if (ldns_rr_get_type(candidate) == LDNS_RR_TYPE_RRSIG) {
43 if (ldns_dname_compare(ldns_rr_owner(candidate),
44 name) == 0 &&
45 ldns_rdf2rr_type(ldns_rr_rrsig_typecovered(candidate))
46 == type
47 ) {
48 return candidate;
49 }
50 }
51 }
52
53 return NULL;
54 }
55
56 ldns_rr *
57 ldns_dnssec_get_dnskey_for_rrsig(const ldns_rr *rrsig,
58 const ldns_rr_list *rrs)
59 {
60 size_t i;
61 ldns_rr *candidate;
62
63 if (!rrsig || !rrs) {
64 return NULL;
65 }
66
67 for (i = 0; i < ldns_rr_list_rr_count(rrs); i++) {
68 candidate = ldns_rr_list_rr(rrs, i);
69 if (ldns_rr_get_type(candidate) == LDNS_RR_TYPE_DNSKEY) {
70 if (ldns_dname_compare(ldns_rr_owner(candidate),
71 ldns_rr_rrsig_signame(rrsig)) == 0 &&
72 ldns_rdf2native_int16(ldns_rr_rrsig_keytag(rrsig)) ==
73 ldns_calc_keytag(candidate)
74 ) {
75 return candidate;
76 }
77 }
78 }
79
80 return NULL;
81 }
82
83 ldns_rdf *
84 ldns_nsec_get_bitmap(const ldns_rr *nsec) {
85 if (ldns_rr_get_type(nsec) == LDNS_RR_TYPE_NSEC) {
86 return ldns_rr_rdf(nsec, 1);
87 } else if (ldns_rr_get_type(nsec) == LDNS_RR_TYPE_NSEC3) {
88 return ldns_rr_rdf(nsec, 5);
89 } else {
90 return NULL;
91 }
92 }
93
94 /*return the owner name of the closest encloser for name from the list of rrs */
95 /* this is NOT the hash, but the original name! */
96 ldns_rdf *
97 ldns_dnssec_nsec3_closest_encloser(const ldns_rdf *qname,
98 ATTR_UNUSED(ldns_rr_type qtype),
99 const ldns_rr_list *nsec3s)
100 {
101 /* remember parameters, they must match */
102 uint8_t algorithm;
103 uint32_t iterations;
104 uint8_t salt_length;
105 uint8_t *salt;
106
107 ldns_rdf *sname, *hashed_sname, *tmp;
108 bool flag;
109
110 bool exact_match_found;
111 bool in_range_found;
112
113 ldns_status status;
114 ldns_rdf *zone_name;
115
116 size_t nsec_i;
117 ldns_rr *nsec;
118 ldns_rdf *result = NULL;
119
120 if (!qname || !nsec3s || ldns_rr_list_rr_count(nsec3s) < 1) {
121 return NULL;
122 }
123
124 nsec = ldns_rr_list_rr(nsec3s, 0);
125 algorithm = ldns_nsec3_algorithm(nsec);
126 salt_length = ldns_nsec3_salt_length(nsec);
127 salt = ldns_nsec3_salt_data(nsec);
128 iterations = ldns_nsec3_iterations(nsec);
129
130 sname = ldns_rdf_clone(qname);
131
132 flag = false;
133
134 zone_name = ldns_dname_left_chop(ldns_rr_owner(nsec));
135
136 /* algorithm from nsec3-07 8.3 */
137 while (ldns_dname_label_count(sname) > 0) {
138 exact_match_found = false;
139 in_range_found = false;
140
141 hashed_sname = ldns_nsec3_hash_name(sname,
142 algorithm,
143 iterations,
144 salt_length,
145 salt);
146
147 status = ldns_dname_cat(hashed_sname, zone_name);
148 if(status != LDNS_STATUS_OK) {
149 LDNS_FREE(salt);
150 ldns_rdf_deep_free(zone_name);
151 ldns_rdf_deep_free(sname);
152 return NULL;
153 }
154
155 for (nsec_i = 0; nsec_i < ldns_rr_list_rr_count(nsec3s); nsec_i++) {
156 nsec = ldns_rr_list_rr(nsec3s, nsec_i);
157
158 /* check values of iterations etc! */
159
160 /* exact match? */
161 if (ldns_dname_compare(ldns_rr_owner(nsec), hashed_sname) == 0) {
162 exact_match_found = true;
163 } else if (ldns_nsec_covers_name(nsec, hashed_sname)) {
164 in_range_found = true;
165 }
166
167 }
168 if (!exact_match_found && in_range_found) {
169 flag = true;
170 } else if (exact_match_found && flag) {
171 result = ldns_rdf_clone(sname);
172 /* RFC 5155: 8.3. 2.** "The proof is complete" */
173 ldns_rdf_deep_free(hashed_sname);
174 goto done;
175 } else if (exact_match_found && !flag) {
176 /* error! */
177 ldns_rdf_deep_free(hashed_sname);
178 goto done;
179 } else {
180 flag = false;
181 }
182
183 ldns_rdf_deep_free(hashed_sname);
184 tmp = sname;
185 sname = ldns_dname_left_chop(sname);
186 ldns_rdf_deep_free(tmp);
187 }
188
189 done:
190 LDNS_FREE(salt);
191 ldns_rdf_deep_free(zone_name);
192 ldns_rdf_deep_free(sname);
193
194 return result;
195 }
196
197 bool
198 ldns_dnssec_pkt_has_rrsigs(const ldns_pkt *pkt)
199 {
200 size_t i;
201 for (i = 0; i < ldns_pkt_ancount(pkt); i++) {
202 if (ldns_rr_get_type(ldns_rr_list_rr(ldns_pkt_answer(pkt), i)) ==
203 LDNS_RR_TYPE_RRSIG) {
204 return true;
205 }
206 }
207 for (i = 0; i < ldns_pkt_nscount(pkt); i++) {
208 if (ldns_rr_get_type(ldns_rr_list_rr(ldns_pkt_authority(pkt), i)) ==
209 LDNS_RR_TYPE_RRSIG) {
210 return true;
211 }
212 }
213 return false;
214 }
215
216 ldns_rr_list *
217 ldns_dnssec_pkt_get_rrsigs_for_name_and_type(const ldns_pkt *pkt,
218 const ldns_rdf *name,
219 ldns_rr_type type)
220 {
221 uint16_t t_netorder;
222 ldns_rr_list *sigs;
223 ldns_rr_list *sigs_covered;
224 ldns_rdf *rdf_t;
225
226 sigs = ldns_pkt_rr_list_by_name_and_type(pkt,
227 name,
228 LDNS_RR_TYPE_RRSIG,
229 LDNS_SECTION_ANY_NOQUESTION
230 );
231
232 t_netorder = htons(type); /* rdf are in network order! */
233 rdf_t = ldns_rdf_new(LDNS_RDF_TYPE_TYPE, LDNS_RDF_SIZE_WORD, &t_netorder);
234 sigs_covered = ldns_rr_list_subtype_by_rdf(sigs, rdf_t, 0);
235
236 ldns_rdf_free(rdf_t);
237 ldns_rr_list_deep_free(sigs);
238
239 return sigs_covered;
240
241 }
242
243 ldns_rr_list *
244 ldns_dnssec_pkt_get_rrsigs_for_type(const ldns_pkt *pkt, ldns_rr_type type)
245 {
246 uint16_t t_netorder;
247 ldns_rr_list *sigs;
248 ldns_rr_list *sigs_covered;
249 ldns_rdf *rdf_t;
250
251 sigs = ldns_pkt_rr_list_by_type(pkt,
252 LDNS_RR_TYPE_RRSIG,
253 LDNS_SECTION_ANY_NOQUESTION
254 );
255
256 t_netorder = htons(type); /* rdf are in network order! */
257 rdf_t = ldns_rdf_new(LDNS_RDF_TYPE_TYPE,
258 2,
259 &t_netorder);
260 sigs_covered = ldns_rr_list_subtype_by_rdf(sigs, rdf_t, 0);
261
262 ldns_rdf_free(rdf_t);
263 ldns_rr_list_deep_free(sigs);
264
265 return sigs_covered;
266
267 }
268
269 /* used only on the public key RR */
270 uint16_t
271 ldns_calc_keytag(const ldns_rr *key)
272 {
273 uint16_t ac16;
274 ldns_buffer *keybuf;
275 size_t keysize;
276
277 if (!key) {
278 return 0;
279 }
280
281 if (ldns_rr_get_type(key) != LDNS_RR_TYPE_DNSKEY &&
282 ldns_rr_get_type(key) != LDNS_RR_TYPE_KEY
283 ) {
284 return 0;
285 }
286
287 /* rdata to buf - only put the rdata in a buffer */
288 keybuf = ldns_buffer_new(LDNS_MIN_BUFLEN); /* grows */
289 if (!keybuf) {
290 return 0;
291 }
292 (void)ldns_rr_rdata2buffer_wire(keybuf, key);
293 /* the current pos in the buffer is the keysize */
294 keysize= ldns_buffer_position(keybuf);
295
296 ac16 = ldns_calc_keytag_raw(ldns_buffer_begin(keybuf), keysize);
297 ldns_buffer_free(keybuf);
298 return ac16;
299 }
300
301 uint16_t ldns_calc_keytag_raw(const uint8_t* key, size_t keysize)
302 {
303 unsigned int i;
304 uint32_t ac32;
305 uint16_t ac16;
306
307 if(keysize < 4) {
308 return 0;
309 }
310 /* look at the algorithm field, copied from 2535bis */
311 if (key[3] == LDNS_RSAMD5) {
312 ac16 = 0;
313 if (keysize > 4) {
314 memmove(&ac16, key + keysize - 3, 2);
315 }
316 ac16 = ntohs(ac16);
317 return (uint16_t) ac16;
318 } else {
319 ac32 = 0;
320 for (i = 0; (size_t)i < keysize; ++i) {
321 ac32 += (i & 1) ? key[i] : key[i] << 8;
322 }
323 ac32 += (ac32 >> 16) & 0xFFFF;
324 return (uint16_t) (ac32 & 0xFFFF);
325 }
326 }
327
328 #ifdef HAVE_SSL
329 DSA *
330 ldns_key_buf2dsa(const ldns_buffer *key)
331 {
332 return ldns_key_buf2dsa_raw((const unsigned char*)ldns_buffer_begin(key),
333 ldns_buffer_position(key));
334 }
335
336 DSA *
337 ldns_key_buf2dsa_raw(const unsigned char* key, size_t len)
338 {
339 uint8_t T;
340 uint16_t length;
341 uint16_t offset;
342 DSA *dsa;
343 BIGNUM *Q; BIGNUM *P;
344 BIGNUM *G; BIGNUM *Y;
345
346 if(len == 0)
347 return NULL;
348 T = (uint8_t)key[0];
349 length = (64 + T * 8);
350 offset = 1;
351
352 if (T > 8) {
353 return NULL;
354 }
355 if(len < (size_t)1 + SHA_DIGEST_LENGTH + 3*length)
356 return NULL;
357
358 Q = BN_bin2bn(key+offset, SHA_DIGEST_LENGTH, NULL);
359 offset += SHA_DIGEST_LENGTH;
360
361 P = BN_bin2bn(key+offset, (int)length, NULL);
362 offset += length;
363
364 G = BN_bin2bn(key+offset, (int)length, NULL);
365 offset += length;
366
367 Y = BN_bin2bn(key+offset, (int)length, NULL);
368 offset += length;
369
370 /* create the key and set its properties */
371 if(!Q || !P || !G || !Y || !(dsa = DSA_new())) {
372 BN_free(Q);
373 BN_free(P);
374 BN_free(G);
375 BN_free(Y);
376 return NULL;
377 }
378 #if OPENSSL_VERSION_NUMBER < 0x10100000 || defined(HAVE_LIBRESSL)
379 #ifndef S_SPLINT_S
380 dsa->p = P;
381 dsa->q = Q;
382 dsa->g = G;
383 dsa->pub_key = Y;
384 #endif /* splint */
385 #else /* OPENSSL_VERSION_NUMBER */
386 if (!DSA_set0_pqg(dsa, P, Q, G)) {
387 /* QPG not yet attached, need to free */
388 BN_free(Q);
389 BN_free(P);
390 BN_free(G);
391
392 DSA_free(dsa);
393 BN_free(Y);
394 return NULL;
395 }
396 if (!DSA_set0_key(dsa, Y, NULL)) {
397 /* QPG attached, cleaned up by DSA_fre() */
398 DSA_free(dsa);
399 BN_free(Y);
400 return NULL;
401 }
402 #endif /* OPENSSL_VERSION_NUMBER */
403 return dsa;
404 }
405
406 RSA *
407 ldns_key_buf2rsa(const ldns_buffer *key)
408 {
409 return ldns_key_buf2rsa_raw((const unsigned char*)ldns_buffer_begin(key),
410 ldns_buffer_position(key));
411 }
412
413 RSA *
414 ldns_key_buf2rsa_raw(const unsigned char* key, size_t len)
415 {
416 uint16_t offset;
417 uint16_t exp;
418 uint16_t int16;
419 RSA *rsa;
420 BIGNUM *modulus;
421 BIGNUM *exponent;
422
423 if (len == 0)
424 return NULL;
425 if (key[0] == 0) {
426 if(len < 3)
427 return NULL;
428 /* need some smart comment here XXX*/
429 /* the exponent is too large so it's places
430 * futher...???? */
431 memmove(&int16, key+1, 2);
432 exp = ntohs(int16);
433 offset = 3;
434 } else {
435 exp = key[0];
436 offset = 1;
437 }
438
439 /* key length at least one */
440 if(len < (size_t)offset + exp + 1)
441 return NULL;
442
443 /* Exponent */
444 exponent = BN_new();
445 if(!exponent) return NULL;
446 (void) BN_bin2bn(key+offset, (int)exp, exponent);
447 offset += exp;
448
449 /* Modulus */
450 modulus = BN_new();
451 if(!modulus) {
452 BN_free(exponent);
453 return NULL;
454 }
455 /* length of the buffer must match the key length! */
456 (void) BN_bin2bn(key+offset, (int)(len - offset), modulus);
457
458 rsa = RSA_new();
459 if(!rsa) {
460 BN_free(exponent);
461 BN_free(modulus);
462 return NULL;
463 }
464 #if OPENSSL_VERSION_NUMBER < 0x10100000 || defined(HAVE_LIBRESSL)
465 #ifndef S_SPLINT_S
466 rsa->n = modulus;
467 rsa->e = exponent;
468 #endif /* splint */
469 #else /* OPENSSL_VERSION_NUMBER */
470 if (!RSA_set0_key(rsa, modulus, exponent, NULL)) {
471 BN_free(exponent);
472 BN_free(modulus);
473 RSA_free(rsa);
474 return NULL;
475 }
476 #endif /* OPENSSL_VERSION_NUMBER */
477
478 return rsa;
479 }
480
481 int
482 ldns_digest_evp(const unsigned char* data, unsigned int len, unsigned char* dest,
483 const EVP_MD* md)
484 {
485 EVP_MD_CTX* ctx;
486 ctx = EVP_MD_CTX_create();
487 if(!ctx)
488 return false;
489 if(!EVP_DigestInit_ex(ctx, md, NULL) ||
490 !EVP_DigestUpdate(ctx, data, len) ||
491 !EVP_DigestFinal_ex(ctx, dest, NULL)) {
492 EVP_MD_CTX_destroy(ctx);
493 return false;
494 }
495 EVP_MD_CTX_destroy(ctx);
496 return true;
497 }
498 #endif /* HAVE_SSL */
499
500 ldns_rr *
501 ldns_key_rr2ds(const ldns_rr *key, ldns_hash h)
502 {
503 ldns_rdf *tmp;
504 ldns_rr *ds;
505 uint16_t keytag;
506 uint8_t sha1hash;
507 uint8_t *digest;
508 ldns_buffer *data_buf;
509 #ifdef USE_GOST
510 const EVP_MD* md = NULL;
511 #endif
512
513 if (ldns_rr_get_type(key) != LDNS_RR_TYPE_DNSKEY) {
514 return NULL;
515 }
516
517 ds = ldns_rr_new();
518 if (!ds) {
519 return NULL;
520 }
521 ldns_rr_set_type(ds, LDNS_RR_TYPE_DS);
522 ldns_rr_set_owner(ds, ldns_rdf_clone(
523 ldns_rr_owner(key)));
524 ldns_rr_set_ttl(ds, ldns_rr_ttl(key));
525 ldns_rr_set_class(ds, ldns_rr_get_class(key));
526
527 switch(h) {
528 default:
529 case LDNS_SHA1:
530 digest = LDNS_XMALLOC(uint8_t, LDNS_SHA1_DIGEST_LENGTH);
531 if (!digest) {
532 ldns_rr_free(ds);
533 return NULL;
534 }
535 break;
536 case LDNS_SHA256:
537 digest = LDNS_XMALLOC(uint8_t, LDNS_SHA256_DIGEST_LENGTH);
538 if (!digest) {
539 ldns_rr_free(ds);
540 return NULL;
541 }
542 break;
543 case LDNS_HASH_GOST:
544 #ifdef USE_GOST
545 (void)ldns_key_EVP_load_gost_id();
546 md = EVP_get_digestbyname("md_gost94");
547 if(!md) {
548 ldns_rr_free(ds);
549 return NULL;
550 }
551 digest = LDNS_XMALLOC(uint8_t, EVP_MD_size(md));
552 if (!digest) {
553 ldns_rr_free(ds);
554 return NULL;
555 }
556 break;
557 #else
558 /* not implemented */
559 ldns_rr_free(ds);
560 return NULL;
561 #endif
562 case LDNS_SHA384:
563 #ifdef USE_ECDSA
564 digest = LDNS_XMALLOC(uint8_t, SHA384_DIGEST_LENGTH);
565 if (!digest) {
566 ldns_rr_free(ds);
567 return NULL;
568 }
569 break;
570 #else
571 /* not implemented */
572 ldns_rr_free(ds);
573 return NULL;
574 #endif
575 }
576
577 data_buf = ldns_buffer_new(LDNS_MAX_PACKETLEN);
578 if (!data_buf) {
579 LDNS_FREE(digest);
580 ldns_rr_free(ds);
581 return NULL;
582 }
583
584 /* keytag */
585 keytag = htons(ldns_calc_keytag((ldns_rr*)key));
586 tmp = ldns_rdf_new_frm_data(LDNS_RDF_TYPE_INT16,
587 sizeof(uint16_t),
588 &keytag);
589 ldns_rr_push_rdf(ds, tmp);
590
591 /* copy the algorithm field */
592 if ((tmp = ldns_rr_rdf(key, 2)) == NULL) {
593 LDNS_FREE(digest);
594 ldns_buffer_free(data_buf);
595 ldns_rr_free(ds);
596 return NULL;
597 } else {
598 ldns_rr_push_rdf(ds, ldns_rdf_clone( tmp ));
599 }
600
601 /* digest hash type */
602 sha1hash = (uint8_t)h;
603 tmp = ldns_rdf_new_frm_data(LDNS_RDF_TYPE_INT8,
604 sizeof(uint8_t),
605 &sha1hash);
606 ldns_rr_push_rdf(ds, tmp);
607
608 /* digest */
609 /* owner name */
610 tmp = ldns_rdf_clone(ldns_rr_owner(key));
611 ldns_dname2canonical(tmp);
612 if (ldns_rdf2buffer_wire(data_buf, tmp) != LDNS_STATUS_OK) {
613 LDNS_FREE(digest);
614 ldns_buffer_free(data_buf);
615 ldns_rr_free(ds);
616 ldns_rdf_deep_free(tmp);
617 return NULL;
618 }
619 ldns_rdf_deep_free(tmp);
620
621 /* all the rdata's */
622 if (ldns_rr_rdata2buffer_wire(data_buf,
623 (ldns_rr*)key) != LDNS_STATUS_OK) {
624 LDNS_FREE(digest);
625 ldns_buffer_free(data_buf);
626 ldns_rr_free(ds);
627 return NULL;
628 }
629 switch(h) {
630 case LDNS_SHA1:
631 (void) ldns_sha1((unsigned char *) ldns_buffer_begin(data_buf),
632 (unsigned int) ldns_buffer_position(data_buf),
633 (unsigned char *) digest);
634
635 tmp = ldns_rdf_new_frm_data(LDNS_RDF_TYPE_HEX,
636 LDNS_SHA1_DIGEST_LENGTH,
637 digest);
638 ldns_rr_push_rdf(ds, tmp);
639
640 break;
641 case LDNS_SHA256:
642 (void) ldns_sha256((unsigned char *) ldns_buffer_begin(data_buf),
643 (unsigned int) ldns_buffer_position(data_buf),
644 (unsigned char *) digest);
645 tmp = ldns_rdf_new_frm_data(LDNS_RDF_TYPE_HEX,
646 LDNS_SHA256_DIGEST_LENGTH,
647 digest);
648 ldns_rr_push_rdf(ds, tmp);
649 break;
650 case LDNS_HASH_GOST:
651 #ifdef USE_GOST
652 if(!ldns_digest_evp((unsigned char *) ldns_buffer_begin(data_buf),
653 (unsigned int) ldns_buffer_position(data_buf),
654 (unsigned char *) digest, md)) {
655 LDNS_FREE(digest);
656 ldns_buffer_free(data_buf);
657 ldns_rr_free(ds);
658 return NULL;
659 }
660 tmp = ldns_rdf_new_frm_data(LDNS_RDF_TYPE_HEX,
661 (size_t)EVP_MD_size(md),
662 digest);
663 ldns_rr_push_rdf(ds, tmp);
664 #endif
665 break;
666 case LDNS_SHA384:
667 #ifdef USE_ECDSA
668 (void) SHA384((unsigned char *) ldns_buffer_begin(data_buf),
669 (unsigned int) ldns_buffer_position(data_buf),
670 (unsigned char *) digest);
671 tmp = ldns_rdf_new_frm_data(LDNS_RDF_TYPE_HEX,
672 SHA384_DIGEST_LENGTH,
673 digest);
674 ldns_rr_push_rdf(ds, tmp);
675 #endif
676 break;
677 }
678
679 LDNS_FREE(digest);
680 ldns_buffer_free(data_buf);
681 return ds;
682 }
683
684 /* From RFC3845:
685 *
686 * 2.1.2. The List of Type Bit Map(s) Field
687 *
688 * The RR type space is split into 256 window blocks, each representing
689 * the low-order 8 bits of the 16-bit RR type space. Each block that
690 * has at least one active RR type is encoded using a single octet
691 * window number (from 0 to 255), a single octet bitmap length (from 1
692 * to 32) indicating the number of octets used for the window block's
693 * bitmap, and up to 32 octets (256 bits) of bitmap.
694 *
695 * Window blocks are present in the NSEC RR RDATA in increasing
696 * numerical order.
697 *
698 * "|" denotes concatenation
699 *
700 * Type Bit Map(s) Field = ( Window Block # | Bitmap Length | Bitmap ) +
701 *
702 * <cut>
703 *
704 * Blocks with no types present MUST NOT be included. Trailing zero
705 * octets in the bitmap MUST be omitted. The length of each block's
706 * bitmap is determined by the type code with the largest numerical
707 * value within that block, among the set of RR types present at the
708 * NSEC RR's owner name. Trailing zero octets not specified MUST be
709 * interpreted as zero octets.
710 */
711 ldns_rdf *
712 ldns_dnssec_create_nsec_bitmap(ldns_rr_type rr_type_list[],
713 size_t size,
714 ldns_rr_type nsec_type)
715 {
716 uint8_t window; /* most significant octet of type */
717 uint8_t subtype; /* least significant octet of type */
718 int windows[256]; /* Max subtype per window */
719 uint8_t windowpresent[256]; /* bool if window appears in bitmap */
720 ldns_rr_type* d; /* used to traverse rr_type_list*/
721 size_t i; /* used to traverse windows array */
722
723 size_t sz; /* size needed for type bitmap rdf */
724 uint8_t* data = NULL; /* rdf data */
725 uint8_t* dptr; /* used to itraverse rdf data */
726 ldns_rdf* rdf; /* bitmap rdf to return */
727
728 if (nsec_type != LDNS_RR_TYPE_NSEC &&
729 nsec_type != LDNS_RR_TYPE_NSEC3) {
730 return NULL;
731 }
732 memset(windows, 0, sizeof(int)*256);
733 memset(windowpresent, 0, 256);
734
735 /* Which other windows need to be in the bitmap rdf?
736 */
737 for (d = rr_type_list; d < rr_type_list + size; d++) {
738 window = *d >> 8;
739 subtype = *d & 0xff;
740 windowpresent[window] = 1;
741 if (windows[window] < (int)subtype) {
742 windows[window] = (int)subtype;
743 }
744 }
745
746 /* How much space do we need in the rdf for those windows?
747 */
748 sz = 0;
749 for (i = 0; i < 256; i++) {
750 if (windowpresent[i]) {
751 sz += windows[i] / 8 + 3;
752 }
753 }
754 if (sz > 0) {
755 /* Format rdf data according RFC3845 Section 2.1.2 (see above)
756 */
757 dptr = data = LDNS_CALLOC(uint8_t, sz);
758 if (!data) {
759 return NULL;
760 }
761 for (i = 0; i < 256; i++) {
762 if (windowpresent[i]) {
763 *dptr++ = (uint8_t)i;
764 *dptr++ = (uint8_t)(windows[i] / 8 + 1);
765
766 /* Now let windows[i] index the bitmap
767 * within data
768 */
769 windows[i] = (int)(dptr - data);
770
771 dptr += dptr[-1];
772 }
773 }
774 }
775
776 /* Set the bits?
777 */
778 for (d = rr_type_list; d < rr_type_list + size; d++) {
779 subtype = *d & 0xff;
780 data[windows[*d >> 8] + subtype/8] |= (0x80 >> (subtype % 8));
781 }
782
783 /* Allocate and return rdf structure for the data
784 */
785 rdf = ldns_rdf_new(LDNS_RDF_TYPE_BITMAP, sz, data);
786 if (!rdf) {
787 LDNS_FREE(data);
788 return NULL;
789 }
790 return rdf;
791 }
792
793 int
794 ldns_dnssec_rrsets_contains_type(const ldns_dnssec_rrsets *rrsets,
795 ldns_rr_type type)
796 {
797 const ldns_dnssec_rrsets *cur_rrset = rrsets;
798 while (cur_rrset) {
799 if (cur_rrset->type == type) {
800 return 1;
801 }
802 cur_rrset = cur_rrset->next;
803 }
804 return 0;
805 }
806
807 ldns_rr *
808 ldns_dnssec_create_nsec(const ldns_dnssec_name *from,
809 const ldns_dnssec_name *to,
810 ldns_rr_type nsec_type)
811 {
812 ldns_rr *nsec_rr;
813 ldns_rr_type types[65536];
814 size_t type_count = 0;
815 ldns_dnssec_rrsets *cur_rrsets;
816 int on_delegation_point;
817
818 if (!from || !to || (nsec_type != LDNS_RR_TYPE_NSEC)) {
819 return NULL;
820 }
821
822 nsec_rr = ldns_rr_new();
823 ldns_rr_set_type(nsec_rr, nsec_type);
824 ldns_rr_set_owner(nsec_rr, ldns_rdf_clone(ldns_dnssec_name_name(from)));
825 ldns_rr_push_rdf(nsec_rr, ldns_rdf_clone(ldns_dnssec_name_name(to)));
826
827 on_delegation_point = ldns_dnssec_rrsets_contains_type(
828 from->rrsets, LDNS_RR_TYPE_NS)
829 && !ldns_dnssec_rrsets_contains_type(
830 from->rrsets, LDNS_RR_TYPE_SOA);
831
832 cur_rrsets = from->rrsets;
833 while (cur_rrsets) {
834 /* Do not include non-authoritative rrsets on the delegation point
835 * in the type bitmap */
836 if ((on_delegation_point && (
837 cur_rrsets->type == LDNS_RR_TYPE_NS
838 || cur_rrsets->type == LDNS_RR_TYPE_DS))
839 || (!on_delegation_point &&
840 cur_rrsets->type != LDNS_RR_TYPE_RRSIG
841 && cur_rrsets->type != LDNS_RR_TYPE_NSEC)) {
842
843 types[type_count] = cur_rrsets->type;
844 type_count++;
845 }
846 cur_rrsets = cur_rrsets->next;
847
848 }
849 types[type_count] = LDNS_RR_TYPE_RRSIG;
850 type_count++;
851 types[type_count] = LDNS_RR_TYPE_NSEC;
852 type_count++;
853
854 ldns_rr_push_rdf(nsec_rr, ldns_dnssec_create_nsec_bitmap(types,
855 type_count,
856 nsec_type));
857
858 return nsec_rr;
859 }
860
861 ldns_rr *
862 ldns_dnssec_create_nsec3(const ldns_dnssec_name *from,
863 const ldns_dnssec_name *to,
864 const ldns_rdf *zone_name,
865 uint8_t algorithm,
866 uint8_t flags,
867 uint16_t iterations,
868 uint8_t salt_length,
869 const uint8_t *salt)
870 {
871 ldns_rr *nsec_rr;
872 ldns_rr_type types[65536];
873 size_t type_count = 0;
874 ldns_dnssec_rrsets *cur_rrsets;
875 ldns_status status;
876 int on_delegation_point;
877
878 if (!from) {
879 return NULL;
880 }
881
882 nsec_rr = ldns_rr_new_frm_type(LDNS_RR_TYPE_NSEC3);
883 ldns_rr_set_owner(nsec_rr,
884 ldns_nsec3_hash_name(ldns_dnssec_name_name(from),
885 algorithm,
886 iterations,
887 salt_length,
888 salt));
889 status = ldns_dname_cat(ldns_rr_owner(nsec_rr), zone_name);
890 if(status != LDNS_STATUS_OK) {
891 ldns_rr_free(nsec_rr);
892 return NULL;
893 }
894 ldns_nsec3_add_param_rdfs(nsec_rr,
895 algorithm,
896 flags,
897 iterations,
898 salt_length,
899 salt);
900
901 on_delegation_point = ldns_dnssec_rrsets_contains_type(
902 from->rrsets, LDNS_RR_TYPE_NS)
903 && !ldns_dnssec_rrsets_contains_type(
904 from->rrsets, LDNS_RR_TYPE_SOA);
905 cur_rrsets = from->rrsets;
906 while (cur_rrsets) {
907 /* Do not include non-authoritative rrsets on the delegation point
908 * in the type bitmap. Potentionally not skipping insecure
909 * delegation should have been done earlier, in function
910 * ldns_dnssec_zone_create_nsec3s, or even earlier in:
911 * ldns_dnssec_zone_sign_nsec3_flg .
912 */
913 if ((on_delegation_point && (
914 cur_rrsets->type == LDNS_RR_TYPE_NS
915 || cur_rrsets->type == LDNS_RR_TYPE_DS))
916 || (!on_delegation_point &&
917 cur_rrsets->type != LDNS_RR_TYPE_RRSIG)) {
918
919 types[type_count] = cur_rrsets->type;
920 type_count++;
921 }
922 cur_rrsets = cur_rrsets->next;
923 }
924 /* always add rrsig type if this is not an unsigned
925 * delegation
926 */
927 if (type_count > 0 &&
928 !(type_count == 1 && types[0] == LDNS_RR_TYPE_NS)) {
929 types[type_count] = LDNS_RR_TYPE_RRSIG;
930 type_count++;
931 }
932
933 /* leave next rdata empty if they weren't precomputed yet */
934 if (to && to->hashed_name) {
935 (void) ldns_rr_set_rdf(nsec_rr,
936 ldns_rdf_clone(to->hashed_name),
937 4);
938 } else {
939 (void) ldns_rr_set_rdf(nsec_rr, NULL, 4);
940 }
941
942 ldns_rr_push_rdf(nsec_rr,
943 ldns_dnssec_create_nsec_bitmap(types,
944 type_count,
945 LDNS_RR_TYPE_NSEC3));
946
947 return nsec_rr;
948 }
949
950 ldns_rr *
951 ldns_create_nsec(ldns_rdf *cur_owner, ldns_rdf *next_owner, ldns_rr_list *rrs)
952 {
953 /* we do not do any check here - garbage in, garbage out */
954
955 /* the the start and end names - get the type from the
956 * before rrlist */
957
958 /* inefficient, just give it a name, a next name, and a list of rrs */
959 /* we make 1 big uberbitmap first, then windows */
960 /* todo: make something more efficient :) */
961 uint16_t i;
962 ldns_rr *i_rr;
963 uint16_t i_type;
964
965 ldns_rr *nsec = NULL;
966 ldns_rr_type i_type_list[65536];
967 size_t type_count = 0;
968
969 nsec = ldns_rr_new();
970 ldns_rr_set_type(nsec, LDNS_RR_TYPE_NSEC);
971 ldns_rr_set_owner(nsec, ldns_rdf_clone(cur_owner));
972 ldns_rr_push_rdf(nsec, ldns_rdf_clone(next_owner));
973
974 for (i = 0; i < ldns_rr_list_rr_count(rrs); i++) {
975 i_rr = ldns_rr_list_rr(rrs, i);
976 if (ldns_rdf_compare(cur_owner,
977 ldns_rr_owner(i_rr)) == 0) {
978 i_type = ldns_rr_get_type(i_rr);
979 if (i_type != LDNS_RR_TYPE_RRSIG && i_type != LDNS_RR_TYPE_NSEC) {
980 if (type_count == 0 || i_type_list[type_count-1] != i_type) {
981 i_type_list[type_count] = i_type;
982 type_count++;
983 }
984 }
985 }
986 }
987
988 i_type_list[type_count] = LDNS_RR_TYPE_RRSIG;
989 type_count++;
990 i_type_list[type_count] = LDNS_RR_TYPE_NSEC;
991 type_count++;
992
993 ldns_rr_push_rdf(nsec,
994 ldns_dnssec_create_nsec_bitmap(i_type_list,
995 type_count, LDNS_RR_TYPE_NSEC));
996
997 return nsec;
998 }
999
1000 ldns_rdf *
1001 ldns_nsec3_hash_name(const ldns_rdf *name,
1002 uint8_t algorithm,
1003 uint16_t iterations,
1004 uint8_t salt_length,
1005 const uint8_t *salt)
1006 {
1007 size_t hashed_owner_str_len;
1008 ldns_rdf *cann;
1009 ldns_rdf *hashed_owner;
1010 unsigned char *hashed_owner_str;
1011 char *hashed_owner_b32;
1012 size_t hashed_owner_b32_len;
1013 uint32_t cur_it;
1014 /* define to contain the largest possible hash, which is
1015 * sha1 at the moment */
1016 unsigned char hash[LDNS_SHA1_DIGEST_LENGTH];
1017 ldns_status status;
1018
1019 /* TODO: mnemonic list for hash algs SHA-1, default to 1 now (sha1) */
1020 if (algorithm != LDNS_SHA1) {
1021 return NULL;
1022 }
1023
1024 /* prepare the owner name according to the draft section bla */
1025 cann = ldns_rdf_clone(name);
1026 if(!cann) {
1027 #ifdef STDERR_MSGS
1028 fprintf(stderr, "Memory error\n");
1029 #endif
1030 return NULL;
1031 }
1032 ldns_dname2canonical(cann);
1033
1034 hashed_owner_str_len = salt_length + ldns_rdf_size(cann);
1035 hashed_owner_str = LDNS_XMALLOC(unsigned char, hashed_owner_str_len);
1036 if(!hashed_owner_str) {
1037 ldns_rdf_deep_free(cann);
1038 return NULL;
1039 }
1040 memcpy(hashed_owner_str, ldns_rdf_data(cann), ldns_rdf_size(cann));
1041 memcpy(hashed_owner_str + ldns_rdf_size(cann), salt, salt_length);
1042 ldns_rdf_deep_free(cann);
1043
1044 for (cur_it = iterations + 1; cur_it > 0; cur_it--) {
1045 (void) ldns_sha1((unsigned char *) hashed_owner_str,
1046 (unsigned int) hashed_owner_str_len, hash);
1047
1048 LDNS_FREE(hashed_owner_str);
1049 hashed_owner_str_len = salt_length + LDNS_SHA1_DIGEST_LENGTH;
1050 hashed_owner_str = LDNS_XMALLOC(unsigned char, hashed_owner_str_len);
1051 if (!hashed_owner_str) {
1052 return NULL;
1053 }
1054 memcpy(hashed_owner_str, hash, LDNS_SHA1_DIGEST_LENGTH);
1055 memcpy(hashed_owner_str + LDNS_SHA1_DIGEST_LENGTH, salt, salt_length);
1056 hashed_owner_str_len = LDNS_SHA1_DIGEST_LENGTH + salt_length;
1057 }
1058
1059 LDNS_FREE(hashed_owner_str);
1060 hashed_owner_str = hash;
1061 hashed_owner_str_len = LDNS_SHA1_DIGEST_LENGTH;
1062
1063 hashed_owner_b32 = LDNS_XMALLOC(char,
1064 ldns_b32_ntop_calculate_size(hashed_owner_str_len) + 1);
1065 if(!hashed_owner_b32) {
1066 return NULL;
1067 }
1068 hashed_owner_b32_len = (size_t) ldns_b32_ntop_extended_hex(
1069 (uint8_t *) hashed_owner_str,
1070 hashed_owner_str_len,
1071 hashed_owner_b32,
1072 ldns_b32_ntop_calculate_size(hashed_owner_str_len)+1);
1073 if (hashed_owner_b32_len < 1) {
1074 #ifdef STDERR_MSGS
1075 fprintf(stderr, "Error in base32 extended hex encoding ");
1076 fprintf(stderr, "of hashed owner name (name: ");
1077 ldns_rdf_print(stderr, name);
1078 fprintf(stderr, ", return code: %u)\n",
1079 (unsigned int) hashed_owner_b32_len);
1080 #endif
1081 LDNS_FREE(hashed_owner_b32);
1082 return NULL;
1083 }
1084 hashed_owner_b32[hashed_owner_b32_len] = '\0';
1085
1086 status = ldns_str2rdf_dname(&hashed_owner, hashed_owner_b32);
1087 if (status != LDNS_STATUS_OK) {
1088 #ifdef STDERR_MSGS
1089 fprintf(stderr, "Error creating rdf from %s\n", hashed_owner_b32);
1090 #endif
1091 LDNS_FREE(hashed_owner_b32);
1092 return NULL;
1093 }
1094
1095 LDNS_FREE(hashed_owner_b32);
1096 return hashed_owner;
1097 }
1098
1099 void
1100 ldns_nsec3_add_param_rdfs(ldns_rr *rr,
1101 uint8_t algorithm,
1102 uint8_t flags,
1103 uint16_t iterations,
1104 uint8_t salt_length,
1105 const uint8_t *salt)
1106 {
1107 ldns_rdf *salt_rdf = NULL;
1108 uint8_t *salt_data = NULL;
1109 ldns_rdf *old;
1110
1111 old = ldns_rr_set_rdf(rr,
1112 ldns_rdf_new_frm_data(LDNS_RDF_TYPE_INT8,
1113 1, (void*)&algorithm),
1114 0);
1115 if (old) ldns_rdf_deep_free(old);
1116
1117 old = ldns_rr_set_rdf(rr,
1118 ldns_rdf_new_frm_data(LDNS_RDF_TYPE_INT8,
1119 1, (void*)&flags),
1120 1);
1121 if (old) ldns_rdf_deep_free(old);
1122
1123 old = ldns_rr_set_rdf(rr,
1124 ldns_native2rdf_int16(LDNS_RDF_TYPE_INT16,
1125 iterations),
1126 2);
1127 if (old) ldns_rdf_deep_free(old);
1128
1129 salt_data = LDNS_XMALLOC(uint8_t, salt_length + 1);
1130 if(!salt_data) {
1131 /* no way to return error */
1132 return;
1133 }
1134 salt_data[0] = salt_length;
1135 memcpy(salt_data + 1, salt, salt_length);
1136 salt_rdf = ldns_rdf_new_frm_data(LDNS_RDF_TYPE_NSEC3_SALT,
1137 salt_length + 1,
1138 salt_data);
1139 if(!salt_rdf) {
1140 LDNS_FREE(salt_data);
1141 /* no way to return error */
1142 return;
1143 }
1144
1145 old = ldns_rr_set_rdf(rr, salt_rdf, 3);
1146 if (old) ldns_rdf_deep_free(old);
1147 LDNS_FREE(salt_data);
1148 }
1149
1150 static int
1151 rr_list_delegation_only(const ldns_rdf *origin, const ldns_rr_list *rr_list)
1152 {
1153 size_t i;
1154 ldns_rr *cur_rr;
1155 if (!origin || !rr_list) return 0;
1156 for (i = 0; i < ldns_rr_list_rr_count(rr_list); i++) {
1157 cur_rr = ldns_rr_list_rr(rr_list, i);
1158 if (ldns_dname_compare(ldns_rr_owner(cur_rr), origin) == 0) {
1159 return 0;
1160 }
1161 if (ldns_rr_get_type(cur_rr) != LDNS_RR_TYPE_NS) {
1162 return 0;
1163 }
1164 }
1165 return 1;
1166 }
1167
1168 /* this will NOT return the NSEC3 completed, you will have to run the
1169 finalize function on the rrlist later! */
1170 ldns_rr *
1171 ldns_create_nsec3(const ldns_rdf *cur_owner,
1172 const ldns_rdf *cur_zone,
1173 const ldns_rr_list *rrs,
1174 uint8_t algorithm,
1175 uint8_t flags,
1176 uint16_t iterations,
1177 uint8_t salt_length,
1178 const uint8_t *salt,
1179 bool emptynonterminal)
1180 {
1181 size_t i;
1182 ldns_rr *i_rr;
1183 uint16_t i_type;
1184
1185 ldns_rr *nsec = NULL;
1186 ldns_rdf *hashed_owner = NULL;
1187
1188 ldns_status status;
1189
1190 ldns_rr_type i_type_list[1024];
1191 size_t type_count = 0;
1192
1193 hashed_owner = ldns_nsec3_hash_name(cur_owner,
1194 algorithm,
1195 iterations,
1196 salt_length,
1197 salt);
1198 status = ldns_dname_cat(hashed_owner, cur_zone);
1199 if(status != LDNS_STATUS_OK) {
1200 ldns_rdf_deep_free(hashed_owner);
1201 return NULL;
1202 }
1203 nsec = ldns_rr_new_frm_type(LDNS_RR_TYPE_NSEC3);
1204 if(!nsec) {
1205 ldns_rdf_deep_free(hashed_owner);
1206 return NULL;
1207 }
1208 ldns_rr_set_type(nsec, LDNS_RR_TYPE_NSEC3);
1209 ldns_rr_set_owner(nsec, hashed_owner);
1210
1211 ldns_nsec3_add_param_rdfs(nsec,
1212 algorithm,
1213 flags,
1214 iterations,
1215 salt_length,
1216 salt);
1217 (void) ldns_rr_set_rdf(nsec, NULL, 4);
1218
1219
1220 for (i = 0; i < ldns_rr_list_rr_count(rrs); i++) {
1221 i_rr = ldns_rr_list_rr(rrs, i);
1222 if (ldns_rdf_compare(cur_owner,
1223 ldns_rr_owner(i_rr)) == 0) {
1224 i_type = ldns_rr_get_type(i_rr);
1225 if (type_count == 0 || i_type_list[type_count-1] != i_type) {
1226 i_type_list[type_count] = i_type;
1227 type_count++;
1228 }
1229 }
1230 }
1231
1232 /* add RRSIG anyway, but only if this is not an ENT or
1233 * an unsigned delegation */
1234 if (!emptynonterminal && !rr_list_delegation_only(cur_zone, rrs)) {
1235 i_type_list[type_count] = LDNS_RR_TYPE_RRSIG;
1236 type_count++;
1237 }
1238
1239 /* and SOA if owner == zone */
1240 if (ldns_dname_compare(cur_zone, cur_owner) == 0) {
1241 i_type_list[type_count] = LDNS_RR_TYPE_SOA;
1242 type_count++;
1243 }
1244
1245 ldns_rr_push_rdf(nsec,
1246 ldns_dnssec_create_nsec_bitmap(i_type_list,
1247 type_count, LDNS_RR_TYPE_NSEC3));
1248
1249 return nsec;
1250 }
1251
1252 uint8_t
1253 ldns_nsec3_algorithm(const ldns_rr *nsec3_rr)
1254 {
1255 if (nsec3_rr &&
1256 (ldns_rr_get_type(nsec3_rr) == LDNS_RR_TYPE_NSEC3 ||
1257 ldns_rr_get_type(nsec3_rr) == LDNS_RR_TYPE_NSEC3PARAM)
1258 && (ldns_rr_rdf(nsec3_rr, 0) != NULL)
1259 && ldns_rdf_size(ldns_rr_rdf(nsec3_rr, 0)) > 0) {
1260 return ldns_rdf2native_int8(ldns_rr_rdf(nsec3_rr, 0));
1261 }
1262 return 0;
1263 }
1264
1265 uint8_t
1266 ldns_nsec3_flags(const ldns_rr *nsec3_rr)
1267 {
1268 if (nsec3_rr &&
1269 (ldns_rr_get_type(nsec3_rr) == LDNS_RR_TYPE_NSEC3 ||
1270 ldns_rr_get_type(nsec3_rr) == LDNS_RR_TYPE_NSEC3PARAM)
1271 && (ldns_rr_rdf(nsec3_rr, 1) != NULL)
1272 && ldns_rdf_size(ldns_rr_rdf(nsec3_rr, 1)) > 0) {
1273 return ldns_rdf2native_int8(ldns_rr_rdf(nsec3_rr, 1));
1274 }
1275 return 0;
1276 }
1277
1278 bool
1279 ldns_nsec3_optout(const ldns_rr *nsec3_rr)
1280 {
1281 return (ldns_nsec3_flags(nsec3_rr) & LDNS_NSEC3_VARS_OPTOUT_MASK);
1282 }
1283
1284 uint16_t
1285 ldns_nsec3_iterations(const ldns_rr *nsec3_rr)
1286 {
1287 if (nsec3_rr &&
1288 (ldns_rr_get_type(nsec3_rr) == LDNS_RR_TYPE_NSEC3 ||
1289 ldns_rr_get_type(nsec3_rr) == LDNS_RR_TYPE_NSEC3PARAM)
1290 && (ldns_rr_rdf(nsec3_rr, 2) != NULL)
1291 && ldns_rdf_size(ldns_rr_rdf(nsec3_rr, 2)) > 0) {
1292 return ldns_rdf2native_int16(ldns_rr_rdf(nsec3_rr, 2));
1293 }
1294 return 0;
1295
1296 }
1297
1298 ldns_rdf *
1299 ldns_nsec3_salt(const ldns_rr *nsec3_rr)
1300 {
1301 if (nsec3_rr &&
1302 (ldns_rr_get_type(nsec3_rr) == LDNS_RR_TYPE_NSEC3 ||
1303 ldns_rr_get_type(nsec3_rr) == LDNS_RR_TYPE_NSEC3PARAM)
1304 ) {
1305 return ldns_rr_rdf(nsec3_rr, 3);
1306 }
1307 return NULL;
1308 }
1309
1310 uint8_t
1311 ldns_nsec3_salt_length(const ldns_rr *nsec3_rr)
1312 {
1313 ldns_rdf *salt_rdf = ldns_nsec3_salt(nsec3_rr);
1314 if (salt_rdf && ldns_rdf_size(salt_rdf) > 0) {
1315 return (uint8_t) ldns_rdf_data(salt_rdf)[0];
1316 }
1317 return 0;
1318 }
1319
1320 /* allocs data, free with LDNS_FREE() */
1321 uint8_t *
1322 ldns_nsec3_salt_data(const ldns_rr *nsec3_rr)
1323 {
1324 uint8_t salt_length;
1325 uint8_t *salt;
1326
1327 ldns_rdf *salt_rdf = ldns_nsec3_salt(nsec3_rr);
1328 if (salt_rdf && ldns_rdf_size(salt_rdf) > 0) {
1329 salt_length = ldns_rdf_data(salt_rdf)[0];
1330 salt = LDNS_XMALLOC(uint8_t, salt_length);
1331 if(!salt) return NULL;
1332 memcpy(salt, &ldns_rdf_data(salt_rdf)[1], salt_length);
1333 return salt;
1334 }
1335 return NULL;
1336 }
1337
1338 ldns_rdf *
1339 ldns_nsec3_next_owner(const ldns_rr *nsec3_rr)
1340 {
1341 if (!nsec3_rr || ldns_rr_get_type(nsec3_rr) != LDNS_RR_TYPE_NSEC3) {
1342 return NULL;
1343 } else {
1344 return ldns_rr_rdf(nsec3_rr, 4);
1345 }
1346 }
1347
1348 ldns_rdf *
1349 ldns_nsec3_bitmap(const ldns_rr *nsec3_rr)
1350 {
1351 if (!nsec3_rr || ldns_rr_get_type(nsec3_rr) != LDNS_RR_TYPE_NSEC3) {
1352 return NULL;
1353 } else {
1354 return ldns_rr_rdf(nsec3_rr, 5);
1355 }
1356 }
1357
1358 ldns_rdf *
1359 ldns_nsec3_hash_name_frm_nsec3(const ldns_rr *nsec, const ldns_rdf *name)
1360 {
1361 uint8_t algorithm;
1362 uint16_t iterations;
1363 uint8_t salt_length;
1364 uint8_t *salt = 0;
1365
1366 ldns_rdf *hashed_owner;
1367
1368 algorithm = ldns_nsec3_algorithm(nsec);
1369 salt_length = ldns_nsec3_salt_length(nsec);
1370 salt = ldns_nsec3_salt_data(nsec);
1371 iterations = ldns_nsec3_iterations(nsec);
1372
1373 hashed_owner = ldns_nsec3_hash_name(name,
1374 algorithm,
1375 iterations,
1376 salt_length,
1377 salt);
1378
1379 LDNS_FREE(salt);
1380 return hashed_owner;
1381 }
1382
1383 bool
1384 ldns_nsec_bitmap_covers_type(const ldns_rdf* bitmap, ldns_rr_type type)
1385 {
1386 uint8_t* dptr;
1387 uint8_t* dend;
1388
1389 /* From RFC3845 Section 2.1.2:
1390 *
1391 * "The RR type space is split into 256 window blocks, each re-
1392 * presenting the low-order 8 bits of the 16-bit RR type space."
1393 */
1394 uint8_t window = type >> 8;
1395 uint8_t subtype = type & 0xff;
1396
1397 if (! bitmap) {
1398 return false;
1399 }
1400 assert(ldns_rdf_get_type(bitmap) == LDNS_RDF_TYPE_BITMAP);
1401
1402 dptr = ldns_rdf_data(bitmap);
1403 dend = ldns_rdf_data(bitmap) + ldns_rdf_size(bitmap);
1404
1405 /* Type Bitmap = ( Window Block # | Bitmap Length | Bitmap ) +
1406 * dptr[0] dptr[1] dptr[2:]
1407 */
1408 while (dptr < dend && dptr[0] <= window) {
1409
1410 if (dptr[0] == window && subtype / 8 < dptr[1] &&
1411 dptr + dptr[1] + 2 <= dend) {
1412
1413 return dptr[2 + subtype / 8] & (0x80 >> (subtype % 8));
1414 }
1415 dptr += dptr[1] + 2; /* next window */
1416 }
1417 return false;
1418 }
1419
1420 ldns_status
1421 ldns_nsec_bitmap_set_type(ldns_rdf* bitmap, ldns_rr_type type)
1422 {
1423 uint8_t* dptr;
1424 uint8_t* dend;
1425
1426 /* From RFC3845 Section 2.1.2:
1427 *
1428 * "The RR type space is split into 256 window blocks, each re-
1429 * presenting the low-order 8 bits of the 16-bit RR type space."
1430 */
1431 uint8_t window = type >> 8;
1432 uint8_t subtype = type & 0xff;
1433
1434 if (! bitmap) {
1435 return false;
1436 }
1437 assert(ldns_rdf_get_type(bitmap) == LDNS_RDF_TYPE_BITMAP);
1438
1439 dptr = ldns_rdf_data(bitmap);
1440 dend = ldns_rdf_data(bitmap) + ldns_rdf_size(bitmap);
1441
1442 /* Type Bitmap = ( Window Block # | Bitmap Length | Bitmap ) +
1443 * dptr[0] dptr[1] dptr[2:]
1444 */
1445 while (dptr < dend && dptr[0] <= window) {
1446
1447 if (dptr[0] == window && subtype / 8 < dptr[1] &&
1448 dptr + dptr[1] + 2 <= dend) {
1449
1450 dptr[2 + subtype / 8] |= (0x80 >> (subtype % 8));
1451 return LDNS_STATUS_OK;
1452 }
1453 dptr += dptr[1] + 2; /* next window */
1454 }
1455 return LDNS_STATUS_TYPE_NOT_IN_BITMAP;
1456 }
1457
1458 ldns_status
1459 ldns_nsec_bitmap_clear_type(ldns_rdf* bitmap, ldns_rr_type type)
1460 {
1461 uint8_t* dptr;
1462 uint8_t* dend;
1463
1464 /* From RFC3845 Section 2.1.2:
1465 *
1466 * "The RR type space is split into 256 window blocks, each re-
1467 * presenting the low-order 8 bits of the 16-bit RR type space."
1468 */
1469 uint8_t window = type >> 8;
1470 uint8_t subtype = type & 0xff;
1471
1472 if (! bitmap) {
1473 return false;
1474 }
1475
1476 assert(ldns_rdf_get_type(bitmap) == LDNS_RDF_TYPE_BITMAP);
1477
1478 dptr = ldns_rdf_data(bitmap);
1479 dend = ldns_rdf_data(bitmap) + ldns_rdf_size(bitmap);
1480
1481 /* Type Bitmap = ( Window Block # | Bitmap Length | Bitmap ) +
1482 * dptr[0] dptr[1] dptr[2:]
1483 */
1484 while (dptr < dend && dptr[0] <= window) {
1485
1486 if (dptr[0] == window && subtype / 8 < dptr[1] &&
1487 dptr + dptr[1] + 2 <= dend) {
1488
1489 dptr[2 + subtype / 8] &= ~(0x80 >> (subtype % 8));
1490 return LDNS_STATUS_OK;
1491 }
1492 dptr += dptr[1] + 2; /* next window */
1493 }
1494 return LDNS_STATUS_TYPE_NOT_IN_BITMAP;
1495 }
1496
1497
1498 bool
1499 ldns_nsec_covers_name(const ldns_rr *nsec, const ldns_rdf *name)
1500 {
1501 ldns_rdf *nsec_owner = ldns_rr_owner(nsec);
1502 ldns_rdf *hash_next;
1503 char *next_hash_str;
1504 ldns_rdf *nsec_next = NULL;
1505 ldns_status status;
1506 ldns_rdf *chopped_dname;
1507 bool result;
1508
1509 if (ldns_rr_get_type(nsec) == LDNS_RR_TYPE_NSEC) {
1510 if (ldns_rr_rdf(nsec, 0) != NULL) {
1511 nsec_next = ldns_rdf_clone(ldns_rr_rdf(nsec, 0));
1512 } else {
1513 return false;
1514 }
1515 } else if (ldns_rr_get_type(nsec) == LDNS_RR_TYPE_NSEC3) {
1516 hash_next = ldns_nsec3_next_owner(nsec);
1517 next_hash_str = ldns_rdf2str(hash_next);
1518 nsec_next = ldns_dname_new_frm_str(next_hash_str);
1519 LDNS_FREE(next_hash_str);
1520 chopped_dname = ldns_dname_left_chop(nsec_owner);
1521 status = ldns_dname_cat(nsec_next, chopped_dname);
1522 ldns_rdf_deep_free(chopped_dname);
1523 if (status != LDNS_STATUS_OK) {
1524 printf("error catting: %s\n", ldns_get_errorstr_by_id(status));
1525 }
1526 } else {
1527 ldns_rdf_deep_free(nsec_next);
1528 return false;
1529 }
1530
1531 /* in the case of the last nsec */
1532 if(ldns_dname_compare(nsec_owner, nsec_next) > 0) {
1533 result = (ldns_dname_compare(nsec_owner, name) <= 0 ||
1534 ldns_dname_compare(name, nsec_next) < 0);
1535 } else if(ldns_dname_compare(nsec_owner, nsec_next) < 0) {
1536 result = (ldns_dname_compare(nsec_owner, name) <= 0 &&
1537 ldns_dname_compare(name, nsec_next) < 0);
1538 } else {
1539 result = true;
1540 }
1541
1542 ldns_rdf_deep_free(nsec_next);
1543 return result;
1544 }
1545
1546 #ifdef HAVE_SSL
1547 /* sig may be null - if so look in the packet */
1548
1549 ldns_status
1550 ldns_pkt_verify_time(const ldns_pkt *p, ldns_rr_type t, const ldns_rdf *o,
1551 const ldns_rr_list *k, const ldns_rr_list *s,
1552 time_t check_time, ldns_rr_list *good_keys)
1553 {
1554 ldns_rr_list *rrset;
1555 ldns_rr_list *sigs;
1556 ldns_rr_list *sigs_covered;
1557 ldns_rdf *rdf_t;
1558 ldns_rr_type t_netorder;
1559
1560 if (!k) {
1561 return LDNS_STATUS_ERR;
1562 /* return LDNS_STATUS_CRYPTO_NO_DNSKEY; */
1563 }
1564
1565 if (t == LDNS_RR_TYPE_RRSIG) {
1566 /* we don't have RRSIG(RRSIG) (yet? ;-) ) */
1567 return LDNS_STATUS_ERR;
1568 }
1569
1570 if (s) {
1571 /* if s is not NULL, the sigs are given to use */
1572 sigs = (ldns_rr_list *)s;
1573 } else {
1574 /* otherwise get them from the packet */
1575 sigs = ldns_pkt_rr_list_by_name_and_type(p, o,
1576 LDNS_RR_TYPE_RRSIG,
1577 LDNS_SECTION_ANY_NOQUESTION);
1578 if (!sigs) {
1579 /* no sigs */
1580 return LDNS_STATUS_ERR;
1581 /* return LDNS_STATUS_CRYPTO_NO_RRSIG; */
1582 }
1583 }
1584
1585 /* rrsig are subtyped, so now we need to find the correct
1586 * sigs for the type t
1587 */
1588 t_netorder = htons(t); /* rdf are in network order! */
1589 /* a type identifier is a 16-bit number, so the size is 2 bytes */
1590 rdf_t = ldns_rdf_new(LDNS_RDF_TYPE_TYPE, 2, &t_netorder);
1591
1592 sigs_covered = ldns_rr_list_subtype_by_rdf(sigs, rdf_t, 0);
1593 ldns_rdf_free(rdf_t);
1594 if (! sigs_covered) {
1595 if (! s) {
1596 ldns_rr_list_deep_free(sigs);
1597 }
1598 return LDNS_STATUS_ERR;
1599 }
1600 ldns_rr_list_deep_free(sigs_covered);
1601
1602 rrset = ldns_pkt_rr_list_by_name_and_type(p, o, t,
1603 LDNS_SECTION_ANY_NOQUESTION);
1604 if (!rrset) {
1605 if (! s) {
1606 ldns_rr_list_deep_free(sigs);
1607 }
1608 return LDNS_STATUS_ERR;
1609 }
1610 return ldns_verify_time(rrset, sigs, k, check_time, good_keys);
1611 }
1612
1613 ldns_status
1614 ldns_pkt_verify(const ldns_pkt *p, ldns_rr_type t, const ldns_rdf *o,
1615 const ldns_rr_list *k, const ldns_rr_list *s, ldns_rr_list *good_keys)
1616 {
1617 return ldns_pkt_verify_time(p, t, o, k, s, ldns_time(NULL), good_keys);
1618 }
1619 #endif /* HAVE_SSL */
1620
1621 ldns_status
1622 ldns_dnssec_chain_nsec3_list(ldns_rr_list *nsec3_rrs)
1623 {
1624 size_t i;
1625 char *next_nsec_owner_str;
1626 ldns_rdf *next_nsec_owner_label;
1627 ldns_rdf *next_nsec_rdf;
1628 ldns_status status = LDNS_STATUS_OK;
1629
1630 for (i = 0; i < ldns_rr_list_rr_count(nsec3_rrs); i++) {
1631 if (i == ldns_rr_list_rr_count(nsec3_rrs) - 1) {
1632 next_nsec_owner_label =
1633 ldns_dname_label(ldns_rr_owner(ldns_rr_list_rr(nsec3_rrs,
1634 0)), 0);
1635 next_nsec_owner_str = ldns_rdf2str(next_nsec_owner_label);
1636 if (next_nsec_owner_str[strlen(next_nsec_owner_str) - 1]
1637 == '.') {
1638 next_nsec_owner_str[strlen(next_nsec_owner_str) - 1]
1639 = '\0';
1640 }
1641 status = ldns_str2rdf_b32_ext(&next_nsec_rdf,
1642 next_nsec_owner_str);
1643 if (!ldns_rr_set_rdf(ldns_rr_list_rr(nsec3_rrs, i),
1644 next_nsec_rdf, 4)) {
1645 /* todo: error */
1646 }
1647
1648 ldns_rdf_deep_free(next_nsec_owner_label);
1649 LDNS_FREE(next_nsec_owner_str);
1650 } else {
1651 next_nsec_owner_label =
1652 ldns_dname_label(ldns_rr_owner(ldns_rr_list_rr(nsec3_rrs,
1653 i + 1)),
1654 0);
1655 next_nsec_owner_str = ldns_rdf2str(next_nsec_owner_label);
1656 if (next_nsec_owner_str[strlen(next_nsec_owner_str) - 1]
1657 == '.') {
1658 next_nsec_owner_str[strlen(next_nsec_owner_str) - 1]
1659 = '\0';
1660 }
1661 status = ldns_str2rdf_b32_ext(&next_nsec_rdf,
1662 next_nsec_owner_str);
1663 ldns_rdf_deep_free(next_nsec_owner_label);
1664 LDNS_FREE(next_nsec_owner_str);
1665 if (!ldns_rr_set_rdf(ldns_rr_list_rr(nsec3_rrs, i),
1666 next_nsec_rdf, 4)) {
1667 /* todo: error */
1668 }
1669 }
1670 }
1671 return status;
1672 }
1673
1674 int
1675 qsort_rr_compare_nsec3(const void *a, const void *b)
1676 {
1677 const ldns_rr *rr1 = * (const ldns_rr **) a;
1678 const ldns_rr *rr2 = * (const ldns_rr **) b;
1679 if (rr1 == NULL && rr2 == NULL) {
1680 return 0;
1681 }
1682 if (rr1 == NULL) {
1683 return -1;
1684 }
1685 if (rr2 == NULL) {
1686 return 1;
1687 }
1688 return ldns_rdf_compare(ldns_rr_owner(rr1), ldns_rr_owner(rr2));
1689 }
1690
1691 void
1692 ldns_rr_list_sort_nsec3(ldns_rr_list *unsorted)
1693 {
1694 qsort(unsorted->_rrs,
1695 ldns_rr_list_rr_count(unsorted),
1696 sizeof(ldns_rr *),
1697 qsort_rr_compare_nsec3);
1698 }
1699
1700 int
1701 ldns_dnssec_default_add_to_signatures( ATTR_UNUSED(ldns_rr *sig)
1702 , ATTR_UNUSED(void *n)
1703 )
1704 {
1705 return LDNS_SIGNATURE_LEAVE_ADD_NEW;
1706 }
1707
1708 int
1709 ldns_dnssec_default_leave_signatures( ATTR_UNUSED(ldns_rr *sig)
1710 , ATTR_UNUSED(void *n)
1711 )
1712 {
1713 return LDNS_SIGNATURE_LEAVE_NO_ADD;
1714 }
1715
1716 int
1717 ldns_dnssec_default_delete_signatures( ATTR_UNUSED(ldns_rr *sig)
1718 , ATTR_UNUSED(void *n)
1719 )
1720 {
1721 return LDNS_SIGNATURE_REMOVE_NO_ADD;
1722 }
1723
1724 int
1725 ldns_dnssec_default_replace_signatures( ATTR_UNUSED(ldns_rr *sig)
1726 , ATTR_UNUSED(void *n)
1727 )
1728 {
1729 return LDNS_SIGNATURE_REMOVE_ADD_NEW;
1730 }
1731
1732 #ifdef HAVE_SSL
1733 ldns_rdf *
1734 ldns_convert_dsa_rrsig_asn12rdf(const ldns_buffer *sig,
1735 const long sig_len)
1736 {
1737 #ifdef USE_DSA
1738 ldns_rdf *sigdata_rdf;
1739 DSA_SIG *dsasig;
1740 const BIGNUM *R, *S;
1741 unsigned char *dsasig_data = (unsigned char*)ldns_buffer_begin(sig);
1742 size_t byte_offset;
1743
1744 dsasig = d2i_DSA_SIG(NULL,
1745 (const unsigned char **)&dsasig_data,
1746 sig_len);
1747 if (!dsasig) {
1748 DSA_SIG_free(dsasig);
1749 return NULL;
1750 }
1751
1752 dsasig_data = LDNS_XMALLOC(unsigned char, 41);
1753 if(!dsasig_data) {
1754 DSA_SIG_free(dsasig);
1755 return NULL;
1756 }
1757 dsasig_data[0] = 0;
1758 # ifdef HAVE_DSA_SIG_GET0
1759 DSA_SIG_get0(dsasig, &R, &S);
1760 # else
1761 R = dsasig->r;
1762 S = dsasig->s;
1763 # endif
1764 byte_offset = (size_t) (20 - BN_num_bytes(R));
1765 if (byte_offset > 20) {
1766 DSA_SIG_free(dsasig);
1767 LDNS_FREE(dsasig_data);
1768 return NULL;
1769 }
1770 memset(&dsasig_data[1], 0, byte_offset);
1771 BN_bn2bin(R, &dsasig_data[1 + byte_offset]);
1772 byte_offset = (size_t) (20 - BN_num_bytes(S));
1773 if (byte_offset > 20) {
1774 DSA_SIG_free(dsasig);
1775 LDNS_FREE(dsasig_data);
1776 return NULL;
1777 }
1778 memset(&dsasig_data[21], 0, byte_offset);
1779 BN_bn2bin(S, &dsasig_data[21 + byte_offset]);
1780
1781 sigdata_rdf = ldns_rdf_new(LDNS_RDF_TYPE_B64, 41, dsasig_data);
1782 if(!sigdata_rdf) {
1783 LDNS_FREE(dsasig_data);
1784 }
1785 DSA_SIG_free(dsasig);
1786
1787 return sigdata_rdf;
1788 #else
1789 (void)sig; (void)sig_len;
1790 return NULL;
1791 #endif
1792 }
1793
1794 ldns_status
1795 ldns_convert_dsa_rrsig_rdf2asn1(ldns_buffer *target_buffer,
1796 const ldns_rdf *sig_rdf)
1797 {
1798 #ifdef USE_DSA
1799 /* the EVP api wants the DER encoding of the signature... */
1800 BIGNUM *R, *S;
1801 DSA_SIG *dsasig;
1802 unsigned char *raw_sig = NULL;
1803 int raw_sig_len;
1804
1805 if(ldns_rdf_size(sig_rdf) < 1 + 2*SHA_DIGEST_LENGTH)
1806 return LDNS_STATUS_SYNTAX_RDATA_ERR;
1807 /* extract the R and S field from the sig buffer */
1808 R = BN_new();
1809 if(!R) return LDNS_STATUS_MEM_ERR;
1810 (void) BN_bin2bn((unsigned char *) ldns_rdf_data(sig_rdf) + 1,
1811 SHA_DIGEST_LENGTH, R);
1812 S = BN_new();
1813 if(!S) {
1814 BN_free(R);
1815 return LDNS_STATUS_MEM_ERR;
1816 }
1817 (void) BN_bin2bn((unsigned char *) ldns_rdf_data(sig_rdf) + 21,
1818 SHA_DIGEST_LENGTH, S);
1819
1820 dsasig = DSA_SIG_new();
1821 if (!dsasig) {
1822 BN_free(R);
1823 BN_free(S);
1824 return LDNS_STATUS_MEM_ERR;
1825 }
1826 # ifdef HAVE_DSA_SIG_SET0
1827 if (! DSA_SIG_set0(dsasig, R, S))
1828 return LDNS_STATUS_SSL_ERR;
1829 # else
1830 dsasig->r = R;
1831 dsasig->s = S;
1832 # endif
1833
1834 raw_sig_len = i2d_DSA_SIG(dsasig, &raw_sig);
1835 if (raw_sig_len < 0) {
1836 DSA_SIG_free(dsasig);
1837 free(raw_sig);
1838 return LDNS_STATUS_SSL_ERR;
1839 }
1840 if (ldns_buffer_reserve(target_buffer, (size_t) raw_sig_len)) {
1841 ldns_buffer_write(target_buffer, raw_sig, (size_t)raw_sig_len);
1842 }
1843
1844 DSA_SIG_free(dsasig);
1845 free(raw_sig);
1846
1847 return ldns_buffer_status(target_buffer);
1848 #else
1849 (void)target_buffer; (void)sig_rdf;
1850 return LDNS_STATUS_CRYPTO_ALGO_NOT_IMPL;
1851 #endif
1852 }
1853
1854 #ifdef USE_ECDSA
1855 #ifndef S_SPLINT_S
1856 ldns_rdf *
1857 ldns_convert_ecdsa_rrsig_asn1len2rdf(const ldns_buffer *sig,
1858 const long sig_len, int num_bytes)
1859 {
1860 ECDSA_SIG* ecdsa_sig;
1861 const BIGNUM *r, *s;
1862 unsigned char *data = (unsigned char*)ldns_buffer_begin(sig);
1863 ldns_rdf* rdf;
1864 ecdsa_sig = d2i_ECDSA_SIG(NULL, (const unsigned char **)&data, sig_len);
1865 if(!ecdsa_sig) return NULL;
1866
1867 #ifdef HAVE_ECDSA_SIG_GET0
1868 ECDSA_SIG_get0(ecdsa_sig, &r, &s);
1869 #else
1870 r = ecdsa_sig->r;
1871 s = ecdsa_sig->s;
1872 #endif
1873 /* "r | s". */
1874 if(BN_num_bytes(r) > num_bytes ||
1875 BN_num_bytes(s) > num_bytes) {
1876 ECDSA_SIG_free(ecdsa_sig);
1877 return NULL; /* numbers too big for passed curve size */
1878 }
1879 data = LDNS_XMALLOC(unsigned char, num_bytes*2);
1880 if(!data) {
1881 ECDSA_SIG_free(ecdsa_sig);
1882 return NULL;
1883 }
1884 /* write the bignums (in big-endian) a little offset if the BN code
1885 * wants to write a shorter number of bytes, with zeroes prefixed */
1886 memset(data, 0, num_bytes*2);
1887 BN_bn2bin(r, data+num_bytes-BN_num_bytes(r));
1888 BN_bn2bin(s, data+num_bytes*2-BN_num_bytes(s));
1889 rdf = ldns_rdf_new(LDNS_RDF_TYPE_B64, (size_t)(num_bytes*2), data);
1890 ECDSA_SIG_free(ecdsa_sig);
1891 return rdf;
1892 }
1893
1894 ldns_status
1895 ldns_convert_ecdsa_rrsig_rdf2asn1(ldns_buffer *target_buffer,
1896 const ldns_rdf *sig_rdf)
1897 {
1898 /* convert from two BIGNUMs in the rdata buffer, to ASN notation.
1899 * ASN preable: 30440220 <R 32bytefor256> 0220 <S 32bytefor256>
1900 * the '20' is the length of that field (=bnsize).
1901 * the '44' is the total remaining length.
1902 * if negative, start with leading zero.
1903 * if starts with 00s, remove them from the number.
1904 */
1905 uint8_t pre[] = {0x30, 0x44, 0x02, 0x20};
1906 int pre_len = 4;
1907 uint8_t mid[] = {0x02, 0x20};
1908 int mid_len = 2;
1909 int raw_sig_len, r_high, s_high, r_rem=0, s_rem=0;
1910 long bnsize = (long)ldns_rdf_size(sig_rdf) / 2;
1911 uint8_t* d = ldns_rdf_data(sig_rdf);
1912 /* if too short, or not even length, do not bother */
1913 if(bnsize < 16 || (size_t)bnsize*2 != ldns_rdf_size(sig_rdf))
1914 return LDNS_STATUS_ERR;
1915 /* strip leading zeroes from r (but not last one) */
1916 while(r_rem < bnsize-1 && d[r_rem] == 0)
1917 r_rem++;
1918 /* strip leading zeroes from s (but not last one) */
1919 while(s_rem < bnsize-1 && d[bnsize+s_rem] == 0)
1920 s_rem++;
1921
1922 r_high = ((d[0+r_rem]&0x80)?1:0);
1923 s_high = ((d[bnsize+s_rem]&0x80)?1:0);
1924 raw_sig_len = pre_len + r_high + bnsize - r_rem + mid_len +
1925 s_high + bnsize - s_rem;
1926 if(ldns_buffer_reserve(target_buffer, (size_t) raw_sig_len)) {
1927 ldns_buffer_write_u8(target_buffer, pre[0]);
1928 ldns_buffer_write_u8(target_buffer, raw_sig_len-2);
1929 ldns_buffer_write_u8(target_buffer, pre[2]);
1930 ldns_buffer_write_u8(target_buffer, bnsize + r_high - r_rem);
1931 if(r_high)
1932 ldns_buffer_write_u8(target_buffer, 0);
1933 ldns_buffer_write(target_buffer, d+r_rem, bnsize-r_rem);
1934 ldns_buffer_write(target_buffer, mid, mid_len-1);
1935 ldns_buffer_write_u8(target_buffer, bnsize + s_high - s_rem);
1936 if(s_high)
1937 ldns_buffer_write_u8(target_buffer, 0);
1938 ldns_buffer_write(target_buffer, d+bnsize+s_rem, bnsize-s_rem);
1939 }
1940 return ldns_buffer_status(target_buffer);
1941 }
1942
1943 #endif /* S_SPLINT_S */
1944 #endif /* USE_ECDSA */
1945
1946 #if defined(USE_ED25519) || defined(USE_ED448)
1947 /* debug printout routine */
1948 static void print_hex(const char* str, uint8_t* d, int len)
1949 {
1950 const char hex[] = "0123456789abcdef";
1951 int i;
1952 printf("%s [len=%d]: ", str, len);
1953 for(i=0; i<len; i++) {
1954 int x = (d[i]&0xf0)>>4;
1955 int y = (d[i]&0x0f);
1956 printf("%c%c", hex[x], hex[y]);
1957 }
1958 printf("\n");
1959 }
1960 #endif
1961
1962 #ifdef USE_ED25519
1963 ldns_rdf *
1964 ldns_convert_ed25519_rrsig_asn12rdf(const ldns_buffer *sig, long sig_len)
1965 {
1966 unsigned char *data = (unsigned char*)ldns_buffer_begin(sig);
1967 ldns_rdf* rdf = NULL;
1968
1969 /* TODO when Openssl supports signing and you can test this */
1970 print_hex("sig in ASN", data, sig_len);
1971
1972 return rdf;
1973 }
1974
1975 ldns_status
1976 ldns_convert_ed25519_rrsig_rdf2asn1(ldns_buffer *target_buffer,
1977 const ldns_rdf *sig_rdf)
1978 {
1979 /* TODO when Openssl supports signing and you can test this. */
1980 /* convert sig_buf into ASN1 into the target_buffer */
1981 print_hex("sig raw", ldns_rdf_data(sig_rdf), ldns_rdf_size(sig_rdf));
1982 return ldns_buffer_status(target_buffer);
1983 }
1984 #endif /* USE_ED25519 */
1985
1986 #ifdef USE_ED448
1987 ldns_rdf *
1988 ldns_convert_ed448_rrsig_asn12rdf(const ldns_buffer *sig, long sig_len)
1989 {
1990 unsigned char *data = (unsigned char*)ldns_buffer_begin(sig);
1991 ldns_rdf* rdf = NULL;
1992
1993 /* TODO when Openssl supports signing and you can test this */
1994 print_hex("sig in ASN", data, sig_len);
1995
1996 return rdf;
1997 }
1998
1999 ldns_status
2000 ldns_convert_ed448_rrsig_rdf2asn1(ldns_buffer *target_buffer,
2001 const ldns_rdf *sig_rdf)
2002 {
2003 /* TODO when Openssl supports signing and you can test this. */
2004 /* convert sig_buf into ASN1 into the target_buffer */
2005 print_hex("sig raw", ldns_rdf_data(sig_rdf), ldns_rdf_size(sig_rdf));
2006 return ldns_buffer_status(target_buffer);
2007 }
2008 #endif /* USE_ED448 */
2009
2010 #endif /* HAVE_SSL */
DragonFly BSD