s4-auth: Add smb_krb5_create_principals_array()
[samba.git] / source4 / auth / kerberos / kerberos_util.c
index d0bb2f4f5213a5f997eb3c0f9270e5a121f1a319..9cfeee519b476041d339ab6db4a95a717034bd6a 100644 (file)
@@ -7,7 +7,7 @@
 
    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 2 of the License, or
+   the Free Software Foundation; either version 3 of the License, or
    (at your option) any later version.
    
    This program is distributed in the hope that it will be useful,
 
    
    You should have received a copy of the GNU General Public License
-   along with this program; if not, write to the Free Software
-   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+   along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */
 
 #include "includes.h"
 #include "system/kerberos.h"
-#include "system/time.h"
-#include "system/network.h"
 #include "auth/kerberos/kerberos.h"
-#include "auth/auth.h"
+#include "auth/credentials/credentials.h"
+#include "auth/credentials/credentials_proto.h"
+#include "auth/credentials/credentials_krb5.h"
+#include "auth/kerberos/kerberos_credentials.h"
+#include "auth/kerberos/kerberos_util.h"
 
 struct principal_container {
        struct smb_krb5_context *smb_krb5_context;
        krb5_principal principal;
+       const char *string_form; /* Optional */
 };
 
-struct keytab_container {
-       struct smb_krb5_context *smb_krb5_context;
-       krb5_keytab keytab;
-};
-
-static int free_principal(void *ptr) {
-       struct principal_container *pc = ptr;
+static krb5_error_code free_principal(struct principal_container *pc)
+{
        /* current heimdal - 0.6.3, which we need anyway, fixes segfaults here */
        krb5_free_principal(pc->smb_krb5_context->krb5_context, pc->principal);
 
        return 0;
 }
 
-krb5_error_code salt_principal_from_credentials(TALLOC_CTX *parent_ctx, 
-                                               struct cli_credentials *machine_account, 
-                                               struct smb_krb5_context *smb_krb5_context,
-                                               krb5_principal *salt_princ)
+
+static krb5_error_code parse_principal(TALLOC_CTX *parent_ctx,
+                                      const char *princ_string,
+                                      struct smb_krb5_context *smb_krb5_context,
+                                      krb5_principal *princ,
+                                      const char **error_string)
 {
-       krb5_error_code ret;
-       char *machine_username;
-       char *salt_body;
-       char *lower_realm;
-       struct principal_container *mem_ctx = talloc(parent_ctx, struct principal_container);
-       if (!mem_ctx) {
-               return ENOMEM;
+       int ret;
+       struct principal_container *mem_ctx;
+       if (princ_string == NULL) {
+                *princ = NULL;
+                return 0;
        }
-       
-       machine_username = talloc_strdup(mem_ctx, cli_credentials_get_username(machine_account, mem_ctx));
 
-       if (!machine_username) {
-               talloc_free(mem_ctx);
-               return ENOMEM;
-       }
+       ret = krb5_parse_name(smb_krb5_context->krb5_context,
+                             princ_string, princ);
 
-       if (machine_username[strlen(machine_username)-1] == '$') {
-               machine_username[strlen(machine_username)-1] = '\0';
+       if (ret) {
+               (*error_string) = smb_get_krb5_error_message(
+                                               smb_krb5_context->krb5_context,
+                                               ret, parent_ctx);
+               return ret;
        }
-       lower_realm = strlower_talloc(mem_ctx, cli_credentials_get_realm(machine_account));
-       if (!lower_realm) {
-               talloc_free(mem_ctx);
+
+       mem_ctx = talloc(parent_ctx, struct principal_container);
+       if (!mem_ctx) {
+               (*error_string) = error_message(ENOMEM);
                return ENOMEM;
        }
 
-       salt_body = talloc_asprintf(mem_ctx, "%s.%s", machine_username, 
-                                   lower_realm);
-       if (!salt_body) {
-               talloc_free(mem_ctx);
+       /* This song-and-dance effectivly puts the principal
+        * into talloc, so we can't loose it. */
+       mem_ctx->smb_krb5_context = talloc_reference(mem_ctx,
+                                                    smb_krb5_context);
+       mem_ctx->principal = *princ;
+       talloc_set_destructor(mem_ctx, free_principal);
+       return 0;
+}
+
+/* Obtain the principal set on this context.  Requires a
+ * smb_krb5_context because we are doing krb5 principal parsing with
+ * the library routines.  The returned princ is placed in the talloc
+ * system by means of a destructor (do *not* free). */
+
+krb5_error_code principal_from_credentials(TALLOC_CTX *parent_ctx,
+                               struct cli_credentials *credentials,
+                               struct smb_krb5_context *smb_krb5_context,
+                               krb5_principal *princ,
+                               enum credentials_obtained *obtained,
+                               const char **error_string)
+{
+       krb5_error_code ret;
+       const char *princ_string;
+       TALLOC_CTX *mem_ctx = talloc_new(parent_ctx);
+       *obtained = CRED_UNINITIALISED;
+
+       if (!mem_ctx) {
+               (*error_string) = error_message(ENOMEM);
                return ENOMEM;
        }
-       
-       ret = krb5_make_principal(smb_krb5_context->krb5_context, salt_princ, 
-                                 cli_credentials_get_realm(machine_account), 
-                                 "host", salt_body, NULL);
-
-       if (ret == 0) {
-               mem_ctx->smb_krb5_context = talloc_reference(mem_ctx, smb_krb5_context);
-               mem_ctx->principal = *salt_princ;
-               talloc_set_destructor(mem_ctx, free_principal);
+       princ_string = cli_credentials_get_principal_and_obtained(credentials,
+                                                                 mem_ctx,
+                                                                 obtained);
+       if (!princ_string) {
+               *princ = NULL;
+               return 0;
        }
+
+       ret = parse_principal(parent_ctx, princ_string,
+                             smb_krb5_context, princ, error_string);
+       talloc_free(mem_ctx);
        return ret;
 }
 
-krb5_error_code principal_from_credentials(TALLOC_CTX *parent_ctx, 
-                                          struct cli_credentials *credentials, 
-                                          struct smb_krb5_context *smb_krb5_context,
-                                          krb5_principal *princ)
+/* Obtain the principal set on this context.  Requires a
+ * smb_krb5_context because we are doing krb5 principal parsing with
+ * the library routines.  The returned princ is placed in the talloc
+ * system by means of a destructor (do *not* free). */
+
+static krb5_error_code impersonate_principal_from_credentials(
+                               TALLOC_CTX *parent_ctx,
+                               struct cli_credentials *credentials,
+                               struct smb_krb5_context *smb_krb5_context,
+                               krb5_principal *princ,
+                               const char **error_string)
 {
-       krb5_error_code ret;
-       const char *princ_string;
-       struct principal_container *mem_ctx = talloc(parent_ctx, struct principal_container);
-       if (!mem_ctx) {
+       return parse_principal(parent_ctx,
+                       cli_credentials_get_impersonate_principal(credentials),
+                       smb_krb5_context, princ, error_string);
+}
+
+krb5_error_code smb_krb5_create_principals_array(TALLOC_CTX *mem_ctx,
+                                                krb5_context context,
+                                                const char *account_name,
+                                                const char *realm,
+                                                uint32_t num_spns,
+                                                const char *spns[],
+                                                uint32_t *pnum_principals,
+                                                krb5_principal **pprincipals,
+                                                const char **error_string)
+{
+       krb5_error_code code;
+       TALLOC_CTX *tmp_ctx;
+       uint32_t num_principals = 0;
+       krb5_principal *principals;
+       uint32_t i;
+
+       tmp_ctx = talloc_new(mem_ctx);
+       if (tmp_ctx == NULL) {
+               *error_string = "Cannot allocate tmp_ctx";
                return ENOMEM;
        }
-       
-       princ_string = cli_credentials_get_principal(credentials, mem_ctx);
 
-       if (!princ_string) {
-               talloc_free(mem_ctx);
-               return EINVAL;
+       if (realm == NULL) {
+               *error_string = "Cannot create principal without a realm";
+               code = EINVAL;
+               goto done;
        }
 
-       ret = krb5_parse_name(smb_krb5_context->krb5_context,
-                             princ_string, princ);
+       if (account_name == NULL && (num_spns == 0 || spns == NULL)) {
+               *error_string = "Cannot create principal without an account or SPN";
+               code = EINVAL;
+               goto done;
+       }
 
-       if (ret == 0) {
-               mem_ctx->smb_krb5_context = talloc_reference(mem_ctx, smb_krb5_context);
-               mem_ctx->principal = *princ;
-               talloc_set_destructor(mem_ctx, free_principal);
+       if (account_name != NULL && account_name[0] != '\0') {
+               num_principals++;
        }
-       return ret;
+       num_principals += num_spns;
+
+       principals = talloc_zero_array(tmp_ctx,
+                                      krb5_principal,
+                                      num_principals);
+       if (principals == NULL) {
+               *error_string = "Cannot allocate principals";
+               code = ENOMEM;
+               goto done;
+       }
+
+       for (i = 0; i < num_spns; i++) {
+               code = krb5_parse_name(context, spns[i], &(principals[i]));
+               if (code != 0) {
+                       *error_string = smb_get_krb5_error_message(context,
+                                                                  code,
+                                                                  mem_ctx);
+                       goto done;
+               }
+       }
+
+       if (account_name != NULL && account_name[0] != '\0') {
+               code = smb_krb5_make_principal(context,
+                                              &(principals[i]),
+                                              realm,
+                                              account_name,
+                                              NULL);
+               if (code != 0) {
+                       *error_string = smb_get_krb5_error_message(context,
+                                                                  code,
+                                                                  mem_ctx);
+                       goto done;
+               }
+       }
+
+       if (pnum_principals != NULL) {
+               *pnum_principals = num_principals;
+
+               if (pprincipals != NULL) {
+                       *pprincipals = talloc_steal(mem_ctx, principals);
+               }
+       }
+
+       code = 0;
+done:
+       talloc_free(tmp_ctx);
+       return code;
 }
 
 /**
@@ -131,57 +226,182 @@ krb5_error_code principal_from_credentials(TALLOC_CTX *parent_ctx,
  */
 
  krb5_error_code kinit_to_ccache(TALLOC_CTX *parent_ctx,
-                         struct cli_credentials *credentials,
-                         struct smb_krb5_context *smb_krb5_context,
-                         krb5_ccache ccache) 
+                                struct cli_credentials *credentials,
+                                struct smb_krb5_context *smb_krb5_context,
+                                struct tevent_context *event_ctx,
+                                krb5_ccache ccache,
+                                enum credentials_obtained *obtained,
+                                const char **error_string)
 {
        krb5_error_code ret;
        const char *password;
+       const char *self_service;
+       const char *target_service;
        time_t kdc_time = 0;
        krb5_principal princ;
-
+       krb5_principal impersonate_principal;
+       int tries;
        TALLOC_CTX *mem_ctx = talloc_new(parent_ctx);
+       krb5_get_init_creds_opt *krb_options;
 
        if (!mem_ctx) {
+               (*error_string) = strerror(ENOMEM);
                return ENOMEM;
        }
 
-       ret = principal_from_credentials(mem_ctx, credentials, smb_krb5_context, &princ);
+       ret = principal_from_credentials(mem_ctx, credentials, smb_krb5_context, &princ, obtained, error_string);
        if (ret) {
                talloc_free(mem_ctx);
                return ret;
        }
 
+       if (princ == NULL) {
+               (*error_string) = talloc_asprintf(credentials, "principal, username or realm was not specified in the credentials");
+               talloc_free(mem_ctx);
+               return KRB5KDC_ERR_C_PRINCIPAL_UNKNOWN;
+       }
+
+       ret = impersonate_principal_from_credentials(mem_ctx, credentials, smb_krb5_context, &impersonate_principal, error_string);
+       if (ret) {
+               talloc_free(mem_ctx);
+               return ret;
+       }
+
+       self_service = cli_credentials_get_self_service(credentials);
+       target_service = cli_credentials_get_target_service(credentials);
+
        password = cli_credentials_get_password(credentials);
-       
-       if (password) {
-               ret = kerberos_kinit_password_cc(smb_krb5_context->krb5_context, ccache, 
-                                                princ, 
-                                                password, NULL, &kdc_time);
-       } else {
-               /* No password available, try to use a keyblock instead */
 
-               krb5_keyblock keyblock;
-               const struct samr_Password *mach_pwd;
-               mach_pwd = cli_credentials_get_nt_hash(credentials, mem_ctx);
-               if (!mach_pwd) {
+       /* setup the krb5 options we want */
+       if ((ret = krb5_get_init_creds_opt_alloc(smb_krb5_context->krb5_context, &krb_options))) {
+               (*error_string) = talloc_asprintf(credentials, "krb5_get_init_creds_opt_alloc failed (%s)\n",
+                                                 smb_get_krb5_error_message(smb_krb5_context->krb5_context,
+                                                                            ret, mem_ctx));
+               talloc_free(mem_ctx);
+               return ret;
+       }
+
+#ifdef SAMBA4_USES_HEIMDAL /* Disable for now MIT reads defaults when needed */
+       /* get the defaults */
+       krb5_get_init_creds_opt_set_default_flags(smb_krb5_context->krb5_context, NULL, NULL, krb_options);
+#endif
+       /* set if we want a forwardable ticket */
+       switch (cli_credentials_get_krb_forwardable(credentials)) {
+       case CRED_AUTO_KRB_FORWARDABLE:
+               break;
+       case CRED_NO_KRB_FORWARDABLE:
+               krb5_get_init_creds_opt_set_forwardable(krb_options, FALSE);
+               break;
+       case CRED_FORCE_KRB_FORWARDABLE:
+               krb5_get_init_creds_opt_set_forwardable(krb_options, TRUE);
+               break;
+       }
+
+#ifdef SAMBA4_USES_HEIMDAL /* FIXME: MIT does not have this yet */
+       /*
+        * In order to work against windows KDCs even if we use
+        * the netbios domain name as realm, we need to add the following
+        * flags:
+        * KRB5_INIT_CREDS_NO_C_CANON_CHECK;
+        * KRB5_INIT_CREDS_NO_C_NO_EKU_CHECK;
+        *
+        * On MIT: Set pkinit_eku_checking to none
+        */
+       krb5_get_init_creds_opt_set_win2k(smb_krb5_context->krb5_context,
+                                         krb_options, true);
+#endif
+
+       tries = 2;
+       while (tries--) {
+#ifdef SAMBA4_USES_HEIMDAL
+               struct tevent_context *previous_ev;
+               /* Do this every time, in case we have weird recursive issues here */
+               ret = smb_krb5_context_set_event_ctx(smb_krb5_context, event_ctx, &previous_ev);
+               if (ret) {
                        talloc_free(mem_ctx);
-                       DEBUG(1, ("kinit_to_ccache: No password available for kinit\n"));
+                       return ret;
+               }
+#endif
+               if (password) {
+                       if (impersonate_principal) {
+#ifdef SAMBA4_USES_HEIMDAL
+                               ret = kerberos_kinit_s4u2_cc(
+                                               smb_krb5_context->krb5_context,
+                                               ccache, princ, password,
+                                               impersonate_principal,
+                                               self_service, target_service,
+                                               krb_options, NULL, &kdc_time);
+#else
+                               talloc_free(mem_ctx);
+                               (*error_string) = "INTERNAL error: s4u2 ops "
+                                       "are not supported with MIT build yet";
+                               return EINVAL;
+#endif
+                       } else {
+                               ret = kerberos_kinit_password_cc(
+                                               smb_krb5_context->krb5_context,
+                                               ccache, princ, password,
+                                               target_service,
+                                               krb_options, NULL, &kdc_time);
+                       }
+               } else if (impersonate_principal) {
+                       talloc_free(mem_ctx);
+                       (*error_string) = "INTERNAL error: Cannot impersonate principal with just a keyblock.  A password must be specified in the credentials";
                        return EINVAL;
+               } else {
+                       /* No password available, try to use a keyblock instead */
+                       
+                       krb5_keyblock keyblock;
+                       const struct samr_Password *mach_pwd;
+                       mach_pwd = cli_credentials_get_nt_hash(credentials, mem_ctx);
+                       if (!mach_pwd) {
+                               talloc_free(mem_ctx);
+                               (*error_string) = "kinit_to_ccache: No password available for kinit\n";
+                               krb5_get_init_creds_opt_free(smb_krb5_context->krb5_context, krb_options);
+#ifdef SAMBA4_USES_HEIMDAL
+                               smb_krb5_context_remove_event_ctx(smb_krb5_context, previous_ev, event_ctx);
+#endif
+                               return EINVAL;
+                       }
+                       ret = smb_krb5_keyblock_init_contents(smb_krb5_context->krb5_context,
+                                                ENCTYPE_ARCFOUR_HMAC,
+                                                mach_pwd->hash, sizeof(mach_pwd->hash), 
+                                                &keyblock);
+                       
+                       if (ret == 0) {
+                               ret = kerberos_kinit_keyblock_cc(smb_krb5_context->krb5_context, ccache, 
+                                                                princ, &keyblock,
+                                                                target_service, krb_options,
+                                                                NULL, &kdc_time);
+                               krb5_free_keyblock_contents(smb_krb5_context->krb5_context, &keyblock);
+                       }
                }
-               ret = krb5_keyblock_init(smb_krb5_context->krb5_context,
-                                        ENCTYPE_ARCFOUR_HMAC,
-                                        mach_pwd->hash, sizeof(mach_pwd->hash), 
-                                        &keyblock);
-               
-               if (ret == 0) {
-                       ret = kerberos_kinit_keyblock_cc(smb_krb5_context->krb5_context, ccache, 
-                                                        princ,
-                                                        &keyblock, NULL, &kdc_time);
-                       krb5_free_keyblock_contents(smb_krb5_context->krb5_context, &keyblock);
+
+#ifdef SAMBA4_USES_HEIMDAL
+               smb_krb5_context_remove_event_ctx(smb_krb5_context, previous_ev, event_ctx);
+#endif
+
+               if (ret == KRB5KRB_AP_ERR_SKEW || ret == KRB5_KDCREP_SKEW) {
+                       /* Perhaps we have been given an invalid skew, so try again without it */
+                       time_t t = time(NULL);
+                       krb5_set_real_time(smb_krb5_context->krb5_context, t, 0);
+               } else {
+                       /* not a skew problem */
+                       break;
                }
        }
 
+       krb5_get_init_creds_opt_free(smb_krb5_context->krb5_context, krb_options);
+
+       if (ret == KRB5KRB_AP_ERR_SKEW || ret == KRB5_KDCREP_SKEW) {
+               (*error_string) = talloc_asprintf(credentials, "kinit for %s failed (%s)\n",
+                                                 cli_credentials_get_principal(credentials, mem_ctx),
+                                                 smb_get_krb5_error_message(smb_krb5_context->krb5_context,
+                                                                            ret, mem_ctx));
+               talloc_free(mem_ctx);
+               return ret;
+       }
+
        /* cope with ticket being in the future due to clock skew */
        if ((unsigned)kdc_time > time(NULL)) {
                time_t t = time(NULL);
@@ -190,167 +410,64 @@ krb5_error_code principal_from_credentials(TALLOC_CTX *parent_ctx,
                krb5_set_real_time(smb_krb5_context->krb5_context, t + time_offset + 1, 0);
        }
        
-       if (ret == KRB5KRB_AP_ERR_SKEW || ret == KRB5_KDCREP_SKEW) {
-               DEBUG(1,("kinit for %s failed (%s)\n", 
-                        cli_credentials_get_principal(credentials, mem_ctx), 
-                        smb_get_krb5_error_message(smb_krb5_context->krb5_context, 
-                                                   ret, mem_ctx)));
-               talloc_free(mem_ctx);
-               return ret;
+       if (ret == KRB5KDC_ERR_PREAUTH_FAILED && cli_credentials_wrong_password(credentials)) {
+               ret = kinit_to_ccache(parent_ctx,
+                                     credentials,
+                                     smb_krb5_context,
+                                     event_ctx,
+                                     ccache, obtained,
+                                     error_string);
        }
+
        if (ret) {
-               DEBUG(1,("kinit for %s failed (%s)\n", 
-                        cli_credentials_get_principal(credentials, mem_ctx), 
-                        smb_get_krb5_error_message(smb_krb5_context->krb5_context, 
-                                                   ret, mem_ctx)));
+               (*error_string) = talloc_asprintf(credentials, "kinit for %s failed (%s)\n",
+                                                 cli_credentials_get_principal(credentials, mem_ctx),
+                                                 smb_get_krb5_error_message(smb_krb5_context->krb5_context,
+                                                                            ret, mem_ctx));
                talloc_free(mem_ctx);
                return ret;
        } 
+       talloc_free(mem_ctx);
        return 0;
 }
 
-static int free_keytab(void *ptr) {
-       struct keytab_container *ktc = ptr;
-       krb5_kt_close(ktc->smb_krb5_context->krb5_context, ktc->keytab);
-
-       return 0;
+static krb5_error_code free_keytab_container(struct keytab_container *ktc)
+{
+       return krb5_kt_close(ktc->smb_krb5_context->krb5_context, ktc->keytab);
 }
 
- NTSTATUS create_memory_keytab(TALLOC_CTX *parent_ctx,
-                              struct cli_credentials *machine_account,
-                              struct smb_krb5_context *smb_krb5_context,
-                              krb5_keytab *keytab) 
+krb5_error_code smb_krb5_get_keytab_container(TALLOC_CTX *mem_ctx,
+                               struct smb_krb5_context *smb_krb5_context,
+                               krb5_keytab opt_keytab,
+                               const char *keytab_name,
+                               struct keytab_container **ktc)
 {
+       krb5_keytab keytab;
        krb5_error_code ret;
-       const char *password_s;
-       krb5_data password;
-       int i;
-       struct keytab_container *mem_ctx = talloc(parent_ctx, struct keytab_container);
-       krb5_enctype *enctypes;
-       krb5_principal salt_princ;
-       krb5_principal princ;
-       
-       if (!mem_ctx) {
-               return NT_STATUS_NO_MEMORY;
-       }
-
-       ret = krb5_kt_resolve(smb_krb5_context->krb5_context, "MEMORY:", keytab);
-       if (ret) {
-               DEBUG(1,("failed to generate a new krb5 keytab: %s\n", 
-                        error_message(ret)));
-               talloc_free(mem_ctx);
-               return NT_STATUS_INTERNAL_ERROR;
-       }
 
-       mem_ctx->smb_krb5_context = talloc_reference(mem_ctx, smb_krb5_context);
-       mem_ctx->keytab = *keytab;
-
-       talloc_set_destructor(mem_ctx, free_keytab);
-
-       ret = salt_principal_from_credentials(mem_ctx, machine_account, 
-                                             smb_krb5_context, 
-                                             &salt_princ);
-       if (ret) {
-               DEBUG(1,("create_memory_keytab: maksing salt principal failed (%s)\n",
-                        smb_get_krb5_error_message(smb_krb5_context->krb5_context, 
-                                                   ret, mem_ctx)));
-               talloc_free(mem_ctx);
-               return NT_STATUS_INTERNAL_ERROR;
-       }
-
-       ret = principal_from_credentials(mem_ctx, machine_account, smb_krb5_context, &princ);
-       if (ret) {
-               DEBUG(1,("create_memory_keytab: maksing krb5 principal failed (%s)\n",
-                        smb_get_krb5_error_message(smb_krb5_context->krb5_context, 
-                                                   ret, mem_ctx)));
-               talloc_free(mem_ctx);
-               return NT_STATUS_INTERNAL_ERROR;
-       }
-
-       password_s = talloc_strdup(mem_ctx, cli_credentials_get_password(machine_account));
-       if (!password_s) {
-               /* If we don't have the plaintext password, try for
-                * the MD4 password hash */
-
-               krb5_keytab_entry entry;
-               const struct samr_Password *mach_pwd;
-               mach_pwd = cli_credentials_get_nt_hash(machine_account, mem_ctx);
-               if (!mach_pwd) {
-                       talloc_free(mem_ctx);
-                       DEBUG(1, ("create_memory_keytab: Domain trust informaton for account %s not available\n",
-                                 cli_credentials_get_principal(machine_account, mem_ctx)));
-                       return NT_STATUS_CANT_ACCESS_DOMAIN_INFO;
-               }
-               ret = krb5_keyblock_init(smb_krb5_context->krb5_context,
-                                        ENCTYPE_ARCFOUR_HMAC,
-                                        mach_pwd->hash, sizeof(mach_pwd->hash), 
-                                        &entry.keyblock);
-               if (ret) {
-                       DEBUG(1, ("create_memory_keytab: krb5_keyblock_init failed: %s\n",
-                                 smb_get_krb5_error_message(smb_krb5_context->krb5_context, 
-                                                            ret, mem_ctx)));
-                       return NT_STATUS_INTERNAL_ERROR;
-               }
-
-               entry.principal = princ;
-               entry.vno       = cli_credentials_get_kvno(machine_account);
-               ret = krb5_kt_add_entry(smb_krb5_context->krb5_context, *keytab, &entry);
+       if (opt_keytab) {
+               keytab = opt_keytab;
+       } else {
+               ret = krb5_kt_resolve(smb_krb5_context->krb5_context,
+                                               keytab_name, &keytab);
                if (ret) {
-                       DEBUG(1, ("Failed to add ARCFOUR_HMAC (only) entry for %s to keytab: %s",
-                                 cli_credentials_get_principal(machine_account, mem_ctx), 
-                                 smb_get_krb5_error_message(smb_krb5_context->krb5_context, 
-                                                            ret, mem_ctx)));
-                       talloc_free(mem_ctx);
-                       krb5_free_keyblock_contents(smb_krb5_context->krb5_context, &entry.keyblock);
-                       return NT_STATUS_INTERNAL_ERROR;
+                       DEBUG(1,("failed to open krb5 keytab: %s\n",
+                                smb_get_krb5_error_message(
+                                       smb_krb5_context->krb5_context,
+                                       ret, mem_ctx)));
+                       return ret;
                }
-               
-               krb5_free_keyblock_contents(smb_krb5_context->krb5_context, &entry.keyblock);
-               return NT_STATUS_OK;
-       }
-               
-       /* good, we actually have the real plaintext */
-
-       ret = get_kerberos_allowed_etypes(smb_krb5_context->krb5_context, 
-                                         &enctypes);
-       if (ret) {
-               DEBUG(1,("create_memory_keytab: getting encrption types failed (%s)\n",
-                        error_message(ret)));
-               talloc_free(mem_ctx);
-               return NT_STATUS_INTERNAL_ERROR;
        }
 
-       password.data = discard_const_p(char *, password_s);
-       password.length = strlen(password_s);
-       
-       for (i=0; enctypes[i]; i++) {
-               krb5_keytab_entry entry;
-               ret = create_kerberos_key_from_string(smb_krb5_context->krb5_context, 
-                                                     salt_princ, &password, &entry.keyblock, enctypes[i]);
-               if (ret) {
-                       talloc_free(mem_ctx);
-                       return NT_STATUS_INTERNAL_ERROR;
-               }
-
-                entry.principal = princ;
-                entry.vno       = cli_credentials_get_kvno(machine_account);
-               ret = krb5_kt_add_entry(smb_krb5_context->krb5_context, *keytab, &entry);
-               if (ret) {
-                       DEBUG(1, ("Failed to add entry for %s to keytab: %s",
-                                 cli_credentials_get_principal(machine_account, mem_ctx), 
-                                 smb_get_krb5_error_message(smb_krb5_context->krb5_context, 
-                                                            ret, mem_ctx)));
-                       talloc_free(mem_ctx);
-                       krb5_free_keyblock_contents(smb_krb5_context->krb5_context, &entry.keyblock);
-                       return NT_STATUS_INTERNAL_ERROR;
-               }
-               
-               krb5_free_keyblock_contents(smb_krb5_context->krb5_context, &entry.keyblock);
+       *ktc = talloc(mem_ctx, struct keytab_container);
+       if (!*ktc) {
+               return ENOMEM;
        }
 
-       free_kerberos_etypes(smb_krb5_context->krb5_context, enctypes);
+       (*ktc)->smb_krb5_context = talloc_reference(*ktc, smb_krb5_context);
+       (*ktc)->keytab = keytab;
+       (*ktc)->password_based = false;
+       talloc_set_destructor(*ktc, free_keytab_container);
 
-       return NT_STATUS_OK;
+       return 0;
 }
-
-