src/lib/krb5/krb/gic_keytab.c

   1 /* -*- mode: c; c-basic-offset: 4; indent-tabs-mode: nil -*- */
   2 /* lib/krb5/krb/gic_keytab.c */
   3 /*
   4  * Copyright (C) 2002, 2003, 2008 by the Massachusetts Institute of Technology.
   5  * All rights reserved.
   6  *
   7  * Export of this software from the United States of America may
   8  *   require a specific license from the United States Government.
   9  *   It is the responsibility of any person or organization contemplating
  10  *   export to obtain such a license before exporting.
  11  *
  12  * WITHIN THAT CONSTRAINT, permission to use, copy, modify, and
  13  * distribute this software and its documentation for any purpose and
  14  * without fee is hereby granted, provided that the above copyright
  15  * notice appear in all copies and that both that copyright notice and
  16  * this permission notice appear in supporting documentation, and that
  17  * the name of M.I.T. not be used in advertising or publicity pertaining
  18  * to distribution of the software without specific, written prior
  19  * permission.  Furthermore if you modify this software you must label
  20  * your software as modified software and not distribute it in such a
  21  * fashion that it might be confused with the original M.I.T. software.
  22  * M.I.T. makes no representations about the suitability of
  23  * this software for any purpose.  It is provided "as is" without express
  24  * or implied warranty.
  25  */
  26 #ifndef LEAN_CLIENT
  27
  28 #include "k5-int.h"
  29 #include "init_creds_ctx.h"
  30
  31 static krb5_error_code
  32 get_as_key_keytab(krb5_context context,
  33                   krb5_principal client,
  34                   krb5_enctype etype,
  35                   krb5_prompter_fct prompter,
  36                   void *prompter_data,
  37                   krb5_data *salt,
  38                   krb5_data *params,
  39                   krb5_keyblock *as_key,
  40                   void *gak_data)
  41 {
  42     krb5_keytab keytab = (krb5_keytab) gak_data;
  43     krb5_error_code ret;
  44     krb5_keytab_entry kt_ent;
  45     krb5_keyblock *kt_key;
  46
  47     /* if there's already a key of the correct etype, we're done.
  48        if the etype is wrong, free the existing key, and make
  49        a new one. */
  50
  51     if (as_key->length) {
  52         if (as_key->enctype == etype)
  53             return(0);
  54
  55         krb5_free_keyblock_contents(context, as_key);
  56         as_key->length = 0;
  57     }
  58
  59     if (!krb5_c_valid_enctype(etype))
  60         return(KRB5_PROG_ETYPE_NOSUPP);
  61
  62     if ((ret = krb5_kt_get_entry(context, keytab, client,
  63                                  0, /* don't have vno available */
  64                                  etype, &kt_ent)))
  65         return(ret);
  66
  67     ret = krb5_copy_keyblock(context, &kt_ent.key, &kt_key);
  68
  69     /* again, krb5's memory management is lame... */
  70
  71     *as_key = *kt_key;
  72     free(kt_key);
  73
  74     (void) krb5_kt_free_entry(context, &kt_ent);
  75
  76     return(ret);
  77 }
  78
  79 krb5_error_code KRB5_CALLCONV
  80 krb5_init_creds_set_keytab(krb5_context context,
  81                            krb5_init_creds_context ctx,
  82                            krb5_keytab keytab)
  83 {
  84     ctx->gak_fct = get_as_key_keytab;
  85     ctx->gak_data = keytab;
  86
  87     return 0;
  88 }
  89
  90 krb5_error_code KRB5_CALLCONV
  91 krb5_get_init_creds_keytab(krb5_context context,
  92                            krb5_creds *creds,
  93                            krb5_principal client,
  94                            krb5_keytab arg_keytab,
  95                            krb5_deltat start_time,
  96                            char *in_tkt_service,
  97                            krb5_get_init_creds_opt *options)
  98 {
  99     krb5_error_code ret, ret2;
 100     int use_master;
 101     krb5_keytab keytab;
 102
 103     if (arg_keytab == NULL) {
 104         if ((ret = krb5_kt_default(context, &keytab)))
 105             return ret;
 106     } else {
 107         keytab = arg_keytab;
 108     }
 109
 110     use_master = 0;
 111
 112     /* first try: get the requested tkt from any kdc */
 113
 114     ret = krb5int_get_init_creds(context, creds, client, NULL, NULL,
 115                                  start_time, in_tkt_service, options,
 116                                  get_as_key_keytab, (void *) keytab,
 117                                  &use_master,NULL);
 118
 119     /* check for success */
 120
 121     if (ret == 0)
 122         goto cleanup;
 123
 124     /* If all the kdc's are unavailable fail */
 125
 126     if ((ret == KRB5_KDC_UNREACH) || (ret == KRB5_REALM_CANT_RESOLVE))
 127         goto cleanup;
 128
 129     /* if the reply did not come from the master kdc, try again with
 130        the master kdc */
 131
 132     if (!use_master) {
 133         use_master = 1;
 134
 135         ret2 = krb5int_get_init_creds(context, creds, client, NULL, NULL,
 136                                       start_time, in_tkt_service, options,
 137                                       get_as_key_keytab, (void *) keytab,
 138                                       &use_master, NULL);
 139
 140         if (ret2 == 0) {
 141             ret = 0;
 142             goto cleanup;
 143         }
 144
 145         /* if the master is unreachable, return the error from the
 146            slave we were able to contact */
 147
 148         if ((ret2 == KRB5_KDC_UNREACH) ||
 149             (ret2 == KRB5_REALM_CANT_RESOLVE) ||
 150             (ret2 == KRB5_REALM_UNKNOWN))
 151             goto cleanup;
 152
 153         ret = ret2;
 154     }
 155
 156     /* at this point, we have a response from the master.  Since we don't
 157        do any prompting or changing for keytabs, that's it. */
 158
 159 cleanup:
 160     if (arg_keytab == NULL)
 161         krb5_kt_close(context, keytab);
 162
 163     return(ret);
 164 }
 165 krb5_error_code KRB5_CALLCONV
 166 krb5_get_in_tkt_with_keytab(krb5_context context, krb5_flags options,
 167                             krb5_address *const *addrs, krb5_enctype *ktypes,
 168                             krb5_preauthtype *pre_auth_types,
 169                             krb5_keytab arg_keytab, krb5_ccache ccache,
 170                             krb5_creds *creds, krb5_kdc_rep **ret_as_reply)
 171 {
 172     krb5_error_code retval;
 173     krb5_get_init_creds_opt *opts;
 174     char * server = NULL;
 175     krb5_keytab keytab;
 176     krb5_principal client_princ, server_princ;
 177     int use_master = 0;
 178
 179     retval = krb5int_populate_gic_opt(context, &opts,
 180                                       options, addrs, ktypes,
 181                                       pre_auth_types, creds);
 182     if (retval)
 183         return retval;
 184
 185     if (arg_keytab == NULL) {
 186         retval = krb5_kt_default(context, &keytab);
 187         if (retval)
 188             goto cleanup;
 189     }
 190     else keytab = arg_keytab;
 191
 192     retval = krb5_unparse_name( context, creds->server, &server);
 193     if (retval)
 194         goto cleanup;
 195     server_princ = creds->server;
 196     client_princ = creds->client;
 197     retval = krb5int_get_init_creds(context, creds, creds->client,
 198                                     krb5_prompter_posix,  NULL,
 199                                     0, server, opts,
 200                                     get_as_key_keytab, (void *)keytab,
 201                                     &use_master, ret_as_reply);
 202     krb5_free_unparsed_name( context, server);
 203     if (retval) {
 204         goto cleanup;
 205     }
 206     krb5_free_principal(context, creds->server);
 207     krb5_free_principal(context, creds->client);
 208     creds->client = client_princ;
 209     creds->server = server_princ;
 210
 211     /* store it in the ccache! */
 212     if (ccache)
 213         if ((retval = krb5_cc_store_cred(context, ccache, creds)))
 214             goto cleanup;
 215 cleanup:
 216     krb5_get_init_creds_opt_free(context, opts);
 217     if (arg_keytab == NULL)
 218         krb5_kt_close(context, keytab);
 219     return retval;
 220 }
 221
 222 #endif /* LEAN_CLIENT */