source3/passdb/pdb_nds.c

   1 /*
   2    Unix SMB/CIFS mplementation.
   3    NDS LDAP helper functions for SAMBA
   4    Copyright (C) Vince Brimhall                 2004-2005
   5
   6    This program is free software; you can redistribute it and/or modify
   7    it under the terms of the GNU General Public License as published by
   8    the Free Software Foundation; either version 3 of the License, or
   9    (at your option) any later version.
  10
  11    This program is distributed in the hope that it will be useful,
  12    but WITHOUT ANY WARRANTY; without even the implied warranty of
  13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14    GNU General Public License for more details.
  15
  16    You should have received a copy of the GNU General Public License
  17    along with this program.  If not, see <http://www.gnu.org/licenses/>.
  18
  19 */
  20
  21 #include "includes.h"
  22 #include "passdb.h"
  23
  24 #include <lber.h>
  25 #include <ldap.h>
  26
  27 #include "smbldap.h"
  28 #include "passdb/pdb_ldap.h"
  29 #include "passdb/pdb_nds.h"
  30
  31 #define NMASLDAP_GET_LOGIN_CONFIG_REQUEST       "2.16.840.1.113719.1.39.42.100.3"
  32 #define NMASLDAP_GET_LOGIN_CONFIG_RESPONSE      "2.16.840.1.113719.1.39.42.100.4"
  33 #define NMASLDAP_SET_PASSWORD_REQUEST           "2.16.840.1.113719.1.39.42.100.11"
  34 #define NMASLDAP_SET_PASSWORD_RESPONSE          "2.16.840.1.113719.1.39.42.100.12"
  35 #define NMASLDAP_GET_PASSWORD_REQUEST           "2.16.840.1.113719.1.39.42.100.13"
  36 #define NMASLDAP_GET_PASSWORD_RESPONSE          "2.16.840.1.113719.1.39.42.100.14"
  37
  38 #define NMAS_LDAP_EXT_VERSION                           1
  39
  40 /**********************************************************************
  41  Take the request BER value and input data items and BER encodes the
  42  data into the BER value
  43 **********************************************************************/
  44
  45 static int berEncodePasswordData(
  46         struct berval **requestBV,
  47         const char    *objectDN,
  48         const char    *password,
  49         const char    *password2)
  50 {
  51         int err = 0, rc=0;
  52         BerElement *requestBer = NULL;
  53
  54         const char    * utf8ObjPtr = NULL;
  55         int     utf8ObjSize = 0;
  56         const char    * utf8PwdPtr = NULL;
  57         int     utf8PwdSize = 0;
  58         const char    * utf8Pwd2Ptr = NULL;
  59         int     utf8Pwd2Size = 0;
  60
  61
  62         /* Convert objectDN and tag strings from Unicode to UTF-8 */
  63         utf8ObjSize = strlen(objectDN)+1;
  64         utf8ObjPtr = objectDN;
  65
  66         if (password != NULL)
  67         {
  68                 utf8PwdSize = strlen(password)+1;
  69                 utf8PwdPtr = password;
  70         }
  71
  72         if (password2 != NULL)
  73         {
  74                 utf8Pwd2Size = strlen(password2)+1;
  75                 utf8Pwd2Ptr = password2;
  76         }
  77
  78         /* Allocate a BerElement for the request parameters. */
  79         if((requestBer = ber_alloc()) == NULL)
  80         {
  81                 err = LDAP_ENCODING_ERROR;
  82                 goto Cleanup;
  83         }
  84
  85         if (password != NULL && password2 != NULL)
  86         {
  87                 /* BER encode the NMAS Version, the objectDN, and the password */
  88                 rc = ber_printf(requestBer, "{iooo}", NMAS_LDAP_EXT_VERSION, utf8ObjPtr, utf8ObjSize, utf8PwdPtr, utf8PwdSize, utf8Pwd2Ptr, utf8Pwd2Size);
  89         }
  90         else if (password != NULL)
  91         {
  92                 /* BER encode the NMAS Version, the objectDN, and the password */
  93                 rc = ber_printf(requestBer, "{ioo}", NMAS_LDAP_EXT_VERSION, utf8ObjPtr, utf8ObjSize, utf8PwdPtr, utf8PwdSize);
  94         }
  95         else
  96         {
  97                 /* BER encode the NMAS Version and the objectDN */
  98                 rc = ber_printf(requestBer, "{io}", NMAS_LDAP_EXT_VERSION, utf8ObjPtr, utf8ObjSize);
  99         }
 100
 101         if (rc < 0)
 102         {
 103                 err = LDAP_ENCODING_ERROR;
 104                 goto Cleanup;
 105         }
 106         else
 107         {
 108                 err = 0;
 109         }
 110
 111         /* Convert the BER we just built to a berval that we'll send with the extended request. */
 112         if(ber_flatten(requestBer, requestBV) == LBER_ERROR)
 113         {
 114                 err = LDAP_ENCODING_ERROR;
 115                 goto Cleanup;
 116         }
 117
 118 Cleanup:
 119
 120         if(requestBer)
 121         {
 122                 ber_free(requestBer, 1);
 123         }
 124
 125         return err;
 126 }
 127
 128 /**********************************************************************
 129  Take the request BER value and input data items and BER encodes the
 130  data into the BER value
 131 **********************************************************************/
 132
 133 static int berEncodeLoginData(
 134         struct berval **requestBV,
 135         char     *objectDN,
 136         unsigned int  methodIDLen,
 137         unsigned int *methodID,
 138         char     *tag,
 139         size_t   putDataLen,
 140         void     *putData)
 141 {
 142         int err = 0;
 143         BerElement *requestBer = NULL;
 144
 145         unsigned int i;
 146         unsigned int elemCnt = methodIDLen / sizeof(unsigned int);
 147
 148         char    *utf8ObjPtr=NULL;
 149         int     utf8ObjSize = 0;
 150
 151         char    *utf8TagPtr = NULL;
 152         int     utf8TagSize = 0;
 153
 154         utf8ObjPtr = objectDN;
 155         utf8ObjSize = strlen(utf8ObjPtr)+1;
 156
 157         utf8TagPtr = tag;
 158         utf8TagSize = strlen(utf8TagPtr)+1;
 159
 160         /* Allocate a BerElement for the request parameters. */
 161         if((requestBer = ber_alloc()) == NULL)
 162         {
 163                 err = LDAP_ENCODING_ERROR;
 164                 goto Cleanup;
 165         }
 166
 167         /* BER encode the NMAS Version and the objectDN */
 168         err = (ber_printf(requestBer, "{io", NMAS_LDAP_EXT_VERSION, utf8ObjPtr, utf8ObjSize) < 0) ? LDAP_ENCODING_ERROR : 0;
 169
 170         /* BER encode the MethodID Length and value */
 171         if (!err)
 172         {
 173                 err = (ber_printf(requestBer, "{i{", methodIDLen) < 0) ? LDAP_ENCODING_ERROR : 0;
 174         }
 175
 176         for (i = 0; !err && i < elemCnt; i++)
 177         {
 178                 err = (ber_printf(requestBer, "i", methodID[i]) < 0) ? LDAP_ENCODING_ERROR : 0;
 179         }
 180
 181         if (!err)
 182         {
 183                 err = (ber_printf(requestBer, "}}", 0) < 0) ? LDAP_ENCODING_ERROR : 0;
 184         }
 185
 186         if(putData)
 187         {
 188                 /* BER Encode the the tag and data */
 189                 err = (ber_printf(requestBer, "oio}", utf8TagPtr, utf8TagSize, putDataLen, putData, putDataLen) < 0) ? LDAP_ENCODING_ERROR : 0;
 190         }
 191         else
 192         {
 193                 /* BER Encode the the tag */
 194                 err = (ber_printf(requestBer, "o}", utf8TagPtr, utf8TagSize) < 0) ? LDAP_ENCODING_ERROR : 0;
 195         }
 196
 197         if (err)
 198         {
 199                 goto Cleanup;
 200         }
 201
 202         /* Convert the BER we just built to a berval that we'll send with the extended request. */
 203         if(ber_flatten(requestBer, requestBV) == LBER_ERROR)
 204         {
 205                 err = LDAP_ENCODING_ERROR;
 206                 goto Cleanup;
 207         }
 208
 209 Cleanup:
 210
 211         if(requestBer)
 212         {
 213                 ber_free(requestBer, 1);
 214         }
 215
 216         return err;
 217 }
 218
 219 /**********************************************************************
 220  Takes the reply BER Value and decodes the NMAS server version and
 221  return code and if a non null retData buffer was supplied, tries to
 222  decode the the return data and length
 223 **********************************************************************/
 224
 225 static int berDecodeLoginData(
 226         struct berval *replyBV,
 227         int      *serverVersion,
 228         size_t   *retDataLen,
 229         void     *retData )
 230 {
 231         int err = 0;
 232         BerElement *replyBer = NULL;
 233         char    *retOctStr = NULL;
 234         size_t  retOctStrLen = 0;
 235
 236         if((replyBer = ber_init(replyBV)) == NULL)
 237         {
 238                 err = LDAP_OPERATIONS_ERROR;
 239                 goto Cleanup;
 240         }
 241
 242         if(retData)
 243         {
 244                 retOctStrLen = *retDataLen + 1;
 245                 retOctStr = SMB_MALLOC_ARRAY(char, retOctStrLen);
 246                 if(!retOctStr)
 247                 {
 248                         err = LDAP_OPERATIONS_ERROR;
 249                         goto Cleanup;
 250                 }
 251
 252                 if(ber_scanf(replyBer, "{iis}", serverVersion, &err, retOctStr, &retOctStrLen) != -1)
 253                 {
 254                         if (*retDataLen >= retOctStrLen)
 255                         {
 256                                 memcpy(retData, retOctStr, retOctStrLen);
 257                         }
 258                         else if (!err)
 259                         {
 260                                 err = LDAP_NO_MEMORY;
 261                         }
 262
 263                         *retDataLen = retOctStrLen;
 264                 }
 265                 else if (!err)
 266                 {
 267                         err = LDAP_DECODING_ERROR;
 268                 }
 269         }
 270         else
 271         {
 272                 if(ber_scanf(replyBer, "{ii}", serverVersion, &err) == -1)
 273                 {
 274                         if (!err)
 275                         {
 276                                 err = LDAP_DECODING_ERROR;
 277                         }
 278                 }
 279         }
 280
 281 Cleanup:
 282
 283         if(replyBer)
 284         {
 285                 ber_free(replyBer, 1);
 286         }
 287
 288         if (retOctStr != NULL)
 289         {
 290                 memset(retOctStr, 0, retOctStrLen);
 291                 free(retOctStr);
 292         }
 293
 294         return err;
 295 }
 296
 297 /**********************************************************************
 298  Retrieves data in the login configuration of the specified object
 299  that is tagged with the specified methodID and tag.
 300 **********************************************************************/
 301
 302 static int getLoginConfig(
 303         LDAP     *ld,
 304         char     *objectDN,
 305         unsigned int  methodIDLen,
 306         unsigned int *methodID,
 307         char     *tag,
 308         size_t   *dataLen,
 309         void     *data )
 310 {
 311         int     err = 0;
 312         struct  berval *requestBV = NULL;
 313         char    *replyOID = NULL;
 314         struct  berval *replyBV = NULL;
 315         int     serverVersion = 0;
 316
 317         /* Validate unicode parameters. */
 318         if((strlen(objectDN) == 0) || ld == NULL)
 319         {
 320                 return LDAP_NO_SUCH_ATTRIBUTE;
 321         }
 322
 323         err = berEncodeLoginData(&requestBV, objectDN, methodIDLen, methodID, tag, 0, NULL);
 324         if(err)
 325         {
 326                 goto Cleanup;
 327         }
 328
 329         /* Call the ldap_extended_operation (synchronously) */
 330         if((err = ldap_extended_operation_s(ld, NMASLDAP_GET_LOGIN_CONFIG_REQUEST,
 331                                         requestBV, NULL, NULL, &replyOID, &replyBV)))
 332         {
 333                 goto Cleanup;
 334         }
 335
 336         /* Make sure there is a return OID */
 337         if(!replyOID)
 338         {
 339                 err = LDAP_NOT_SUPPORTED;
 340                 goto Cleanup;
 341         }
 342
 343         /* Is this what we were expecting to get back. */
 344         if(strcmp(replyOID, NMASLDAP_GET_LOGIN_CONFIG_RESPONSE))
 345         {
 346                 err = LDAP_NOT_SUPPORTED;
 347                 goto Cleanup;
 348         }
 349
 350         /* Do we have a good returned berval? */
 351         if(!replyBV)
 352         {
 353                 /* No; returned berval means we experienced a rather drastic error. */
 354                 /* Return operations error. */
 355                 err = LDAP_OPERATIONS_ERROR;
 356                 goto Cleanup;
 357         }
 358
 359         err = berDecodeLoginData(replyBV, &serverVersion, dataLen, data);
 360
 361         if(serverVersion != NMAS_LDAP_EXT_VERSION)
 362         {
 363                 err = LDAP_OPERATIONS_ERROR;
 364                 goto Cleanup;
 365         }
 366
 367 Cleanup:
 368
 369         if(replyBV)
 370         {
 371                 ber_bvfree(replyBV);
 372         }
 373
 374         /* Free the return OID string if one was returned. */
 375         if(replyOID)
 376         {
 377                 ldap_memfree(replyOID);
 378         }
 379
 380         /* Free memory allocated while building the request ber and berval. */
 381         if(requestBV)
 382         {
 383                 ber_bvfree(requestBV);
 384         }
 385
 386         /* Return the appropriate error/success code. */
 387         return err;
 388 }
 389
 390 /**********************************************************************
 391  Attempts to get the Simple Password
 392 **********************************************************************/
 393
 394 static int nmasldap_get_simple_pwd(
 395         LDAP     *ld,
 396         char     *objectDN,
 397         size_t   pwdLen,
 398         char     *pwd )
 399 {
 400         int err = 0;
 401         unsigned int methodID = 0;
 402         unsigned int methodIDLen = sizeof(methodID);
 403         char    tag[] = {'P','A','S','S','W','O','R','D',' ','H','A','S','H',0};
 404         char    *pwdBuf=NULL;
 405         size_t  pwdBufLen, bufferLen;
 406
 407         bufferLen = pwdBufLen = pwdLen+2;
 408         pwdBuf = SMB_MALLOC_ARRAY(char, pwdBufLen); /* digest and null */
 409         if(pwdBuf == NULL)
 410         {
 411                 return LDAP_NO_MEMORY;
 412         }
 413
 414         err = getLoginConfig(ld, objectDN, methodIDLen, &methodID, tag, &pwdBufLen, pwdBuf);
 415         if (err == 0)
 416         {
 417                 if (pwdBufLen !=0)
 418                 {
 419                         pwdBuf[pwdBufLen] = 0;       /* null terminate */
 420
 421                         switch (pwdBuf[0])
 422                         {
 423                                 case 1:  /* cleartext password  */
 424                                         break;
 425                                 case 2:  /* SHA1 HASH */
 426                                 case 3:  /* MD5_ID */
 427                                 case 4:  /* UNIXCrypt_ID */
 428                                 case 8:  /* SSHA_ID */
 429                                 default: /* Unknown digest */
 430                                         err = LDAP_INAPPROPRIATE_AUTH;  /* only return clear text */
 431                                         break;
 432                         }
 433
 434                         if (!err)
 435                         {
 436                                 if (pwdLen >= pwdBufLen-1)
 437                                 {
 438                                         memcpy(pwd, &pwdBuf[1], pwdBufLen-1);  /* skip digest tag and include null */
 439                                 }
 440                                 else
 441                                 {
 442                                         err = LDAP_NO_MEMORY;
 443                                 }
 444                         }
 445                 }
 446         }
 447
 448         if (pwdBuf != NULL)
 449         {
 450                 memset(pwdBuf, 0, bufferLen);
 451                 free(pwdBuf);
 452         }
 453
 454         return err;
 455 }
 456
 457
 458 /**********************************************************************
 459  Attempts to set the Universal Password
 460 **********************************************************************/
 461
 462 static int nmasldap_set_password(
 463         LDAP     *ld,
 464         const char     *objectDN,
 465         const char     *pwd )
 466 {
 467         int err = 0;
 468
 469         struct berval *requestBV = NULL;
 470         char *replyOID = NULL;
 471         struct berval *replyBV = NULL;
 472         int serverVersion;
 473
 474         /* Validate char parameters. */
 475         if(objectDN == NULL || (strlen(objectDN) == 0) || pwd == NULL || ld == NULL)
 476         {
 477                 return LDAP_NO_SUCH_ATTRIBUTE;
 478         }
 479
 480         err = berEncodePasswordData(&requestBV, objectDN, pwd, NULL);
 481         if(err)
 482         {
 483                 goto Cleanup;
 484         }
 485
 486         /* Call the ldap_extended_operation (synchronously) */
 487         if((err = ldap_extended_operation_s(ld, NMASLDAP_SET_PASSWORD_REQUEST, requestBV, NULL, NULL, &replyOID, &replyBV)))
 488         {
 489                 goto Cleanup;
 490         }
 491
 492         /* Make sure there is a return OID */
 493         if(!replyOID)
 494         {
 495                 err = LDAP_NOT_SUPPORTED;
 496                 goto Cleanup;
 497         }
 498
 499         /* Is this what we were expecting to get back. */
 500         if(strcmp(replyOID, NMASLDAP_SET_PASSWORD_RESPONSE))
 501         {
 502                 err = LDAP_NOT_SUPPORTED;
 503                 goto Cleanup;
 504         }
 505
 506         /* Do we have a good returned berval? */
 507         if(!replyBV)
 508         {
 509                 /* No; returned berval means we experienced a rather drastic error. */
 510                 /* Return operations error. */
 511                 err = LDAP_OPERATIONS_ERROR;
 512                 goto Cleanup;
 513         }
 514
 515         err = berDecodeLoginData(replyBV, &serverVersion, NULL, NULL);
 516
 517         if(serverVersion != NMAS_LDAP_EXT_VERSION)
 518         {
 519                 err = LDAP_OPERATIONS_ERROR;
 520                 goto Cleanup;
 521         }
 522
 523 Cleanup:
 524
 525         if(replyBV)
 526         {
 527                 ber_bvfree(replyBV);
 528         }
 529
 530         /* Free the return OID string if one was returned. */
 531         if(replyOID)
 532         {
 533                 ldap_memfree(replyOID);
 534         }
 535
 536         /* Free memory allocated while building the request ber and berval. */
 537         if(requestBV)
 538         {
 539                 ber_bvfree(requestBV);
 540         }
 541
 542         /* Return the appropriate error/success code. */
 543         return err;
 544 }
 545
 546 /**********************************************************************
 547  Attempts to get the Universal Password
 548 **********************************************************************/
 549
 550 static int nmasldap_get_password(
 551         LDAP     *ld,
 552         char     *objectDN,
 553         size_t   *pwdSize,      /* in bytes */
 554         unsigned char     *pwd )
 555 {
 556         int err = 0;
 557
 558         struct berval *requestBV = NULL;
 559         char *replyOID = NULL;
 560         struct berval *replyBV = NULL;
 561         int serverVersion;
 562         char *pwdBuf;
 563         size_t pwdBufLen, bufferLen;
 564
 565         /* Validate char parameters. */
 566         if(objectDN == NULL || (strlen(objectDN) == 0) || pwdSize == NULL || ld == NULL)
 567         {
 568                 return LDAP_NO_SUCH_ATTRIBUTE;
 569         }
 570
 571         bufferLen = pwdBufLen = *pwdSize;
 572         pwdBuf = SMB_MALLOC_ARRAY(char, pwdBufLen+2);
 573         if(pwdBuf == NULL)
 574         {
 575                 return LDAP_NO_MEMORY;
 576         }
 577
 578         err = berEncodePasswordData(&requestBV, objectDN, NULL, NULL);
 579         if(err)
 580         {
 581                 goto Cleanup;
 582         }
 583
 584         /* Call the ldap_extended_operation (synchronously) */
 585         if((err = ldap_extended_operation_s(ld, NMASLDAP_GET_PASSWORD_REQUEST, requestBV, NULL, NULL, &replyOID, &replyBV)))
 586         {
 587                 goto Cleanup;
 588         }
 589
 590         /* Make sure there is a return OID */
 591         if(!replyOID)
 592         {
 593                 err = LDAP_NOT_SUPPORTED;
 594                 goto Cleanup;
 595         }
 596
 597         /* Is this what we were expecting to get back. */
 598         if(strcmp(replyOID, NMASLDAP_GET_PASSWORD_RESPONSE))
 599         {
 600                 err = LDAP_NOT_SUPPORTED;
 601                 goto Cleanup;
 602         }
 603
 604         /* Do we have a good returned berval? */
 605         if(!replyBV)
 606         {
 607                 /* No; returned berval means we experienced a rather drastic error. */
 608                 /* Return operations error. */
 609                 err = LDAP_OPERATIONS_ERROR;
 610                 goto Cleanup;
 611         }
 612
 613         err = berDecodeLoginData(replyBV, &serverVersion, &pwdBufLen, pwdBuf);
 614
 615         if(serverVersion != NMAS_LDAP_EXT_VERSION)
 616         {
 617                 err = LDAP_OPERATIONS_ERROR;
 618                 goto Cleanup;
 619         }
 620
 621         if (!err && pwdBufLen != 0)
 622         {
 623                 if (*pwdSize >= pwdBufLen+1 && pwd != NULL)
 624                 {
 625                         memcpy(pwd, pwdBuf, pwdBufLen);
 626                         pwd[pwdBufLen] = 0; /* add null termination */
 627                 }
 628                 *pwdSize = pwdBufLen; /* does not include null termination */
 629         }
 630
 631 Cleanup:
 632
 633         if(replyBV)
 634         {
 635                 ber_bvfree(replyBV);
 636         }
 637
 638         /* Free the return OID string if one was returned. */
 639         if(replyOID)
 640         {
 641                 ldap_memfree(replyOID);
 642         }
 643
 644         /* Free memory allocated while building the request ber and berval. */
 645         if(requestBV)
 646         {
 647                 ber_bvfree(requestBV);
 648         }
 649
 650         if (pwdBuf != NULL)
 651         {
 652                 memset(pwdBuf, 0, bufferLen);
 653                 free(pwdBuf);
 654         }
 655
 656         /* Return the appropriate error/success code. */
 657         return err;
 658 }
 659
 660 /**********************************************************************
 661  Get the user's password from NDS.
 662  *********************************************************************/
 663
 664 int pdb_nds_get_password(
 665         struct smbldap_state *ldap_state,
 666         char *object_dn,
 667         size_t *pwd_len,
 668         char *pwd )
 669 {
 670         LDAP *ld = ldap_state->ldap_struct;
 671         int rc = -1;
 672
 673         rc = nmasldap_get_password(ld, object_dn, pwd_len, (unsigned char *)pwd);
 674         if (rc == LDAP_SUCCESS) {
 675 #ifdef DEBUG_PASSWORD
 676                 DEBUG(100,("nmasldap_get_password returned %s for %s\n", pwd, object_dn));
 677 #endif
 678                 DEBUG(5, ("NDS Universal Password retrieved for %s\n", object_dn));
 679         } else {
 680                 DEBUG(3, ("NDS Universal Password NOT retrieved for %s\n", object_dn));
 681         }
 682
 683         if (rc != LDAP_SUCCESS) {
 684                 rc = nmasldap_get_simple_pwd(ld, object_dn, *pwd_len, pwd);
 685                 if (rc == LDAP_SUCCESS) {
 686 #ifdef DEBUG_PASSWORD
 687                         DEBUG(100,("nmasldap_get_simple_pwd returned %s for %s\n", pwd, object_dn));
 688 #endif
 689                         DEBUG(5, ("NDS Simple Password retrieved for %s\n", object_dn));
 690                 } else {
 691                         /* We couldn't get the password */
 692                         DEBUG(3, ("NDS Simple Password NOT retrieved for %s\n", object_dn));
 693                         return LDAP_INVALID_CREDENTIALS;
 694                 }
 695         }
 696
 697         /* We got the password */
 698         return LDAP_SUCCESS;
 699 }
 700
 701 /**********************************************************************
 702  Set the users NDS, Universal and Simple passwords.
 703  ********************************************************************/
 704
 705 int pdb_nds_set_password(
 706         struct smbldap_state *ldap_state,
 707         char *object_dn,
 708         const char *pwd )
 709 {
 710         LDAP *ld = ldap_state->ldap_struct;
 711         int rc = -1;
 712         LDAPMod **tmpmods = NULL;
 713
 714         rc = nmasldap_set_password(ld, object_dn, pwd);
 715         if (rc == LDAP_SUCCESS) {
 716                 DEBUG(5,("NDS Universal Password changed for user %s\n", object_dn));
 717         } else {
 718                 char *ld_error = NULL;
 719                 ldap_get_option(ld, LDAP_OPT_ERROR_STRING, &ld_error);
 720
 721                 /* This will fail if Universal Password is not enabled for the user's context */
 722                 DEBUG(3,("NDS Universal Password could not be changed for user %s: %s (%s)\n",
 723                                  object_dn, ldap_err2string(rc), ld_error?ld_error:"unknown"));
 724                 SAFE_FREE(ld_error);
 725         }
 726
 727         /* Set eDirectory Password */
 728         smbldap_set_mod(&tmpmods, LDAP_MOD_REPLACE, "userPassword", pwd);
 729         rc = smbldap_modify(ldap_state, object_dn, tmpmods);
 730
 731         return rc;
 732 }
 733
 734 /**********************************************************************
 735  Allow ldap server to update internal login attempt counters by
 736   performing a simple bind. If the samba authentication failed attempt
 737   the bind with a bogus, randomly generated password to count the
 738   failed attempt. If the bind fails even though samba authentication
 739   succeeded, this would indicate that the user's account is disabled,
 740   time restrictions are in place or some other password policy
 741   violation.
 742 *********************************************************************/
 743
 744 static NTSTATUS pdb_nds_update_login_attempts(struct pdb_methods *methods,
 745                                         struct samu *sam_acct, bool success)
 746 {
 747         struct ldapsam_privates *ldap_state;
 748
 749         if ((!methods) || (!sam_acct)) {
 750                 DEBUG(3,("pdb_nds_update_login_attempts: invalid parameter.\n"));
 751                 return NT_STATUS_MEMORY_NOT_ALLOCATED;
 752         }
 753
 754         ldap_state = (struct ldapsam_privates *)methods->private_data;
 755
 756         if (ldap_state) {
 757                 /* Attempt simple bind with user credentials to update eDirectory
 758                    password policy */
 759                 int rc = 0;
 760                 char *dn;
 761                 LDAPMessage *result = NULL;
 762                 LDAPMessage *entry = NULL;
 763                 const char **attr_list;
 764                 size_t pwd_len;
 765                 char clear_text_pw[512];
 766                 LDAP *ld = NULL;
 767                 const char *username = pdb_get_username(sam_acct);
 768                 bool got_clear_text_pw = False;
 769
 770                 DEBUG(5,("pdb_nds_update_login_attempts: %s login for %s\n",
 771                                 success ? "Successful" : "Failed", username));
 772
 773                 result = (LDAPMessage *)pdb_get_backend_private_data(sam_acct, methods);
 774                 if (!result) {
 775                         attr_list = get_userattr_list(NULL,
 776                                                       ldap_state->schema_ver);
 777                         rc = ldapsam_search_suffix_by_name(ldap_state, username, &result, attr_list );
 778                         TALLOC_FREE( attr_list );
 779                         if (rc != LDAP_SUCCESS) {
 780                                 return NT_STATUS_OBJECT_NAME_NOT_FOUND;
 781                         }
 782                         pdb_set_backend_private_data(sam_acct, result, NULL,
 783                                                      methods, PDB_CHANGED);
 784                         smbldap_talloc_autofree_ldapmsg(sam_acct, result);
 785                 }
 786
 787                 if (ldap_count_entries(ldap_state->smbldap_state->ldap_struct, result) == 0) {
 788                         DEBUG(0, ("pdb_nds_update_login_attempts: No user to modify!\n"));
 789                         return NT_STATUS_OBJECT_NAME_NOT_FOUND;
 790                 }
 791
 792                 entry = ldap_first_entry(ldap_state->smbldap_state->ldap_struct, result);
 793                 dn = smbldap_talloc_dn(talloc_tos(), ldap_state->smbldap_state->ldap_struct, entry);
 794                 if (!dn) {
 795                         return NT_STATUS_OBJECT_NAME_NOT_FOUND;
 796                 }
 797
 798                 DEBUG(3, ("pdb_nds_update_login_attempts: username %s found dn '%s'\n", username, dn));
 799
 800                 pwd_len = sizeof(clear_text_pw);
 801                 if (success == True) {
 802                         if (pdb_nds_get_password(ldap_state->smbldap_state, dn, &pwd_len, clear_text_pw) == LDAP_SUCCESS) {
 803                                 /* Got clear text password. Use simple ldap bind */
 804                                 got_clear_text_pw = True;
 805                         }
 806                 } else {
 807                         generate_random_buffer((unsigned char *)clear_text_pw, 24);
 808                         clear_text_pw[24] = '\0';
 809                         DEBUG(5,("pdb_nds_update_login_attempts: using random password %s\n", clear_text_pw));
 810                 }
 811
 812                 if((success != True) || (got_clear_text_pw == True)) {
 813
 814                         rc = smbldap_setup_full_conn(&ld, ldap_state->location);
 815                         if (rc) {
 816                                 TALLOC_FREE(dn);
 817                                 return NT_STATUS_INVALID_CONNECTION;
 818                         }
 819
 820                         /* Attempt simple bind with real or bogus password */
 821                         rc = ldap_simple_bind_s(ld, dn, clear_text_pw);
 822                         ldap_unbind(ld);
 823                         if (rc == LDAP_SUCCESS) {
 824                                 DEBUG(5,("pdb_nds_update_login_attempts: ldap_simple_bind_s Successful for %s\n", username));
 825                         } else {
 826                                 NTSTATUS nt_status = NT_STATUS_ACCOUNT_RESTRICTION;
 827                                 DEBUG(5,("pdb_nds_update_login_attempts: ldap_simple_bind_s Failed for %s\n", username));
 828                                 switch(rc) {
 829                                         case LDAP_INVALID_CREDENTIALS:
 830                                                 nt_status = NT_STATUS_WRONG_PASSWORD;
 831                                                 break;
 832                                         case LDAP_UNWILLING_TO_PERFORM:
 833                                                 /* eDir returns this if the account was disabled. */
 834                                                 /* The problem is we don't know if the given
 835                                                    password was correct for this account or
 836                                                    not. We have to return more info than we
 837                                                    should and tell the client NT_STATUS_ACCOUNT_DISABLED
 838                                                    so they don't think the password was bad. JRA. */
 839                                                 nt_status = NT_STATUS_ACCOUNT_DISABLED;
 840                                                 break;
 841                                         default:
 842                                                 break;
 843                                 }
 844                                 return nt_status;
 845                         }
 846                 }
 847                 TALLOC_FREE(dn);
 848         }
 849
 850         return NT_STATUS_OK;
 851 }
 852
 853 /**********************************************************************
 854  Intitalise the parts of the pdb_methods structuire that are common
 855  to NDS_ldapsam modes
 856  *********************************************************************/
 857
 858 static NTSTATUS pdb_init_NDS_ldapsam_common(struct pdb_methods **pdb_method, const char *location)
 859 {
 860         struct ldapsam_privates *ldap_state =
 861                 (struct ldapsam_privates *)((*pdb_method)->private_data);
 862
 863         /* Mark this as eDirectory ldap */
 864         ldap_state->is_nds_ldap = True;
 865
 866         /* Add pdb_nds specific method for updating login attempts. */
 867         (*pdb_method)->update_login_attempts = pdb_nds_update_login_attempts;
 868
 869         /* Save location for use in pdb_nds_update_login_attempts */
 870         ldap_state->location = SMB_STRDUP(location);
 871
 872         return NT_STATUS_OK;
 873 }
 874
 875 /**********************************************************************
 876  Initialise the 'nds' normal mode for pdb_ldap
 877  *********************************************************************/
 878
 879 static NTSTATUS pdb_init_NDS_ldapsam(struct pdb_methods **pdb_method, const char *location)
 880 {
 881         NTSTATUS nt_status = pdb_init_ldapsam(pdb_method, location);
 882
 883         (*pdb_method)->name = "NDS_ldapsam";
 884
 885         pdb_init_NDS_ldapsam_common(pdb_method, location);
 886
 887         return nt_status;
 888 }
 889
 890 NTSTATUS pdb_nds_init(void)
 891 {
 892         NTSTATUS nt_status;
 893         if (!NT_STATUS_IS_OK(nt_status = smb_register_passdb(PASSDB_INTERFACE_VERSION, "NDS_ldapsam", pdb_init_NDS_ldapsam)))
 894                 return nt_status;
 895
 896         return NT_STATUS_OK;
 897 }