Initial import

[samba] / source / libads / util.c

diff --git a/source/libads/util.c b/source/libads/util.c
new file mode 100644 (file)
index 0000000..4a4d90d
--- /dev/null
+++ b/source/libads/util.c
@@ -0,0 +1,67 @@
+/* 
+   Unix SMB/CIFS implementation.
+   krb5 set password implementation
+   Copyright (C) Remus Koos 2001 (remuskoos@yahoo.com)
+   
+   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
+   (at your option) any later version.
+   
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+   
+   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.
+*/
+
+#include "includes.h"
+
+#ifdef HAVE_KRB5
+
+ADS_STATUS ads_change_trust_account_password(ADS_STRUCT *ads, char *host_principal)
+{
+       char *password;
+       char *new_password;
+       char *service_principal;
+       ADS_STATUS ret;
+       uint32 sec_channel_type;
+    
+       if ((password = secrets_fetch_machine_password(lp_workgroup(), NULL, &sec_channel_type)) == NULL) {
+               DEBUG(1,("Failed to retrieve password for principal %s\n", host_principal));
+               return ADS_ERROR_SYSTEM(ENOENT);
+       }
+
+       new_password = generate_random_str(DEFAULT_TRUST_ACCOUNT_PASSWORD_LENGTH);
+    
+       asprintf(&service_principal, "HOST/%s", host_principal);
+
+       ret = kerberos_set_password(ads->auth.kdc_server, service_principal, password, service_principal, new_password, ads->auth.time_offset);
+
+       if (!ADS_ERR_OK(ret)) {
+               goto failed;
+       }
+
+       if (!secrets_store_machine_password(new_password, lp_workgroup(), sec_channel_type)) {
+               DEBUG(1,("Failed to save machine password\n"));
+               ret = ADS_ERROR_SYSTEM(EACCES);
+               goto failed;
+       }
+
+       /* Determine if the KDC is salting keys for this principal in a
+        * non-obvious way. */
+       if (!kerberos_derive_salting_principal(service_principal)) {
+               DEBUG(1,("Failed to determine correct salting principal for %s\n", service_principal));
+               ret = ADS_ERROR_SYSTEM(EACCES);
+               goto failed;
+       }
+
+failed:
+       SAFE_FREE(service_principal);
+       SAFE_FREE(password);
+       return ret;
+}
+#endif