dlls/wldap32/bind.c

   1 /*
   2  * WLDAP32 - LDAP support for Wine
   3  *
   4  * Copyright 2005 Hans Leidekker
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library 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 GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  19  */
  20
  21 #include <stdarg.h>
  22 #include <stdlib.h>
  23 #include "windef.h"
  24 #include "winbase.h"
  25 #include "winnls.h"
  26 #include "rpc.h"
  27
  28 #include "wine/debug.h"
  29 #include "winldap_private.h"
  30
  31 WINE_DEFAULT_DEBUG_CHANNEL(wldap32);
  32
  33 /***********************************************************************
  34  *      ldap_bindA     (WLDAP32.@)
  35  */
  36 ULONG CDECL ldap_bindA( LDAP *ld, char *dn, char *cred, ULONG method )
  37 {
  38     ULONG ret = WLDAP32_LDAP_NO_MEMORY;
  39     WCHAR *dnW = NULL, *credW = NULL;
  40
  41     TRACE( "(%p, %s, %p, %#lx)\n", ld, debugstr_a(dn), cred, method );
  42
  43     if (!ld) return ~0u;
  44
  45     if (dn && !(dnW = strAtoW( dn ))) goto exit;
  46     if (cred && !(credW = strAtoW( cred ))) goto exit;
  47
  48     ret = ldap_bindW( ld, dnW, credW, method );
  49
  50 exit:
  51     free( dnW );
  52     free( credW );
  53     return ret;
  54 }
  55
  56 /***********************************************************************
  57  *      ldap_bindW     (WLDAP32.@)
  58  */
  59 ULONG CDECL ldap_bindW( LDAP *ld, WCHAR *dn, WCHAR *cred, ULONG method )
  60 {
  61     ULONG ret;
  62     char *dnU = NULL, *credU = NULL;
  63     struct berval pwd = { 0, NULL };
  64     int msg;
  65
  66     TRACE( "(%p, %s, %p, %#lx)\n", ld, debugstr_w(dn), cred, method );
  67
  68     if (!ld) return ~0u;
  69     if (method != WLDAP32_LDAP_AUTH_SIMPLE) return WLDAP32_LDAP_PARAM_ERROR;
  70     if ((ret = WLDAP32_ldap_connect( ld, NULL ))) return ret;
  71
  72     ret = WLDAP32_LDAP_NO_MEMORY;
  73     if (dn && !(dnU = strWtoU( dn ))) goto exit;
  74     if (cred)
  75     {
  76         if (!(credU = strWtoU( cred ))) goto exit;
  77         pwd.bv_len = strlen( credU );
  78         pwd.bv_val = credU;
  79     }
  80
  81     ret = map_error( ldap_sasl_bind( CTX(ld), dnU, 0, &pwd, NULL, NULL, &msg ) );
  82     if (ret == WLDAP32_LDAP_SUCCESS)
  83         ret = msg;
  84     else
  85         ret = ~0u;
  86
  87 exit:
  88     free( dnU );
  89     free( credU );
  90     return ret;
  91 }
  92
  93 /***********************************************************************
  94  *      ldap_bind_sA     (WLDAP32.@)
  95  */
  96 ULONG CDECL ldap_bind_sA( LDAP *ld, char *dn, char *cred, ULONG method )
  97 {
  98     ULONG ret = WLDAP32_LDAP_NO_MEMORY;
  99     WCHAR *dnW = NULL, *credW = NULL;
 100
 101     TRACE( "(%p, %s, %p, %#lx)\n", ld, debugstr_a(dn), cred, method );
 102
 103     if (!ld) return WLDAP32_LDAP_PARAM_ERROR;
 104
 105     if (dn && !(dnW = strAtoW( dn ))) goto exit;
 106     if (cred)
 107     {
 108         if (method == WLDAP32_LDAP_AUTH_SIMPLE)
 109         {
 110             if (!(credW = strAtoW( cred ))) goto exit;
 111         }
 112         else credW = (WCHAR *)cred /* SEC_WINNT_AUTH_IDENTITY_A */;
 113     }
 114
 115     ret = ldap_bind_sW( ld, dnW, credW, method );
 116
 117 exit:
 118     free( dnW );
 119     if (credW != (WCHAR *)cred) free( credW );
 120     return ret;
 121 }
 122
 123 #define SASL_CB_LIST_END    0
 124 #define SASL_CB_AUTHNAME    0x4002
 125 #define SASL_CB_PASS        0x4004
 126 #define SASL_CB_GETREALM    0x4008
 127
 128 struct sasl_interact
 129 {
 130     unsigned long id;
 131     const char *challenge;
 132     const char *prompt;
 133     const char *defresult;
 134     const void *result;
 135     unsigned int len;
 136 };
 137
 138 static int interact_callback( LDAP *ld, unsigned flags, void *defaults, void *sasl_interact )
 139 {
 140     SEC_WINNT_AUTH_IDENTITY_W *id = defaults;
 141     struct sasl_interact *ptr = sasl_interact;
 142
 143     TRACE( "%p, %08xlx, %p, %p\n", ld, flags, defaults, sasl_interact );
 144
 145     while (ptr && ptr->id != SASL_CB_LIST_END)
 146     {
 147         switch (ptr->id)
 148         {
 149         case SASL_CB_AUTHNAME:
 150             ptr->result = id->User;
 151             ptr->len    = id->UserLength;
 152             break;
 153         case SASL_CB_GETREALM:
 154             ptr->result = id->Domain;
 155             ptr->len    = id->DomainLength;
 156             break;
 157         case SASL_CB_PASS:
 158             ptr->result = id->Password;
 159             ptr->len    = id->PasswordLength;
 160             break;
 161         default:
 162             ERR( "unexpected callback %#lx\n", ptr->id );
 163             return -1;
 164         }
 165         ptr++;
 166     }
 167
 168     return 0;
 169 }
 170
 171 /***********************************************************************
 172  *      ldap_bind_sW     (WLDAP32.@)
 173  */
 174 ULONG CDECL ldap_bind_sW( LDAP *ld, WCHAR *dn, WCHAR *cred, ULONG method )
 175 {
 176     ULONG ret;
 177     char *dnU = NULL, *credU = NULL;
 178     struct berval pwd = { 0, NULL };
 179
 180     TRACE( "(%p, %s, %p, %#lx)\n", ld, debugstr_w(dn), cred, method );
 181
 182     if (!ld) return WLDAP32_LDAP_PARAM_ERROR;
 183     if ((ret = WLDAP32_ldap_connect( ld, NULL ))) return ret;
 184
 185     ret = WLDAP32_LDAP_NO_MEMORY;
 186     if (method == WLDAP32_LDAP_AUTH_SIMPLE)
 187     {
 188         if (dn && !(dnU = strWtoU( dn ))) goto exit;
 189         if (cred)
 190         {
 191             if (!(credU = strWtoU( cred ))) goto exit;
 192             pwd.bv_len = strlen( credU );
 193             pwd.bv_val = credU;
 194         }
 195
 196         ret = map_error( ldap_sasl_bind_s( CTX(ld), dnU, 0, &pwd, NULL, NULL, NULL ) );
 197     }
 198     else if (method == WLDAP32_LDAP_AUTH_NEGOTIATE)
 199     {
 200         SEC_WINNT_AUTH_IDENTITY_W *id = (SEC_WINNT_AUTH_IDENTITY_W *)cred, idW;
 201
 202         if (id && (id->Flags & SEC_WINNT_AUTH_IDENTITY_ANSI))
 203         {
 204             idW.User = (unsigned short *)strnAtoW( (char *)id->User, id->UserLength, &idW.UserLength );
 205             idW.Domain = (unsigned short *)strnAtoW( (char *)id->Domain, id->DomainLength, &idW.DomainLength );
 206             idW.Password = (unsigned short *)strnAtoW( (char *)id->Password, id->PasswordLength, &idW.PasswordLength );
 207             id = &idW;
 208         }
 209
 210         ret = map_error( ldap_sasl_interactive_bind_s( CTX(ld), NULL, NULL, NULL, NULL, LDAP_SASL_QUIET,
 211                                                        interact_callback, id ) );
 212         if (id && (id->Flags & SEC_WINNT_AUTH_IDENTITY_ANSI))
 213         {
 214             free( idW.User );
 215             free( idW.Domain );
 216             free( idW.Password );
 217         }
 218     }
 219     else
 220     {
 221         FIXME( "method %#lx not supported\n", method );
 222         return WLDAP32_LDAP_PARAM_ERROR;
 223     }
 224
 225 exit:
 226     free( dnU );
 227     free( credU );
 228     return ret;
 229 }
 230
 231 /***********************************************************************
 232  *      ldap_sasl_bindA     (WLDAP32.@)
 233  */
 234 ULONG CDECL ldap_sasl_bindA( LDAP *ld, const PCHAR dn, const PCHAR mechanism, const BERVAL *cred,
 235                              LDAPControlA **serverctrls, LDAPControlA **clientctrls, int *message )
 236 {
 237     ULONG ret = WLDAP32_LDAP_NO_MEMORY;
 238     WCHAR *dnW, *mechanismW = NULL;
 239     LDAPControlW **serverctrlsW = NULL, **clientctrlsW = NULL;
 240
 241     TRACE( "(%p, %s, %s, %p, %p, %p, %p)\n", ld, debugstr_a(dn),
 242            debugstr_a(mechanism), cred, serverctrls, clientctrls, message );
 243
 244     if (!ld || !dn || !mechanism || !cred || !message) return WLDAP32_LDAP_PARAM_ERROR;
 245
 246     if (!(dnW = strAtoW( dn ))) goto exit;
 247     if (!(mechanismW = strAtoW( mechanism ))) goto exit;
 248     if (serverctrls && !(serverctrlsW = controlarrayAtoW( serverctrls ))) goto exit;
 249     if (clientctrls && !(clientctrlsW = controlarrayAtoW( clientctrls ))) goto exit;
 250
 251     ret = ldap_sasl_bindW( ld, dnW, mechanismW, cred, serverctrlsW, clientctrlsW, message );
 252
 253 exit:
 254     free( dnW );
 255     free( mechanismW );
 256     controlarrayfreeW( serverctrlsW );
 257     controlarrayfreeW( clientctrlsW );
 258     return ret;
 259 }
 260
 261 /***********************************************************************
 262  *      ldap_sasl_bindW     (WLDAP32.@)
 263  */
 264 ULONG CDECL ldap_sasl_bindW( LDAP *ld, const PWCHAR dn, const PWCHAR mechanism, const BERVAL *cred,
 265                              LDAPControlW **serverctrls, LDAPControlW **clientctrls, int *message )
 266 {
 267     ULONG ret;
 268     char *dnU, *mechanismU = NULL;
 269     LDAPControl **serverctrlsU = NULL, **clientctrlsU = NULL;
 270     struct berval credU;
 271
 272     TRACE( "(%p, %s, %s, %p, %p, %p, %p)\n", ld, debugstr_w(dn),
 273            debugstr_w(mechanism), cred, serverctrls, clientctrls, message );
 274
 275     if (!ld || !dn || !mechanism || !cred || !message) return WLDAP32_LDAP_PARAM_ERROR;
 276     if ((ret = WLDAP32_ldap_connect( ld, NULL ))) return ret;
 277
 278     ret = WLDAP32_LDAP_NO_MEMORY;
 279     if (!(dnU = strWtoU( dn ))) goto exit;
 280     if (!(mechanismU = strWtoU( mechanism ))) goto exit;
 281     if (serverctrls && !(serverctrlsU = controlarrayWtoU( serverctrls ))) goto exit;
 282     if (clientctrls && !(clientctrlsU = controlarrayWtoU( clientctrls ))) goto exit;
 283     else
 284     {
 285         credU.bv_len = cred->bv_len;
 286         credU.bv_val = cred->bv_val;
 287         ret = map_error( ldap_sasl_bind( CTX(ld), dnU, mechanismU, &credU, serverctrlsU, clientctrlsU, message) );
 288     }
 289
 290 exit:
 291     free( dnU );
 292     free( mechanismU );
 293     controlarrayfreeU( serverctrlsU );
 294     controlarrayfreeU( clientctrlsU );
 295     return ret;
 296 }
 297
 298 /***********************************************************************
 299  *      ldap_sasl_bind_sA     (WLDAP32.@)
 300  */
 301 ULONG CDECL ldap_sasl_bind_sA( LDAP *ld, const PCHAR dn, const PCHAR mechanism, const BERVAL *cred,
 302                                LDAPControlA **serverctrls, LDAPControlA **clientctrls, BERVAL **serverdata )
 303 {
 304     ULONG ret = WLDAP32_LDAP_NO_MEMORY;
 305     WCHAR *dnW, *mechanismW = NULL;
 306     LDAPControlW **serverctrlsW = NULL, **clientctrlsW = NULL;
 307
 308     TRACE( "(%p, %s, %s, %p, %p, %p, %p)\n", ld, debugstr_a(dn),
 309            debugstr_a(mechanism), cred, serverctrls, clientctrls, serverdata );
 310
 311     if (!ld || !dn || !mechanism || !cred || !serverdata) return WLDAP32_LDAP_PARAM_ERROR;
 312
 313     if (!(dnW = strAtoW( dn ))) goto exit;
 314     if (!(mechanismW = strAtoW( mechanism ))) goto exit;
 315     if (serverctrls && !(serverctrlsW = controlarrayAtoW( serverctrls ))) goto exit;
 316     if (clientctrls && !(clientctrlsW = controlarrayAtoW( clientctrls ))) goto exit;
 317
 318     ret = ldap_sasl_bind_sW( ld, dnW, mechanismW, cred, serverctrlsW, clientctrlsW, serverdata );
 319
 320 exit:
 321     free( dnW );
 322     free( mechanismW );
 323     controlarrayfreeW( serverctrlsW );
 324     controlarrayfreeW( clientctrlsW );
 325     return ret;
 326 }
 327
 328 /***********************************************************************
 329  *      ldap_sasl_bind_sW     (WLDAP32.@)
 330  */
 331 ULONG CDECL ldap_sasl_bind_sW( LDAP *ld, const PWCHAR dn, const PWCHAR mechanism, const BERVAL *cred,
 332                                LDAPControlW **serverctrls, LDAPControlW **clientctrls, BERVAL **serverdata )
 333 {
 334     ULONG ret;
 335     char *dnU, *mechanismU = NULL;
 336     LDAPControl **serverctrlsU = NULL, **clientctrlsU = NULL;
 337     struct berval *dataU, credU;
 338
 339     TRACE( "(%p, %s, %s, %p, %p, %p, %p)\n", ld, debugstr_w(dn),
 340            debugstr_w(mechanism), cred, serverctrls, clientctrls, serverdata );
 341
 342     if (!ld || !dn || !mechanism || !cred || !serverdata) return WLDAP32_LDAP_PARAM_ERROR;
 343     if ((ret = WLDAP32_ldap_connect( ld, NULL ))) return ret;
 344
 345     ret = WLDAP32_LDAP_NO_MEMORY;
 346     if (!(dnU = strWtoU( dn ))) goto exit;
 347     if (!(mechanismU = strWtoU( mechanism ))) goto exit;
 348     if (serverctrls && !(serverctrlsU = controlarrayWtoU( serverctrls ))) goto exit;
 349     if (clientctrls && !(clientctrlsU = controlarrayWtoU( clientctrls ))) goto exit;
 350
 351     credU.bv_len = cred->bv_len;
 352     credU.bv_val = cred->bv_val;
 353     ret = map_error( ldap_sasl_bind_s( CTX(ld), dnU, mechanismU, &credU, serverctrlsU, clientctrlsU, &dataU ) );
 354
 355     if (ret == WLDAP32_LDAP_SUCCESS)
 356     {
 357         BERVAL *ptr;
 358         if (!(ptr = bervalUtoW( dataU ))) ret = WLDAP32_LDAP_NO_MEMORY;
 359         else *serverdata = ptr;
 360         ber_bvfree( dataU );
 361     }
 362
 363 exit:
 364     free( dnU );
 365     free( mechanismU );
 366     controlarrayfreeU( serverctrlsU );
 367     controlarrayfreeU( clientctrlsU );
 368     return ret;
 369 }
 370
 371 /***********************************************************************
 372  *      ldap_simple_bindA     (WLDAP32.@)
 373  */
 374 ULONG CDECL ldap_simple_bindA( LDAP *ld, char *dn, char *passwd )
 375 {
 376     ULONG ret = WLDAP32_LDAP_NO_MEMORY;
 377     WCHAR *dnW = NULL, *passwdW = NULL;
 378
 379     TRACE( "(%p, %s, %p)\n", ld, debugstr_a(dn), passwd );
 380
 381     if (!ld) return ~0u;
 382
 383     if (dn && !(dnW = strAtoW( dn ))) goto exit;
 384     if (passwd && !(passwdW = strAtoW( passwd ))) goto exit;
 385
 386     ret = ldap_simple_bindW( ld, dnW, passwdW );
 387
 388 exit:
 389     free( dnW );
 390     free( passwdW );
 391     return ret;
 392 }
 393
 394 /***********************************************************************
 395  *      ldap_simple_bindW     (WLDAP32.@)
 396  */
 397 ULONG CDECL ldap_simple_bindW( LDAP *ld, WCHAR *dn, WCHAR *passwd )
 398 {
 399     ULONG ret = WLDAP32_LDAP_NO_MEMORY;
 400     char *dnU = NULL, *passwdU = NULL;
 401     struct berval pwd = { 0, NULL };
 402     int msg;
 403
 404     TRACE( "(%p, %s, %p)\n", ld, debugstr_w(dn), passwd );
 405
 406     if (!ld || WLDAP32_ldap_connect( ld, NULL ) != WLDAP32_LDAP_SUCCESS) return ~0u;
 407
 408     if (dn && !(dnU = strWtoU( dn ))) goto exit;
 409     if (passwd)
 410     {
 411         if (!(passwdU = strWtoU( passwd ))) goto exit;
 412         pwd.bv_len = strlen( passwdU );
 413         pwd.bv_val = passwdU;
 414     }
 415
 416     ret = map_error( ldap_sasl_bind( CTX(ld), dnU, 0, &pwd, NULL, NULL, &msg ) );
 417     if (ret == WLDAP32_LDAP_SUCCESS)
 418         ret = msg;
 419     else
 420         ret = ~0u;
 421
 422 exit:
 423     free( dnU );
 424     free( passwdU );
 425     return ret;
 426 }
 427
 428 /***********************************************************************
 429  *      ldap_simple_bind_sA     (WLDAP32.@)
 430  */
 431 ULONG CDECL ldap_simple_bind_sA( LDAP *ld, char *dn, char *passwd )
 432 {
 433     ULONG ret = WLDAP32_LDAP_NO_MEMORY;
 434     WCHAR *dnW = NULL, *passwdW = NULL;
 435
 436     TRACE( "(%p, %s, %p)\n", ld, debugstr_a(dn), passwd );
 437
 438     if (!ld) return WLDAP32_LDAP_PARAM_ERROR;
 439
 440     if (dn && !(dnW = strAtoW( dn ))) goto exit;
 441     if (passwd && !(passwdW = strAtoW( passwd ))) goto exit;
 442
 443     ret = ldap_simple_bind_sW( ld, dnW, passwdW );
 444
 445 exit:
 446     free( dnW );
 447     free( passwdW );
 448     return ret;
 449 }
 450
 451 /***********************************************************************
 452  *      ldap_simple_bind_sW     (WLDAP32.@)
 453  */
 454 ULONG CDECL ldap_simple_bind_sW( LDAP *ld, WCHAR *dn, WCHAR *passwd )
 455 {
 456     ULONG ret;
 457     char *dnU = NULL, *passwdU = NULL;
 458     struct berval pwd = { 0, NULL };
 459
 460     TRACE( "(%p, %s, %p)\n", ld, debugstr_w(dn), passwd );
 461
 462     if (!ld) return WLDAP32_LDAP_PARAM_ERROR;
 463     if ((ret = WLDAP32_ldap_connect( ld, NULL ))) return ret;
 464
 465     ret = WLDAP32_LDAP_NO_MEMORY;
 466     if (dn && !(dnU = strWtoU( dn ))) goto exit;
 467     if (passwd)
 468     {
 469         if (!(passwdU = strWtoU( passwd ))) goto exit;
 470         pwd.bv_len = strlen( passwdU );
 471         pwd.bv_val = passwdU;
 472     }
 473
 474     ret = map_error( ldap_sasl_bind_s( CTX(ld), dnU, 0, &pwd, NULL, NULL, NULL ) );
 475
 476 exit:
 477     free( dnU );
 478     free( passwdU );
 479     return ret;
 480 }
 481
 482 /***********************************************************************
 483  *      ldap_unbind     (WLDAP32.@)
 484  */
 485 ULONG CDECL WLDAP32_ldap_unbind( LDAP *ld )
 486 {
 487     ULONG ret;
 488
 489     TRACE( "(%p)\n", ld );
 490
 491     if (ld) ret = map_error( ldap_unbind_ext( CTX(ld), NULL, NULL ) );
 492     else return WLDAP32_LDAP_PARAM_ERROR;
 493
 494     if (SERVER_CTRLS(ld)) ldap_value_free_len( SERVER_CTRLS(ld) );
 495
 496     free( ld );
 497     return ret;
 498 }
 499
 500 /***********************************************************************
 501  *      ldap_unbind_s     (WLDAP32.@)
 502  */
 503 ULONG CDECL WLDAP32_ldap_unbind_s( LDAP *ld )
 504 {
 505     ULONG ret;
 506
 507     TRACE( "(%p)\n", ld );
 508
 509     if (ld) ret = map_error( ldap_unbind_ext_s( CTX(ld), NULL, NULL ) );
 510     else return WLDAP32_LDAP_PARAM_ERROR;
 511
 512     if (SERVER_CTRLS(ld)) ldap_value_free_len( SERVER_CTRLS(ld) );
 513
 514     free( ld );
 515     return ret;
 516 }