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 *
ldns_dnssec_get_rrsig_for_name_and_type(const ldns_rdf * name,const ldns_rr_type type,const ldns_rr_list * rrs)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 *
ldns_dnssec_get_dnskey_for_rrsig(const ldns_rr * rrsig,const ldns_rr_list * rrs)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 *
ldns_nsec_get_bitmap(ldns_rr * nsec)84 ldns_nsec_get_bitmap(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 *
ldns_dnssec_nsec3_closest_encloser(ldns_rdf * qname,ATTR_UNUSED (ldns_rr_type qtype),ldns_rr_list * nsec3s)97 ldns_dnssec_nsec3_closest_encloser(ldns_rdf *qname,
98 ATTR_UNUSED(ldns_rr_type qtype),
99 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
ldns_dnssec_pkt_has_rrsigs(const ldns_pkt * pkt)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 *
ldns_dnssec_pkt_get_rrsigs_for_name_and_type(const ldns_pkt * pkt,ldns_rdf * name,ldns_rr_type type)217 ldns_dnssec_pkt_get_rrsigs_for_name_and_type(const ldns_pkt *pkt,
218 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 *
ldns_dnssec_pkt_get_rrsigs_for_type(const ldns_pkt * pkt,ldns_rr_type type)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
ldns_calc_keytag(const ldns_rr * key)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
ldns_calc_keytag_raw(uint8_t * key,size_t keysize)301 uint16_t ldns_calc_keytag_raw(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 *
ldns_key_buf2dsa(ldns_buffer * key)330 ldns_key_buf2dsa(ldns_buffer *key)
331 {
332 return ldns_key_buf2dsa_raw((unsigned char*)ldns_buffer_begin(key),
333 ldns_buffer_position(key));
334 }
335
336 DSA *
ldns_key_buf2dsa_raw(unsigned char * key,size_t len)337 ldns_key_buf2dsa_raw(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 #ifndef S_SPLINT_S
379 dsa->p = P;
380 dsa->q = Q;
381 dsa->g = G;
382 dsa->pub_key = Y;
383 #endif /* splint */
384
385 return dsa;
386 }
387
388 RSA *
ldns_key_buf2rsa(ldns_buffer * key)389 ldns_key_buf2rsa(ldns_buffer *key)
390 {
391 return ldns_key_buf2rsa_raw((unsigned char*)ldns_buffer_begin(key),
392 ldns_buffer_position(key));
393 }
394
395 RSA *
ldns_key_buf2rsa_raw(unsigned char * key,size_t len)396 ldns_key_buf2rsa_raw(unsigned char* key, size_t len)
397 {
398 uint16_t offset;
399 uint16_t exp;
400 uint16_t int16;
401 RSA *rsa;
402 BIGNUM *modulus;
403 BIGNUM *exponent;
404
405 if (len == 0)
406 return NULL;
407 if (key[0] == 0) {
408 if(len < 3)
409 return NULL;
410 /* need some smart comment here XXX*/
411 /* the exponent is too large so it's places
412 * futher...???? */
413 memmove(&int16, key+1, 2);
414 exp = ntohs(int16);
415 offset = 3;
416 } else {
417 exp = key[0];
418 offset = 1;
419 }
420
421 /* key length at least one */
422 if(len < (size_t)offset + exp + 1)
423 return NULL;
424
425 /* Exponent */
426 exponent = BN_new();
427 if(!exponent) return NULL;
428 (void) BN_bin2bn(key+offset, (int)exp, exponent);
429 offset += exp;
430
431 /* Modulus */
432 modulus = BN_new();
433 if(!modulus) {
434 BN_free(exponent);
435 return NULL;
436 }
437 /* length of the buffer must match the key length! */
438 (void) BN_bin2bn(key+offset, (int)(len - offset), modulus);
439
440 rsa = RSA_new();
441 if(!rsa) {
442 BN_free(exponent);
443 BN_free(modulus);
444 return NULL;
445 }
446 #ifndef S_SPLINT_S
447 rsa->n = modulus;
448 rsa->e = exponent;
449 #endif /* splint */
450
451 return rsa;
452 }
453
454 int
ldns_digest_evp(unsigned char * data,unsigned int len,unsigned char * dest,const EVP_MD * md)455 ldns_digest_evp(unsigned char* data, unsigned int len, unsigned char* dest,
456 const EVP_MD* md)
457 {
458 EVP_MD_CTX* ctx;
459 ctx = EVP_MD_CTX_create();
460 if(!ctx)
461 return false;
462 if(!EVP_DigestInit_ex(ctx, md, NULL) ||
463 !EVP_DigestUpdate(ctx, data, len) ||
464 !EVP_DigestFinal_ex(ctx, dest, NULL)) {
465 EVP_MD_CTX_destroy(ctx);
466 return false;
467 }
468 EVP_MD_CTX_destroy(ctx);
469 return true;
470 }
471 #endif /* HAVE_SSL */
472
473 ldns_rr *
ldns_key_rr2ds(const ldns_rr * key,ldns_hash h)474 ldns_key_rr2ds(const ldns_rr *key, ldns_hash h)
475 {
476 ldns_rdf *tmp;
477 ldns_rr *ds;
478 uint16_t keytag;
479 uint8_t sha1hash;
480 uint8_t *digest;
481 ldns_buffer *data_buf;
482 #ifdef USE_GOST
483 const EVP_MD* md = NULL;
484 #endif
485
486 if (ldns_rr_get_type(key) != LDNS_RR_TYPE_DNSKEY) {
487 return NULL;
488 }
489
490 ds = ldns_rr_new();
491 if (!ds) {
492 return NULL;
493 }
494 ldns_rr_set_type(ds, LDNS_RR_TYPE_DS);
495 ldns_rr_set_owner(ds, ldns_rdf_clone(
496 ldns_rr_owner(key)));
497 ldns_rr_set_ttl(ds, ldns_rr_ttl(key));
498 ldns_rr_set_class(ds, ldns_rr_get_class(key));
499
500 switch(h) {
501 default:
502 case LDNS_SHA1:
503 digest = LDNS_XMALLOC(uint8_t, LDNS_SHA1_DIGEST_LENGTH);
504 if (!digest) {
505 ldns_rr_free(ds);
506 return NULL;
507 }
508 break;
509 case LDNS_SHA256:
510 digest = LDNS_XMALLOC(uint8_t, LDNS_SHA256_DIGEST_LENGTH);
511 if (!digest) {
512 ldns_rr_free(ds);
513 return NULL;
514 }
515 break;
516 case LDNS_HASH_GOST:
517 #ifdef USE_GOST
518 (void)ldns_key_EVP_load_gost_id();
519 md = EVP_get_digestbyname("md_gost94");
520 if(!md) {
521 ldns_rr_free(ds);
522 return NULL;
523 }
524 digest = LDNS_XMALLOC(uint8_t, EVP_MD_size(md));
525 if (!digest) {
526 ldns_rr_free(ds);
527 return NULL;
528 }
529 break;
530 #else
531 /* not implemented */
532 ldns_rr_free(ds);
533 return NULL;
534 #endif
535 case LDNS_SHA384:
536 #ifdef USE_ECDSA
537 digest = LDNS_XMALLOC(uint8_t, SHA384_DIGEST_LENGTH);
538 if (!digest) {
539 ldns_rr_free(ds);
540 return NULL;
541 }
542 break;
543 #else
544 /* not implemented */
545 ldns_rr_free(ds);
546 return NULL;
547 #endif
548 }
549
550 data_buf = ldns_buffer_new(LDNS_MAX_PACKETLEN);
551 if (!data_buf) {
552 LDNS_FREE(digest);
553 ldns_rr_free(ds);
554 return NULL;
555 }
556
557 /* keytag */
558 keytag = htons(ldns_calc_keytag((ldns_rr*)key));
559 tmp = ldns_rdf_new_frm_data(LDNS_RDF_TYPE_INT16,
560 sizeof(uint16_t),
561 &keytag);
562 ldns_rr_push_rdf(ds, tmp);
563
564 /* copy the algorithm field */
565 if ((tmp = ldns_rr_rdf(key, 2)) == NULL) {
566 LDNS_FREE(digest);
567 ldns_buffer_free(data_buf);
568 ldns_rr_free(ds);
569 return NULL;
570 } else {
571 ldns_rr_push_rdf(ds, ldns_rdf_clone( tmp ));
572 }
573
574 /* digest hash type */
575 sha1hash = (uint8_t)h;
576 tmp = ldns_rdf_new_frm_data(LDNS_RDF_TYPE_INT8,
577 sizeof(uint8_t),
578 &sha1hash);
579 ldns_rr_push_rdf(ds, tmp);
580
581 /* digest */
582 /* owner name */
583 tmp = ldns_rdf_clone(ldns_rr_owner(key));
584 ldns_dname2canonical(tmp);
585 if (ldns_rdf2buffer_wire(data_buf, tmp) != LDNS_STATUS_OK) {
586 LDNS_FREE(digest);
587 ldns_buffer_free(data_buf);
588 ldns_rr_free(ds);
589 ldns_rdf_deep_free(tmp);
590 return NULL;
591 }
592 ldns_rdf_deep_free(tmp);
593
594 /* all the rdata's */
595 if (ldns_rr_rdata2buffer_wire(data_buf,
596 (ldns_rr*)key) != LDNS_STATUS_OK) {
597 LDNS_FREE(digest);
598 ldns_buffer_free(data_buf);
599 ldns_rr_free(ds);
600 return NULL;
601 }
602 switch(h) {
603 case LDNS_SHA1:
604 (void) ldns_sha1((unsigned char *) ldns_buffer_begin(data_buf),
605 (unsigned int) ldns_buffer_position(data_buf),
606 (unsigned char *) digest);
607
608 tmp = ldns_rdf_new_frm_data(LDNS_RDF_TYPE_HEX,
609 LDNS_SHA1_DIGEST_LENGTH,
610 digest);
611 ldns_rr_push_rdf(ds, tmp);
612
613 break;
614 case LDNS_SHA256:
615 (void) ldns_sha256((unsigned char *) ldns_buffer_begin(data_buf),
616 (unsigned int) ldns_buffer_position(data_buf),
617 (unsigned char *) digest);
618 tmp = ldns_rdf_new_frm_data(LDNS_RDF_TYPE_HEX,
619 LDNS_SHA256_DIGEST_LENGTH,
620 digest);
621 ldns_rr_push_rdf(ds, tmp);
622 break;
623 case LDNS_HASH_GOST:
624 #ifdef USE_GOST
625 if(!ldns_digest_evp((unsigned char *) ldns_buffer_begin(data_buf),
626 (unsigned int) ldns_buffer_position(data_buf),
627 (unsigned char *) digest, md)) {
628 LDNS_FREE(digest);
629 ldns_buffer_free(data_buf);
630 ldns_rr_free(ds);
631 return NULL;
632 }
633 tmp = ldns_rdf_new_frm_data(LDNS_RDF_TYPE_HEX,
634 (size_t)EVP_MD_size(md),
635 digest);
636 ldns_rr_push_rdf(ds, tmp);
637 #endif
638 break;
639 case LDNS_SHA384:
640 #ifdef USE_ECDSA
641 (void) SHA384((unsigned char *) ldns_buffer_begin(data_buf),
642 (unsigned int) ldns_buffer_position(data_buf),
643 (unsigned char *) digest);
644 tmp = ldns_rdf_new_frm_data(LDNS_RDF_TYPE_HEX,
645 SHA384_DIGEST_LENGTH,
646 digest);
647 ldns_rr_push_rdf(ds, tmp);
648 #endif
649 break;
650 }
651
652 LDNS_FREE(digest);
653 ldns_buffer_free(data_buf);
654 return ds;
655 }
656
657 /* From RFC3845:
658 *
659 * 2.1.2. The List of Type Bit Map(s) Field
660 *
661 * The RR type space is split into 256 window blocks, each representing
662 * the low-order 8 bits of the 16-bit RR type space. Each block that
663 * has at least one active RR type is encoded using a single octet
664 * window number (from 0 to 255), a single octet bitmap length (from 1
665 * to 32) indicating the number of octets used for the window block's
666 * bitmap, and up to 32 octets (256 bits) of bitmap.
667 *
668 * Window blocks are present in the NSEC RR RDATA in increasing
669 * numerical order.
670 *
671 * "|" denotes concatenation
672 *
673 * Type Bit Map(s) Field = ( Window Block # | Bitmap Length | Bitmap ) +
674 *
675 * <cut>
676 *
677 * Blocks with no types present MUST NOT be included. Trailing zero
678 * octets in the bitmap MUST be omitted. The length of each block's
679 * bitmap is determined by the type code with the largest numerical
680 * value within that block, among the set of RR types present at the
681 * NSEC RR's owner name. Trailing zero octets not specified MUST be
682 * interpreted as zero octets.
683 */
684 ldns_rdf *
ldns_dnssec_create_nsec_bitmap(ldns_rr_type rr_type_list[],size_t size,ldns_rr_type nsec_type)685 ldns_dnssec_create_nsec_bitmap(ldns_rr_type rr_type_list[],
686 size_t size,
687 ldns_rr_type nsec_type)
688 {
689 uint8_t window; /* most significant octet of type */
690 uint8_t subtype; /* least significant octet of type */
691 uint16_t windows[256] /* Max subtype per window */
692 #ifndef S_SPLINT_S
693 = { 0 } /* Initialize ALL elements with 0 */
694 #endif
695 ;
696 ldns_rr_type* d; /* used to traverse rr_type_list*/
697 size_t i; /* used to traverse windows array */
698
699 size_t sz; /* size needed for type bitmap rdf */
700 uint8_t* data = NULL; /* rdf data */
701 uint8_t* dptr; /* used to itraverse rdf data */
702 ldns_rdf* rdf; /* bitmap rdf to return */
703
704 if (nsec_type != LDNS_RR_TYPE_NSEC &&
705 nsec_type != LDNS_RR_TYPE_NSEC3) {
706 return NULL;
707 }
708
709 /* Which other windows need to be in the bitmap rdf?
710 */
711 for (d = rr_type_list; d < rr_type_list + size; d++) {
712 window = *d >> 8;
713 subtype = *d & 0xff;
714 if (windows[window] < subtype) {
715 windows[window] = subtype;
716 }
717 }
718
719 /* How much space do we need in the rdf for those windows?
720 */
721 sz = 0;
722 for (i = 0; i < 256; i++) {
723 if (windows[i]) {
724 sz += windows[i] / 8 + 3;
725 }
726 }
727 if (sz > 0) {
728 /* Format rdf data according RFC3845 Section 2.1.2 (see above)
729 */
730 dptr = data = LDNS_CALLOC(uint8_t, sz);
731 if (!data) {
732 return NULL;
733 }
734 for (i = 0; i < 256; i++) {
735 if (windows[i]) {
736 *dptr++ = (uint8_t)i;
737 *dptr++ = (uint8_t)(windows[i] / 8 + 1);
738
739 /* Now let windows[i] index the bitmap
740 * within data
741 */
742 windows[i] = (uint16_t)(dptr - data);
743
744 dptr += dptr[-1];
745 }
746 }
747 }
748
749 /* Set the bits?
750 */
751 for (d = rr_type_list; d < rr_type_list + size; d++) {
752 subtype = *d & 0xff;
753 data[windows[*d >> 8] + subtype/8] |= (0x80 >> (subtype % 8));
754 }
755
756 /* Allocate and return rdf structure for the data
757 */
758 rdf = ldns_rdf_new(LDNS_RDF_TYPE_BITMAP, sz, data);
759 if (!rdf) {
760 LDNS_FREE(data);
761 return NULL;
762 }
763 return rdf;
764 }
765
766 int
ldns_dnssec_rrsets_contains_type(ldns_dnssec_rrsets * rrsets,ldns_rr_type type)767 ldns_dnssec_rrsets_contains_type(ldns_dnssec_rrsets *rrsets,
768 ldns_rr_type type)
769 {
770 ldns_dnssec_rrsets *cur_rrset = rrsets;
771 while (cur_rrset) {
772 if (cur_rrset->type == type) {
773 return 1;
774 }
775 cur_rrset = cur_rrset->next;
776 }
777 return 0;
778 }
779
780 ldns_rr *
ldns_dnssec_create_nsec(ldns_dnssec_name * from,ldns_dnssec_name * to,ldns_rr_type nsec_type)781 ldns_dnssec_create_nsec(ldns_dnssec_name *from,
782 ldns_dnssec_name *to,
783 ldns_rr_type nsec_type)
784 {
785 ldns_rr *nsec_rr;
786 ldns_rr_type types[65536];
787 size_t type_count = 0;
788 ldns_dnssec_rrsets *cur_rrsets;
789 int on_delegation_point;
790
791 if (!from || !to || (nsec_type != LDNS_RR_TYPE_NSEC)) {
792 return NULL;
793 }
794
795 nsec_rr = ldns_rr_new();
796 ldns_rr_set_type(nsec_rr, nsec_type);
797 ldns_rr_set_owner(nsec_rr, ldns_rdf_clone(ldns_dnssec_name_name(from)));
798 ldns_rr_push_rdf(nsec_rr, ldns_rdf_clone(ldns_dnssec_name_name(to)));
799
800 on_delegation_point = ldns_dnssec_rrsets_contains_type(
801 from->rrsets, LDNS_RR_TYPE_NS)
802 && !ldns_dnssec_rrsets_contains_type(
803 from->rrsets, LDNS_RR_TYPE_SOA);
804
805 cur_rrsets = from->rrsets;
806 while (cur_rrsets) {
807 /* Do not include non-authoritative rrsets on the delegation point
808 * in the type bitmap */
809 if ((on_delegation_point && (
810 cur_rrsets->type == LDNS_RR_TYPE_NS
811 || cur_rrsets->type == LDNS_RR_TYPE_DS))
812 || (!on_delegation_point &&
813 cur_rrsets->type != LDNS_RR_TYPE_RRSIG
814 && cur_rrsets->type != LDNS_RR_TYPE_NSEC)) {
815
816 types[type_count] = cur_rrsets->type;
817 type_count++;
818 }
819 cur_rrsets = cur_rrsets->next;
820
821 }
822 types[type_count] = LDNS_RR_TYPE_RRSIG;
823 type_count++;
824 types[type_count] = LDNS_RR_TYPE_NSEC;
825 type_count++;
826
827 ldns_rr_push_rdf(nsec_rr, ldns_dnssec_create_nsec_bitmap(types,
828 type_count,
829 nsec_type));
830
831 return nsec_rr;
832 }
833
834 ldns_rr *
ldns_dnssec_create_nsec3(ldns_dnssec_name * from,ldns_dnssec_name * to,ldns_rdf * zone_name,uint8_t algorithm,uint8_t flags,uint16_t iterations,uint8_t salt_length,uint8_t * salt)835 ldns_dnssec_create_nsec3(ldns_dnssec_name *from,
836 ldns_dnssec_name *to,
837 ldns_rdf *zone_name,
838 uint8_t algorithm,
839 uint8_t flags,
840 uint16_t iterations,
841 uint8_t salt_length,
842 uint8_t *salt)
843 {
844 ldns_rr *nsec_rr;
845 ldns_rr_type types[65536];
846 size_t type_count = 0;
847 ldns_dnssec_rrsets *cur_rrsets;
848 ldns_status status;
849 int on_delegation_point;
850
851 if (!from) {
852 return NULL;
853 }
854
855 nsec_rr = ldns_rr_new_frm_type(LDNS_RR_TYPE_NSEC3);
856 ldns_rr_set_owner(nsec_rr,
857 ldns_nsec3_hash_name(ldns_dnssec_name_name(from),
858 algorithm,
859 iterations,
860 salt_length,
861 salt));
862 status = ldns_dname_cat(ldns_rr_owner(nsec_rr), zone_name);
863 if(status != LDNS_STATUS_OK) {
864 ldns_rr_free(nsec_rr);
865 return NULL;
866 }
867 ldns_nsec3_add_param_rdfs(nsec_rr,
868 algorithm,
869 flags,
870 iterations,
871 salt_length,
872 salt);
873
874 on_delegation_point = ldns_dnssec_rrsets_contains_type(
875 from->rrsets, LDNS_RR_TYPE_NS)
876 && !ldns_dnssec_rrsets_contains_type(
877 from->rrsets, LDNS_RR_TYPE_SOA);
878 cur_rrsets = from->rrsets;
879 while (cur_rrsets) {
880 /* Do not include non-authoritative rrsets on the delegation point
881 * in the type bitmap. Potentionally not skipping insecure
882 * delegation should have been done earlier, in function
883 * ldns_dnssec_zone_create_nsec3s, or even earlier in:
884 * ldns_dnssec_zone_sign_nsec3_flg .
885 */
886 if ((on_delegation_point && (
887 cur_rrsets->type == LDNS_RR_TYPE_NS
888 || cur_rrsets->type == LDNS_RR_TYPE_DS))
889 || (!on_delegation_point &&
890 cur_rrsets->type != LDNS_RR_TYPE_RRSIG)) {
891
892 types[type_count] = cur_rrsets->type;
893 type_count++;
894 }
895 cur_rrsets = cur_rrsets->next;
896 }
897 /* always add rrsig type if this is not an unsigned
898 * delegation
899 */
900 if (type_count > 0 &&
901 !(type_count == 1 && types[0] == LDNS_RR_TYPE_NS)) {
902 types[type_count] = LDNS_RR_TYPE_RRSIG;
903 type_count++;
904 }
905
906 /* leave next rdata empty if they weren't precomputed yet */
907 if (to && to->hashed_name) {
908 (void) ldns_rr_set_rdf(nsec_rr,
909 ldns_rdf_clone(to->hashed_name),
910 4);
911 } else {
912 (void) ldns_rr_set_rdf(nsec_rr, NULL, 4);
913 }
914
915 ldns_rr_push_rdf(nsec_rr,
916 ldns_dnssec_create_nsec_bitmap(types,
917 type_count,
918 LDNS_RR_TYPE_NSEC3));
919
920 return nsec_rr;
921 }
922
923 ldns_rr *
ldns_create_nsec(ldns_rdf * cur_owner,ldns_rdf * next_owner,ldns_rr_list * rrs)924 ldns_create_nsec(ldns_rdf *cur_owner, ldns_rdf *next_owner, ldns_rr_list *rrs)
925 {
926 /* we do not do any check here - garbage in, garbage out */
927
928 /* the the start and end names - get the type from the
929 * before rrlist */
930
931 /* inefficient, just give it a name, a next name, and a list of rrs */
932 /* we make 1 big uberbitmap first, then windows */
933 /* todo: make something more efficient :) */
934 uint16_t i;
935 ldns_rr *i_rr;
936 uint16_t i_type;
937
938 ldns_rr *nsec = NULL;
939 ldns_rr_type i_type_list[65536];
940 size_t type_count = 0;
941
942 nsec = ldns_rr_new();
943 ldns_rr_set_type(nsec, LDNS_RR_TYPE_NSEC);
944 ldns_rr_set_owner(nsec, ldns_rdf_clone(cur_owner));
945 ldns_rr_push_rdf(nsec, ldns_rdf_clone(next_owner));
946
947 for (i = 0; i < ldns_rr_list_rr_count(rrs); i++) {
948 i_rr = ldns_rr_list_rr(rrs, i);
949 if (ldns_rdf_compare(cur_owner,
950 ldns_rr_owner(i_rr)) == 0) {
951 i_type = ldns_rr_get_type(i_rr);
952 if (i_type != LDNS_RR_TYPE_RRSIG && i_type != LDNS_RR_TYPE_NSEC) {
953 if (type_count == 0 || i_type_list[type_count-1] != i_type) {
954 i_type_list[type_count] = i_type;
955 type_count++;
956 }
957 }
958 }
959 }
960
961 i_type_list[type_count] = LDNS_RR_TYPE_RRSIG;
962 type_count++;
963 i_type_list[type_count] = LDNS_RR_TYPE_NSEC;
964 type_count++;
965
966 ldns_rr_push_rdf(nsec,
967 ldns_dnssec_create_nsec_bitmap(i_type_list,
968 type_count, LDNS_RR_TYPE_NSEC));
969
970 return nsec;
971 }
972
973 ldns_rdf *
ldns_nsec3_hash_name(ldns_rdf * name,uint8_t algorithm,uint16_t iterations,uint8_t salt_length,uint8_t * salt)974 ldns_nsec3_hash_name(ldns_rdf *name,
975 uint8_t algorithm,
976 uint16_t iterations,
977 uint8_t salt_length,
978 uint8_t *salt)
979 {
980 size_t hashed_owner_str_len;
981 ldns_rdf *cann;
982 ldns_rdf *hashed_owner;
983 unsigned char *hashed_owner_str;
984 char *hashed_owner_b32;
985 size_t hashed_owner_b32_len;
986 uint32_t cur_it;
987 /* define to contain the largest possible hash, which is
988 * sha1 at the moment */
989 unsigned char hash[LDNS_SHA1_DIGEST_LENGTH];
990 ldns_status status;
991
992 /* TODO: mnemonic list for hash algs SHA-1, default to 1 now (sha1) */
993 if (algorithm != LDNS_SHA1) {
994 return NULL;
995 }
996
997 /* prepare the owner name according to the draft section bla */
998 cann = ldns_rdf_clone(name);
999 if(!cann) {
1000 #ifdef STDERR_MSGS
1001 fprintf(stderr, "Memory error\n");
1002 #endif
1003 return NULL;
1004 }
1005 ldns_dname2canonical(cann);
1006
1007 hashed_owner_str_len = salt_length + ldns_rdf_size(cann);
1008 hashed_owner_str = LDNS_XMALLOC(unsigned char, hashed_owner_str_len);
1009 if(!hashed_owner_str) {
1010 ldns_rdf_deep_free(cann);
1011 return NULL;
1012 }
1013 memcpy(hashed_owner_str, ldns_rdf_data(cann), ldns_rdf_size(cann));
1014 memcpy(hashed_owner_str + ldns_rdf_size(cann), salt, salt_length);
1015 ldns_rdf_deep_free(cann);
1016
1017 for (cur_it = iterations + 1; cur_it > 0; cur_it--) {
1018 (void) ldns_sha1((unsigned char *) hashed_owner_str,
1019 (unsigned int) hashed_owner_str_len, hash);
1020
1021 LDNS_FREE(hashed_owner_str);
1022 hashed_owner_str_len = salt_length + LDNS_SHA1_DIGEST_LENGTH;
1023 hashed_owner_str = LDNS_XMALLOC(unsigned char, hashed_owner_str_len);
1024 if (!hashed_owner_str) {
1025 return NULL;
1026 }
1027 memcpy(hashed_owner_str, hash, LDNS_SHA1_DIGEST_LENGTH);
1028 memcpy(hashed_owner_str + LDNS_SHA1_DIGEST_LENGTH, salt, salt_length);
1029 hashed_owner_str_len = LDNS_SHA1_DIGEST_LENGTH + salt_length;
1030 }
1031
1032 LDNS_FREE(hashed_owner_str);
1033 hashed_owner_str = hash;
1034 hashed_owner_str_len = LDNS_SHA1_DIGEST_LENGTH;
1035
1036 hashed_owner_b32 = LDNS_XMALLOC(char,
1037 ldns_b32_ntop_calculate_size(hashed_owner_str_len) + 1);
1038 if(!hashed_owner_b32) {
1039 return NULL;
1040 }
1041 hashed_owner_b32_len = (size_t) ldns_b32_ntop_extended_hex(
1042 (uint8_t *) hashed_owner_str,
1043 hashed_owner_str_len,
1044 hashed_owner_b32,
1045 ldns_b32_ntop_calculate_size(hashed_owner_str_len)+1);
1046 if (hashed_owner_b32_len < 1) {
1047 #ifdef STDERR_MSGS
1048 fprintf(stderr, "Error in base32 extended hex encoding ");
1049 fprintf(stderr, "of hashed owner name (name: ");
1050 ldns_rdf_print(stderr, name);
1051 fprintf(stderr, ", return code: %u)\n",
1052 (unsigned int) hashed_owner_b32_len);
1053 #endif
1054 LDNS_FREE(hashed_owner_b32);
1055 return NULL;
1056 }
1057 hashed_owner_b32[hashed_owner_b32_len] = '\0';
1058
1059 status = ldns_str2rdf_dname(&hashed_owner, hashed_owner_b32);
1060 if (status != LDNS_STATUS_OK) {
1061 #ifdef STDERR_MSGS
1062 fprintf(stderr, "Error creating rdf from %s\n", hashed_owner_b32);
1063 #endif
1064 LDNS_FREE(hashed_owner_b32);
1065 return NULL;
1066 }
1067
1068 LDNS_FREE(hashed_owner_b32);
1069 return hashed_owner;
1070 }
1071
1072 void
ldns_nsec3_add_param_rdfs(ldns_rr * rr,uint8_t algorithm,uint8_t flags,uint16_t iterations,uint8_t salt_length,uint8_t * salt)1073 ldns_nsec3_add_param_rdfs(ldns_rr *rr,
1074 uint8_t algorithm,
1075 uint8_t flags,
1076 uint16_t iterations,
1077 uint8_t salt_length,
1078 uint8_t *salt)
1079 {
1080 ldns_rdf *salt_rdf = NULL;
1081 uint8_t *salt_data = NULL;
1082 ldns_rdf *old;
1083
1084 old = ldns_rr_set_rdf(rr,
1085 ldns_rdf_new_frm_data(LDNS_RDF_TYPE_INT8,
1086 1, (void*)&algorithm),
1087 0);
1088 if (old) ldns_rdf_deep_free(old);
1089
1090 old = ldns_rr_set_rdf(rr,
1091 ldns_rdf_new_frm_data(LDNS_RDF_TYPE_INT8,
1092 1, (void*)&flags),
1093 1);
1094 if (old) ldns_rdf_deep_free(old);
1095
1096 old = ldns_rr_set_rdf(rr,
1097 ldns_native2rdf_int16(LDNS_RDF_TYPE_INT16,
1098 iterations),
1099 2);
1100 if (old) ldns_rdf_deep_free(old);
1101
1102 salt_data = LDNS_XMALLOC(uint8_t, salt_length + 1);
1103 if(!salt_data) {
1104 /* no way to return error */
1105 return;
1106 }
1107 salt_data[0] = salt_length;
1108 memcpy(salt_data + 1, salt, salt_length);
1109 salt_rdf = ldns_rdf_new_frm_data(LDNS_RDF_TYPE_NSEC3_SALT,
1110 salt_length + 1,
1111 salt_data);
1112 if(!salt_rdf) {
1113 LDNS_FREE(salt_data);
1114 /* no way to return error */
1115 return;
1116 }
1117
1118 old = ldns_rr_set_rdf(rr, salt_rdf, 3);
1119 if (old) ldns_rdf_deep_free(old);
1120 LDNS_FREE(salt_data);
1121 }
1122
1123 static int
rr_list_delegation_only(ldns_rdf * origin,ldns_rr_list * rr_list)1124 rr_list_delegation_only(ldns_rdf *origin, ldns_rr_list *rr_list)
1125 {
1126 size_t i;
1127 ldns_rr *cur_rr;
1128 if (!origin || !rr_list) return 0;
1129 for (i = 0; i < ldns_rr_list_rr_count(rr_list); i++) {
1130 cur_rr = ldns_rr_list_rr(rr_list, i);
1131 if (ldns_dname_compare(ldns_rr_owner(cur_rr), origin) == 0) {
1132 return 0;
1133 }
1134 if (ldns_rr_get_type(cur_rr) != LDNS_RR_TYPE_NS) {
1135 return 0;
1136 }
1137 }
1138 return 1;
1139 }
1140
1141 /* this will NOT return the NSEC3 completed, you will have to run the
1142 finalize function on the rrlist later! */
1143 ldns_rr *
ldns_create_nsec3(ldns_rdf * cur_owner,ldns_rdf * cur_zone,ldns_rr_list * rrs,uint8_t algorithm,uint8_t flags,uint16_t iterations,uint8_t salt_length,uint8_t * salt,bool emptynonterminal)1144 ldns_create_nsec3(ldns_rdf *cur_owner,
1145 ldns_rdf *cur_zone,
1146 ldns_rr_list *rrs,
1147 uint8_t algorithm,
1148 uint8_t flags,
1149 uint16_t iterations,
1150 uint8_t salt_length,
1151 uint8_t *salt,
1152 bool emptynonterminal)
1153 {
1154 size_t i;
1155 ldns_rr *i_rr;
1156 uint16_t i_type;
1157
1158 ldns_rr *nsec = NULL;
1159 ldns_rdf *hashed_owner = NULL;
1160
1161 ldns_status status;
1162
1163 ldns_rr_type i_type_list[1024];
1164 size_t type_count = 0;
1165
1166 hashed_owner = ldns_nsec3_hash_name(cur_owner,
1167 algorithm,
1168 iterations,
1169 salt_length,
1170 salt);
1171 status = ldns_dname_cat(hashed_owner, cur_zone);
1172 if(status != LDNS_STATUS_OK) {
1173 ldns_rdf_deep_free(hashed_owner);
1174 return NULL;
1175 }
1176 nsec = ldns_rr_new_frm_type(LDNS_RR_TYPE_NSEC3);
1177 if(!nsec) {
1178 ldns_rdf_deep_free(hashed_owner);
1179 return NULL;
1180 }
1181 ldns_rr_set_type(nsec, LDNS_RR_TYPE_NSEC3);
1182 ldns_rr_set_owner(nsec, hashed_owner);
1183
1184 ldns_nsec3_add_param_rdfs(nsec,
1185 algorithm,
1186 flags,
1187 iterations,
1188 salt_length,
1189 salt);
1190 (void) ldns_rr_set_rdf(nsec, NULL, 4);
1191
1192
1193 for (i = 0; i < ldns_rr_list_rr_count(rrs); i++) {
1194 i_rr = ldns_rr_list_rr(rrs, i);
1195 if (ldns_rdf_compare(cur_owner,
1196 ldns_rr_owner(i_rr)) == 0) {
1197 i_type = ldns_rr_get_type(i_rr);
1198 if (type_count == 0 || i_type_list[type_count-1] != i_type) {
1199 i_type_list[type_count] = i_type;
1200 type_count++;
1201 }
1202 }
1203 }
1204
1205 /* add RRSIG anyway, but only if this is not an ENT or
1206 * an unsigned delegation */
1207 if (!emptynonterminal && !rr_list_delegation_only(cur_zone, rrs)) {
1208 i_type_list[type_count] = LDNS_RR_TYPE_RRSIG;
1209 type_count++;
1210 }
1211
1212 /* and SOA if owner == zone */
1213 if (ldns_dname_compare(cur_zone, cur_owner) == 0) {
1214 i_type_list[type_count] = LDNS_RR_TYPE_SOA;
1215 type_count++;
1216 }
1217
1218 ldns_rr_push_rdf(nsec,
1219 ldns_dnssec_create_nsec_bitmap(i_type_list,
1220 type_count, LDNS_RR_TYPE_NSEC3));
1221
1222 return nsec;
1223 }
1224
1225 uint8_t
ldns_nsec3_algorithm(const ldns_rr * nsec3_rr)1226 ldns_nsec3_algorithm(const ldns_rr *nsec3_rr)
1227 {
1228 if (nsec3_rr &&
1229 (ldns_rr_get_type(nsec3_rr) == LDNS_RR_TYPE_NSEC3 ||
1230 ldns_rr_get_type(nsec3_rr) == LDNS_RR_TYPE_NSEC3PARAM)
1231 && (ldns_rr_rdf(nsec3_rr, 0) != NULL)
1232 && ldns_rdf_size(ldns_rr_rdf(nsec3_rr, 0)) > 0) {
1233 return ldns_rdf2native_int8(ldns_rr_rdf(nsec3_rr, 0));
1234 }
1235 return 0;
1236 }
1237
1238 uint8_t
ldns_nsec3_flags(const ldns_rr * nsec3_rr)1239 ldns_nsec3_flags(const ldns_rr *nsec3_rr)
1240 {
1241 if (nsec3_rr &&
1242 (ldns_rr_get_type(nsec3_rr) == LDNS_RR_TYPE_NSEC3 ||
1243 ldns_rr_get_type(nsec3_rr) == LDNS_RR_TYPE_NSEC3PARAM)
1244 && (ldns_rr_rdf(nsec3_rr, 1) != NULL)
1245 && ldns_rdf_size(ldns_rr_rdf(nsec3_rr, 1)) > 0) {
1246 return ldns_rdf2native_int8(ldns_rr_rdf(nsec3_rr, 1));
1247 }
1248 return 0;
1249 }
1250
1251 bool
ldns_nsec3_optout(const ldns_rr * nsec3_rr)1252 ldns_nsec3_optout(const ldns_rr *nsec3_rr)
1253 {
1254 return (ldns_nsec3_flags(nsec3_rr) & LDNS_NSEC3_VARS_OPTOUT_MASK);
1255 }
1256
1257 uint16_t
ldns_nsec3_iterations(const ldns_rr * nsec3_rr)1258 ldns_nsec3_iterations(const ldns_rr *nsec3_rr)
1259 {
1260 if (nsec3_rr &&
1261 (ldns_rr_get_type(nsec3_rr) == LDNS_RR_TYPE_NSEC3 ||
1262 ldns_rr_get_type(nsec3_rr) == LDNS_RR_TYPE_NSEC3PARAM)
1263 && (ldns_rr_rdf(nsec3_rr, 2) != NULL)
1264 && ldns_rdf_size(ldns_rr_rdf(nsec3_rr, 2)) > 0) {
1265 return ldns_rdf2native_int16(ldns_rr_rdf(nsec3_rr, 2));
1266 }
1267 return 0;
1268
1269 }
1270
1271 ldns_rdf *
ldns_nsec3_salt(const ldns_rr * nsec3_rr)1272 ldns_nsec3_salt(const ldns_rr *nsec3_rr)
1273 {
1274 if (nsec3_rr &&
1275 (ldns_rr_get_type(nsec3_rr) == LDNS_RR_TYPE_NSEC3 ||
1276 ldns_rr_get_type(nsec3_rr) == LDNS_RR_TYPE_NSEC3PARAM)
1277 ) {
1278 return ldns_rr_rdf(nsec3_rr, 3);
1279 }
1280 return NULL;
1281 }
1282
1283 uint8_t
ldns_nsec3_salt_length(const ldns_rr * nsec3_rr)1284 ldns_nsec3_salt_length(const ldns_rr *nsec3_rr)
1285 {
1286 ldns_rdf *salt_rdf = ldns_nsec3_salt(nsec3_rr);
1287 if (salt_rdf && ldns_rdf_size(salt_rdf) > 0) {
1288 return (uint8_t) ldns_rdf_data(salt_rdf)[0];
1289 }
1290 return 0;
1291 }
1292
1293 /* allocs data, free with LDNS_FREE() */
1294 uint8_t *
ldns_nsec3_salt_data(const ldns_rr * nsec3_rr)1295 ldns_nsec3_salt_data(const ldns_rr *nsec3_rr)
1296 {
1297 uint8_t salt_length;
1298 uint8_t *salt;
1299
1300 ldns_rdf *salt_rdf = ldns_nsec3_salt(nsec3_rr);
1301 if (salt_rdf && ldns_rdf_size(salt_rdf) > 0) {
1302 salt_length = ldns_rdf_data(salt_rdf)[0];
1303 salt = LDNS_XMALLOC(uint8_t, salt_length);
1304 if(!salt) return NULL;
1305 memcpy(salt, &ldns_rdf_data(salt_rdf)[1], salt_length);
1306 return salt;
1307 }
1308 return NULL;
1309 }
1310
1311 ldns_rdf *
ldns_nsec3_next_owner(const ldns_rr * nsec3_rr)1312 ldns_nsec3_next_owner(const ldns_rr *nsec3_rr)
1313 {
1314 if (!nsec3_rr || ldns_rr_get_type(nsec3_rr) != LDNS_RR_TYPE_NSEC3) {
1315 return NULL;
1316 } else {
1317 return ldns_rr_rdf(nsec3_rr, 4);
1318 }
1319 }
1320
1321 ldns_rdf *
ldns_nsec3_bitmap(const ldns_rr * nsec3_rr)1322 ldns_nsec3_bitmap(const ldns_rr *nsec3_rr)
1323 {
1324 if (!nsec3_rr || ldns_rr_get_type(nsec3_rr) != LDNS_RR_TYPE_NSEC3) {
1325 return NULL;
1326 } else {
1327 return ldns_rr_rdf(nsec3_rr, 5);
1328 }
1329 }
1330
1331 ldns_rdf *
ldns_nsec3_hash_name_frm_nsec3(const ldns_rr * nsec,ldns_rdf * name)1332 ldns_nsec3_hash_name_frm_nsec3(const ldns_rr *nsec, ldns_rdf *name)
1333 {
1334 uint8_t algorithm;
1335 uint16_t iterations;
1336 uint8_t salt_length;
1337 uint8_t *salt = 0;
1338
1339 ldns_rdf *hashed_owner;
1340
1341 algorithm = ldns_nsec3_algorithm(nsec);
1342 salt_length = ldns_nsec3_salt_length(nsec);
1343 salt = ldns_nsec3_salt_data(nsec);
1344 iterations = ldns_nsec3_iterations(nsec);
1345
1346 hashed_owner = ldns_nsec3_hash_name(name,
1347 algorithm,
1348 iterations,
1349 salt_length,
1350 salt);
1351
1352 LDNS_FREE(salt);
1353 return hashed_owner;
1354 }
1355
1356 bool
ldns_nsec_bitmap_covers_type(const ldns_rdf * bitmap,ldns_rr_type type)1357 ldns_nsec_bitmap_covers_type(const ldns_rdf* bitmap, ldns_rr_type type)
1358 {
1359 uint8_t* dptr;
1360 uint8_t* dend;
1361
1362 /* From RFC3845 Section 2.1.2:
1363 *
1364 * "The RR type space is split into 256 window blocks, each re-
1365 * presenting the low-order 8 bits of the 16-bit RR type space."
1366 */
1367 uint8_t window = type >> 8;
1368 uint8_t subtype = type & 0xff;
1369
1370 if (! bitmap) {
1371 return false;
1372 }
1373 assert(ldns_rdf_get_type(bitmap) == LDNS_RDF_TYPE_BITMAP);
1374
1375 dptr = ldns_rdf_data(bitmap);
1376 dend = ldns_rdf_data(bitmap) + ldns_rdf_size(bitmap);
1377
1378 /* Type Bitmap = ( Window Block # | Bitmap Length | Bitmap ) +
1379 * dptr[0] dptr[1] dptr[2:]
1380 */
1381 while (dptr < dend && dptr[0] <= window) {
1382
1383 if (dptr[0] == window && subtype / 8 < dptr[1] &&
1384 dptr + dptr[1] + 2 <= dend) {
1385
1386 return dptr[2 + subtype / 8] & (0x80 >> (subtype % 8));
1387 }
1388 dptr += dptr[1] + 2; /* next window */
1389 }
1390 return false;
1391 }
1392
1393 ldns_status
ldns_nsec_bitmap_set_type(ldns_rdf * bitmap,ldns_rr_type type)1394 ldns_nsec_bitmap_set_type(ldns_rdf* bitmap, ldns_rr_type type)
1395 {
1396 uint8_t* dptr;
1397 uint8_t* dend;
1398
1399 /* From RFC3845 Section 2.1.2:
1400 *
1401 * "The RR type space is split into 256 window blocks, each re-
1402 * presenting the low-order 8 bits of the 16-bit RR type space."
1403 */
1404 uint8_t window = type >> 8;
1405 uint8_t subtype = type & 0xff;
1406
1407 if (! bitmap) {
1408 return false;
1409 }
1410 assert(ldns_rdf_get_type(bitmap) == LDNS_RDF_TYPE_BITMAP);
1411
1412 dptr = ldns_rdf_data(bitmap);
1413 dend = ldns_rdf_data(bitmap) + ldns_rdf_size(bitmap);
1414
1415 /* Type Bitmap = ( Window Block # | Bitmap Length | Bitmap ) +
1416 * dptr[0] dptr[1] dptr[2:]
1417 */
1418 while (dptr < dend && dptr[0] <= window) {
1419
1420 if (dptr[0] == window && subtype / 8 < dptr[1] &&
1421 dptr + dptr[1] + 2 <= dend) {
1422
1423 dptr[2 + subtype / 8] |= (0x80 >> (subtype % 8));
1424 return LDNS_STATUS_OK;
1425 }
1426 dptr += dptr[1] + 2; /* next window */
1427 }
1428 return LDNS_STATUS_TYPE_NOT_IN_BITMAP;
1429 }
1430
1431 ldns_status
ldns_nsec_bitmap_clear_type(ldns_rdf * bitmap,ldns_rr_type type)1432 ldns_nsec_bitmap_clear_type(ldns_rdf* bitmap, ldns_rr_type type)
1433 {
1434 uint8_t* dptr;
1435 uint8_t* dend;
1436
1437 /* From RFC3845 Section 2.1.2:
1438 *
1439 * "The RR type space is split into 256 window blocks, each re-
1440 * presenting the low-order 8 bits of the 16-bit RR type space."
1441 */
1442 uint8_t window = type >> 8;
1443 uint8_t subtype = type & 0xff;
1444
1445 if (! bitmap) {
1446 return false;
1447 }
1448
1449 assert(ldns_rdf_get_type(bitmap) == LDNS_RDF_TYPE_BITMAP);
1450
1451 dptr = ldns_rdf_data(bitmap);
1452 dend = ldns_rdf_data(bitmap) + ldns_rdf_size(bitmap);
1453
1454 /* Type Bitmap = ( Window Block # | Bitmap Length | Bitmap ) +
1455 * dptr[0] dptr[1] dptr[2:]
1456 */
1457 while (dptr < dend && dptr[0] <= window) {
1458
1459 if (dptr[0] == window && subtype / 8 < dptr[1] &&
1460 dptr + dptr[1] + 2 <= dend) {
1461
1462 dptr[2 + subtype / 8] &= ~(0x80 >> (subtype % 8));
1463 return LDNS_STATUS_OK;
1464 }
1465 dptr += dptr[1] + 2; /* next window */
1466 }
1467 return LDNS_STATUS_TYPE_NOT_IN_BITMAP;
1468 }
1469
1470
1471 bool
ldns_nsec_covers_name(const ldns_rr * nsec,const ldns_rdf * name)1472 ldns_nsec_covers_name(const ldns_rr *nsec, const ldns_rdf *name)
1473 {
1474 ldns_rdf *nsec_owner = ldns_rr_owner(nsec);
1475 ldns_rdf *hash_next;
1476 char *next_hash_str;
1477 ldns_rdf *nsec_next = NULL;
1478 ldns_status status;
1479 ldns_rdf *chopped_dname;
1480 bool result;
1481
1482 if (ldns_rr_get_type(nsec) == LDNS_RR_TYPE_NSEC) {
1483 if (ldns_rr_rdf(nsec, 0) != NULL) {
1484 nsec_next = ldns_rdf_clone(ldns_rr_rdf(nsec, 0));
1485 } else {
1486 return false;
1487 }
1488 } else if (ldns_rr_get_type(nsec) == LDNS_RR_TYPE_NSEC3) {
1489 hash_next = ldns_nsec3_next_owner(nsec);
1490 next_hash_str = ldns_rdf2str(hash_next);
1491 nsec_next = ldns_dname_new_frm_str(next_hash_str);
1492 LDNS_FREE(next_hash_str);
1493 chopped_dname = ldns_dname_left_chop(nsec_owner);
1494 status = ldns_dname_cat(nsec_next, chopped_dname);
1495 ldns_rdf_deep_free(chopped_dname);
1496 if (status != LDNS_STATUS_OK) {
1497 printf("error catting: %s\n", ldns_get_errorstr_by_id(status));
1498 }
1499 } else {
1500 ldns_rdf_deep_free(nsec_next);
1501 return false;
1502 }
1503
1504 /* in the case of the last nsec */
1505 if(ldns_dname_compare(nsec_owner, nsec_next) > 0) {
1506 result = (ldns_dname_compare(nsec_owner, name) <= 0 ||
1507 ldns_dname_compare(name, nsec_next) < 0);
1508 } else if(ldns_dname_compare(nsec_owner, nsec_next) < 0) {
1509 result = (ldns_dname_compare(nsec_owner, name) <= 0 &&
1510 ldns_dname_compare(name, nsec_next) < 0);
1511 } else {
1512 result = true;
1513 }
1514
1515 ldns_rdf_deep_free(nsec_next);
1516 return result;
1517 }
1518
1519 #ifdef HAVE_SSL
1520 /* sig may be null - if so look in the packet */
1521
1522 ldns_status
ldns_pkt_verify_time(ldns_pkt * p,ldns_rr_type t,ldns_rdf * o,ldns_rr_list * k,ldns_rr_list * s,time_t check_time,ldns_rr_list * good_keys)1523 ldns_pkt_verify_time(ldns_pkt *p, ldns_rr_type t, ldns_rdf *o,
1524 ldns_rr_list *k, ldns_rr_list *s,
1525 time_t check_time, ldns_rr_list *good_keys)
1526 {
1527 ldns_rr_list *rrset;
1528 ldns_rr_list *sigs;
1529 ldns_rr_list *sigs_covered;
1530 ldns_rdf *rdf_t;
1531 ldns_rr_type t_netorder;
1532
1533 if (!k) {
1534 return LDNS_STATUS_ERR;
1535 /* return LDNS_STATUS_CRYPTO_NO_DNSKEY; */
1536 }
1537
1538 if (t == LDNS_RR_TYPE_RRSIG) {
1539 /* we don't have RRSIG(RRSIG) (yet? ;-) ) */
1540 return LDNS_STATUS_ERR;
1541 }
1542
1543 if (s) {
1544 /* if s is not NULL, the sigs are given to use */
1545 sigs = s;
1546 } else {
1547 /* otherwise get them from the packet */
1548 sigs = ldns_pkt_rr_list_by_name_and_type(p, o,
1549 LDNS_RR_TYPE_RRSIG,
1550 LDNS_SECTION_ANY_NOQUESTION);
1551 if (!sigs) {
1552 /* no sigs */
1553 return LDNS_STATUS_ERR;
1554 /* return LDNS_STATUS_CRYPTO_NO_RRSIG; */
1555 }
1556 }
1557
1558 /* rrsig are subtyped, so now we need to find the correct
1559 * sigs for the type t
1560 */
1561 t_netorder = htons(t); /* rdf are in network order! */
1562 /* a type identifier is a 16-bit number, so the size is 2 bytes */
1563 rdf_t = ldns_rdf_new(LDNS_RDF_TYPE_TYPE, 2, &t_netorder);
1564
1565 sigs_covered = ldns_rr_list_subtype_by_rdf(sigs, rdf_t, 0);
1566 ldns_rdf_free(rdf_t);
1567 if (! sigs_covered) {
1568 if (! s) {
1569 ldns_rr_list_deep_free(sigs);
1570 }
1571 return LDNS_STATUS_ERR;
1572 }
1573 ldns_rr_list_deep_free(sigs_covered);
1574
1575 rrset = ldns_pkt_rr_list_by_name_and_type(p, o, t,
1576 LDNS_SECTION_ANY_NOQUESTION);
1577 if (!rrset) {
1578 if (! s) {
1579 ldns_rr_list_deep_free(sigs);
1580 }
1581 return LDNS_STATUS_ERR;
1582 }
1583 return ldns_verify_time(rrset, sigs, k, check_time, good_keys);
1584 }
1585
1586 ldns_status
ldns_pkt_verify(ldns_pkt * p,ldns_rr_type t,ldns_rdf * o,ldns_rr_list * k,ldns_rr_list * s,ldns_rr_list * good_keys)1587 ldns_pkt_verify(ldns_pkt *p, ldns_rr_type t, ldns_rdf *o,
1588 ldns_rr_list *k, ldns_rr_list *s, ldns_rr_list *good_keys)
1589 {
1590 return ldns_pkt_verify_time(p, t, o, k, s, ldns_time(NULL), good_keys);
1591 }
1592 #endif /* HAVE_SSL */
1593
1594 ldns_status
ldns_dnssec_chain_nsec3_list(ldns_rr_list * nsec3_rrs)1595 ldns_dnssec_chain_nsec3_list(ldns_rr_list *nsec3_rrs)
1596 {
1597 size_t i;
1598 char *next_nsec_owner_str;
1599 ldns_rdf *next_nsec_owner_label;
1600 ldns_rdf *next_nsec_rdf;
1601 ldns_status status = LDNS_STATUS_OK;
1602
1603 for (i = 0; i < ldns_rr_list_rr_count(nsec3_rrs); i++) {
1604 if (i == ldns_rr_list_rr_count(nsec3_rrs) - 1) {
1605 next_nsec_owner_label =
1606 ldns_dname_label(ldns_rr_owner(ldns_rr_list_rr(nsec3_rrs,
1607 0)), 0);
1608 next_nsec_owner_str = ldns_rdf2str(next_nsec_owner_label);
1609 if (next_nsec_owner_str[strlen(next_nsec_owner_str) - 1]
1610 == '.') {
1611 next_nsec_owner_str[strlen(next_nsec_owner_str) - 1]
1612 = '\0';
1613 }
1614 status = ldns_str2rdf_b32_ext(&next_nsec_rdf,
1615 next_nsec_owner_str);
1616 if (!ldns_rr_set_rdf(ldns_rr_list_rr(nsec3_rrs, i),
1617 next_nsec_rdf, 4)) {
1618 /* todo: error */
1619 }
1620
1621 ldns_rdf_deep_free(next_nsec_owner_label);
1622 LDNS_FREE(next_nsec_owner_str);
1623 } else {
1624 next_nsec_owner_label =
1625 ldns_dname_label(ldns_rr_owner(ldns_rr_list_rr(nsec3_rrs,
1626 i + 1)),
1627 0);
1628 next_nsec_owner_str = ldns_rdf2str(next_nsec_owner_label);
1629 if (next_nsec_owner_str[strlen(next_nsec_owner_str) - 1]
1630 == '.') {
1631 next_nsec_owner_str[strlen(next_nsec_owner_str) - 1]
1632 = '\0';
1633 }
1634 status = ldns_str2rdf_b32_ext(&next_nsec_rdf,
1635 next_nsec_owner_str);
1636 ldns_rdf_deep_free(next_nsec_owner_label);
1637 LDNS_FREE(next_nsec_owner_str);
1638 if (!ldns_rr_set_rdf(ldns_rr_list_rr(nsec3_rrs, i),
1639 next_nsec_rdf, 4)) {
1640 /* todo: error */
1641 }
1642 }
1643 }
1644 return status;
1645 }
1646
1647 int
qsort_rr_compare_nsec3(const void * a,const void * b)1648 qsort_rr_compare_nsec3(const void *a, const void *b)
1649 {
1650 const ldns_rr *rr1 = * (const ldns_rr **) a;
1651 const ldns_rr *rr2 = * (const ldns_rr **) b;
1652 if (rr1 == NULL && rr2 == NULL) {
1653 return 0;
1654 }
1655 if (rr1 == NULL) {
1656 return -1;
1657 }
1658 if (rr2 == NULL) {
1659 return 1;
1660 }
1661 return ldns_rdf_compare(ldns_rr_owner(rr1), ldns_rr_owner(rr2));
1662 }
1663
1664 void
ldns_rr_list_sort_nsec3(ldns_rr_list * unsorted)1665 ldns_rr_list_sort_nsec3(ldns_rr_list *unsorted)
1666 {
1667 qsort(unsorted->_rrs,
1668 ldns_rr_list_rr_count(unsorted),
1669 sizeof(ldns_rr *),
1670 qsort_rr_compare_nsec3);
1671 }
1672
1673 int
ldns_dnssec_default_add_to_signatures(ATTR_UNUSED (ldns_rr * sig),ATTR_UNUSED (void * n))1674 ldns_dnssec_default_add_to_signatures( ATTR_UNUSED(ldns_rr *sig)
1675 , ATTR_UNUSED(void *n)
1676 )
1677 {
1678 return LDNS_SIGNATURE_LEAVE_ADD_NEW;
1679 }
1680
1681 int
ldns_dnssec_default_leave_signatures(ATTR_UNUSED (ldns_rr * sig),ATTR_UNUSED (void * n))1682 ldns_dnssec_default_leave_signatures( ATTR_UNUSED(ldns_rr *sig)
1683 , ATTR_UNUSED(void *n)
1684 )
1685 {
1686 return LDNS_SIGNATURE_LEAVE_NO_ADD;
1687 }
1688
1689 int
ldns_dnssec_default_delete_signatures(ATTR_UNUSED (ldns_rr * sig),ATTR_UNUSED (void * n))1690 ldns_dnssec_default_delete_signatures( ATTR_UNUSED(ldns_rr *sig)
1691 , ATTR_UNUSED(void *n)
1692 )
1693 {
1694 return LDNS_SIGNATURE_REMOVE_NO_ADD;
1695 }
1696
1697 int
ldns_dnssec_default_replace_signatures(ATTR_UNUSED (ldns_rr * sig),ATTR_UNUSED (void * n))1698 ldns_dnssec_default_replace_signatures( ATTR_UNUSED(ldns_rr *sig)
1699 , ATTR_UNUSED(void *n)
1700 )
1701 {
1702 return LDNS_SIGNATURE_REMOVE_ADD_NEW;
1703 }
1704
1705 #ifdef HAVE_SSL
1706 ldns_rdf *
ldns_convert_dsa_rrsig_asn12rdf(const ldns_buffer * sig,const long sig_len)1707 ldns_convert_dsa_rrsig_asn12rdf(const ldns_buffer *sig,
1708 const long sig_len)
1709 {
1710 ldns_rdf *sigdata_rdf;
1711 DSA_SIG *dsasig;
1712 unsigned char *dsasig_data = (unsigned char*)ldns_buffer_begin(sig);
1713 size_t byte_offset;
1714
1715 dsasig = d2i_DSA_SIG(NULL,
1716 (const unsigned char **)&dsasig_data,
1717 sig_len);
1718 if (!dsasig) {
1719 DSA_SIG_free(dsasig);
1720 return NULL;
1721 }
1722
1723 dsasig_data = LDNS_XMALLOC(unsigned char, 41);
1724 if(!dsasig_data) {
1725 DSA_SIG_free(dsasig);
1726 return NULL;
1727 }
1728 dsasig_data[0] = 0;
1729 byte_offset = (size_t) (20 - BN_num_bytes(dsasig->r));
1730 if (byte_offset > 20) {
1731 DSA_SIG_free(dsasig);
1732 LDNS_FREE(dsasig_data);
1733 return NULL;
1734 }
1735 memset(&dsasig_data[1], 0, byte_offset);
1736 BN_bn2bin(dsasig->r, &dsasig_data[1 + byte_offset]);
1737 byte_offset = (size_t) (20 - BN_num_bytes(dsasig->s));
1738 if (byte_offset > 20) {
1739 DSA_SIG_free(dsasig);
1740 LDNS_FREE(dsasig_data);
1741 return NULL;
1742 }
1743 memset(&dsasig_data[21], 0, byte_offset);
1744 BN_bn2bin(dsasig->s, &dsasig_data[21 + byte_offset]);
1745
1746 sigdata_rdf = ldns_rdf_new(LDNS_RDF_TYPE_B64, 41, dsasig_data);
1747 if(!sigdata_rdf) {
1748 LDNS_FREE(dsasig_data);
1749 }
1750 DSA_SIG_free(dsasig);
1751
1752 return sigdata_rdf;
1753 }
1754
1755 ldns_status
ldns_convert_dsa_rrsig_rdf2asn1(ldns_buffer * target_buffer,const ldns_rdf * sig_rdf)1756 ldns_convert_dsa_rrsig_rdf2asn1(ldns_buffer *target_buffer,
1757 const ldns_rdf *sig_rdf)
1758 {
1759 /* the EVP api wants the DER encoding of the signature... */
1760 BIGNUM *R, *S;
1761 DSA_SIG *dsasig;
1762 unsigned char *raw_sig = NULL;
1763 int raw_sig_len;
1764
1765 if(ldns_rdf_size(sig_rdf) < 1 + 2*SHA_DIGEST_LENGTH)
1766 return LDNS_STATUS_SYNTAX_RDATA_ERR;
1767 /* extract the R and S field from the sig buffer */
1768 R = BN_new();
1769 if(!R) return LDNS_STATUS_MEM_ERR;
1770 (void) BN_bin2bn((unsigned char *) ldns_rdf_data(sig_rdf) + 1,
1771 SHA_DIGEST_LENGTH, R);
1772 S = BN_new();
1773 if(!S) {
1774 BN_free(R);
1775 return LDNS_STATUS_MEM_ERR;
1776 }
1777 (void) BN_bin2bn((unsigned char *) ldns_rdf_data(sig_rdf) + 21,
1778 SHA_DIGEST_LENGTH, S);
1779
1780 dsasig = DSA_SIG_new();
1781 if (!dsasig) {
1782 BN_free(R);
1783 BN_free(S);
1784 return LDNS_STATUS_MEM_ERR;
1785 }
1786
1787 dsasig->r = R;
1788 dsasig->s = S;
1789
1790 raw_sig_len = i2d_DSA_SIG(dsasig, &raw_sig);
1791 if (raw_sig_len < 0) {
1792 DSA_SIG_free(dsasig);
1793 free(raw_sig);
1794 return LDNS_STATUS_SSL_ERR;
1795 }
1796 if (ldns_buffer_reserve(target_buffer, (size_t) raw_sig_len)) {
1797 ldns_buffer_write(target_buffer, raw_sig, (size_t)raw_sig_len);
1798 }
1799
1800 DSA_SIG_free(dsasig);
1801 free(raw_sig);
1802
1803 return ldns_buffer_status(target_buffer);
1804 }
1805
1806 #ifdef USE_ECDSA
1807 #ifndef S_SPLINT_S
1808 ldns_rdf *
ldns_convert_ecdsa_rrsig_asn12rdf(const ldns_buffer * sig,const long sig_len)1809 ldns_convert_ecdsa_rrsig_asn12rdf(const ldns_buffer *sig, const long sig_len)
1810 {
1811 ECDSA_SIG* ecdsa_sig;
1812 unsigned char *data = (unsigned char*)ldns_buffer_begin(sig);
1813 ldns_rdf* rdf;
1814 ecdsa_sig = d2i_ECDSA_SIG(NULL, (const unsigned char **)&data, sig_len);
1815 if(!ecdsa_sig) return NULL;
1816
1817 /* "r | s". */
1818 data = LDNS_XMALLOC(unsigned char,
1819 BN_num_bytes(ecdsa_sig->r) + BN_num_bytes(ecdsa_sig->s));
1820 if(!data) {
1821 ECDSA_SIG_free(ecdsa_sig);
1822 return NULL;
1823 }
1824 BN_bn2bin(ecdsa_sig->r, data);
1825 BN_bn2bin(ecdsa_sig->s, data+BN_num_bytes(ecdsa_sig->r));
1826 rdf = ldns_rdf_new(LDNS_RDF_TYPE_B64, (size_t)(
1827 BN_num_bytes(ecdsa_sig->r) + BN_num_bytes(ecdsa_sig->s)), data);
1828 ECDSA_SIG_free(ecdsa_sig);
1829 return rdf;
1830 }
1831
1832 ldns_status
ldns_convert_ecdsa_rrsig_rdf2asn1(ldns_buffer * target_buffer,const ldns_rdf * sig_rdf)1833 ldns_convert_ecdsa_rrsig_rdf2asn1(ldns_buffer *target_buffer,
1834 const ldns_rdf *sig_rdf)
1835 {
1836 ECDSA_SIG* sig;
1837 int raw_sig_len;
1838 long bnsize = (long)ldns_rdf_size(sig_rdf) / 2;
1839 /* if too short, or not even length, do not bother */
1840 if(bnsize < 16 || (size_t)bnsize*2 != ldns_rdf_size(sig_rdf))
1841 return LDNS_STATUS_ERR;
1842
1843 /* use the raw data to parse two evenly long BIGNUMs, "r | s". */
1844 sig = ECDSA_SIG_new();
1845 if(!sig) return LDNS_STATUS_MEM_ERR;
1846 sig->r = BN_bin2bn((const unsigned char*)ldns_rdf_data(sig_rdf),
1847 bnsize, sig->r);
1848 sig->s = BN_bin2bn((const unsigned char*)ldns_rdf_data(sig_rdf)+bnsize,
1849 bnsize, sig->s);
1850 if(!sig->r || !sig->s) {
1851 ECDSA_SIG_free(sig);
1852 return LDNS_STATUS_MEM_ERR;
1853 }
1854
1855 raw_sig_len = i2d_ECDSA_SIG(sig, NULL);
1856 if (ldns_buffer_reserve(target_buffer, (size_t) raw_sig_len)) {
1857 unsigned char* pp = (unsigned char*)
1858 ldns_buffer_current(target_buffer);
1859 raw_sig_len = i2d_ECDSA_SIG(sig, &pp);
1860 ldns_buffer_skip(target_buffer, (ssize_t) raw_sig_len);
1861 }
1862 ECDSA_SIG_free(sig);
1863
1864 return ldns_buffer_status(target_buffer);
1865 }
1866
1867 #endif /* S_SPLINT_S */
1868 #endif /* USE_ECDSA */
1869 #endif /* HAVE_SSL */
1870