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