2 Unix SMB/CIFS implementation.
3 kerberos utility library
4 Copyright (C) Andrew Tridgell 2001
5 Copyright (C) Remus Koos 2001
6 Copyright (C) Luke Howard 2003
7 Copyright (C) Guenther Deschner 2003
8 Copyright (C) Jim McDonough (jmcd@us.ibm.com) 2003
10 This program is free software; you can redistribute it and/or modify
11 it under the terms of the GNU General Public License as published by
12 the Free Software Foundation; either version 2 of the License, or
13 (at your option) any later version.
15 This program is distributed in the hope that it will be useful,
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 GNU General Public License for more details.
20 You should have received a copy of the GNU General Public License
21 along with this program; if not, write to the Free Software
22 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
29 static void free_keytab(krb5_context context
, krb5_keytab keytab
)
34 ret
= krb5_kt_close(context
, keytab
);
36 DEBUG(3, ("krb5_kt_close failed (%s)\n",
41 #ifdef HAVE_MEMORY_KEYTAB
42 static krb5_error_code
create_keytab(krb5_context context
,
43 krb5_principal host_princ
,
46 krb5_enctype
*enctypes
,
50 krb5_keytab_entry entry
;
56 DEBUG(10,("creating keytab: %s\n", keytab_name
));
57 ret
= krb5_kt_resolve(context
, keytab_name
, keytab
);
61 if (!(key
= (krb5_keyblock
*)malloc(sizeof(*key
)))) {
65 /* add keytab entries for all encryption types */
66 for ( i
=0; enctypes
[i
]; i
++ ) {
68 if (create_kerberos_key_from_string(context
, host_princ
, &password
, key
, enctypes
[i
])) {
72 entry
.principal
= host_princ
;
75 #if !defined(HAVE_KRB5_KEYTAB_ENTRY_KEY) && !defined(HAVE_KRB5_KEYTAB_ENTRY_KEYBLOCK)
76 #error krb5_keytab_entry has no key or keyblock member
79 #ifdef HAVE_KRB5_KEYTAB_ENTRY_KEY /* MIT */
83 #ifdef HAVE_KRB5_KEYTAB_ENTRY_KEYBLOCK /* Heimdal */
84 entry
.keyblock
= *key
;
87 DEBUG(10,("adding keytab-entry for (%s) with encryption type (%d)\n",
88 host_princ_s
, enctypes
[i
]));
89 ret
= krb5_kt_add_entry(context
, *keytab
, &entry
);
91 DEBUG(1,("adding entry to keytab failed (%s)\n",
93 free_keytab(context
, *keytab
);
97 krb5_free_keyblock(context
, key
);
103 static BOOL
setup_keytab(krb5_context context
,
104 krb5_principal host_princ
,
107 krb5_enctype
*enctypes
,
110 char *keytab_name
= NULL
;
113 /* check if we have to setup a keytab - not currently enabled
114 I've put this in so that the else block below functions
115 the same way that it will when this code is turned on */
116 if (0 /* will later be *lp_keytab() */) {
118 /* use a file-keytab */
119 asprintf(&keytab_name
, "%s:%s",
121 /* KRB5_KT_FILE_PREFIX, "FILE" or
122 "WRFILE" depending on HEeimdal or MIT */,
123 "" /* will later be lp_keytab() */);
125 DEBUG(10,("will use filebased keytab: %s\n", keytab_name
));
126 ret
= krb5_kt_resolve(context
, keytab_name
, keytab
);
128 DEBUG(3,("cannot resolve keytab name %s (%s)\n",
130 error_message(ret
)));
131 SAFE_FREE(keytab_name
);
137 #if defined(HAVE_MEMORY_KEYTAB)
140 /* setup a in-memory-keytab */
141 asprintf(&keytab_name
, "MEMORY:");
143 ret
= create_keytab(context
, host_princ
, host_princ_s
, password
, enctypes
,
144 keytab
, keytab_name
);
146 DEBUG(3,("unable to create MEMORY: keytab (%s)\n",
147 error_message(ret
)));
148 SAFE_FREE(keytab_name
);
153 SAFE_FREE(keytab_name
);
159 verify an incoming ticket and parse out the principal name and
160 authorization_data if available
162 NTSTATUS
ads_verify_ticket(const char *realm
, const DATA_BLOB
*ticket
,
163 char **principal
, DATA_BLOB
*auth_data
,
165 uint8 session_key
[16])
167 NTSTATUS sret
= NT_STATUS_LOGON_FAILURE
;
168 krb5_context context
= NULL
;
169 krb5_auth_context auth_context
= NULL
;
170 krb5_keytab keytab
= NULL
;
172 krb5_ticket
*tkt
= NULL
;
173 krb5_rcache rcache
= NULL
;
175 krb5_keyblock
*key
= NULL
;
176 krb5_principal host_princ
;
177 char *host_princ_s
= NULL
;
179 char *password_s
= NULL
;
181 krb5_enctype
*enctypes
= NULL
;
183 krb5_address local_addr
;
184 krb5_address remote_addr
;
186 BOOL auth_ok
= False
;
189 ZERO_STRUCT(password
);
190 ZERO_STRUCTP(auth_data
);
191 ZERO_STRUCTP(ap_rep
);
193 if (!secrets_init()) {
194 DEBUG(1,("ads_verify_ticket: secrets_init failed\n"));
195 return NT_STATUS_LOGON_FAILURE
;
198 password_s
= secrets_fetch_machine_password(lp_workgroup(), NULL
, NULL
);
200 DEBUG(1,("ads_verify_ticket: failed to fetch machine password\n"));
201 return NT_STATUS_LOGON_FAILURE
;
204 password
.data
= password_s
;
205 password
.length
= strlen(password_s
);
207 ret
= krb5_init_context(&context
);
209 DEBUG(1,("ads_verify_ticket: krb5_init_context failed (%s)\n", error_message(ret
)));
210 return NT_STATUS_LOGON_FAILURE
;
213 ret
= krb5_set_default_realm(context
, realm
);
215 DEBUG(1,("ads_verify_ticket: krb5_set_default_realm failed (%s)\n", error_message(ret
)));
216 sret
= NT_STATUS_LOGON_FAILURE
;
220 /* This whole process is far more complex than I would
221 like. We have to go through all this to allow us to store
222 the secret internally, instead of using /etc/krb5.keytab */
224 ret
= krb5_auth_con_init(context
, &auth_context
);
226 DEBUG(1,("ads_verify_ticket: krb5_auth_con_init failed (%s)\n", error_message(ret
)));
227 sret
= NT_STATUS_LOGON_FAILURE
;
231 fstrcpy(myname
, global_myname());
233 asprintf(&host_princ_s
, "HOST/%s@%s", myname
, lp_realm());
234 ret
= krb5_parse_name(context
, host_princ_s
, &host_princ
);
236 DEBUG(1,("ads_verify_ticket: krb5_parse_name(%s) failed (%s)\n",
237 host_princ_s
, error_message(ret
)));
238 sret
= NT_STATUS_LOGON_FAILURE
;
243 * JRA. We must set the rcache here. This will prevent replay attacks.
246 ret
= krb5_get_server_rcache(context
, krb5_princ_component(context
, host_princ
, 0), &rcache
);
248 DEBUG(1,("ads_verify_ticket: krb5_get_server_rcache failed (%s)\n", error_message(ret
)));
249 sret
= NT_STATUS_LOGON_FAILURE
;
253 ret
= krb5_auth_con_setrcache(context
, auth_context
, rcache
);
255 DEBUG(1,("ads_verify_ticket: krb5_auth_con_setrcache failed (%s)\n", error_message(ret
)));
256 sret
= NT_STATUS_LOGON_FAILURE
;
260 /* CIFS doesn't use addresses in tickets. This would breat NAT. JRA */
262 if ((ret
= get_kerberos_allowed_etypes(context
, &enctypes
))) {
263 DEBUG(1,("ads_verify_ticket: krb5_get_permitted_enctypes failed (%s)\n",
264 error_message(ret
)));
265 sret
= NT_STATUS_LOGON_FAILURE
;
269 /* Lock a mutex surrounding the replay as there is no locking in the MIT krb5
270 * code surrounding the replay cache... */
272 if (!grab_server_mutex("replay cache mutex")) {
273 DEBUG(1,("ads_verify_ticket: unable to protect replay cache with mutex.\n"));
274 sret
= NT_STATUS_LOGON_FAILURE
;
278 if (!setup_keytab(context
, host_princ
, host_princ_s
, password
,
279 enctypes
, &keytab
)) {
280 DEBUG(3,("ads_verify_ticket: unable to setup keytab\n"));
281 sret
= NT_STATUS_LOGON_FAILURE
;
285 /* We need to setup a auth context with each possible encoding type in turn. */
286 for (i
=0;enctypes
[i
];i
++) {
287 if (!(key
= (krb5_keyblock
*)malloc(sizeof(*key
)))) {
288 sret
= NT_STATUS_NO_MEMORY
;
292 if (create_kerberos_key_from_string(context
, host_princ
, &password
, key
, enctypes
[i
])) {
296 krb5_auth_con_setuseruserkey(context
, auth_context
, key
);
298 krb5_free_keyblock(context
, key
);
300 packet
.length
= ticket
->length
;
301 packet
.data
= (krb5_pointer
)ticket
->data
;
303 if (!(ret
= krb5_rd_req(context
, &auth_context
, &packet
,
304 #ifdef HAVE_MEMORY_KEYTAB
309 keytab
, NULL
, &tkt
))) {
310 DEBUG(10,("ads_verify_ticket: enc type [%u] decrypted message !\n",
311 (unsigned int)enctypes
[i
] ));
316 DEBUG((ret
!= KRB5_BAD_ENCTYPE
) ? 3 : 10,
317 ("ads_verify_ticket: enc type [%u] failed to decrypt with error %s\n",
318 (unsigned int)enctypes
[i
], error_message(ret
)));
321 release_server_mutex();
324 DEBUG(3,("ads_verify_ticket: krb5_rd_req with auth failed (%s)\n",
325 error_message(ret
)));
326 sret
= NT_STATUS_LOGON_FAILURE
;
330 ret
= krb5_mk_rep(context
, auth_context
, &packet
);
332 DEBUG(3,("ads_verify_ticket: Failed to generate mutual authentication reply (%s)\n",
333 error_message(ret
)));
334 sret
= NT_STATUS_LOGON_FAILURE
;
338 *ap_rep
= data_blob(packet
.data
, packet
.length
);
341 get_krb5_smb_session_key(context
, auth_context
, session_key
, True
);
342 #ifdef DEBUG_PASSWORD
343 DEBUG(10,("SMB session key (from ticket) follows:\n"));
344 dump_data(10, session_key
, 16);
348 file_save("/tmp/ticket.dat", ticket
->data
, ticket
->length
);
351 get_auth_data_from_tkt(auth_data
, tkt
);
354 TALLOC_CTX
*ctx
= talloc_init("pac data");
355 decode_pac_data(auth_data
, ctx
);
360 if (tkt
->enc_part2
) {
361 file_save("/tmp/authdata.dat",
362 tkt
->enc_part2
->authorization_data
[0]->contents
,
363 tkt
->enc_part2
->authorization_data
[0]->length
);
368 /* get rid of all resources associated with the keytab */
369 if (keytab
) free_keytab(context
, keytab
);
371 if ((ret
= krb5_unparse_name(context
, get_principal_from_tkt(tkt
),
373 DEBUG(3,("ads_verify_ticket: krb5_unparse_name failed (%s)\n",
374 error_message(ret
)));
375 sret
= NT_STATUS_LOGON_FAILURE
;
383 if (!NT_STATUS_IS_OK(sret
))
384 data_blob_free(auth_data
);
386 if (!NT_STATUS_IS_OK(sret
))
387 data_blob_free(ap_rep
);
389 krb5_free_principal(context
, host_princ
);
391 krb5_free_ticket(context
, tkt
);
392 free_kerberos_etypes(context
, enctypes
);
393 SAFE_FREE(password_s
);
394 SAFE_FREE(host_princ_s
);
397 krb5_auth_con_free(context
, auth_context
);
400 krb5_free_context(context
);
405 #endif /* HAVE_KRB5 */