vcs.maemo.org Git - samba/blob - source/libads/util.c

   1 /*
   2    Unix SMB/CIFS implementation.
   3    krb5 set password implementation
   4    Copyright (C) Remus Koos 2001 (remuskoos@yahoo.com)
   5
   6    This program is free software; you can redistribute it and/or modify
   7    it under the terms of the GNU General Public License as published by
   8    the Free Software Foundation; either version 2 of the License, or
   9    (at your option) any later version.
  10
  11    This program is distributed in the hope that it will be useful,
  12    but WITHOUT ANY WARRANTY; without even the implied warranty of
  13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14    GNU General Public License for more details.
  15
  16    You should have received a copy of the GNU General Public License
  17    along with this program; if not, write to the Free Software
  18    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  19 */
  20
  21 #include "includes.h"
  22
  23 #ifdef HAVE_KRB5
  24
  25 ADS_STATUS ads_change_trust_account_password(ADS_STRUCT *ads, char *host_principal)
  26 {
  27         char *password;
  28         char *new_password;
  29         char *service_principal;
  30         ADS_STATUS ret;
  31         uint32 sec_channel_type;
  32
  33         if ((password = secrets_fetch_machine_password(lp_workgroup(), NULL, &sec_channel_type)) == NULL) {
  34                 DEBUG(1,("Failed to retrieve password for principal %s\n", host_principal));
  35                 return ADS_ERROR_SYSTEM(ENOENT);
  36         }
  37
  38         new_password = generate_random_str(DEFAULT_TRUST_ACCOUNT_PASSWORD_LENGTH);
  39
  40         asprintf(&service_principal, "HOST/%s", host_principal);
  41
  42         ret = kerberos_set_password(ads->auth.kdc_server, service_principal, password, service_principal, new_password, ads->auth.time_offset);
  43
  44         if (!ADS_ERR_OK(ret)) {
  45                 goto failed;
  46         }
  47
  48         if (!secrets_store_machine_password(new_password, lp_workgroup(), sec_channel_type)) {
  49                 DEBUG(1,("Failed to save machine password\n"));
  50                 ret = ADS_ERROR_SYSTEM(EACCES);
  51                 goto failed;
  52         }
  53
  54         /* Determine if the KDC is salting keys for this principal in a
  55          * non-obvious way. */
  56         if (!kerberos_derive_salting_principal(service_principal)) {
  57                 DEBUG(1,("Failed to determine correct salting principal for %s\n", service_principal));
  58                 ret = ADS_ERROR_SYSTEM(EACCES);
  59                 goto failed;
  60         }
  61
  62 failed:
  63         SAFE_FREE(service_principal);
  64         SAFE_FREE(password);
  65         return ret;
  66 }
  67 #endif