2 * Copyright (C) 2004-2007, 2010 Internet Systems Consortium, Inc. ("ISC")
3 * Copyright (C) 2002, 2003 Internet Software Consortium.
5 * Permission to use, copy, modify, and/or distribute this software for any
6 * purpose with or without fee is hereby granted, provided that the above
7 * copyright notice and this permission notice appear in all copies.
9 * THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH
10 * REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
11 * AND FITNESS. IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT,
12 * INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
13 * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
14 * OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
15 * PERFORMANCE OF THIS SOFTWARE.
18 /* $Id: ds.c,v 1.13 2010/12/23 23:47:08 tbox Exp $ */
26 #include <isc/buffer.h>
27 #include <isc/region.h>
33 #include <dns/fixedname.h>
35 #include <dns/rdata.h>
36 #include <dns/rdatastruct.h>
37 #include <dns/result.h>
41 #ifdef HAVE_OPENSSL_GOST
42 #include <dst/result.h>
43 #include <openssl/evp.h>
45 extern const EVP_MD * EVP_gost(void);
49 dns_ds_buildrdata(dns_name_t *owner, dns_rdata_t *key,
50 unsigned int digest_type, unsigned char *buffer,
53 dns_fixedname_t fname;
55 unsigned char digest[ISC_SHA256_DIGESTLENGTH];
61 #ifdef HAVE_OPENSSL_GOST
67 REQUIRE(key->type == dns_rdatatype_dnskey);
69 if (!dns_ds_digest_supported(digest_type))
70 return (ISC_R_NOTIMPLEMENTED);
72 dns_fixedname_init(&fname);
73 name = dns_fixedname_name(&fname);
74 (void)dns_name_downcase(owner, name, NULL);
76 memset(buffer, 0, DNS_DS_BUFFERSIZE);
77 isc_buffer_init(&b, buffer, DNS_DS_BUFFERSIZE);
79 switch (digest_type) {
80 case DNS_DSDIGEST_SHA1:
82 dns_name_toregion(name, &r);
83 isc_sha1_update(&sha1, r.base, r.length);
84 dns_rdata_toregion(key, &r);
85 INSIST(r.length >= 4);
86 isc_sha1_update(&sha1, r.base, r.length);
87 isc_sha1_final(&sha1, digest);
89 #ifdef HAVE_OPENSSL_GOST
92 EVP_MD_CTX_cleanup(&ctx); \
93 return (DST_R_OPENSSLFAILURE); \
96 case DNS_DSDIGEST_GOST:
99 return (DST_R_OPENSSLFAILURE);
100 EVP_MD_CTX_init(&ctx);
101 CHECK(EVP_DigestInit(&ctx, md));
102 dns_name_toregion(name, &r);
103 CHECK(EVP_DigestUpdate(&ctx,
104 (const void *) r.base,
106 dns_rdata_toregion(key, &r);
107 INSIST(r.length >= 4);
108 CHECK(EVP_DigestUpdate(&ctx,
109 (const void *) r.base,
111 CHECK(EVP_DigestFinal(&ctx, digest, NULL));
115 isc_sha256_init(&sha256);
116 dns_name_toregion(name, &r);
117 isc_sha256_update(&sha256, r.base, r.length);
118 dns_rdata_toregion(key, &r);
119 INSIST(r.length >= 4);
120 isc_sha256_update(&sha256, r.base, r.length);
121 isc_sha256_final(digest, &sha256);
126 ds.common.rdclass = key->rdclass;
127 ds.common.rdtype = dns_rdatatype_ds;
128 ds.algorithm = r.base[3];
129 ds.key_tag = dst_region_computeid(&r, ds.algorithm);
130 ds.digest_type = digest_type;
131 switch (digest_type) {
132 case DNS_DSDIGEST_SHA1:
133 ds.length = ISC_SHA1_DIGESTLENGTH;
135 #ifdef HAVE_OPENSSL_GOST
136 case DNS_DSDIGEST_GOST:
137 ds.length = ISC_GOST_DIGESTLENGTH;
141 ds.length = ISC_SHA256_DIGESTLENGTH;
146 return (dns_rdata_fromstruct(rdata, key->rdclass, dns_rdatatype_ds,
151 dns_ds_digest_supported(unsigned int digest_type) {
152 #ifdef HAVE_OPENSSL_GOST
153 return (ISC_TF(digest_type == DNS_DSDIGEST_SHA1 ||
154 digest_type == DNS_DSDIGEST_SHA256 ||
155 digest_type == DNS_DSDIGEST_GOST));
157 return (ISC_TF(digest_type == DNS_DSDIGEST_SHA1 ||
158 digest_type == DNS_DSDIGEST_SHA256));