source4/dsdb/samdb/ldb_modules/password_hash.c

   1 /*
   2    ldb database module
   3
   4    Copyright (C) Simo Sorce  2004-2006
   5    Copyright (C) Andrew Bartlett <abartlet@samba.org> 2005-2006
   6    Copyright (C) Andrew Tridgell 2004
   7    Copyright (C) Stefan Metzmacher 2007
   8
   9    This program is free software; you can redistribute it and/or modify
  10    it under the terms of the GNU General Public License as published by
  11    the Free Software Foundation; either version 3 of the License, or
  12    (at your option) any later version.
  13
  14    This program is distributed in the hope that it will be useful,
  15    but WITHOUT ANY WARRANTY; without even the implied warranty of
  16    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17    GNU General Public License for more details.
  18
  19    You should have received a copy of the GNU General Public License
  20    along with this program.  If not, see <http://www.gnu.org/licenses/>.
  21 */
  22
  23 /*
  24  *  Name: ldb
  25  *
  26  *  Component: ldb password_hash module
  27  *
  28  *  Description: correctly update hash values based on changes to userPassword and friends
  29  *
  30  *  Author: Andrew Bartlett
  31  *  Author: Stefan Metzmacher
  32  */
  33
  34 #include "includes.h"
  35 #include "libcli/ldap/ldap_ndr.h"
  36 #include "ldb/include/ldb_errors.h"
  37 #include "ldb/include/ldb.h"
  38 #include "ldb/include/ldb_private.h"
  39 #include "librpc/gen_ndr/misc.h"
  40 #include "librpc/gen_ndr/samr.h"
  41 #include "libcli/auth/libcli_auth.h"
  42 #include "libcli/security/security.h"
  43 #include "system/kerberos.h"
  44 #include "auth/kerberos/kerberos.h"
  45 #include "system/time.h"
  46 #include "dsdb/samdb/samdb.h"
  47 #include "dsdb/common/flags.h"
  48 #include "dsdb/samdb/ldb_modules/password_modules.h"
  49 #include "librpc/ndr/libndr.h"
  50 #include "librpc/gen_ndr/ndr_drsblobs.h"
  51 #include "lib/crypto/crypto.h"
  52 #include "param/param.h"
  53
  54 /* If we have decided there is reason to work on this request, then
  55  * setup all the password hash types correctly.
  56  *
  57  * If the administrator doesn't want the userPassword stored (set in the
  58  * domain and per-account policies) then we must strip that out before
  59  * we do the first operation.
  60  *
  61  * Once this is done (which could update anything at all), we
  62  * calculate the password hashes.
  63  *
  64  * This function must not only update the unicodePwd, dBCSPwd and
  65  * supplementalCredentials fields, it must also atomicly increment the
  66  * msDS-KeyVersionNumber.  We should be in a transaction, so all this
  67  * should be quite safe...
  68  *
  69  * Finally, if the administrator has requested that a password history
  70  * be maintained, then this should also be written out.
  71  *
  72  */
  73
  74 struct ph_context {
  75
  76         enum ph_type {PH_ADD, PH_MOD} type;
  77         enum ph_step {PH_ADD_SEARCH_DOM, PH_ADD_DO_ADD, PH_MOD_DO_REQ, PH_MOD_SEARCH_SELF, PH_MOD_SEARCH_DOM, PH_MOD_DO_MOD} step;
  78
  79         struct ldb_module *module;
  80         struct ldb_request *orig_req;
  81
  82         struct ldb_request *dom_req;
  83         struct ldb_reply *dom_res;
  84
  85         struct ldb_request *down_req;
  86
  87         struct ldb_request *search_req;
  88         struct ldb_reply *search_res;
  89
  90         struct ldb_request *mod_req;
  91
  92         struct dom_sid *domain_sid;
  93 };
  94
  95 struct domain_data {
  96         bool store_cleartext;
  97         uint_t pwdProperties;
  98         uint_t pwdHistoryLength;
  99         char *netbios_domain;
 100         char *dns_domain;
 101         char *realm;
 102 };
 103
 104 struct setup_password_fields_io {
 105         struct ph_context *ac;
 106         struct domain_data *domain;
 107         struct smb_krb5_context *smb_krb5_context;
 108
 109         /* infos about the user account */
 110         struct {
 111                 uint32_t user_account_control;
 112                 const char *sAMAccountName;
 113                 const char *user_principal_name;
 114                 bool is_computer;
 115         } u;
 116
 117         /* new credentials */
 118         struct {
 119                 const char *cleartext;
 120                 struct samr_Password *nt_hash;
 121                 struct samr_Password *lm_hash;
 122         } n;
 123
 124         /* old credentials */
 125         struct {
 126                 uint32_t nt_history_len;
 127                 struct samr_Password *nt_history;
 128                 uint32_t lm_history_len;
 129                 struct samr_Password *lm_history;
 130                 const struct ldb_val *supplemental;
 131                 struct supplementalCredentialsBlob scb;
 132                 uint32_t kvno;
 133         } o;
 134
 135         /* generated credentials */
 136         struct {
 137                 struct samr_Password *nt_hash;
 138                 struct samr_Password *lm_hash;
 139                 uint32_t nt_history_len;
 140                 struct samr_Password *nt_history;
 141                 uint32_t lm_history_len;
 142                 struct samr_Password *lm_history;
 143                 const char *salt;
 144                 DATA_BLOB aes_256;
 145                 DATA_BLOB aes_128;
 146                 DATA_BLOB des_md5;
 147                 DATA_BLOB des_crc;
 148                 struct ldb_val supplemental;
 149                 NTTIME last_set;
 150                 uint32_t kvno;
 151         } g;
 152 };
 153
 154 static int setup_nt_fields(struct setup_password_fields_io *io)
 155 {
 156         uint32_t i;
 157
 158         io->g.nt_hash = io->n.nt_hash;
 159
 160         if (io->domain->pwdHistoryLength == 0) {
 161                 return LDB_SUCCESS;
 162         }
 163
 164         /* We might not have an old NT password */
 165         io->g.nt_history = talloc_array(io->ac,
 166                                         struct samr_Password,
 167                                         io->domain->pwdHistoryLength);
 168         if (!io->g.nt_history) {
 169                 ldb_oom(io->ac->module->ldb);
 170                 return LDB_ERR_OPERATIONS_ERROR;
 171         }
 172
 173         for (i = 0; i < MIN(io->domain->pwdHistoryLength-1, io->o.nt_history_len); i++) {
 174                 io->g.nt_history[i+1] = io->o.nt_history[i];
 175         }
 176         io->g.nt_history_len = i + 1;
 177
 178         if (io->g.nt_hash) {
 179                 io->g.nt_history[0] = *io->g.nt_hash;
 180         } else {
 181                 /*
 182                  * TODO: is this correct?
 183                  * the simular behavior is correct for the lm history case
 184                  */
 185                 E_md4hash("", io->g.nt_history[0].hash);
 186         }
 187
 188         return LDB_SUCCESS;
 189 }
 190
 191 static int setup_lm_fields(struct setup_password_fields_io *io)
 192 {
 193         uint32_t i;
 194
 195         io->g.lm_hash = io->n.lm_hash;
 196
 197         if (io->domain->pwdHistoryLength == 0) {
 198                 return LDB_SUCCESS;
 199         }
 200
 201         /* We might not have an old NT password */
 202         io->g.lm_history = talloc_array(io->ac,
 203                                         struct samr_Password,
 204                                         io->domain->pwdHistoryLength);
 205         if (!io->g.lm_history) {
 206                 ldb_oom(io->ac->module->ldb);
 207                 return LDB_ERR_OPERATIONS_ERROR;
 208         }
 209
 210         for (i = 0; i < MIN(io->domain->pwdHistoryLength-1, io->o.lm_history_len); i++) {
 211                 io->g.lm_history[i+1] = io->o.lm_history[i];
 212         }
 213         io->g.lm_history_len = i + 1;
 214
 215         if (io->g.lm_hash) {
 216                 io->g.lm_history[0] = *io->g.lm_hash;
 217         } else {
 218                 E_deshash("", io->g.lm_history[0].hash);
 219         }
 220
 221         return LDB_SUCCESS;
 222 }
 223
 224 static int setup_kerberos_keys(struct setup_password_fields_io *io)
 225 {
 226         krb5_error_code krb5_ret;
 227         Principal *salt_principal;
 228         krb5_salt salt;
 229         krb5_keyblock key;
 230
 231         /* Many, many thanks to lukeh@padl.com for this
 232          * algorithm, described in his Nov 10 2004 mail to
 233          * samba-technical@samba.org */
 234
 235         /*
 236          * Determine a salting principal
 237          */
 238         if (io->u.is_computer) {
 239                 char *name;
 240                 char *saltbody;
 241
 242                 name = talloc_strdup(io->ac, io->u.sAMAccountName);
 243                 if (!name) {
 244                         ldb_oom(io->ac->module->ldb);
 245                         return LDB_ERR_OPERATIONS_ERROR;
 246                 }
 247
 248                 if (name[strlen(name)-1] == '$') {
 249                         name[strlen(name)-1] = '\0';
 250                 }
 251
 252                 saltbody = talloc_asprintf(io->ac, "%s.%s", name, io->domain->dns_domain);
 253                 if (!saltbody) {
 254                         ldb_oom(io->ac->module->ldb);
 255                         return LDB_ERR_OPERATIONS_ERROR;
 256                 }
 257
 258                 krb5_ret = krb5_make_principal(io->smb_krb5_context->krb5_context,
 259                                                &salt_principal,
 260                                                io->domain->realm, "host",
 261                                                saltbody, NULL);
 262         } else if (io->u.user_principal_name) {
 263                 char *user_principal_name;
 264                 char *p;
 265
 266                 user_principal_name = talloc_strdup(io->ac, io->u.user_principal_name);
 267                 if (!user_principal_name) {
 268                         ldb_oom(io->ac->module->ldb);
 269                         return LDB_ERR_OPERATIONS_ERROR;
 270                 }
 271
 272                 p = strchr(user_principal_name, '@');
 273                 if (p) {
 274                         p[0] = '\0';
 275                 }
 276
 277                 krb5_ret = krb5_make_principal(io->smb_krb5_context->krb5_context,
 278                                                &salt_principal,
 279                                                io->domain->realm, user_principal_name,
 280                                                NULL);
 281         } else {
 282                 krb5_ret = krb5_make_principal(io->smb_krb5_context->krb5_context,
 283                                                &salt_principal,
 284                                                io->domain->realm, io->u.sAMAccountName,
 285                                                NULL);
 286         }
 287         if (krb5_ret) {
 288                 ldb_asprintf_errstring(io->ac->module->ldb,
 289                                        "setup_kerberos_keys: "
 290                                        "generation of a salting principal failed: %s",
 291                                        smb_get_krb5_error_message(io->smb_krb5_context->krb5_context, krb5_ret, io->ac));
 292                 return LDB_ERR_OPERATIONS_ERROR;
 293         }
 294
 295         /*
 296          * create salt from salt_principal
 297          */
 298         krb5_ret = krb5_get_pw_salt(io->smb_krb5_context->krb5_context,
 299                                     salt_principal, &salt);
 300         krb5_free_principal(io->smb_krb5_context->krb5_context, salt_principal);
 301         if (krb5_ret) {
 302                 ldb_asprintf_errstring(io->ac->module->ldb,
 303                                        "setup_kerberos_keys: "
 304                                        "generation of krb5_salt failed: %s",
 305                                        smb_get_krb5_error_message(io->smb_krb5_context->krb5_context, krb5_ret, io->ac));
 306                 return LDB_ERR_OPERATIONS_ERROR;
 307         }
 308         /* create a talloc copy */
 309         io->g.salt = talloc_strndup(io->ac,
 310                                     salt.saltvalue.data,
 311                                     salt.saltvalue.length);
 312         krb5_free_salt(io->smb_krb5_context->krb5_context, salt);
 313         if (!io->g.salt) {
 314                 ldb_oom(io->ac->module->ldb);
 315                 return LDB_ERR_OPERATIONS_ERROR;
 316         }
 317         salt.saltvalue.data     = discard_const(io->g.salt);
 318         salt.saltvalue.length   = strlen(io->g.salt);
 319
 320         /*
 321          * create ENCTYPE_AES256_CTS_HMAC_SHA1_96 key out of
 322          * the salt and the cleartext password
 323          */
 324         krb5_ret = krb5_string_to_key_salt(io->smb_krb5_context->krb5_context,
 325                                            ENCTYPE_AES256_CTS_HMAC_SHA1_96,
 326                                            io->n.cleartext,
 327                                            salt,
 328                                            &key);
 329         if (krb5_ret) {
 330                 ldb_asprintf_errstring(io->ac->module->ldb,
 331                                        "setup_kerberos_keys: "
 332                                        "generation of a aes256-cts-hmac-sha1-96 key failed: %s",
 333                                        smb_get_krb5_error_message(io->smb_krb5_context->krb5_context, krb5_ret, io->ac));
 334                 return LDB_ERR_OPERATIONS_ERROR;
 335         }
 336         io->g.aes_256 = data_blob_talloc(io->ac,
 337                                          key.keyvalue.data,
 338                                          key.keyvalue.length);
 339         krb5_free_keyblock_contents(io->smb_krb5_context->krb5_context, &key);
 340         if (!io->g.aes_256.data) {
 341                 ldb_oom(io->ac->module->ldb);
 342                 return LDB_ERR_OPERATIONS_ERROR;
 343         }
 344
 345         /*
 346          * create ENCTYPE_AES128_CTS_HMAC_SHA1_96 key out of
 347          * the salt and the cleartext password
 348          */
 349         krb5_ret = krb5_string_to_key_salt(io->smb_krb5_context->krb5_context,
 350                                            ENCTYPE_AES128_CTS_HMAC_SHA1_96,
 351                                            io->n.cleartext,
 352                                            salt,
 353                                            &key);
 354         if (krb5_ret) {
 355                 ldb_asprintf_errstring(io->ac->module->ldb,
 356                                        "setup_kerberos_keys: "
 357                                        "generation of a aes128-cts-hmac-sha1-96 key failed: %s",
 358                                        smb_get_krb5_error_message(io->smb_krb5_context->krb5_context, krb5_ret, io->ac));
 359                 return LDB_ERR_OPERATIONS_ERROR;
 360         }
 361         io->g.aes_128 = data_blob_talloc(io->ac,
 362                                          key.keyvalue.data,
 363                                          key.keyvalue.length);
 364         krb5_free_keyblock_contents(io->smb_krb5_context->krb5_context, &key);
 365         if (!io->g.aes_128.data) {
 366                 ldb_oom(io->ac->module->ldb);
 367                 return LDB_ERR_OPERATIONS_ERROR;
 368         }
 369
 370         /*
 371          * create ENCTYPE_DES_CBC_MD5 key out of
 372          * the salt and the cleartext password
 373          */
 374         krb5_ret = krb5_string_to_key_salt(io->smb_krb5_context->krb5_context,
 375                                            ENCTYPE_DES_CBC_MD5,
 376                                            io->n.cleartext,
 377                                            salt,
 378                                            &key);
 379         if (krb5_ret) {
 380                 ldb_asprintf_errstring(io->ac->module->ldb,
 381                                        "setup_kerberos_keys: "
 382                                        "generation of a des-cbc-md5 key failed: %s",
 383                                        smb_get_krb5_error_message(io->smb_krb5_context->krb5_context, krb5_ret, io->ac));
 384                 return LDB_ERR_OPERATIONS_ERROR;
 385         }
 386         io->g.des_md5 = data_blob_talloc(io->ac,
 387                                          key.keyvalue.data,
 388                                          key.keyvalue.length);
 389         krb5_free_keyblock_contents(io->smb_krb5_context->krb5_context, &key);
 390         if (!io->g.des_md5.data) {
 391                 ldb_oom(io->ac->module->ldb);
 392                 return LDB_ERR_OPERATIONS_ERROR;
 393         }
 394
 395         /*
 396          * create ENCTYPE_DES_CBC_CRC key out of
 397          * the salt and the cleartext password
 398          */
 399         krb5_ret = krb5_string_to_key_salt(io->smb_krb5_context->krb5_context,
 400                                            ENCTYPE_DES_CBC_CRC,
 401                                            io->n.cleartext,
 402                                            salt,
 403                                            &key);
 404         if (krb5_ret) {
 405                 ldb_asprintf_errstring(io->ac->module->ldb,
 406                                        "setup_kerberos_keys: "
 407                                        "generation of a des-cbc-crc key failed: %s",
 408                                        smb_get_krb5_error_message(io->smb_krb5_context->krb5_context, krb5_ret, io->ac));
 409                 return LDB_ERR_OPERATIONS_ERROR;
 410         }
 411         io->g.des_crc = data_blob_talloc(io->ac,
 412                                          key.keyvalue.data,
 413                                          key.keyvalue.length);
 414         krb5_free_keyblock_contents(io->smb_krb5_context->krb5_context, &key);
 415         if (!io->g.des_crc.data) {
 416                 ldb_oom(io->ac->module->ldb);
 417                 return LDB_ERR_OPERATIONS_ERROR;
 418         }
 419
 420         return LDB_SUCCESS;
 421 }
 422
 423 static int setup_primary_kerberos(struct setup_password_fields_io *io,
 424                                   const struct supplementalCredentialsBlob *old_scb,
 425                                   struct package_PrimaryKerberosBlob *pkb)
 426 {
 427         struct package_PrimaryKerberosCtr3 *pkb3 = &pkb->ctr.ctr3;
 428         struct supplementalCredentialsPackage *old_scp = NULL;
 429         struct package_PrimaryKerberosBlob _old_pkb;
 430         struct package_PrimaryKerberosCtr3 *old_pkb3 = NULL;
 431         uint32_t i;
 432         enum ndr_err_code ndr_err;
 433
 434         /*
 435          * prepare generation of keys
 436          *
 437          * ENCTYPE_DES_CBC_MD5
 438          * ENCTYPE_DES_CBC_CRC
 439          */
 440         pkb->version            = 3;
 441         pkb3->salt.string       = io->g.salt;
 442         pkb3->num_keys          = 2;
 443         pkb3->keys              = talloc_array(io->ac,
 444                                                struct package_PrimaryKerberosKey3,
 445                                                pkb3->num_keys);
 446         if (!pkb3->keys) {
 447                 ldb_oom(io->ac->module->ldb);
 448                 return LDB_ERR_OPERATIONS_ERROR;
 449         }
 450
 451         pkb3->keys[0].keytype   = ENCTYPE_DES_CBC_MD5;
 452         pkb3->keys[0].value     = &io->g.des_md5;
 453         pkb3->keys[1].keytype   = ENCTYPE_DES_CBC_CRC;
 454         pkb3->keys[1].value     = &io->g.des_crc;
 455
 456         /* initialize the old keys to zero */
 457         pkb3->num_old_keys      = 0;
 458         pkb3->old_keys          = NULL;
 459
 460         /* if there're no old keys, then we're done */
 461         if (!old_scb) {
 462                 return LDB_SUCCESS;
 463         }
 464
 465         for (i=0; i < old_scb->sub.num_packages; i++) {
 466                 if (strcmp("Primary:Kerberos", old_scb->sub.packages[i].name) != 0) {
 467                         continue;
 468                 }
 469
 470                 if (!old_scb->sub.packages[i].data || !old_scb->sub.packages[i].data[0]) {
 471                         continue;
 472                 }
 473
 474                 old_scp = &old_scb->sub.packages[i];
 475                 break;
 476         }
 477         /* Primary:Kerberos element of supplementalCredentials */
 478         if (old_scp) {
 479                 DATA_BLOB blob;
 480
 481                 blob = strhex_to_data_blob(old_scp->data);
 482                 if (!blob.data) {
 483                         ldb_oom(io->ac->module->ldb);
 484                         return LDB_ERR_OPERATIONS_ERROR;
 485                 }
 486                 talloc_steal(io->ac, blob.data);
 487
 488                 /* TODO: use ndr_pull_struct_blob_all(), when the ndr layer handles it correct with relative pointers */
 489                 ndr_err = ndr_pull_struct_blob(&blob, io->ac, lp_iconv_convenience(ldb_get_opaque(io->ac->module->ldb, "loadparm")), &_old_pkb,
 490                                                (ndr_pull_flags_fn_t)ndr_pull_package_PrimaryKerberosBlob);
 491                 if (!NDR_ERR_CODE_IS_SUCCESS(ndr_err)) {
 492                         NTSTATUS status = ndr_map_error2ntstatus(ndr_err);
 493                         ldb_asprintf_errstring(io->ac->module->ldb,
 494                                                "setup_primary_kerberos: "
 495                                                "failed to pull old package_PrimaryKerberosBlob: %s",
 496                                                nt_errstr(status));
 497                         return LDB_ERR_OPERATIONS_ERROR;
 498                 }
 499
 500                 if (_old_pkb.version != 3) {
 501                         ldb_asprintf_errstring(io->ac->module->ldb,
 502                                                "setup_primary_kerberos: "
 503                                                "package_PrimaryKerberosBlob version[%u] expected[3]",
 504                                                _old_pkb.version);
 505                         return LDB_ERR_OPERATIONS_ERROR;
 506                 }
 507
 508                 old_pkb3 = &_old_pkb.ctr.ctr3;
 509         }
 510
 511         /* if we didn't found the old keys we're done */
 512         if (!old_pkb3) {
 513                 return LDB_SUCCESS;
 514         }
 515
 516         /* fill in the old keys */
 517         pkb3->num_old_keys      = old_pkb3->num_keys;
 518         pkb3->old_keys          = old_pkb3->keys;
 519
 520         return LDB_SUCCESS;
 521 }
 522
 523 static int setup_primary_kerberos_newer(struct setup_password_fields_io *io,
 524                                         const struct supplementalCredentialsBlob *old_scb,
 525                                         struct package_PrimaryKerberosBlob *pkb)
 526 {
 527         struct package_PrimaryKerberosCtr4 *pkb4 = &pkb->ctr.ctr4;
 528         struct supplementalCredentialsPackage *old_scp = NULL;
 529         struct package_PrimaryKerberosBlob _old_pkb;
 530         struct package_PrimaryKerberosCtr4 *old_pkb4 = NULL;
 531         uint32_t i;
 532         enum ndr_err_code ndr_err;
 533
 534         /*
 535          * prepare generation of keys
 536          *
 537          * ENCTYPE_AES256_CTS_HMAC_SHA1_96
 538          * ENCTYPE_AES128_CTS_HMAC_SHA1_96
 539          * ENCTYPE_DES_CBC_MD5
 540          * ENCTYPE_DES_CBC_CRC
 541          */
 542         pkb->version                    = 4;
 543         pkb4->salt.string               = io->g.salt;
 544         pkb4->default_iteration_count   = 4096;
 545         pkb4->num_keys                  = 4;
 546
 547         pkb4->keys = talloc_array(io->ac,
 548                                   struct package_PrimaryKerberosKey4,
 549                                   pkb4->num_keys);
 550         if (!pkb4->keys) {
 551                 ldb_oom(io->ac->module->ldb);
 552                 return LDB_ERR_OPERATIONS_ERROR;
 553         }
 554
 555         pkb4->keys[0].iteration_count   = 4096;
 556         pkb4->keys[0].keytype           = ENCTYPE_AES256_CTS_HMAC_SHA1_96;
 557         pkb4->keys[0].value             = &io->g.aes_256;
 558         pkb4->keys[1].iteration_count   = 4096;
 559         pkb4->keys[1].keytype           = ENCTYPE_AES128_CTS_HMAC_SHA1_96;
 560         pkb4->keys[1].value             = &io->g.aes_128;
 561         pkb4->keys[2].iteration_count   = 4096;
 562         pkb4->keys[2].keytype           = ENCTYPE_DES_CBC_MD5;
 563         pkb4->keys[2].value             = &io->g.des_md5;
 564         pkb4->keys[3].iteration_count   = 4096;
 565         pkb4->keys[3].keytype           = ENCTYPE_DES_CBC_CRC;
 566         pkb4->keys[3].value             = &io->g.des_crc;
 567
 568         /* initialize the old keys to zero */
 569         pkb4->num_old_keys      = 0;
 570         pkb4->old_keys          = NULL;
 571         pkb4->num_older_keys    = 0;
 572         pkb4->older_keys        = NULL;
 573
 574         /* if there're no old keys, then we're done */
 575         if (!old_scb) {
 576                 return LDB_SUCCESS;
 577         }
 578
 579         for (i=0; i < old_scb->sub.num_packages; i++) {
 580                 if (strcmp("Primary:Kerberos-Newer-Keys", old_scb->sub.packages[i].name) != 0) {
 581                         continue;
 582                 }
 583
 584                 if (!old_scb->sub.packages[i].data || !old_scb->sub.packages[i].data[0]) {
 585                         continue;
 586                 }
 587
 588                 old_scp = &old_scb->sub.packages[i];
 589                 break;
 590         }
 591         /* Primary:Kerberos-Newer-Keys element of supplementalCredentials */
 592         if (old_scp) {
 593                 DATA_BLOB blob;
 594
 595                 blob = strhex_to_data_blob(old_scp->data);
 596                 if (!blob.data) {
 597                         ldb_oom(io->ac->module->ldb);
 598                         return LDB_ERR_OPERATIONS_ERROR;
 599                 }
 600                 talloc_steal(io->ac, blob.data);
 601
 602                 /* TODO: use ndr_pull_struct_blob_all(), when the ndr layer handles it correct with relative pointers */
 603                 ndr_err = ndr_pull_struct_blob(&blob, io->ac,
 604                                                lp_iconv_convenience(ldb_get_opaque(io->ac->module->ldb, "loadparm")),
 605                                                &_old_pkb,
 606                                                (ndr_pull_flags_fn_t)ndr_pull_package_PrimaryKerberosBlob);
 607                 if (!NDR_ERR_CODE_IS_SUCCESS(ndr_err)) {
 608                         NTSTATUS status = ndr_map_error2ntstatus(ndr_err);
 609                         ldb_asprintf_errstring(io->ac->module->ldb,
 610                                                "setup_primary_kerberos_newer: "
 611                                                "failed to pull old package_PrimaryKerberosBlob: %s",
 612                                                nt_errstr(status));
 613                         return LDB_ERR_OPERATIONS_ERROR;
 614                 }
 615
 616                 if (_old_pkb.version != 4) {
 617                         ldb_asprintf_errstring(io->ac->module->ldb,
 618                                                "setup_primary_kerberos_newer: "
 619                                                "package_PrimaryKerberosBlob version[%u] expected[4]",
 620                                                _old_pkb.version);
 621                         return LDB_ERR_OPERATIONS_ERROR;
 622                 }
 623
 624                 old_pkb4 = &_old_pkb.ctr.ctr4;
 625         }
 626
 627         /* if we didn't found the old keys we're done */
 628         if (!old_pkb4) {
 629                 return LDB_SUCCESS;
 630         }
 631
 632         /* fill in the old keys */
 633         pkb4->num_old_keys      = old_pkb4->num_keys;
 634         pkb4->old_keys          = old_pkb4->keys;
 635         pkb4->num_older_keys    = old_pkb4->num_old_keys;
 636         pkb4->older_keys        = old_pkb4->old_keys;
 637
 638         return LDB_SUCCESS;
 639 }
 640
 641 static int setup_primary_wdigest(struct setup_password_fields_io *io,
 642                                  const struct supplementalCredentialsBlob *old_scb,
 643                                  struct package_PrimaryWDigestBlob *pdb)
 644 {
 645         DATA_BLOB sAMAccountName;
 646         DATA_BLOB sAMAccountName_l;
 647         DATA_BLOB sAMAccountName_u;
 648         const char *user_principal_name = io->u.user_principal_name;
 649         DATA_BLOB userPrincipalName;
 650         DATA_BLOB userPrincipalName_l;
 651         DATA_BLOB userPrincipalName_u;
 652         DATA_BLOB netbios_domain;
 653         DATA_BLOB netbios_domain_l;
 654         DATA_BLOB netbios_domain_u;
 655         DATA_BLOB dns_domain;
 656         DATA_BLOB dns_domain_l;
 657         DATA_BLOB dns_domain_u;
 658         DATA_BLOB cleartext;
 659         DATA_BLOB digest;
 660         DATA_BLOB delim;
 661         DATA_BLOB backslash;
 662         uint8_t i;
 663         struct {
 664                 DATA_BLOB *user;
 665                 DATA_BLOB *realm;
 666                 DATA_BLOB *nt4dom;
 667         } wdigest[] = {
 668         /*
 669          * See
 670          * http://technet2.microsoft.com/WindowsServer/en/library/717b450c-f4a0-4cc9-86f4-cc0633aae5f91033.mspx?mfr=true
 671          * for what precalculated hashes are supposed to be stored...
 672          *
 673          * I can't reproduce all values which should contain "Digest" as realm,
 674          * am I doing something wrong or is w2k3 just broken...?
 675          *
 676          * W2K3 fills in following for a user:
 677          *
 678          * dn: CN=NewUser,OU=newtop,DC=sub1,DC=w2k3,DC=vmnet1,DC=vm,DC=base
 679          * sAMAccountName: NewUser2Sam
 680          * userPrincipalName: NewUser2Princ@sub1.w2k3.vmnet1.vm.base
 681          *
 682          * 4279815024bda54fc074a5f8bd0a6e6f => NewUser2Sam:SUB1:TestPwd2007
 683          * b7ec9da91062199aee7d121e6710fe23 => newuser2sam:sub1:TestPwd2007
 684          * 17d290bc5c9f463fac54c37a8cea134d => NEWUSER2SAM:SUB1:TestPwd2007
 685          * 4279815024bda54fc074a5f8bd0a6e6f => NewUser2Sam:SUB1:TestPwd2007
 686          * 5d57e7823938348127322e08cd81bcb5 => NewUser2Sam:sub1:TestPwd2007
 687          * 07dd701bf8a011ece585de3d47237140 => NEWUSER2SAM:sub1:TestPwd2007
 688          * e14fb0eb401498d2cb33c9aae1cc7f37 => newuser2sam:SUB1:TestPwd2007
 689          * 8dadc90250f873d8b883f79d890bef82 => NewUser2Sam:sub1.w2k3.vmnet1.vm.base:TestPwd2007
 690          * f52da1266a6bdd290ffd48b2c823dda7 => newuser2sam:sub1.w2k3.vmnet1.vm.base:TestPwd2007
 691          * d2b42f171248cec37a3c5c6b55404062 => NEWUSER2SAM:SUB1.W2K3.VMNET1.VM.BASE:TestPwd2007
 692          * fff8d790ff6c152aaeb6ebe17b4021de => NewUser2Sam:SUB1.W2K3.VMNET1.VM.BASE:TestPwd2007
 693          * 8dadc90250f873d8b883f79d890bef82 => NewUser2Sam:sub1.w2k3.vmnet1.vm.base:TestPwd2007
 694          * 2a7563c3715bc418d626dabef378c008 => NEWUSER2SAM:sub1.w2k3.vmnet1.vm.base:TestPwd2007
 695          * c8e9557a87cd4200fda0c11d2fa03f96 => newuser2sam:SUB1.W2K3.VMNET1.VM.BASE:TestPwd2007
 696          * 221c55284451ae9b3aacaa2a3c86f10f => NewUser2Princ@sub1.w2k3.vmnet1.vm.base::TestPwd2007
 697          * 74e1be668853d4324d38c07e2acfb8ea => (w2k3 has a bug here!) newuser2princ@sub1.w2k3.vmnet1.vm.base::TestPwd2007
 698          * e1e244ab7f098e3ae1761be7f9229bbb => NEWUSER2PRINC@SUB1.W2K3.VMNET1.VM.BASE::TestPwd2007
 699          * 86db637df42513039920e605499c3af6 => SUB1\NewUser2Sam::TestPwd2007
 700          * f5e43474dfaf067fee8197a253debaa2 => sub1\newuser2sam::TestPwd2007
 701          * 2ecaa8382e2518e4b77a52422b279467 => SUB1\NEWUSER2SAM::TestPwd2007
 702          * 31dc704d3640335b2123d4ee28aa1f11 => ??? changes with NewUser2Sam => NewUser1Sam
 703          * 36349f5cecd07320fb3bb0e119230c43 => ??? changes with NewUser2Sam => NewUser1Sam
 704          * 12adf019d037fb535c01fd0608e78d9d => ??? changes with NewUser2Sam => NewUser1Sam
 705          * 6feecf8e724906f3ee1105819c5105a1 => ??? changes with NewUser2Princ => NewUser1Princ
 706          * 6c6911f3de6333422640221b9c51ff1f => ??? changes with NewUser2Princ => NewUser1Princ
 707          * 4b279877e742895f9348ac67a8de2f69 => ??? changes with NewUser2Princ => NewUser1Princ
 708          * db0c6bff069513e3ebb9870d29b57490 => ??? changes with NewUser2Sam => NewUser1Sam
 709          * 45072621e56b1c113a4e04a8ff68cd0e => ??? changes with NewUser2Sam => NewUser1Sam
 710          * 11d1220abc44a9c10cf91ef4a9c1de02 => ??? changes with NewUser2Sam => NewUser1Sam
 711          *
 712          * dn: CN=NewUser,OU=newtop,DC=sub1,DC=w2k3,DC=vmnet1,DC=vm,DC=base
 713          * sAMAccountName: NewUser2Sam
 714          *
 715          * 4279815024bda54fc074a5f8bd0a6e6f => NewUser2Sam:SUB1:TestPwd2007
 716          * b7ec9da91062199aee7d121e6710fe23 => newuser2sam:sub1:TestPwd2007
 717          * 17d290bc5c9f463fac54c37a8cea134d => NEWUSER2SAM:SUB1:TestPwd2007
 718          * 4279815024bda54fc074a5f8bd0a6e6f => NewUser2Sam:SUB1:TestPwd2007
 719          * 5d57e7823938348127322e08cd81bcb5 => NewUser2Sam:sub1:TestPwd2007
 720          * 07dd701bf8a011ece585de3d47237140 => NEWUSER2SAM:sub1:TestPwd2007
 721          * e14fb0eb401498d2cb33c9aae1cc7f37 => newuser2sam:SUB1:TestPwd2007
 722          * 8dadc90250f873d8b883f79d890bef82 => NewUser2Sam:sub1.w2k3.vmnet1.vm.base:TestPwd2007
 723          * f52da1266a6bdd290ffd48b2c823dda7 => newuser2sam:sub1.w2k3.vmnet1.vm.base:TestPwd2007
 724          * d2b42f171248cec37a3c5c6b55404062 => NEWUSER2SAM:SUB1.W2K3.VMNET1.VM.BASE:TestPwd2007
 725          * fff8d790ff6c152aaeb6ebe17b4021de => NewUser2Sam:SUB1.W2K3.VMNET1.VM.BASE:TestPwd2007
 726          * 8dadc90250f873d8b883f79d890bef82 => NewUser2Sam:sub1.w2k3.vmnet1.vm.base:TestPwd2007
 727          * 2a7563c3715bc418d626dabef378c008 => NEWUSER2SAM:sub1.w2k3.vmnet1.vm.base:TestPwd2007
 728          * c8e9557a87cd4200fda0c11d2fa03f96 => newuser2sam:SUB1.W2K3.VMNET1.VM.BASE:TestPwd2007
 729          * 8a140d30b6f0a5912735dc1e3bc993b4 => NewUser2Sam@sub1.w2k3.vmnet1.vm.base::TestPwd2007
 730          * 86d95b2faae6cae4ec261e7fbaccf093 => (here w2k3 is correct) newuser2sam@sub1.w2k3.vmnet1.vm.base::TestPwd2007
 731          * dfeff1493110220efcdfc6362e5f5450 => NEWUSER2SAM@SUB1.W2K3.VMNET1.VM.BASE::TestPwd2007
 732          * 86db637df42513039920e605499c3af6 => SUB1\NewUser2Sam::TestPwd2007
 733          * f5e43474dfaf067fee8197a253debaa2 => sub1\newuser2sam::TestPwd2007
 734          * 2ecaa8382e2518e4b77a52422b279467 => SUB1\NEWUSER2SAM::TestPwd2007
 735          * 31dc704d3640335b2123d4ee28aa1f11 => ???M1   changes with NewUser2Sam => NewUser1Sam
 736          * 36349f5cecd07320fb3bb0e119230c43 => ???M1.L changes with newuser2sam => newuser1sam
 737          * 12adf019d037fb535c01fd0608e78d9d => ???M1.U changes with NEWUSER2SAM => NEWUSER1SAM
 738          * 569b4533f2d9e580211dd040e5e360a8 => ???M2   changes with NewUser2Princ => NewUser1Princ
 739          * 52528bddf310a587c5d7e6a9ae2cbb20 => ???M2.L changes with newuser2princ => newuser1princ
 740          * 4f629a4f0361289ca4255ab0f658fcd5 => ???M3 changes with NewUser2Princ => NewUser1Princ (doesn't depend on case of userPrincipal )
 741          * db0c6bff069513e3ebb9870d29b57490 => ???M4 changes with NewUser2Sam => NewUser1Sam
 742          * 45072621e56b1c113a4e04a8ff68cd0e => ???M5 changes with NewUser2Sam => NewUser1Sam (doesn't depend on case of sAMAccountName)
 743          * 11d1220abc44a9c10cf91ef4a9c1de02 => ???M4.U changes with NEWUSER2SAM => NEWUSER1SAM
 744          */
 745
 746         /*
 747          * sAMAccountName, netbios_domain
 748          */
 749                 {
 750                 .user   = &sAMAccountName,
 751                 .realm  = &netbios_domain,
 752                 },
 753                 {
 754                 .user   = &sAMAccountName_l,
 755                 .realm  = &netbios_domain_l,
 756                 },
 757                 {
 758                 .user   = &sAMAccountName_u,
 759                 .realm  = &netbios_domain_u,
 760                 },
 761                 {
 762                 .user   = &sAMAccountName,
 763                 .realm  = &netbios_domain_u,
 764                 },
 765                 {
 766                 .user   = &sAMAccountName,
 767                 .realm  = &netbios_domain_l,
 768                 },
 769                 {
 770                 .user   = &sAMAccountName_u,
 771                 .realm  = &netbios_domain_l,
 772                 },
 773                 {
 774                 .user   = &sAMAccountName_l,
 775                 .realm  = &netbios_domain_u,
 776                 },
 777         /*
 778          * sAMAccountName, dns_domain
 779          */
 780                 {
 781                 .user   = &sAMAccountName,
 782                 .realm  = &dns_domain,
 783                 },
 784                 {
 785                 .user   = &sAMAccountName_l,
 786                 .realm  = &dns_domain_l,
 787                 },
 788                 {
 789                 .user   = &sAMAccountName_u,
 790                 .realm  = &dns_domain_u,
 791                 },
 792                 {
 793                 .user   = &sAMAccountName,
 794                 .realm  = &dns_domain_u,
 795                 },
 796                 {
 797                 .user   = &sAMAccountName,
 798                 .realm  = &dns_domain_l,
 799                 },
 800                 {
 801                 .user   = &sAMAccountName_u,
 802                 .realm  = &dns_domain_l,
 803                 },
 804                 {
 805                 .user   = &sAMAccountName_l,
 806                 .realm  = &dns_domain_u,
 807                 },
 808         /*
 809          * userPrincipalName, no realm
 810          */
 811                 {
 812                 .user   = &userPrincipalName,
 813                 },
 814                 {
 815                 /*
 816                  * NOTE: w2k3 messes this up, if the user has a real userPrincipalName,
 817                  *       the fallback to the sAMAccountName based userPrincipalName is correct
 818                  */
 819                 .user   = &userPrincipalName_l,
 820                 },
 821                 {
 822                 .user   = &userPrincipalName_u,
 823                 },
 824         /*
 825          * nt4dom\sAMAccountName, no realm
 826          */
 827                 {
 828                 .user   = &sAMAccountName,
 829                 .nt4dom = &netbios_domain
 830                 },
 831                 {
 832                 .user   = &sAMAccountName_l,
 833                 .nt4dom = &netbios_domain_l
 834                 },
 835                 {
 836                 .user   = &sAMAccountName_u,
 837                 .nt4dom = &netbios_domain_u
 838                 },
 839
 840         /*
 841          * the following ones are guessed depending on the technet2 article
 842          * but not reproducable on a w2k3 server
 843          */
 844         /* sAMAccountName with "Digest" realm */
 845                 {
 846                 .user   = &sAMAccountName,
 847                 .realm  = &digest
 848                 },
 849                 {
 850                 .user   = &sAMAccountName_l,
 851                 .realm  = &digest
 852                 },
 853                 {
 854                 .user   = &sAMAccountName_u,
 855                 .realm  = &digest
 856                 },
 857         /* userPrincipalName with "Digest" realm */
 858                 {
 859                 .user   = &userPrincipalName,
 860                 .realm  = &digest
 861                 },
 862                 {
 863                 .user   = &userPrincipalName_l,
 864                 .realm  = &digest
 865                 },
 866                 {
 867                 .user   = &userPrincipalName_u,
 868                 .realm  = &digest
 869                 },
 870         /* nt4dom\\sAMAccountName with "Digest" realm */
 871                 {
 872                 .user   = &sAMAccountName,
 873                 .nt4dom = &netbios_domain,
 874                 .realm  = &digest
 875                 },
 876                 {
 877                 .user   = &sAMAccountName_l,
 878                 .nt4dom = &netbios_domain_l,
 879                 .realm  = &digest
 880                 },
 881                 {
 882                 .user   = &sAMAccountName_u,
 883                 .nt4dom = &netbios_domain_u,
 884                 .realm  = &digest
 885                 },
 886         };
 887
 888         /* prepare DATA_BLOB's used in the combinations array */
 889         sAMAccountName          = data_blob_string_const(io->u.sAMAccountName);
 890         sAMAccountName_l        = data_blob_string_const(strlower_talloc(io->ac, io->u.sAMAccountName));
 891         if (!sAMAccountName_l.data) {
 892                 ldb_oom(io->ac->module->ldb);
 893                 return LDB_ERR_OPERATIONS_ERROR;
 894         }
 895         sAMAccountName_u        = data_blob_string_const(strupper_talloc(io->ac, io->u.sAMAccountName));
 896         if (!sAMAccountName_u.data) {
 897                 ldb_oom(io->ac->module->ldb);
 898                 return LDB_ERR_OPERATIONS_ERROR;
 899         }
 900
 901         /* if the user doesn't have a userPrincipalName, create one (with lower case realm) */
 902         if (!user_principal_name) {
 903                 user_principal_name = talloc_asprintf(io->ac, "%s@%s",
 904                                                       io->u.sAMAccountName,
 905                                                       io->domain->dns_domain);
 906                 if (!user_principal_name) {
 907                         ldb_oom(io->ac->module->ldb);
 908                         return LDB_ERR_OPERATIONS_ERROR;
 909                 }
 910         }
 911         userPrincipalName       = data_blob_string_const(user_principal_name);
 912         userPrincipalName_l     = data_blob_string_const(strlower_talloc(io->ac, user_principal_name));
 913         if (!userPrincipalName_l.data) {
 914                 ldb_oom(io->ac->module->ldb);
 915                 return LDB_ERR_OPERATIONS_ERROR;
 916         }
 917         userPrincipalName_u     = data_blob_string_const(strupper_talloc(io->ac, user_principal_name));
 918         if (!userPrincipalName_u.data) {
 919                 ldb_oom(io->ac->module->ldb);
 920                 return LDB_ERR_OPERATIONS_ERROR;
 921         }
 922
 923         netbios_domain          = data_blob_string_const(io->domain->netbios_domain);
 924         netbios_domain_l        = data_blob_string_const(strlower_talloc(io->ac, io->domain->netbios_domain));
 925         if (!netbios_domain_l.data) {
 926                 ldb_oom(io->ac->module->ldb);
 927                 return LDB_ERR_OPERATIONS_ERROR;
 928         }
 929         netbios_domain_u        = data_blob_string_const(strupper_talloc(io->ac, io->domain->netbios_domain));
 930         if (!netbios_domain_u.data) {
 931                 ldb_oom(io->ac->module->ldb);
 932                 return LDB_ERR_OPERATIONS_ERROR;
 933         }
 934
 935         dns_domain              = data_blob_string_const(io->domain->dns_domain);
 936         dns_domain_l            = data_blob_string_const(io->domain->dns_domain);
 937         dns_domain_u            = data_blob_string_const(io->domain->realm);
 938
 939         cleartext               = data_blob_string_const(io->n.cleartext);
 940
 941         digest                  = data_blob_string_const("Digest");
 942
 943         delim                   = data_blob_string_const(":");
 944         backslash               = data_blob_string_const("\\");
 945
 946         pdb->num_hashes = ARRAY_SIZE(wdigest);
 947         pdb->hashes     = talloc_array(io->ac, struct package_PrimaryWDigestHash, pdb->num_hashes);
 948         if (!pdb->hashes) {
 949                 ldb_oom(io->ac->module->ldb);
 950                 return LDB_ERR_OPERATIONS_ERROR;
 951         }
 952
 953         for (i=0; i < ARRAY_SIZE(wdigest); i++) {
 954                 struct MD5Context md5;
 955                 MD5Init(&md5);
 956                 if (wdigest[i].nt4dom) {
 957                         MD5Update(&md5, wdigest[i].nt4dom->data, wdigest[i].nt4dom->length);
 958                         MD5Update(&md5, backslash.data, backslash.length);
 959                 }
 960                 MD5Update(&md5, wdigest[i].user->data, wdigest[i].user->length);
 961                 MD5Update(&md5, delim.data, delim.length);
 962                 if (wdigest[i].realm) {
 963                         MD5Update(&md5, wdigest[i].realm->data, wdigest[i].realm->length);
 964                 }
 965                 MD5Update(&md5, delim.data, delim.length);
 966                 MD5Update(&md5, cleartext.data, cleartext.length);
 967                 MD5Final(pdb->hashes[i].hash, &md5);
 968         }
 969
 970         return LDB_SUCCESS;
 971 }
 972
 973 static int setup_supplemental_field(struct setup_password_fields_io *io)
 974 {
 975         struct supplementalCredentialsBlob scb;
 976         struct supplementalCredentialsBlob _old_scb;
 977         struct supplementalCredentialsBlob *old_scb = NULL;
 978         /* Packages + (Kerberos-Newer-Keys, Kerberos, WDigest and CLEARTEXT) */
 979         uint32_t num_names = 0;
 980         const char *names[1+4];
 981         uint32_t num_packages = 0;
 982         struct supplementalCredentialsPackage packages[1+4];
 983         /* Packages */
 984         struct supplementalCredentialsPackage *pp = NULL;
 985         struct package_PackagesBlob pb;
 986         DATA_BLOB pb_blob;
 987         char *pb_hexstr;
 988         /* Primary:Kerberos-Newer-Keys */
 989         const char **nkn = NULL;
 990         struct supplementalCredentialsPackage *pkn = NULL;
 991         struct package_PrimaryKerberosBlob pknb;
 992         DATA_BLOB pknb_blob;
 993         char *pknb_hexstr;
 994         /* Primary:Kerberos */
 995         const char **nk = NULL;
 996         struct supplementalCredentialsPackage *pk = NULL;
 997         struct package_PrimaryKerberosBlob pkb;
 998         DATA_BLOB pkb_blob;
 999         char *pkb_hexstr;
1000         /* Primary:WDigest */
1001         const char **nd = NULL;
1002         struct supplementalCredentialsPackage *pd = NULL;
1003         struct package_PrimaryWDigestBlob pdb;
1004         DATA_BLOB pdb_blob;
1005         char *pdb_hexstr;
1006         /* Primary:CLEARTEXT */
1007         const char **nc = NULL;
1008         struct supplementalCredentialsPackage *pc = NULL;
1009         struct package_PrimaryCLEARTEXTBlob pcb;
1010         DATA_BLOB pcb_blob;
1011         char *pcb_hexstr;
1012         int ret;
1013         enum ndr_err_code ndr_err;
1014         uint8_t zero16[16];
1015         bool do_newer_keys = false;
1016         bool do_cleartext = false;
1017
1018         ZERO_STRUCT(zero16);
1019         ZERO_STRUCT(names);
1020
1021         if (!io->n.cleartext) {
1022                 /*
1023                  * when we don't have a cleartext password
1024                  * we can't setup a supplementalCredential value
1025                  */
1026                 return LDB_SUCCESS;
1027         }
1028
1029         /* if there's an old supplementaCredentials blob then parse it */
1030         if (io->o.supplemental) {
1031                 ndr_err = ndr_pull_struct_blob_all(io->o.supplemental, io->ac,
1032                                                    lp_iconv_convenience(ldb_get_opaque(io->ac->module->ldb, "loadparm")),
1033                                                    &_old_scb,
1034                                                    (ndr_pull_flags_fn_t)ndr_pull_supplementalCredentialsBlob);
1035                 if (!NDR_ERR_CODE_IS_SUCCESS(ndr_err)) {
1036                         NTSTATUS status = ndr_map_error2ntstatus(ndr_err);
1037                         ldb_asprintf_errstring(io->ac->module->ldb,
1038                                                "setup_supplemental_field: "
1039                                                "failed to pull old supplementalCredentialsBlob: %s",
1040                                                nt_errstr(status));
1041                         return LDB_ERR_OPERATIONS_ERROR;
1042                 }
1043
1044                 if (_old_scb.sub.signature == SUPPLEMENTAL_CREDENTIALS_SIGNATURE) {
1045                         old_scb = &_old_scb;
1046                 } else {
1047                         ldb_debug(io->ac->module->ldb, LDB_DEBUG_ERROR,
1048                                                "setup_supplemental_field: "
1049                                                "supplementalCredentialsBlob signature[0x%04X] expected[0x%04X]",
1050                                                _old_scb.sub.signature, SUPPLEMENTAL_CREDENTIALS_SIGNATURE);
1051                 }
1052         }
1053
1054         /* TODO: do the correct check for this, it maybe depends on the functional level? */
1055         do_newer_keys = lp_parm_bool(ldb_get_opaque(io->ac->module->ldb, "loadparm"),
1056                                      NULL, "password_hash", "create_aes_key", false);
1057
1058         if (io->domain->store_cleartext &&
1059             (io->u.user_account_control & UF_ENCRYPTED_TEXT_PASSWORD_ALLOWED)) {
1060                 do_cleartext = true;
1061         }
1062
1063         /*
1064          * The ordering is this
1065          *
1066          * Primary:Kerberos-Newer-Keys (optional)
1067          * Primary:Kerberos
1068          * Primary:WDigest
1069          * Primary:CLEARTEXT (optional)
1070          *
1071          * And the 'Packages' package is insert before the last
1072          * other package.
1073          */
1074         if (do_newer_keys) {
1075                 /* Primary:Kerberos-Newer-Keys */
1076                 nkn = &names[num_names++];
1077                 pkn = &packages[num_packages++];
1078         }
1079
1080         /* Primary:Kerberos */
1081         nk = &names[num_names++];
1082         pk = &packages[num_packages++];
1083
1084         if (!do_cleartext) {
1085                 /* Packages */
1086                 pp = &packages[num_packages++];
1087         }
1088
1089         /* Primary:WDigest */
1090         nd = &names[num_names++];
1091         pd = &packages[num_packages++];
1092
1093         if (do_cleartext) {
1094                 /* Packages */
1095                 pp = &packages[num_packages++];
1096
1097                 /* Primary:CLEARTEXT */
1098                 nc = &names[num_names++];
1099                 pc = &packages[num_packages++];
1100         }
1101
1102         if (pkn) {
1103                 /*
1104                  * setup 'Primary:Kerberos-Newer-Keys' element
1105                  */
1106                 *nkn = "Kerberos-Newer-Keys";
1107
1108                 ret = setup_primary_kerberos_newer(io, old_scb, &pknb);
1109                 if (ret != LDB_SUCCESS) {
1110                         return ret;
1111                 }
1112
1113                 ndr_err = ndr_push_struct_blob(&pknb_blob, io->ac,
1114                                                lp_iconv_convenience(ldb_get_opaque(io->ac->module->ldb, "loadparm")),
1115                                                &pknb,
1116                                                (ndr_push_flags_fn_t)ndr_push_package_PrimaryKerberosBlob);
1117                 if (!NDR_ERR_CODE_IS_SUCCESS(ndr_err)) {
1118                         NTSTATUS status = ndr_map_error2ntstatus(ndr_err);
1119                         ldb_asprintf_errstring(io->ac->module->ldb,
1120                                                "setup_supplemental_field: "
1121                                                "failed to push package_PrimaryKerberosNeverBlob: %s",
1122                                                nt_errstr(status));
1123                         return LDB_ERR_OPERATIONS_ERROR;
1124                 }
1125                 pknb_hexstr = data_blob_hex_string(io->ac, &pknb_blob);
1126                 if (!pknb_hexstr) {
1127                         ldb_oom(io->ac->module->ldb);
1128                         return LDB_ERR_OPERATIONS_ERROR;
1129                 }
1130                 pkn->name       = "Primary:Kerberos-Newer-Keys";
1131                 pkn->reserved   = 1;
1132                 pkn->data       = pknb_hexstr;
1133         }
1134
1135         /*
1136          * setup 'Primary:Kerberos' element
1137          */
1138         *nk = "Kerberos";
1139
1140         ret = setup_primary_kerberos(io, old_scb, &pkb);
1141         if (ret != LDB_SUCCESS) {
1142                 return ret;
1143         }
1144
1145         ndr_err = ndr_push_struct_blob(&pkb_blob, io->ac,
1146                                        lp_iconv_convenience(ldb_get_opaque(io->ac->module->ldb, "loadparm")),
1147                                        &pkb,
1148                                        (ndr_push_flags_fn_t)ndr_push_package_PrimaryKerberosBlob);
1149         if (!NDR_ERR_CODE_IS_SUCCESS(ndr_err)) {
1150                 NTSTATUS status = ndr_map_error2ntstatus(ndr_err);
1151                 ldb_asprintf_errstring(io->ac->module->ldb,
1152                                        "setup_supplemental_field: "
1153                                        "failed to push package_PrimaryKerberosBlob: %s",
1154                                        nt_errstr(status));
1155                 return LDB_ERR_OPERATIONS_ERROR;
1156         }
1157         pkb_hexstr = data_blob_hex_string(io->ac, &pkb_blob);
1158         if (!pkb_hexstr) {
1159                 ldb_oom(io->ac->module->ldb);
1160                 return LDB_ERR_OPERATIONS_ERROR;
1161         }
1162         pk->name        = "Primary:Kerberos";
1163         pk->reserved    = 1;
1164         pk->data        = pkb_hexstr;
1165
1166         /*
1167          * setup 'Primary:WDigest' element
1168          */
1169         *nd = "WDigest";
1170
1171         ret = setup_primary_wdigest(io, old_scb, &pdb);
1172         if (ret != LDB_SUCCESS) {
1173                 return ret;
1174         }
1175
1176         ndr_err = ndr_push_struct_blob(&pdb_blob, io->ac,
1177                                        lp_iconv_convenience(ldb_get_opaque(io->ac->module->ldb, "loadparm")),
1178                                        &pdb,
1179                                        (ndr_push_flags_fn_t)ndr_push_package_PrimaryWDigestBlob);
1180         if (!NDR_ERR_CODE_IS_SUCCESS(ndr_err)) {
1181                 NTSTATUS status = ndr_map_error2ntstatus(ndr_err);
1182                 ldb_asprintf_errstring(io->ac->module->ldb,
1183                                        "setup_supplemental_field: "
1184                                        "failed to push package_PrimaryWDigestBlob: %s",
1185                                        nt_errstr(status));
1186                 return LDB_ERR_OPERATIONS_ERROR;
1187         }
1188         pdb_hexstr = data_blob_hex_string(io->ac, &pdb_blob);
1189         if (!pdb_hexstr) {
1190                 ldb_oom(io->ac->module->ldb);
1191                 return LDB_ERR_OPERATIONS_ERROR;
1192         }
1193         pd->name        = "Primary:WDigest";
1194         pd->reserved    = 1;
1195         pd->data        = pdb_hexstr;
1196
1197         /*
1198          * setup 'Primary:CLEARTEXT' element
1199          */
1200         if (pc) {
1201                 *nc             = "CLEARTEXT";
1202
1203                 pcb.cleartext   = io->n.cleartext;
1204
1205                 ndr_err = ndr_push_struct_blob(&pcb_blob, io->ac,
1206                                                lp_iconv_convenience(ldb_get_opaque(io->ac->module->ldb, "loadparm")),
1207                                                &pcb,
1208                                                (ndr_push_flags_fn_t)ndr_push_package_PrimaryCLEARTEXTBlob);
1209                 if (!NDR_ERR_CODE_IS_SUCCESS(ndr_err)) {
1210                         NTSTATUS status = ndr_map_error2ntstatus(ndr_err);
1211                         ldb_asprintf_errstring(io->ac->module->ldb,
1212                                                "setup_supplemental_field: "
1213                                                "failed to push package_PrimaryCLEARTEXTBlob: %s",
1214                                                nt_errstr(status));
1215                         return LDB_ERR_OPERATIONS_ERROR;
1216                 }
1217                 pcb_hexstr = data_blob_hex_string(io->ac, &pcb_blob);
1218                 if (!pcb_hexstr) {
1219                         ldb_oom(io->ac->module->ldb);
1220                         return LDB_ERR_OPERATIONS_ERROR;
1221                 }
1222                 pc->name        = "Primary:CLEARTEXT";
1223                 pc->reserved    = 1;
1224                 pc->data        = pcb_hexstr;
1225         }
1226
1227         /*
1228          * setup 'Packages' element
1229          */
1230         pb.names = names;
1231         ndr_err = ndr_push_struct_blob(&pb_blob, io->ac,
1232                                        lp_iconv_convenience(ldb_get_opaque(io->ac->module->ldb, "loadparm")),
1233                                        &pb,
1234                                        (ndr_push_flags_fn_t)ndr_push_package_PackagesBlob);
1235         if (!NDR_ERR_CODE_IS_SUCCESS(ndr_err)) {
1236                 NTSTATUS status = ndr_map_error2ntstatus(ndr_err);
1237                 ldb_asprintf_errstring(io->ac->module->ldb,
1238                                        "setup_supplemental_field: "
1239                                        "failed to push package_PackagesBlob: %s",
1240                                        nt_errstr(status));
1241                 return LDB_ERR_OPERATIONS_ERROR;
1242         }
1243         pb_hexstr = data_blob_hex_string(io->ac, &pb_blob);
1244         if (!pb_hexstr) {
1245                 ldb_oom(io->ac->module->ldb);
1246                 return LDB_ERR_OPERATIONS_ERROR;
1247         }
1248         pp->name        = "Packages";
1249         pp->reserved    = 2;
1250         pp->data        = pb_hexstr;
1251
1252         /*
1253          * setup 'supplementalCredentials' value
1254          */
1255         ZERO_STRUCT(scb);
1256         scb.sub.num_packages    = num_packages;
1257         scb.sub.packages        = packages;
1258
1259         ndr_err = ndr_push_struct_blob(&io->g.supplemental, io->ac,
1260                                        lp_iconv_convenience(ldb_get_opaque(io->ac->module->ldb, "loadparm")),
1261                                        &scb,
1262                                        (ndr_push_flags_fn_t)ndr_push_supplementalCredentialsBlob);
1263         if (!NDR_ERR_CODE_IS_SUCCESS(ndr_err)) {
1264                 NTSTATUS status = ndr_map_error2ntstatus(ndr_err);
1265                 ldb_asprintf_errstring(io->ac->module->ldb,
1266                                        "setup_supplemental_field: "
1267                                        "failed to push supplementalCredentialsBlob: %s",
1268                                        nt_errstr(status));
1269                 return LDB_ERR_OPERATIONS_ERROR;
1270         }
1271
1272         return LDB_SUCCESS;
1273 }
1274
1275 static int setup_last_set_field(struct setup_password_fields_io *io)
1276 {
1277         /* set it as now */
1278         unix_to_nt_time(&io->g.last_set, time(NULL));
1279
1280         return LDB_SUCCESS;
1281 }
1282
1283 static int setup_kvno_field(struct setup_password_fields_io *io)
1284 {
1285         /* increment by one */
1286         io->g.kvno = io->o.kvno + 1;
1287
1288         return LDB_SUCCESS;
1289 }
1290
1291 static int setup_password_fields(struct setup_password_fields_io *io)
1292 {
1293         bool ok;
1294         int ret;
1295
1296         /*
1297          * refuse the change if someone want to change the cleartext
1298          * and supply his own hashes at the same time...
1299          */
1300         if (io->n.cleartext && (io->n.nt_hash || io->n.lm_hash)) {
1301                 ldb_asprintf_errstring(io->ac->module->ldb,
1302                                        "setup_password_fields: "
1303                                        "it's only allowed to set the cleartext password or the password hashes");
1304                 return LDB_ERR_UNWILLING_TO_PERFORM;
1305         }
1306
1307         if (io->n.cleartext) {
1308                 struct samr_Password *hash;
1309
1310                 hash = talloc(io->ac, struct samr_Password);
1311                 if (!hash) {
1312                         ldb_oom(io->ac->module->ldb);
1313                         return LDB_ERR_OPERATIONS_ERROR;
1314                 }
1315
1316                 /* compute the new nt hash */
1317                 ok = E_md4hash(io->n.cleartext, hash->hash);
1318                 if (ok) {
1319                         io->n.nt_hash = hash;
1320                 } else {
1321                         ldb_asprintf_errstring(io->ac->module->ldb,
1322                                                "setup_password_fields: "
1323                                                "failed to generate nthash from cleartext password");
1324                         return LDB_ERR_OPERATIONS_ERROR;
1325                 }
1326         }
1327
1328         if (io->n.cleartext) {
1329                 struct samr_Password *hash;
1330
1331                 hash = talloc(io->ac, struct samr_Password);
1332                 if (!hash) {
1333                         ldb_oom(io->ac->module->ldb);
1334                         return LDB_ERR_OPERATIONS_ERROR;
1335                 }
1336
1337                 /* compute the new lm hash */
1338                 ok = E_deshash(io->n.cleartext, hash->hash);
1339                 if (ok) {
1340                         io->n.lm_hash = hash;
1341                 } else {
1342                         talloc_free(hash->hash);
1343                 }
1344         }
1345
1346         if (io->n.cleartext) {
1347                 ret = setup_kerberos_keys(io);
1348                 if (ret != 0) {
1349                         return ret;
1350                 }
1351         }
1352
1353         ret = setup_nt_fields(io);
1354         if (ret != 0) {
1355                 return ret;
1356         }
1357
1358         ret = setup_lm_fields(io);
1359         if (ret != 0) {
1360                 return ret;
1361         }
1362
1363         ret = setup_supplemental_field(io);
1364         if (ret != 0) {
1365                 return ret;
1366         }
1367
1368         ret = setup_last_set_field(io);
1369         if (ret != 0) {
1370                 return ret;
1371         }
1372
1373         ret = setup_kvno_field(io);
1374         if (ret != 0) {
1375                 return ret;
1376         }
1377
1378         return LDB_SUCCESS;
1379 }
1380
1381 static struct ldb_handle *ph_init_handle(struct ldb_request *req, struct ldb_module *module, enum ph_type type)
1382 {
1383         struct ph_context *ac;
1384         struct ldb_handle *h;
1385
1386         h = talloc_zero(req, struct ldb_handle);
1387         if (h == NULL) {
1388                 ldb_set_errstring(module->ldb, "Out of Memory");
1389                 return NULL;
1390         }
1391
1392         h->module = module;
1393
1394         ac = talloc_zero(h, struct ph_context);
1395         if (ac == NULL) {
1396                 ldb_set_errstring(module->ldb, "Out of Memory");
1397                 talloc_free(h);
1398                 return NULL;
1399         }
1400
1401         h->private_data = (void *)ac;
1402
1403         h->state = LDB_ASYNC_INIT;
1404         h->status = LDB_SUCCESS;
1405
1406         ac->type = type;
1407         ac->module = module;
1408         ac->orig_req = req;
1409
1410         return h;
1411 }
1412
1413 static int get_domain_data_callback(struct ldb_context *ldb, void *context, struct ldb_reply *ares)
1414 {
1415         struct ph_context *ac;
1416
1417         ac = talloc_get_type(context, struct ph_context);
1418
1419         /* we are interested only in the single reply (base search) we receive here */
1420         if (ares->type == LDB_REPLY_ENTRY) {
1421                 if (ac->dom_res != NULL) {
1422                         ldb_set_errstring(ldb, "Too many results");
1423                         talloc_free(ares);
1424                         return LDB_ERR_OPERATIONS_ERROR;
1425                 }
1426                 ac->dom_res = talloc_steal(ac, ares);
1427         } else {
1428                 talloc_free(ares);
1429         }
1430
1431         return LDB_SUCCESS;
1432 }
1433
1434 static int build_domain_data_request(struct ph_context *ac)
1435 {
1436         /* attrs[] is returned from this function in
1437            ac->dom_req->op.search.attrs, so it must be static, as
1438            otherwise the compiler can put it on the stack */
1439         static const char * const attrs[] = { "pwdProperties", "pwdHistoryLength", NULL };
1440         char *filter;
1441
1442         ac->dom_req = talloc_zero(ac, struct ldb_request);
1443         if (ac->dom_req == NULL) {
1444                 ldb_debug(ac->module->ldb, LDB_DEBUG_ERROR, "Out of Memory!\n");
1445                 return LDB_ERR_OPERATIONS_ERROR;
1446         }
1447         ac->dom_req->operation = LDB_SEARCH;
1448         ac->dom_req->op.search.base = ldb_get_default_basedn(ac->module->ldb);
1449         ac->dom_req->op.search.scope = LDB_SCOPE_SUBTREE;
1450
1451         filter = talloc_asprintf(ac->dom_req,
1452                                  "(&(objectSid=%s)(|(|(objectClass=domain)(objectClass=builtinDomain))(objectClass=samba4LocalDomain)))",
1453                                  ldap_encode_ndr_dom_sid(ac->dom_req, ac->domain_sid));
1454         if (filter == NULL) {
1455                 ldb_debug(ac->module->ldb, LDB_DEBUG_ERROR, "Out of Memory!\n");
1456                 talloc_free(ac->dom_req);
1457                 return LDB_ERR_OPERATIONS_ERROR;
1458         }
1459
1460         ac->dom_req->op.search.tree = ldb_parse_tree(ac->dom_req, filter);
1461         if (ac->dom_req->op.search.tree == NULL) {
1462                 ldb_set_errstring(ac->module->ldb, "Invalid search filter");
1463                 talloc_free(ac->dom_req);
1464                 return LDB_ERR_OPERATIONS_ERROR;
1465         }
1466         ac->dom_req->op.search.attrs = attrs;
1467         ac->dom_req->controls = NULL;
1468         ac->dom_req->context = ac;
1469         ac->dom_req->callback = get_domain_data_callback;
1470         ldb_set_timeout_from_prev_req(ac->module->ldb, ac->orig_req, ac->dom_req);
1471
1472         return LDB_SUCCESS;
1473 }
1474
1475 static struct domain_data *get_domain_data(struct ldb_module *module, void *ctx, struct ldb_reply *res)
1476 {
1477         struct domain_data *data;
1478         const char *tmp;
1479         struct ph_context *ac;
1480         char *p;
1481
1482         ac = talloc_get_type(ctx, struct ph_context);
1483
1484         data = talloc_zero(ac, struct domain_data);
1485         if (data == NULL) {
1486                 return NULL;
1487         }
1488
1489         if (res == NULL) {
1490                 ldb_debug(module->ldb, LDB_DEBUG_ERROR, "Could not find this user's domain: %s!\n", dom_sid_string(data, ac->domain_sid));
1491                 talloc_free(data);
1492                 return NULL;
1493         }
1494
1495         data->pwdProperties= samdb_result_uint(res->message, "pwdProperties", 0);
1496         data->store_cleartext = data->pwdProperties & DOMAIN_PASSWORD_STORE_CLEARTEXT;
1497         data->pwdHistoryLength = samdb_result_uint(res->message, "pwdHistoryLength", 0);
1498
1499         /* For a domain DN, this puts things in dotted notation */
1500         /* For builtin domains, this will give details for the host,
1501          * but that doesn't really matter, as it's just used for salt
1502          * and kerberos principals, which don't exist here */
1503
1504         tmp = ldb_dn_canonical_string(ctx, res->message->dn);
1505         if (!tmp) {
1506                 return NULL;
1507         }
1508
1509         /* But it puts a trailing (or just before 'builtin') / on things, so kill that */
1510         p = strchr(tmp, '/');
1511         if (p) {
1512                 p[0] = '\0';
1513         }
1514
1515         if (tmp != NULL) {
1516                 data->dns_domain = strlower_talloc(data, tmp);
1517                 if (data->dns_domain == NULL) {
1518                         ldb_debug(module->ldb, LDB_DEBUG_ERROR, "Out of memory!\n");
1519                         return NULL;
1520                 }
1521                 data->realm = strupper_talloc(data, tmp);
1522                 if (data->realm == NULL) {
1523                         ldb_debug(module->ldb, LDB_DEBUG_ERROR, "Out of memory!\n");
1524                         return NULL;
1525                 }
1526                 p = strchr(tmp, '.');
1527                 if (p) {
1528                         p[0] = '\0';
1529                 }
1530                 data->netbios_domain = strupper_talloc(data, tmp);
1531                 if (data->netbios_domain == NULL) {
1532                         ldb_debug(module->ldb, LDB_DEBUG_ERROR, "Out of memory!\n");
1533                         return NULL;
1534                 }
1535         }
1536
1537         return data;
1538 }
1539
1540 static int password_hash_add(struct ldb_module *module, struct ldb_request *req)
1541 {
1542         struct ldb_handle *h;
1543         struct ph_context *ac;
1544         struct ldb_message_element *sambaAttr;
1545         struct ldb_message_element *ntAttr;
1546         struct ldb_message_element *lmAttr;
1547         int ret;
1548
1549         ldb_debug(module->ldb, LDB_DEBUG_TRACE, "password_hash_add\n");
1550
1551         if (ldb_dn_is_special(req->op.add.message->dn)) { /* do not manipulate our control entries */
1552                 return ldb_next_request(module, req);
1553         }
1554
1555         /* If the caller is manipulating the local passwords directly, let them pass */
1556         if (ldb_dn_compare_base(ldb_dn_new(req, module->ldb, LOCAL_BASE),
1557                                 req->op.add.message->dn) == 0) {
1558                 return ldb_next_request(module, req);
1559         }
1560
1561         /* nobody must touch this fields */
1562         if (ldb_msg_find_element(req->op.add.message, "ntPwdHistory")) {
1563                 return LDB_ERR_UNWILLING_TO_PERFORM;
1564         }
1565         if (ldb_msg_find_element(req->op.add.message, "lmPwdHistory")) {
1566                 return LDB_ERR_UNWILLING_TO_PERFORM;
1567         }
1568         if (ldb_msg_find_element(req->op.add.message, "supplementalCredentials")) {
1569                 return LDB_ERR_UNWILLING_TO_PERFORM;
1570         }
1571
1572         /* If no part of this ADD touches the userPassword, or the NT
1573          * or LM hashes, then we don't need to make any changes.  */
1574
1575         sambaAttr = ldb_msg_find_element(req->op.mod.message, "userPassword");
1576         ntAttr = ldb_msg_find_element(req->op.mod.message, "unicodePwd");
1577         lmAttr = ldb_msg_find_element(req->op.mod.message, "dBCSPwd");
1578
1579         if ((!sambaAttr) && (!ntAttr) && (!lmAttr)) {
1580                 return ldb_next_request(module, req);
1581         }
1582
1583         /* if it is not an entry of type person its an error */
1584         /* TODO: remove this when userPassword will be in schema */
1585         if (!ldb_msg_check_string_attribute(req->op.add.message, "objectClass", "person")) {
1586                 ldb_set_errstring(module->ldb, "Cannot set a password on entry that does not have objectClass 'person'");
1587                 return LDB_ERR_OBJECT_CLASS_VIOLATION;
1588         }
1589
1590         /* check userPassword is single valued here */
1591         /* TODO: remove this when userPassword will be single valued in schema */
1592         if (sambaAttr && sambaAttr->num_values > 1) {
1593                 ldb_set_errstring(module->ldb, "mupltiple values for userPassword not allowed!\n");
1594                 return LDB_ERR_CONSTRAINT_VIOLATION;
1595         }
1596
1597         if (ntAttr && (ntAttr->num_values > 1)) {
1598                 ldb_set_errstring(module->ldb, "mupltiple values for unicodePwd not allowed!\n");
1599                 return LDB_ERR_CONSTRAINT_VIOLATION;
1600         }
1601         if (lmAttr && (lmAttr->num_values > 1)) {
1602                 ldb_set_errstring(module->ldb, "mupltiple values for dBCSPwd not allowed!\n");
1603                 return LDB_ERR_CONSTRAINT_VIOLATION;
1604         }
1605
1606         if (sambaAttr && sambaAttr->num_values == 0) {
1607                 ldb_set_errstring(module->ldb, "userPassword must have a value!\n");
1608                 return LDB_ERR_CONSTRAINT_VIOLATION;
1609         }
1610
1611         if (ntAttr && (ntAttr->num_values == 0)) {
1612                 ldb_set_errstring(module->ldb, "unicodePwd must have a value!\n");
1613                 return LDB_ERR_CONSTRAINT_VIOLATION;
1614         }
1615         if (lmAttr && (lmAttr->num_values == 0)) {
1616                 ldb_set_errstring(module->ldb, "dBCSPwd must have a value!\n");
1617                 return LDB_ERR_CONSTRAINT_VIOLATION;
1618         }
1619
1620         h = ph_init_handle(req, module, PH_ADD);
1621         if (!h) {
1622                 return LDB_ERR_OPERATIONS_ERROR;
1623         }
1624         ac = talloc_get_type(h->private_data, struct ph_context);
1625
1626         /* get user domain data */
1627         ac->domain_sid = samdb_result_sid_prefix(ac, req->op.add.message, "objectSid");
1628         if (ac->domain_sid == NULL) {
1629                 ldb_debug(module->ldb, LDB_DEBUG_ERROR, "can't handle entry with missing objectSid!\n");
1630                 return LDB_ERR_OPERATIONS_ERROR;
1631         }
1632
1633         ret = build_domain_data_request(ac);
1634         if (ret != LDB_SUCCESS) {
1635                 return ret;
1636         }
1637
1638         ac->step = PH_ADD_SEARCH_DOM;
1639
1640         req->handle = h;
1641
1642         return ldb_next_request(module, ac->dom_req);
1643 }
1644
1645 static int password_hash_add_do_add(struct ldb_handle *h) {
1646
1647         struct ph_context *ac;
1648         struct domain_data *domain;
1649         struct smb_krb5_context *smb_krb5_context;
1650         struct ldb_message *msg;
1651         struct setup_password_fields_io io;
1652         int ret;
1653
1654         ac = talloc_get_type(h->private_data, struct ph_context);
1655
1656         domain = get_domain_data(ac->module, ac, ac->dom_res);
1657         if (domain == NULL) {
1658                 return LDB_ERR_OPERATIONS_ERROR;
1659         }
1660
1661         ac->down_req = talloc(ac, struct ldb_request);
1662         if (ac->down_req == NULL) {
1663                 return LDB_ERR_OPERATIONS_ERROR;
1664         }
1665
1666         *(ac->down_req) = *(ac->orig_req);
1667         ac->down_req->op.add.message = msg = ldb_msg_copy_shallow(ac->down_req, ac->orig_req->op.add.message);
1668         if (ac->down_req->op.add.message == NULL) {
1669                 return LDB_ERR_OPERATIONS_ERROR;
1670         }
1671
1672         /* Some operations below require kerberos contexts */
1673         if (smb_krb5_init_context(ac->down_req,
1674                                   ldb_get_opaque(h->module->ldb, "EventContext"),
1675                                   (struct loadparm_context *)ldb_get_opaque(h->module->ldb, "loadparm"),
1676                                   &smb_krb5_context) != 0) {
1677                 return LDB_ERR_OPERATIONS_ERROR;
1678         }
1679
1680         ZERO_STRUCT(io);
1681         io.ac                           = ac;
1682         io.domain                       = domain;
1683         io.smb_krb5_context             = smb_krb5_context;
1684
1685         io.u.user_account_control       = samdb_result_uint(msg, "userAccountControl", 0);
1686         io.u.sAMAccountName             = samdb_result_string(msg, "samAccountName", NULL);
1687         io.u.user_principal_name        = samdb_result_string(msg, "userPrincipalName", NULL);
1688         io.u.is_computer                = ldb_msg_check_string_attribute(msg, "objectClass", "computer");
1689
1690         io.n.cleartext                  = samdb_result_string(msg, "userPassword", NULL);
1691         io.n.nt_hash                    = samdb_result_hash(io.ac, msg, "unicodePwd");
1692         io.n.lm_hash                    = samdb_result_hash(io.ac, msg, "dBCSPwd");
1693
1694         /* remove attributes */
1695         if (io.n.cleartext) ldb_msg_remove_attr(msg, "userPassword");
1696         if (io.n.nt_hash) ldb_msg_remove_attr(msg, "unicodePwd");
1697         if (io.n.lm_hash) ldb_msg_remove_attr(msg, "dBCSPwd");
1698         ldb_msg_remove_attr(msg, "pwdLastSet");
1699         io.o.kvno = samdb_result_uint(msg, "msDs-KeyVersionNumber", 1) - 1;
1700         ldb_msg_remove_attr(msg, "msDs-KeyVersionNumber");
1701
1702         ret = setup_password_fields(&io);
1703         if (ret != LDB_SUCCESS) {
1704                 return ret;
1705         }
1706
1707         if (io.g.nt_hash) {
1708                 ret = samdb_msg_add_hash(ac->module->ldb, ac, msg,
1709                                          "unicodePwd", io.g.nt_hash);
1710                 if (ret != LDB_SUCCESS) {
1711                         return ret;
1712                 }
1713         }
1714         if (io.g.lm_hash) {
1715                 ret = samdb_msg_add_hash(ac->module->ldb, ac, msg,
1716                                          "dBCSPwd", io.g.lm_hash);
1717                 if (ret != LDB_SUCCESS) {
1718                         return ret;
1719                 }
1720         }
1721         if (io.g.nt_history_len > 0) {
1722                 ret = samdb_msg_add_hashes(ac, msg,
1723                                            "ntPwdHistory",
1724                                            io.g.nt_history,
1725                                            io.g.nt_history_len);
1726                 if (ret != LDB_SUCCESS) {
1727                         return ret;
1728                 }
1729         }
1730         if (io.g.lm_history_len > 0) {
1731                 ret = samdb_msg_add_hashes(ac, msg,
1732                                            "lmPwdHistory",
1733                                            io.g.lm_history,
1734                                            io.g.lm_history_len);
1735                 if (ret != LDB_SUCCESS) {
1736                         return ret;
1737                 }
1738         }
1739         if (io.g.supplemental.length > 0) {
1740                 ret = ldb_msg_add_value(msg, "supplementalCredentials",
1741                                         &io.g.supplemental, NULL);
1742                 if (ret != LDB_SUCCESS) {
1743                         return ret;
1744                 }
1745         }
1746         ret = samdb_msg_add_uint64(ac->module->ldb, ac, msg,
1747                                    "pwdLastSet",
1748                                    io.g.last_set);
1749         if (ret != LDB_SUCCESS) {
1750                 return ret;
1751         }
1752         ret = samdb_msg_add_uint(ac->module->ldb, ac, msg,
1753                                  "msDs-KeyVersionNumber",
1754                                  io.g.kvno);
1755         if (ret != LDB_SUCCESS) {
1756                 return ret;
1757         }
1758
1759         h->state = LDB_ASYNC_INIT;
1760         h->status = LDB_SUCCESS;
1761
1762         ac->step = PH_ADD_DO_ADD;
1763
1764         ldb_set_timeout_from_prev_req(ac->module->ldb, ac->orig_req, ac->down_req);
1765
1766         /* perform the operation */
1767         return ldb_next_request(ac->module, ac->down_req);
1768 }
1769
1770 static int password_hash_mod_search_self(struct ldb_handle *h);
1771
1772 static int password_hash_modify(struct ldb_module *module, struct ldb_request *req)
1773 {
1774         struct ldb_handle *h;
1775         struct ph_context *ac;
1776         struct ldb_message_element *sambaAttr;
1777         struct ldb_message_element *ntAttr;
1778         struct ldb_message_element *lmAttr;
1779         struct ldb_message *msg;
1780
1781         ldb_debug(module->ldb, LDB_DEBUG_TRACE, "password_hash_modify\n");
1782
1783         if (ldb_dn_is_special(req->op.mod.message->dn)) { /* do not manipulate our control entries */
1784                 return ldb_next_request(module, req);
1785         }
1786
1787         /* If the caller is manipulating the local passwords directly, let them pass */
1788         if (ldb_dn_compare_base(ldb_dn_new(req, module->ldb, LOCAL_BASE),
1789                                 req->op.mod.message->dn) == 0) {
1790                 return ldb_next_request(module, req);
1791         }
1792
1793         /* nobody must touch password Histories */
1794         if (ldb_msg_find_element(req->op.add.message, "ntPwdHistory")) {
1795                 return LDB_ERR_UNWILLING_TO_PERFORM;
1796         }
1797         if (ldb_msg_find_element(req->op.add.message, "lmPwdHistory")) {
1798                 return LDB_ERR_UNWILLING_TO_PERFORM;
1799         }
1800         if (ldb_msg_find_element(req->op.add.message, "supplementalCredentials")) {
1801                 return LDB_ERR_UNWILLING_TO_PERFORM;
1802         }
1803
1804         sambaAttr = ldb_msg_find_element(req->op.mod.message, "userPassword");
1805         ntAttr = ldb_msg_find_element(req->op.mod.message, "unicodePwd");
1806         lmAttr = ldb_msg_find_element(req->op.mod.message, "dBCSPwd");
1807
1808         /* If no part of this touches the userPassword OR unicodePwd and/or dBCSPwd, then we don't
1809          * need to make any changes.  For password changes/set there should
1810          * be a 'delete' or a 'modify' on this attribute. */
1811         if ((!sambaAttr) && (!ntAttr) && (!lmAttr)) {
1812                 return ldb_next_request(module, req);
1813         }
1814
1815         /* check passwords are single valued here */
1816         /* TODO: remove this when passwords will be single valued in schema */
1817         if (sambaAttr && (sambaAttr->num_values > 1)) {
1818                 return LDB_ERR_CONSTRAINT_VIOLATION;
1819         }
1820         if (ntAttr && (ntAttr->num_values > 1)) {
1821                 return LDB_ERR_CONSTRAINT_VIOLATION;
1822         }
1823         if (lmAttr && (lmAttr->num_values > 1)) {
1824                 return LDB_ERR_CONSTRAINT_VIOLATION;
1825         }
1826
1827         h = ph_init_handle(req, module, PH_MOD);
1828         if (!h) {
1829                 return LDB_ERR_OPERATIONS_ERROR;
1830         }
1831         ac = talloc_get_type(h->private_data, struct ph_context);
1832
1833         /* return or own handle to deal with this call */
1834         req->handle = h;
1835
1836         /* prepare the first operation */
1837         ac->down_req = talloc_zero(ac, struct ldb_request);
1838         if (ac->down_req == NULL) {
1839                 ldb_set_errstring(module->ldb, "Out of memory!");
1840                 return LDB_ERR_OPERATIONS_ERROR;
1841         }
1842
1843         *(ac->down_req) = *req; /* copy the request */
1844
1845         /* use a new message structure so that we can modify it */
1846         ac->down_req->op.mod.message = msg = ldb_msg_copy_shallow(ac->down_req, req->op.mod.message);
1847
1848         /* - remove any imodification to the password from the first commit
1849          *   we will make the real modification later */
1850         if (sambaAttr) ldb_msg_remove_attr(msg, "userPassword");
1851         if (ntAttr) ldb_msg_remove_attr(msg, "unicodePwd");
1852         if (lmAttr) ldb_msg_remove_attr(msg, "dBCSPwd");
1853
1854         /* if there was nothing else to be modify skip to next step */
1855         if (msg->num_elements == 0) {
1856                 talloc_free(ac->down_req);
1857                 ac->down_req = NULL;
1858                 return password_hash_mod_search_self(h);
1859         }
1860
1861         ac->down_req->context = NULL;
1862         ac->down_req->callback = NULL;
1863
1864         ac->step = PH_MOD_DO_REQ;
1865
1866         ldb_set_timeout_from_prev_req(module->ldb, req, ac->down_req);
1867
1868         return ldb_next_request(module, ac->down_req);
1869 }
1870
1871 static int get_self_callback(struct ldb_context *ldb, void *context, struct ldb_reply *ares)
1872 {
1873         struct ph_context *ac;
1874
1875         ac = talloc_get_type(context, struct ph_context);
1876
1877         /* we are interested only in the single reply (base search) we receive here */
1878         if (ares->type == LDB_REPLY_ENTRY) {
1879                 if (ac->search_res != NULL) {
1880                         ldb_set_errstring(ldb, "Too many results");
1881                         talloc_free(ares);
1882                         return LDB_ERR_OPERATIONS_ERROR;
1883                 }
1884
1885                 /* if it is not an entry of type person this is an error */
1886                 /* TODO: remove this when userPassword will be in schema */
1887                 if (!ldb_msg_check_string_attribute(ares->message, "objectClass", "person")) {
1888                         ldb_set_errstring(ldb, "Object class violation");
1889                         talloc_free(ares);
1890                         return LDB_ERR_OBJECT_CLASS_VIOLATION;
1891                 }
1892
1893                 ac->search_res = talloc_steal(ac, ares);
1894         } else {
1895                 talloc_free(ares);
1896         }
1897
1898         return LDB_SUCCESS;
1899 }
1900
1901 static int password_hash_mod_search_self(struct ldb_handle *h) {
1902
1903         struct ph_context *ac;
1904         static const char * const attrs[] = { "userAccountControl", "lmPwdHistory",
1905                                               "ntPwdHistory",
1906                                               "objectSid", "msDS-KeyVersionNumber",
1907                                               "objectClass", "userPrincipalName",
1908                                               "sAMAccountName",
1909                                               "dBCSPwd", "unicodePwd",
1910                                               "supplementalCredentials",
1911                                               NULL };
1912
1913         ac = talloc_get_type(h->private_data, struct ph_context);
1914
1915         /* prepare the search operation */
1916         ac->search_req = talloc_zero(ac, struct ldb_request);
1917         if (ac->search_req == NULL) {
1918                 ldb_debug(ac->module->ldb, LDB_DEBUG_ERROR, "Out of Memory!\n");
1919                 return LDB_ERR_OPERATIONS_ERROR;
1920         }
1921
1922         ac->search_req->operation = LDB_SEARCH;
1923         ac->search_req->op.search.base = ac->orig_req->op.mod.message->dn;
1924         ac->search_req->op.search.scope = LDB_SCOPE_BASE;
1925         ac->search_req->op.search.tree = ldb_parse_tree(ac->search_req, NULL);
1926         if (ac->search_req->op.search.tree == NULL) {
1927                 ldb_set_errstring(ac->module->ldb, "Invalid search filter");
1928                 return LDB_ERR_OPERATIONS_ERROR;
1929         }
1930         ac->search_req->op.search.attrs = attrs;
1931         ac->search_req->controls = NULL;
1932         ac->search_req->context = ac;
1933         ac->search_req->callback = get_self_callback;
1934         ldb_set_timeout_from_prev_req(ac->module->ldb, ac->orig_req, ac->search_req);
1935
1936         ac->step = PH_MOD_SEARCH_SELF;
1937
1938         return ldb_next_request(ac->module, ac->search_req);
1939 }
1940
1941 static int password_hash_mod_search_dom(struct ldb_handle *h) {
1942
1943         struct ph_context *ac;
1944         int ret;
1945
1946         ac = talloc_get_type(h->private_data, struct ph_context);
1947
1948         /* get object domain sid */
1949         ac->domain_sid = samdb_result_sid_prefix(ac, ac->search_res->message, "objectSid");
1950         if (ac->domain_sid == NULL) {
1951                 ldb_debug(ac->module->ldb, LDB_DEBUG_ERROR, "can't handle entry with missing objectSid!\n");
1952                 return LDB_ERR_OPERATIONS_ERROR;
1953         }
1954
1955         /* get user domain data */
1956         ret = build_domain_data_request(ac);
1957         if (ret != LDB_SUCCESS) {
1958                 return ret;
1959         }
1960
1961         ac->step = PH_MOD_SEARCH_DOM;
1962
1963         return ldb_next_request(ac->module, ac->dom_req);
1964 }
1965
1966 static int password_hash_mod_do_mod(struct ldb_handle *h) {
1967
1968         struct ph_context *ac;
1969         struct domain_data *domain;
1970         struct smb_krb5_context *smb_krb5_context;
1971         struct ldb_message *msg;
1972         struct ldb_message *orig_msg;
1973         struct ldb_message *searched_msg;
1974         struct setup_password_fields_io io;
1975         int ret;
1976
1977         ac = talloc_get_type(h->private_data, struct ph_context);
1978
1979         domain = get_domain_data(ac->module, ac, ac->dom_res);
1980         if (domain == NULL) {
1981                 return LDB_ERR_OPERATIONS_ERROR;
1982         }
1983
1984         ac->mod_req = talloc(ac, struct ldb_request);
1985         if (ac->mod_req == NULL) {
1986                 return LDB_ERR_OPERATIONS_ERROR;
1987         }
1988
1989         *(ac->mod_req) = *(ac->orig_req);
1990
1991         /* use a new message structure so that we can modify it */
1992         ac->mod_req->op.mod.message = msg = ldb_msg_new(ac->mod_req);
1993         if (msg == NULL) {
1994                 return LDB_ERR_OPERATIONS_ERROR;
1995         }
1996
1997         /* modify dn */
1998         msg->dn = ac->orig_req->op.mod.message->dn;
1999
2000         /* Some operations below require kerberos contexts */
2001         if (smb_krb5_init_context(ac->mod_req,
2002                                   ldb_get_opaque(h->module->ldb, "EventContext"),
2003                                   (struct loadparm_context *)ldb_get_opaque(h->module->ldb, "loadparm"),
2004                                   &smb_krb5_context) != 0) {
2005                 return LDB_ERR_OPERATIONS_ERROR;
2006         }
2007
2008         orig_msg        = discard_const(ac->orig_req->op.mod.message);
2009         searched_msg    = ac->search_res->message;
2010
2011         ZERO_STRUCT(io);
2012         io.ac                           = ac;
2013         io.domain                       = domain;
2014         io.smb_krb5_context             = smb_krb5_context;
2015
2016         io.u.user_account_control       = samdb_result_uint(searched_msg, "userAccountControl", 0);
2017         io.u.sAMAccountName             = samdb_result_string(searched_msg, "samAccountName", NULL);
2018         io.u.user_principal_name        = samdb_result_string(searched_msg, "userPrincipalName", NULL);
2019         io.u.is_computer                = ldb_msg_check_string_attribute(searched_msg, "objectClass", "computer");
2020
2021         io.n.cleartext                  = samdb_result_string(orig_msg, "userPassword", NULL);
2022         io.n.nt_hash                    = samdb_result_hash(io.ac, orig_msg, "unicodePwd");
2023         io.n.lm_hash                    = samdb_result_hash(io.ac, orig_msg, "dBCSPwd");
2024
2025         io.o.kvno                       = samdb_result_uint(searched_msg, "msDs-KeyVersionNumber", 0);
2026         io.o.nt_history_len             = samdb_result_hashes(io.ac, searched_msg, "ntPwdHistory", &io.o.nt_history);
2027         io.o.lm_history_len             = samdb_result_hashes(io.ac, searched_msg, "lmPwdHistory", &io.o.lm_history);
2028         io.o.supplemental               = ldb_msg_find_ldb_val(searched_msg, "supplementalCredentials");
2029
2030         ret = setup_password_fields(&io);
2031         if (ret != LDB_SUCCESS) {
2032                 return ret;
2033         }
2034
2035         /* make sure we replace all the old attributes */
2036         ret = ldb_msg_add_empty(msg, "unicodePwd", LDB_FLAG_MOD_REPLACE, NULL);
2037         ret = ldb_msg_add_empty(msg, "dBCSPwd", LDB_FLAG_MOD_REPLACE, NULL);
2038         ret = ldb_msg_add_empty(msg, "ntPwdHistory", LDB_FLAG_MOD_REPLACE, NULL);
2039         ret = ldb_msg_add_empty(msg, "lmPwdHistory", LDB_FLAG_MOD_REPLACE, NULL);
2040         ret = ldb_msg_add_empty(msg, "supplementalCredentials", LDB_FLAG_MOD_REPLACE, NULL);
2041         ret = ldb_msg_add_empty(msg, "pwdLastSet", LDB_FLAG_MOD_REPLACE, NULL);
2042         ret = ldb_msg_add_empty(msg, "msDs-KeyVersionNumber", LDB_FLAG_MOD_REPLACE, NULL);
2043
2044         if (io.g.nt_hash) {
2045                 ret = samdb_msg_add_hash(ac->module->ldb, ac, msg,
2046                                          "unicodePwd", io.g.nt_hash);
2047                 if (ret != LDB_SUCCESS) {
2048                         return ret;
2049                 }
2050         }
2051         if (io.g.lm_hash) {
2052                 ret = samdb_msg_add_hash(ac->module->ldb, ac, msg,
2053                                          "dBCSPwd", io.g.lm_hash);
2054                 if (ret != LDB_SUCCESS) {
2055                         return ret;
2056                 }
2057         }
2058         if (io.g.nt_history_len > 0) {
2059                 ret = samdb_msg_add_hashes(ac, msg,
2060                                            "ntPwdHistory",
2061                                            io.g.nt_history,
2062                                            io.g.nt_history_len);
2063                 if (ret != LDB_SUCCESS) {
2064                         return ret;
2065                 }
2066         }
2067         if (io.g.lm_history_len > 0) {
2068                 ret = samdb_msg_add_hashes(ac, msg,
2069                                            "lmPwdHistory",
2070                                            io.g.lm_history,
2071                                            io.g.lm_history_len);
2072                 if (ret != LDB_SUCCESS) {
2073                         return ret;
2074                 }
2075         }
2076         if (io.g.supplemental.length > 0) {
2077                 ret = ldb_msg_add_value(msg, "supplementalCredentials",
2078                                         &io.g.supplemental, NULL);
2079                 if (ret != LDB_SUCCESS) {
2080                         return ret;
2081                 }
2082         }
2083         ret = samdb_msg_add_uint64(ac->module->ldb, ac, msg,
2084                                    "pwdLastSet",
2085                                    io.g.last_set);
2086         if (ret != LDB_SUCCESS) {
2087                 return ret;
2088         }
2089         ret = samdb_msg_add_uint(ac->module->ldb, ac, msg,
2090                                  "msDs-KeyVersionNumber",
2091                                  io.g.kvno);
2092         if (ret != LDB_SUCCESS) {
2093                 return ret;
2094         }
2095
2096         h->state = LDB_ASYNC_INIT;
2097         h->status = LDB_SUCCESS;
2098
2099         ac->step = PH_MOD_DO_MOD;
2100
2101         ldb_set_timeout_from_prev_req(ac->module->ldb, ac->orig_req, ac->mod_req);
2102
2103         /* perform the search */
2104         return ldb_next_request(ac->module, ac->mod_req);
2105 }
2106
2107 static int ph_wait(struct ldb_handle *handle) {
2108         struct ph_context *ac;
2109         int ret;
2110
2111         if (!handle || !handle->private_data) {
2112                 return LDB_ERR_OPERATIONS_ERROR;
2113         }
2114
2115         if (handle->state == LDB_ASYNC_DONE) {
2116                 return handle->status;
2117         }
2118
2119         handle->state = LDB_ASYNC_PENDING;
2120         handle->status = LDB_SUCCESS;
2121
2122         ac = talloc_get_type(handle->private_data, struct ph_context);
2123
2124         switch (ac->step) {
2125         case PH_ADD_SEARCH_DOM:
2126                 ret = ldb_wait(ac->dom_req->handle, LDB_WAIT_NONE);
2127
2128                 if (ret != LDB_SUCCESS) {
2129                         handle->status = ret;
2130                         goto done;
2131                 }
2132                 if (ac->dom_req->handle->status != LDB_SUCCESS) {
2133                         handle->status = ac->dom_req->handle->status;
2134                         goto done;
2135                 }
2136
2137                 if (ac->dom_req->handle->state != LDB_ASYNC_DONE) {
2138                         return LDB_SUCCESS;
2139                 }
2140
2141                 /* domain search done, go on */
2142                 return password_hash_add_do_add(handle);
2143
2144         case PH_ADD_DO_ADD:
2145                 ret = ldb_wait(ac->down_req->handle, LDB_WAIT_NONE);
2146
2147                 if (ret != LDB_SUCCESS) {
2148                         handle->status = ret;
2149                         goto done;
2150                 }
2151                 if (ac->down_req->handle->status != LDB_SUCCESS) {
2152                         handle->status = ac->down_req->handle->status;
2153                         goto done;
2154                 }
2155
2156                 if (ac->down_req->handle->state != LDB_ASYNC_DONE) {
2157                         return LDB_SUCCESS;
2158                 }
2159
2160                 break;
2161
2162         case PH_MOD_DO_REQ:
2163                 ret = ldb_wait(ac->down_req->handle, LDB_WAIT_NONE);
2164
2165                 if (ret != LDB_SUCCESS) {
2166                         handle->status = ret;
2167                         goto done;
2168                 }
2169                 if (ac->down_req->handle->status != LDB_SUCCESS) {
2170                         handle->status = ac->down_req->handle->status;
2171                         goto done;
2172                 }
2173
2174                 if (ac->down_req->handle->state != LDB_ASYNC_DONE) {
2175                         return LDB_SUCCESS;
2176                 }
2177
2178                 /* non-password mods done, go on */
2179                 return password_hash_mod_search_self(handle);
2180
2181         case PH_MOD_SEARCH_SELF:
2182                 ret = ldb_wait(ac->search_req->handle, LDB_WAIT_NONE);
2183
2184                 if (ret != LDB_SUCCESS) {
2185                         handle->status = ret;
2186                         goto done;
2187                 }
2188                 if (ac->search_req->handle->status != LDB_SUCCESS) {
2189                         handle->status = ac->search_req->handle->status;
2190                         goto done;
2191                 }
2192
2193                 if (ac->search_req->handle->state != LDB_ASYNC_DONE) {
2194                         return LDB_SUCCESS;
2195                 }
2196
2197                 if (ac->search_res == NULL) {
2198                         return LDB_ERR_NO_SUCH_OBJECT;
2199                 }
2200
2201                 /* self search done, go on */
2202                 return password_hash_mod_search_dom(handle);
2203
2204         case PH_MOD_SEARCH_DOM:
2205                 ret = ldb_wait(ac->dom_req->handle, LDB_WAIT_NONE);
2206
2207                 if (ret != LDB_SUCCESS) {
2208                         handle->status = ret;
2209                         goto done;
2210                 }
2211                 if (ac->dom_req->handle->status != LDB_SUCCESS) {
2212                         handle->status = ac->dom_req->handle->status;
2213                         goto done;
2214                 }
2215
2216                 if (ac->dom_req->handle->state != LDB_ASYNC_DONE) {
2217                         return LDB_SUCCESS;
2218                 }
2219
2220                 /* domain search done, go on */
2221                 return password_hash_mod_do_mod(handle);
2222
2223         case PH_MOD_DO_MOD:
2224                 ret = ldb_wait(ac->mod_req->handle, LDB_WAIT_NONE);
2225
2226                 if (ret != LDB_SUCCESS) {
2227                         handle->status = ret;
2228                         goto done;
2229                 }
2230                 if (ac->mod_req->handle->status != LDB_SUCCESS) {
2231                         handle->status = ac->mod_req->handle->status;
2232                         goto done;
2233                 }
2234
2235                 if (ac->mod_req->handle->state != LDB_ASYNC_DONE) {
2236                         return LDB_SUCCESS;
2237                 }
2238
2239                 break;
2240
2241         default:
2242                 ret = LDB_ERR_OPERATIONS_ERROR;
2243                 goto done;
2244         }
2245
2246         ret = LDB_SUCCESS;
2247
2248 done:
2249         handle->state = LDB_ASYNC_DONE;
2250         return ret;
2251 }
2252
2253 static int ph_wait_all(struct ldb_handle *handle) {
2254
2255         int ret;
2256
2257         while (handle->state != LDB_ASYNC_DONE) {
2258                 ret = ph_wait(handle);
2259                 if (ret != LDB_SUCCESS) {
2260                         return ret;
2261                 }
2262         }
2263
2264         return handle->status;
2265 }
2266
2267 static int password_hash_wait(struct ldb_handle *handle, enum ldb_wait_type type)
2268 {
2269         if (type == LDB_WAIT_ALL) {
2270                 return ph_wait_all(handle);
2271         } else {
2272                 return ph_wait(handle);
2273         }
2274 }
2275
2276 _PUBLIC_ const struct ldb_module_ops ldb_password_hash_module_ops = {
2277         .name          = "password_hash",
2278         .add           = password_hash_add,
2279         .modify        = password_hash_modify,
2280         .wait          = password_hash_wait
2281 };