source/libads/kerberos.c

   1 /*
   2    Unix SMB/CIFS implementation.
   3    kerberos utility library
   4    Copyright (C) Andrew Tridgell 2001
   5    Copyright (C) Remus Koos 2001
   6
   7
   8    This program is free software; you can redistribute it and/or modify
   9    it under the terms of the GNU General Public License as published by
  10    the Free Software Foundation; either version 2 of the License, or
  11    (at your option) any later version.
  12
  13    This program is distributed in the hope that it will be useful,
  14    but WITHOUT ANY WARRANTY; without even the implied warranty of
  15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16    GNU General Public License for more details.
  17
  18    You should have received a copy of the GNU General Public License
  19    along with this program; if not, write to the Free Software
  20    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  21 */
  22
  23 #include "includes.h"
  24
  25 #ifdef HAVE_KRB5
  26
  27 /*
  28   we use a prompter to avoid a crash bug in the kerberos libs when
  29   dealing with empty passwords
  30   this prompter is just a string copy ...
  31 */
  32 static krb5_error_code
  33 kerb_prompter(krb5_context ctx, void *data,
  34                const char *name,
  35                const char *banner,
  36                int num_prompts,
  37                krb5_prompt prompts[])
  38 {
  39         if (num_prompts == 0) return 0;
  40
  41         memset(prompts[0].reply->data, 0, prompts[0].reply->length);
  42         if (prompts[0].reply->length > 0) {
  43                 strncpy(prompts[0].reply->data, data, prompts[0].reply->length-1);
  44                 prompts[0].reply->length = strlen(prompts[0].reply->data);
  45         }
  46         return 0;
  47 }
  48
  49 /*
  50   simulate a kinit, putting the tgt in the default cache location
  51   remus@snapserver.com
  52 */
  53 int kerberos_kinit_password(const char *principal, const char *password)
  54 {
  55         krb5_context ctx;
  56         krb5_error_code code = 0;
  57         krb5_ccache cc;
  58         krb5_principal me;
  59         krb5_creds my_creds;
  60
  61         if ((code = krb5_init_context(&ctx)))
  62                 return code;
  63
  64         if ((code = krb5_cc_default(ctx, &cc))) {
  65                 krb5_free_context(ctx);
  66                 return code;
  67         }
  68
  69         if ((code = krb5_parse_name(ctx, principal, &me))) {
  70                 krb5_free_context(ctx);
  71                 return code;
  72         }
  73
  74         if ((code = krb5_get_init_creds_password(ctx, &my_creds, me, NULL,
  75                                                  kerb_prompter,
  76                                                  password, 0, NULL, NULL))) {
  77                 krb5_free_principal(ctx, me);
  78                 krb5_free_context(ctx);
  79                 return code;
  80         }
  81
  82         if ((code = krb5_cc_initialize(ctx, cc, me))) {
  83                 krb5_free_cred_contents(ctx, &my_creds);
  84                 krb5_free_principal(ctx, me);
  85                 krb5_free_context(ctx);
  86                 return code;
  87         }
  88
  89         if ((code = krb5_cc_store_cred(ctx, cc, &my_creds))) {
  90                 krb5_cc_close(ctx, cc);
  91                 krb5_free_cred_contents(ctx, &my_creds);
  92                 krb5_free_principal(ctx, me);
  93                 krb5_free_context(ctx);
  94                 return code;
  95         }
  96
  97         krb5_cc_close(ctx, cc);
  98         krb5_free_cred_contents(ctx, &my_creds);
  99         krb5_free_principal(ctx, me);
 100         krb5_free_context(ctx);
 101
 102         return 0;
 103 }
 104
 105
 106
 107 /* run kinit to setup our ccache */
 108 int ads_kinit_password(ADS_STRUCT *ads)
 109 {
 110         char *s;
 111         int ret;
 112
 113         asprintf(&s, "%s@%s", ads->auth.user_name, ads->auth.realm);
 114         ret = kerberos_kinit_password(s, ads->auth.password);
 115
 116         if (ret) {
 117                 DEBUG(0,("kerberos_kinit_password %s failed: %s\n",
 118                          s, error_message(ret)));
 119         }
 120         free(s);
 121         return ret;
 122 }
 123
 124
 125 #endif