2 * Copyright (c) 1997 - 2001, 2003 - 2004 Kungliga Tekniska Högskolan
3 * (Royal Institute of Technology, Stockholm, Sweden).
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 * notice, this list of conditions and the following disclaimer in the
15 * documentation and/or other materials provided with the distribution.
17 * 3. Neither the name of the Institute nor the names of its contributors
18 * may be used to endorse or promote products derived from this software
19 * without specific prior written permission.
21 * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
22 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24 * ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
25 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
36 RCSID("$Id: keys.c 23316 2008-06-23 04:32:32Z lha $");
39 * free all the memory used by (len, keys)
43 hdb_free_keys (krb5_context context, int len, Key *keys)
47 for (i = 0; i < len; i++) {
50 if (keys[i].salt != NULL) {
51 free_Salt(keys[i].salt);
55 krb5_free_keyblock_contents(context, &keys[i].key);
61 * for each entry in `default_keys' try to parse it as a sequence
62 * of etype:salttype:salt, syntax of this if something like:
63 * [(des|des3|etype):](pw-salt|afs3)[:string], if etype is omitted it
64 * means all etypes, and if string is omitted is means the default
65 * string (for that principal). Additional special values:
68 * afs or afs3 == des:afs3-salt
71 /* the 3 DES types must be first */
72 static const krb5_enctype all_etypes[] = {
76 ETYPE_AES256_CTS_HMAC_SHA1_96,
77 ETYPE_ARCFOUR_HMAC_MD5,
81 static krb5_error_code
82 parse_key_set(krb5_context context, const char *key,
83 krb5_enctype **ret_enctypes, size_t *ret_num_enctypes,
84 krb5_salt *salt, krb5_principal principal)
89 int i, num_enctypes = 0;
91 const krb5_enctype *enctypes = NULL;
97 *ret_num_enctypes = 0;
99 /* split p in a list of :-separated strings */
100 for(num_buf = 0; num_buf < 3; num_buf++)
101 if(strsep_copy(&p, ":", buf[num_buf], sizeof(buf[num_buf])) == -1)
104 salt->saltvalue.data = NULL;
105 salt->saltvalue.length = 0;
107 for(i = 0; i < num_buf; i++) {
108 if(enctypes == NULL && num_buf > 1) {
109 /* this might be a etype specifier */
110 /* XXX there should be a string_to_etypes handling
111 special cases like `des' and `all' */
112 if(strcmp(buf[i], "des") == 0) {
113 enctypes = all_etypes;
115 } else if(strcmp(buf[i], "des3") == 0) {
116 e = ETYPE_DES3_CBC_SHA1;
120 ret = krb5_string_to_enctype(context, buf[i], &e);
129 if(salt->salttype == 0) {
130 /* interpret string as a salt specifier, if no etype
131 is set, this sets default values */
132 /* XXX should perhaps use string_to_salttype, but that
134 if(strcmp(buf[i], "pw-salt") == 0) {
135 if(enctypes == NULL) {
136 enctypes = all_etypes;
137 num_enctypes = sizeof(all_etypes)/sizeof(all_etypes[0]);
139 salt->salttype = KRB5_PW_SALT;
140 } else if(strcmp(buf[i], "afs3-salt") == 0) {
141 if(enctypes == NULL) {
142 enctypes = all_etypes;
145 salt->salttype = KRB5_AFS3_SALT;
151 /* if there is a final string, use it as the string to
152 salt with, this is mostly useful with null salt for
153 v4 compat, and a cell name for afs compat */
154 salt->saltvalue.data = strdup(buf[i]);
155 if (salt->saltvalue.data == NULL) {
156 krb5_set_error_message(context, ENOMEM, "malloc: out of memory");
159 salt->saltvalue.length = strlen(buf[i]);
163 if(enctypes == NULL || salt->salttype == 0) {
164 krb5_set_error_message(context, EINVAL, "bad value for default_keys `%s'", key);
168 /* if no salt was specified make up default salt */
169 if(salt->saltvalue.data == NULL) {
170 if(salt->salttype == KRB5_PW_SALT)
171 ret = krb5_get_pw_salt(context, principal, salt);
172 else if(salt->salttype == KRB5_AFS3_SALT) {
173 krb5_realm *realm = krb5_princ_realm(context, principal);
174 salt->saltvalue.data = strdup(*realm);
175 if(salt->saltvalue.data == NULL) {
176 krb5_set_error_message(context, ENOMEM,
177 "out of memory while "
178 "parsing salt specifiers");
181 strlwr(salt->saltvalue.data);
182 salt->saltvalue.length = strlen(*realm);
186 *ret_enctypes = malloc(sizeof(enctypes[0]) * num_enctypes);
187 if (*ret_enctypes == NULL) {
188 krb5_free_salt(context, *salt);
189 krb5_set_error_message(context, ENOMEM, "malloc: out of memory");
192 memcpy(*ret_enctypes, enctypes, sizeof(enctypes[0]) * num_enctypes);
193 *ret_num_enctypes = num_enctypes;
198 static krb5_error_code
199 add_enctype_to_key_set(Key **key_set, size_t *nkeyset,
200 krb5_enctype enctype, krb5_salt *salt)
205 memset(&key, 0, sizeof(key));
207 tmp = realloc(*key_set, (*nkeyset + 1) * sizeof((*key_set)[0]));
213 key.key.keytype = enctype;
214 key.key.keyvalue.length = 0;
215 key.key.keyvalue.data = NULL;
218 key.salt = malloc(sizeof(*key.salt));
219 if (key.salt == NULL) {
224 key.salt->type = salt->salttype;
225 krb5_data_zero (&key.salt->salt);
227 ret = krb5_data_copy(&key.salt->salt,
228 salt->saltvalue.data,
229 salt->saltvalue.length);
237 (*key_set)[*nkeyset] = key;
246 * Generate the `key_set' from the [kadmin]default_keys statement. If
247 * `no_salt' is set, salt is not important (and will not be set) since
248 * it's random keys that is going to be created.
252 hdb_generate_key_set(krb5_context context, krb5_principal principal,
253 Key **ret_key_set, size_t *nkeyset, int no_salt)
259 char *default_keytypes[] = {
261 "aes256-cts-hmac-sha1-96:pw-salt",
262 "des3-cbc-sha1:pw-salt",
263 "arcfour-hmac-md5:pw-salt",
267 ktypes = krb5_config_get_strings(context, NULL, "kadmin",
268 "default_keys", NULL);
270 ktypes = default_keytypes;
275 *ret_key_set = key_set = NULL;
280 for(kp = ktypes; kp && *kp; kp++) {
283 krb5_enctype *enctypes;
288 if(strcmp(p, "v5") == 0)
290 else if(strcmp(p, "v4") == 0)
292 else if(strcmp(p, "afs") == 0 || strcmp(p, "afs3") == 0)
294 else if (strcmp(p, "arcfour-hmac-md5") == 0)
295 p = "arcfour-hmac-md5:pw-salt";
297 memset(&salt, 0, sizeof(salt));
299 ret = parse_key_set(context, p,
300 &enctypes, &num_enctypes, &salt, principal);
302 krb5_warn(context, ret, "bad value for default_keys `%s'", *kp);
307 for (i = 0; i < num_enctypes; i++) {
308 /* find duplicates */
309 for (j = 0; j < *nkeyset; j++) {
313 if (k->key.keytype == enctypes[i]) {
316 if (k->salt == NULL && salt.salttype == KRB5_PW_SALT)
318 if (k->salt->type == salt.salttype &&
319 k->salt->salt.length == salt.saltvalue.length &&
320 memcmp(k->salt->salt.data, salt.saltvalue.data,
321 salt.saltvalue.length) == 0)
325 /* not a duplicate, lets add it */
327 ret = add_enctype_to_key_set(&key_set, nkeyset, enctypes[i],
328 no_salt ? NULL : &salt);
331 krb5_free_salt(context, salt);
337 krb5_free_salt(context, salt);
340 *ret_key_set = key_set;
343 if (ktypes != default_keytypes)
344 krb5_config_free_strings(ktypes);
347 krb5_warn(context, ret,
348 "failed to parse the [kadmin]default_keys values");
350 for (i = 0; i < *nkeyset; i++)
351 free_Key(&key_set[i]);
353 } else if (*nkeyset == 0) {
355 "failed to parse any of the [kadmin]default_keys values");
356 ret = EINVAL; /* XXX */
364 hdb_generate_key_set_password(krb5_context context,
365 krb5_principal principal,
366 const char *password,
367 Key **keys, size_t *num_keys)
372 ret = hdb_generate_key_set(context, principal,
377 for (i = 0; i < (*num_keys); i++) {
380 salt.salttype = (*keys)[i].salt->type;
381 salt.saltvalue.length = (*keys)[i].salt->salt.length;
382 salt.saltvalue.data = (*keys)[i].salt->salt.data;
384 ret = krb5_string_to_key_salt (context,
385 (*keys)[i].key.keytype,
395 hdb_free_keys (context, *num_keys, *keys);