1 /*
2 * Copyright 2008 Sun Microsystems, Inc. All rights reserved.
3 * Use is subject to license terms.
4 */
5
6 /*
7 * Copyright (C) 1998 by the FundsXpress, INC.
8 *
9 * All rights reserved.
10 *
11 * Export of this software from the United States of America may require
12 * a specific license from the United States Government. It is the
13 * responsibility of any person or organization contemplating export to
14 * obtain such a license before exporting.
15 *
16 * WITHIN THAT CONSTRAINT, permission to use, copy, modify, and
17 * distribute this software and its documentation for any purpose and
18 * without fee is hereby granted, provided that the above copyright
19 * notice appear in all copies and that both that copyright notice and
20 * this permission notice appear in supporting documentation, and that
21 * the name of FundsXpress. not be used in advertising or publicity pertaining
22 * to distribution of the software without specific, written prior
23 * permission. FundsXpress makes no representations about the suitability of
24 * this software for any purpose. It is provided "as is" without express
25 * or implied warranty.
26 *
27 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
28 * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
29 * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
30 */
31
32 #include "k5-int.h"
33 #include "etypes.h"
34
35 krb5_error_code KRB5_CALLCONV
36 krb5_c_string_to_key_with_params(krb5_context context,
37 krb5_enctype enctype,
38 const krb5_data *string,
39 const krb5_data *salt,
40 const krb5_data *params,
41 krb5_keyblock *key);
42
43 /*ARGSUSED*/
44 krb5_error_code KRB5_CALLCONV
krb5_c_string_to_key(krb5_context context,krb5_enctype enctype,const krb5_data * string,const krb5_data * salt,krb5_keyblock * key)45 krb5_c_string_to_key(krb5_context context, krb5_enctype enctype,
46 const krb5_data *string, const krb5_data *salt,
47 krb5_keyblock *key)
48 {
49 return krb5_c_string_to_key_with_params(context, enctype, string, salt,
50 NULL, key);
51 }
52
53 krb5_error_code KRB5_CALLCONV
krb5_c_string_to_key_with_params(krb5_context context,krb5_enctype enctype,const krb5_data * string,const krb5_data * salt,const krb5_data * params,krb5_keyblock * key)54 krb5_c_string_to_key_with_params(krb5_context context, krb5_enctype enctype,
55 const krb5_data *string,
56 const krb5_data *salt,
57 const krb5_data *params, krb5_keyblock *key)
58 {
59 int i;
60 krb5_error_code ret;
61 const struct krb5_enc_provider *enc;
62 size_t keybytes, keylength;
63
64 for (i=0; i<krb5_enctypes_length; i++) {
65 if (krb5_enctypes_list[i].etype == enctype)
66 break;
67 }
68
69 if (i == krb5_enctypes_length)
70 return(KRB5_BAD_ENCTYPE);
71
72 enc = krb5_enctypes_list[i].enc;
73 /* xxx AFS string2key function is indicated by a special length in
74 * the salt in much of the code. However only the DES enctypes can
75 * deal with this. Using s2kparams would be a much better solution.*/
76 if (salt && salt->length == SALT_TYPE_AFS_LENGTH) {
77 switch (enctype) {
78 case ENCTYPE_DES_CBC_CRC:
79 case ENCTYPE_DES_CBC_MD4:
80 case ENCTYPE_DES_CBC_MD5:
81 break;
82 default:
83 return (KRB5_CRYPTO_INTERNAL);
84 }
85 }
86
87 keybytes = enc->keybytes;
88 keylength = enc->keylength;
89
90 if ((key->contents = (krb5_octet *) malloc(keylength)) == NULL)
91 return(ENOMEM);
92
93 key->magic = KV5M_KEYBLOCK;
94 key->enctype = enctype;
95 key->length = keylength;
96 /* Solaris Kerberos */
97 key->dk_list = NULL;
98 key->hKey = CK_INVALID_HANDLE;
99
100 /* Solaris Kerberos */
101 ret = (*krb5_enctypes_list[i].str2key)(context, enc, string, salt,
102 params, key);
103 if (ret) {
104 memset(key->contents, 0, keylength);
105 free(key->contents);
106 /* Solaris Kerberos */
107 key->contents = NULL;
108 }
109
110 return(ret);
111 }
112