svn commit: samba r3115 - in branches/SAMBA_4_0/source/libcli/auth:
.
abartlet at samba.org
abartlet at samba.org
Thu Oct 21 15:24:51 GMT 2004
Author: abartlet
Date: 2004-10-21 15:24:50 +0000 (Thu, 21 Oct 2004)
New Revision: 3115
WebSVN: http://websvn.samba.org/websvn/changeset.php?rep=samba&path=/branches/SAMBA_4_0/source/libcli/auth&rev=3115&nolog=1
Log:
Bugfixes and extra debug in our kerberos verify code.
Andrew Bartlett
Modified:
branches/SAMBA_4_0/source/libcli/auth/gensec_krb5.c
branches/SAMBA_4_0/source/libcli/auth/kerberos_verify.c
Changeset:
Modified: branches/SAMBA_4_0/source/libcli/auth/gensec_krb5.c
===================================================================
--- branches/SAMBA_4_0/source/libcli/auth/gensec_krb5.c 2004-10-21 12:47:02 UTC (rev 3114)
+++ branches/SAMBA_4_0/source/libcli/auth/gensec_krb5.c 2004-10-21 15:24:50 UTC (rev 3115)
@@ -229,21 +229,19 @@
struct gensec_krb5_state *gensec_krb5_state = gensec_security->private_data;
if (gensec_krb5_state->ticket.length) {
- /* Hmm, heimdal dooesn't have this - what's the correct call? */
+ /* Hmm, early heimdal dooesn't have this - correct call would be krb5_data_free */
#ifdef HAVE_KRB5_FREE_DATA_CONTENTS
krb5_free_data_contents(gensec_krb5_state->krb5_context, &gensec_krb5_state->ticket);
#endif
}
if (gensec_krb5_state->krb5_ccache) {
- /* Removed by jra. They really need to fix their kerberos so we don't leak memory.
- JERRY -- disabled since it causes heimdal 0.6.1rc3 to die
- SuSE 9.1 Pro
- */
-#if 0 /* redisabled by gd :) at least until any official heimdal version has it fixed. */
- krb5_cc_close(context, gensec_krb5_state->krb5_ccache);
-#endif
+ /* current heimdal - 0.6.3, which we need anyway, fixes segfaults here */
+ krb5_cc_close(gensec_krb5_state->krb5_context, gensec_krb5_state->krb5_ccache);
}
+ krb5_free_keyblock_contents(gensec_krb5_state->krb5_context,
+ &gensec_krb5_state->krb5_keyblock);
+
if (gensec_krb5_state->krb5_auth_context) {
krb5_auth_con_free(gensec_krb5_state->krb5_context,
gensec_krb5_state->krb5_auth_context);
@@ -275,6 +273,7 @@
gensec_krb5_state->krb5_auth_context = NULL;
gensec_krb5_state->krb5_ccache = NULL;
ZERO_STRUCT(gensec_krb5_state->ticket);
+ ZERO_STRUCT(gensec_krb5_state->krb5_keyblock);
gensec_krb5_state->session_key = data_blob(NULL, 0);
ret = krb5_init_context(&gensec_krb5_state->krb5_context);
Modified: branches/SAMBA_4_0/source/libcli/auth/kerberos_verify.c
===================================================================
--- branches/SAMBA_4_0/source/libcli/auth/kerberos_verify.c 2004-10-21 12:47:02 UTC (rev 3114)
+++ branches/SAMBA_4_0/source/libcli/auth/kerberos_verify.c 2004-10-21 15:24:50 UTC (rev 3115)
@@ -62,12 +62,11 @@
ads_keytab_add_entry function for details.
***********************************************************************************/
-static BOOL ads_keytab_verify_ticket(krb5_context context, krb5_auth_context auth_context,
+static krb5_error_code ads_keytab_verify_ticket(krb5_context context, krb5_auth_context auth_context,
const DATA_BLOB *ticket, krb5_data *p_packet, krb5_ticket **pp_tkt,
krb5_keyblock *keyblock)
{
krb5_error_code ret = 0;
- BOOL auth_ok = False;
krb5_keytab keytab = NULL;
krb5_kt_cursor cursor;
@@ -91,12 +90,13 @@
goto out;
}
- while (!krb5_kt_next_entry(context, keytab, &kt_entry, &cursor)) {
+ while (!(ret = krb5_kt_next_entry(context, keytab, &kt_entry, &cursor))) {
ret = krb5_unparse_name(context, kt_entry.principal, &princ_name);
if (ret) {
DEBUG(1, ("ads_keytab_verify_ticket: krb5_unparse_name failed (%s)\n", error_message(ret)));
goto out;
}
+ DEBUG(10, ("Checking principal: %s\n", princ_name));
/* Look for a CIFS ticket */
if (!strncasecmp(princ_name, "cifs/", 5) || (!strncasecmp(princ_name, "host/", 5))) {
#ifdef HAVE_KRB5_KEYTAB_ENTRY_KEYBLOCK
@@ -123,7 +123,6 @@
DEBUG(10,("ads_keytab_verify_ticket: enc type [%u] decrypted message !\n",
keytype));
- auth_ok = True;
break;
}
}
@@ -133,9 +132,11 @@
if (ret && ret != KRB5_KT_END) {
/* This failed because something went wrong, not because the keytab file was empty. */
DEBUG(1, ("ads_keytab_verify_ticket: krb5_kt_next_entry failed (%s)\n", error_message(ret)));
- goto out;
+ } else if (ret == KRB5_KT_END) {
+ DEBUG(10, ("ads_keytab_verify_ticket: no keytab entry found: %s\n", error_message(ret)));
+ } else {
+ DEBUG(10, ("ads_keytab_verify_ticket: keytab entry found: %s\n", princ_name));
}
-
out:
if (princ_name) {
@@ -152,7 +153,7 @@
krb5_kt_close(context, keytab);
}
- return auth_ok;
+ return ret;
}
/**********************************************************************************
@@ -165,7 +166,6 @@
krb5_keyblock *keyblock)
{
krb5_error_code ret = 0;
- BOOL auth_ok = False;
char *password_s = NULL;
krb5_data password;
krb5_enctype *enctypes = NULL;
@@ -175,13 +175,13 @@
if (!secrets_init()) {
DEBUG(1,("ads_secrets_verify_ticket: secrets_init failed\n"));
- return False;
+ return KRB5_KT_END;
}
password_s = secrets_fetch_machine_password(lp_workgroup());
if (!password_s) {
DEBUG(1,("ads_secrets_verify_ticket: failed to fetch machine password\n"));
- return False;
+ return KRB5_KT_END;
}
password.data = password_s;
@@ -200,7 +200,8 @@
/* We need to setup a auth context with each possible encoding type in turn. */
for (i=0;enctypes[i];i++) {
- if (create_kerberos_key_from_string(context, host_princ, &password, keyblock, enctypes[i])) {
+ ret = create_kerberos_key_from_string(context, host_princ, &password, keyblock, enctypes[i]);
+ if (ret) {
continue;
}
@@ -212,11 +213,10 @@
if (!ret) {
DEBUG(10,("ads_secrets_verify_ticket: enc type [%u] decrypted message !\n",
(unsigned int)enctypes[i] ));
- auth_ok = True;
break;
}
- krb5_free_keyblock(context, keyblock);
+ krb5_free_keyblock_contents(context, keyblock);
DEBUG((ret != KRB5_BAD_ENCTYPE) ? 3 : 10,
("ads_secrets_verify_ticket: enc type [%u] failed to decrypt with error %s\n",
@@ -228,7 +228,7 @@
free_kerberos_etypes(context, enctypes);
SAFE_FREE(password_s);
- return auth_ok;
+ return ret;
}
/**********************************************************************************
@@ -255,7 +255,6 @@
BOOL got_replay_mutex = False;
char *myname;
- BOOL auth_ok = False;
char *malloc_principal;
@@ -304,16 +303,17 @@
goto out;
}
- auth_ok = ads_keytab_verify_ticket(context, auth_context, ticket, &packet, &tkt, keyblock);
- if (!auth_ok) {
- auth_ok = ads_secrets_verify_ticket(context, auth_context, host_princ,
+ ret = ads_keytab_verify_ticket(context, auth_context, ticket, &packet, &tkt, keyblock);
+ if (ret) {
+ DEBUG(10, ("ads_secrets_verify_ticket: using host principal: [%s]\n", host_princ_s));
+ ret = ads_secrets_verify_ticket(context, auth_context, host_princ,
ticket, &packet, &tkt, keyblock);
}
release_server_mutex();
got_replay_mutex = False;
- if (!auth_ok) {
+ if (ret) {
DEBUG(3,("ads_verify_ticket: krb5_rd_req with auth failed (%s)\n",
error_message(ret)));
goto out;
More information about the samba-cvs
mailing list