source4/winbind/wb_init_domain.c

   1 /*
   2    Unix SMB/CIFS implementation.
   3
   4    A composite API for initializing a domain
   5
   6    Copyright (C) Volker Lendecke 2005
   7    Copyright (C) Andrew Bartlett <abartlet@samba.org> 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 #include "includes.h"
  24 #include "libcli/composite/composite.h"
  25 #include "libcli/smb_composite/smb_composite.h"
  26 #include "winbind/wb_server.h"
  27 #include "winbind/wb_async_helpers.h"
  28 #include "winbind/wb_helper.h"
  29 #include "smbd/service_task.h"
  30 #include "librpc/gen_ndr/ndr_netlogon.h"
  31 #include "librpc/gen_ndr/ndr_lsa_c.h"
  32 #include "librpc/gen_ndr/ndr_samr_c.h"
  33 #include "libcli/libcli.h"
  34
  35 #include "libcli/auth/credentials.h"
  36 #include "libcli/security/security.h"
  37
  38 #include "libcli/ldap/ldap_client.h"
  39
  40 #include "auth/credentials/credentials.h"
  41 #include "param/param.h"
  42
  43 /*
  44  * Initialize a domain:
  45  *
  46  * - With schannel credentials, try to open the SMB connection and
  47  *   NETLOGON pipe with the machine creds. This works against W2k3SP1
  48  *   with an NTLMSSP session setup. Fall back to anonymous (for the CIFS level).
  49  *
  50  * - If we have schannel creds, do the auth2 and open the schannel'ed netlogon
  51  *   pipe.
  52  *
  53  * - Open LSA. If we have machine creds, try to open with SPNEGO or NTLMSSP. Fall back
  54  *   to schannel.
  55  *
  56  * - With queryinfopolicy, verify that we're talking to the right domain
  57  *
  58  * A bit complex, but with all the combinations I think it's the best we can
  59  * get. NT4, W2k3 and W2k all have different combinations, but in the end we
  60  * have a signed&sealed lsa connection on all of them.
  61  *
  62  * Not sure if it is overkill, but it seems to work.
  63  */
  64
  65 struct init_domain_state {
  66         struct composite_context *ctx;
  67         struct wbsrv_domain *domain;
  68         struct wbsrv_service *service;
  69
  70         struct lsa_ObjectAttribute objectattr;
  71         struct lsa_OpenPolicy2 lsa_openpolicy;
  72         struct lsa_QueryInfoPolicy queryinfo;
  73 };
  74
  75 static void init_domain_recv_netlogonpipe(struct composite_context *ctx);
  76 static void init_domain_recv_lsa_pipe(struct composite_context *ctx);
  77 static void init_domain_recv_lsa_policy(struct rpc_request *req);
  78 static void init_domain_recv_queryinfo(struct rpc_request *req);
  79 static void init_domain_recv_ldapconn(struct composite_context *ctx);
  80 static void init_domain_recv_samr(struct composite_context *ctx);
  81
  82 static struct dcerpc_binding *init_domain_binding(struct init_domain_state *state,
  83                                                   const struct ndr_interface_table *table)
  84 {
  85         struct dcerpc_binding *binding;
  86         NTSTATUS status;
  87
  88         /* Make a binding string */
  89         {
  90                 char *s = talloc_asprintf(state, "ncacn_np:%s", state->domain->dc_name);
  91                 if (s == NULL) return NULL;
  92                 status = dcerpc_parse_binding(state, s, &binding);
  93                 talloc_free(s);
  94                 if (!NT_STATUS_IS_OK(status)) {
  95                         return NULL;
  96                 }
  97         }
  98
  99         /* Alter binding to contain hostname, but also address (so we don't look it up twice) */
 100         binding->target_hostname = state->domain->dc_name;
 101         binding->host = state->domain->dc_address;
 102
 103         /* This shouldn't make a network call, as the mappings for named pipes are well known */
 104         status = dcerpc_epm_map_binding(binding, binding, table, state->service->task->event_ctx,
 105                                         state->service->task->lp_ctx);
 106         if (!NT_STATUS_IS_OK(status)) {
 107                 return NULL;
 108         }
 109
 110         return binding;
 111 }
 112
 113 struct composite_context *wb_init_domain_send(TALLOC_CTX *mem_ctx,
 114                                               struct wbsrv_service *service,
 115                                               struct wb_dom_info *dom_info)
 116 {
 117         struct composite_context *result, *ctx;
 118         struct init_domain_state *state;
 119
 120         result = composite_create(mem_ctx, service->task->event_ctx);
 121         if (result == NULL) goto failed;
 122
 123         state = talloc_zero(result, struct init_domain_state);
 124         if (state == NULL) goto failed;
 125         state->ctx = result;
 126         result->private_data = state;
 127
 128         state->service = service;
 129
 130         state->domain = talloc(state, struct wbsrv_domain);
 131         if (state->domain == NULL) goto failed;
 132
 133         state->domain->info = talloc_reference(state->domain, dom_info);
 134         if (state->domain->info == NULL) goto failed;
 135
 136         /* Caller should check, but to be safe: */
 137         if (dom_info->num_dcs < 1) {
 138                 goto failed;
 139         }
 140
 141         /* For now, we just pick the first.  The next step will be to
 142          * walk the entire list.  Also need to fix finddcs() to return
 143          * the entire list */
 144         state->domain->dc_name = dom_info->dcs[0].name;
 145         state->domain->dc_address = dom_info->dcs[0].address;
 146
 147         state->domain->libnet_ctx = libnet_context_init(service->task->event_ctx,
 148                                                         service->task->lp_ctx);
 149
 150         /* Create a credentials structure */
 151         state->domain->libnet_ctx->cred = cli_credentials_init(state->domain);
 152         if (state->domain->libnet_ctx->cred == NULL) goto failed;
 153
 154         cli_credentials_set_event_context(state->domain->libnet_ctx->cred, service->task->event_ctx);
 155
 156         cli_credentials_set_conf(state->domain->libnet_ctx->cred, service->task->lp_ctx);
 157
 158         /* Connect the machine account to the credentials */
 159         state->ctx->status =
 160                 cli_credentials_set_machine_account(state->domain->libnet_ctx->cred, state->domain->libnet_ctx->lp_ctx);
 161         if (!NT_STATUS_IS_OK(state->ctx->status)) goto failed;
 162
 163         state->domain->netlogon_binding = init_domain_binding(state, &ndr_table_netlogon);
 164
 165         state->domain->netlogon_pipe = NULL;
 166
 167         if ((!cli_credentials_is_anonymous(state->domain->libnet_ctx->cred)) &&
 168             ((lp_server_role(service->task->lp_ctx) == ROLE_DOMAIN_MEMBER) ||
 169              (lp_server_role(service->task->lp_ctx) == ROLE_DOMAIN_CONTROLLER)) &&
 170             (dom_sid_equal(state->domain->info->sid,
 171                            state->service->primary_sid))) {
 172                 state->domain->netlogon_binding->flags |= DCERPC_SCHANNEL;
 173
 174                 /* For debugging, it can be a real pain if all the traffic is encrypted */
 175                 if (lp_winbind_sealed_pipes(service->task->lp_ctx)) {
 176                         state->domain->netlogon_binding->flags |= (DCERPC_SIGN | DCERPC_SEAL );
 177                 } else {
 178                         state->domain->netlogon_binding->flags |= (DCERPC_SIGN);
 179                 }
 180         }
 181
 182         /* No encryption on anonymous pipes */
 183
 184         ctx = dcerpc_pipe_connect_b_send(state, state->domain->netlogon_binding,
 185                                          &ndr_table_netlogon,
 186                                          state->domain->libnet_ctx->cred,
 187                                          service->task->event_ctx,
 188                                          service->task->lp_ctx);
 189
 190         if (composite_nomem(ctx, state->ctx)) {
 191                 goto failed;
 192         }
 193
 194         composite_continue(state->ctx, ctx, init_domain_recv_netlogonpipe,
 195                            state);
 196         return result;
 197  failed:
 198         talloc_free(result);
 199         return NULL;
 200 }
 201
 202 /* Having make a netlogon connection (possibly secured with schannel),
 203  * make an LSA connection to the same DC, on the same IPC$ share */
 204 static void init_domain_recv_netlogonpipe(struct composite_context *ctx)
 205 {
 206         struct init_domain_state *state =
 207                 talloc_get_type(ctx->async.private_data,
 208                                 struct init_domain_state);
 209
 210         state->ctx->status = dcerpc_pipe_connect_b_recv(ctx, state->domain,
 211                                                    &state->domain->netlogon_pipe);
 212
 213         if (!composite_is_ok(state->ctx)) {
 214                 talloc_free(state->domain->netlogon_binding);
 215                 return;
 216         }
 217         talloc_steal(state->domain->netlogon_pipe, state->domain->netlogon_binding);
 218
 219         state->domain->lsa_binding = init_domain_binding(state, &ndr_table_lsarpc);
 220
 221         /* For debugging, it can be a real pain if all the traffic is encrypted */
 222         if (lp_winbind_sealed_pipes(state->service->task->lp_ctx)) {
 223                 state->domain->lsa_binding->flags |= (DCERPC_SIGN | DCERPC_SEAL );
 224         } else {
 225                 state->domain->lsa_binding->flags |= (DCERPC_SIGN);
 226         }
 227
 228         state->domain->libnet_ctx->lsa.pipe = NULL;
 229
 230         /* this will make the secondary connection on the same IPC$ share,
 231            secured with SPNEGO or NTLMSSP */
 232         ctx = dcerpc_secondary_auth_connection_send(state->domain->netlogon_pipe,
 233                                                     state->domain->lsa_binding,
 234                                                     &ndr_table_lsarpc,
 235                                                     state->domain->libnet_ctx->cred,
 236                                                     state->domain->libnet_ctx->lp_ctx
 237                 );
 238         composite_continue(state->ctx, ctx, init_domain_recv_lsa_pipe, state);
 239 }
 240
 241 static bool retry_with_schannel(struct init_domain_state *state,
 242                                 struct dcerpc_binding *binding,
 243                                 const struct ndr_interface_table *table,
 244                                 void (*continuation)(struct composite_context *))
 245 {
 246         struct composite_context *ctx;
 247         state->ctx->status = NT_STATUS_OK;
 248         if (state->domain->netlogon_binding->flags & DCERPC_SCHANNEL
 249             && !(binding->flags & DCERPC_SCHANNEL)) {
 250                 /* Opening a policy handle failed, perhaps it was
 251                  * because we don't get a 'wrong password' error on
 252                  * NTLMSSP binds */
 253
 254                 /* Try again with schannel */
 255                 binding->flags |= DCERPC_SCHANNEL;
 256
 257                 /* Try again, likewise on the same IPC$ share,
 258                    secured with SCHANNEL */
 259                 ctx = dcerpc_secondary_auth_connection_send(state->domain->netlogon_pipe,
 260                                                             binding,
 261                                                             table,
 262                                                             state->domain->libnet_ctx->cred,
 263                                                             state->domain->libnet_ctx->lp_ctx);
 264                 composite_continue(state->ctx, ctx, continuation, state);
 265                 return true;
 266         } else {
 267                 return false;
 268         }
 269 }
 270 /* We should now have either an authenticated LSA pipe, or an error.
 271  * On success, open a policy handle
 272  */
 273 static void init_domain_recv_lsa_pipe(struct composite_context *ctx)
 274 {
 275         struct rpc_request *req;
 276         struct init_domain_state *state =
 277                 talloc_get_type(ctx->async.private_data,
 278                                 struct init_domain_state);
 279
 280         state->ctx->status = dcerpc_secondary_auth_connection_recv(ctx, state->domain,
 281                                                                    &state->domain->libnet_ctx->lsa.pipe);
 282         if (NT_STATUS_EQUAL(state->ctx->status, NT_STATUS_LOGON_FAILURE)) {
 283                 if (retry_with_schannel(state, state->domain->lsa_binding,
 284                                         &ndr_table_lsarpc,
 285                                         init_domain_recv_lsa_pipe)) {
 286                         return;
 287                 }
 288         }
 289         if (!composite_is_ok(state->ctx)) return;
 290
 291         talloc_steal(state->domain->libnet_ctx, state->domain->libnet_ctx->lsa.pipe);
 292         talloc_steal(state->domain->libnet_ctx->lsa.pipe, state->domain->lsa_binding);
 293         state->domain->libnet_ctx->lsa.access_mask = SEC_FLAG_MAXIMUM_ALLOWED;
 294         state->domain->libnet_ctx->lsa.name = state->domain->info->name;
 295
 296         ZERO_STRUCT(state->domain->libnet_ctx->lsa.handle);
 297         state->lsa_openpolicy.in.system_name =
 298                 talloc_asprintf(state, "\\\\%s",
 299                                 dcerpc_server_name(state->domain->libnet_ctx->lsa.pipe));
 300         ZERO_STRUCT(state->objectattr);
 301         state->lsa_openpolicy.in.attr = &state->objectattr;
 302         state->lsa_openpolicy.in.access_mask = SEC_FLAG_MAXIMUM_ALLOWED;
 303         state->lsa_openpolicy.out.handle = &state->domain->libnet_ctx->lsa.handle;
 304
 305         req = dcerpc_lsa_OpenPolicy2_send(state->domain->libnet_ctx->lsa.pipe, state,
 306                                           &state->lsa_openpolicy);
 307
 308         composite_continue_rpc(state->ctx, req, init_domain_recv_lsa_policy, state);
 309 }
 310
 311 /* Receive a policy handle (or not, and retry the authentication) and
 312  * obtain some basic information about the domain */
 313
 314 static void init_domain_recv_lsa_policy(struct rpc_request *req)
 315 {
 316         struct init_domain_state *state =
 317                 talloc_get_type(req->async.private_data,
 318                                 struct init_domain_state);
 319
 320         state->ctx->status = dcerpc_ndr_request_recv(req);
 321         if ((!NT_STATUS_IS_OK(state->ctx->status)
 322               || !NT_STATUS_IS_OK(state->lsa_openpolicy.out.result))) {
 323                 if (retry_with_schannel(state, state->domain->lsa_binding,
 324                                         &ndr_table_lsarpc,
 325                                         init_domain_recv_lsa_pipe)) {
 326                         return;
 327                 }
 328         }
 329         if (!composite_is_ok(state->ctx)) return;
 330         state->ctx->status = state->lsa_openpolicy.out.result;
 331         if (!composite_is_ok(state->ctx)) return;
 332
 333         state->queryinfo.in.handle = &state->domain->libnet_ctx->lsa.handle;
 334         state->queryinfo.in.level = LSA_POLICY_INFO_ACCOUNT_DOMAIN;
 335
 336         req = dcerpc_lsa_QueryInfoPolicy_send(state->domain->libnet_ctx->lsa.pipe, state,
 337                                               &state->queryinfo);
 338         composite_continue_rpc(state->ctx, req,
 339                                init_domain_recv_queryinfo, state);
 340 }
 341
 342 static void init_domain_recv_queryinfo(struct rpc_request *req)
 343 {
 344         struct init_domain_state *state =
 345                 talloc_get_type(req->async.private_data, struct init_domain_state);
 346         struct lsa_DomainInfo *dominfo;
 347         struct composite_context *ctx;
 348
 349         state->ctx->status = dcerpc_ndr_request_recv(req);
 350         if (!composite_is_ok(state->ctx)) return;
 351         state->ctx->status = state->queryinfo.out.result;
 352         if (!composite_is_ok(state->ctx)) return;
 353
 354         dominfo = &state->queryinfo.out.info->account_domain;
 355
 356         if (strcasecmp(state->domain->info->name, dominfo->name.string) != 0) {
 357                 DEBUG(2, ("Expected domain name %s, DC %s said %s\n",
 358                           state->domain->info->name,
 359                           dcerpc_server_name(state->domain->libnet_ctx->lsa.pipe),
 360                           dominfo->name.string));
 361                 composite_error(state->ctx, NT_STATUS_INVALID_DOMAIN_STATE);
 362                 return;
 363         }
 364
 365         if (!dom_sid_equal(state->domain->info->sid, dominfo->sid)) {
 366                 DEBUG(2, ("Expected domain sid %s, DC %s said %s\n",
 367                           dom_sid_string(state, state->domain->info->sid),
 368                           dcerpc_server_name(state->domain->libnet_ctx->lsa.pipe),
 369                           dom_sid_string(state, dominfo->sid)));
 370                 composite_error(state->ctx, NT_STATUS_INVALID_DOMAIN_STATE);
 371                 return;
 372         }
 373
 374         state->domain->samr_binding = init_domain_binding(state, &ndr_table_samr);
 375
 376         /* We want to use the same flags as the LSA pipe did (so, if
 377          * it needed schannel, then we need that here too) */
 378         state->domain->samr_binding->flags = state->domain->lsa_binding->flags;
 379
 380         state->domain->libnet_ctx->samr.pipe = NULL;
 381
 382         ctx = wb_connect_samr_send(state, state->domain);
 383         composite_continue(state->ctx, ctx, init_domain_recv_samr, state);
 384 }
 385
 386 /* Recv the SAMR details (SamrConnect and SamrOpenDomain handle) and
 387  * open an LDAP connection */
 388 static void init_domain_recv_samr(struct composite_context *ctx)
 389 {
 390         const char *ldap_url;
 391         struct init_domain_state *state =
 392                 talloc_get_type(ctx->async.private_data,
 393                                 struct init_domain_state);
 394
 395         state->ctx->status = wb_connect_samr_recv(
 396                 ctx, state->domain,
 397                 &state->domain->libnet_ctx->samr.pipe,
 398                 &state->domain->libnet_ctx->samr.handle,
 399                 &state->domain->libnet_ctx->samr.handle);
 400         if (!composite_is_ok(state->ctx)) return;
 401
 402         talloc_steal(state->domain->libnet_ctx->samr.pipe, state->domain->samr_binding);
 403         state->domain->libnet_ctx->samr.access_mask = SEC_FLAG_MAXIMUM_ALLOWED;
 404         state->domain->libnet_ctx->samr.name = state->domain->info->name;
 405         state->domain->libnet_ctx->samr.sid = state->domain->info->sid;
 406
 407         state->domain->ldap_conn =
 408                 ldap4_new_connection(state->domain, state->domain->libnet_ctx->lp_ctx, state->ctx->event_ctx);
 409         composite_nomem(state->domain->ldap_conn, state->ctx);
 410
 411         ldap_url = talloc_asprintf(state, "ldap://%s/",
 412                                    state->domain->dc_address);
 413         composite_nomem(ldap_url, state->ctx);
 414
 415         ctx = ldap_connect_send(state->domain->ldap_conn, ldap_url);
 416         composite_continue(state->ctx, ctx, init_domain_recv_ldapconn, state);
 417 }
 418
 419 static void init_domain_recv_ldapconn(struct composite_context *ctx)
 420 {
 421         struct init_domain_state *state =
 422                 talloc_get_type(ctx->async.private_data,
 423                                 struct init_domain_state);
 424
 425         state->ctx->status = ldap_connect_recv(ctx);
 426         if (NT_STATUS_IS_OK(state->ctx->status)) {
 427                 state->domain->ldap_conn->host =
 428                         talloc_strdup(state->domain->ldap_conn,
 429                                       state->domain->dc_name);
 430                 state->ctx->status =
 431                         ldap_bind_sasl(state->domain->ldap_conn,
 432                                        state->domain->libnet_ctx->cred,
 433                                        state->domain->libnet_ctx->lp_ctx);
 434                 DEBUG(0, ("ldap_bind returned %s\n",
 435                           nt_errstr(state->ctx->status)));
 436         }
 437
 438         composite_done(state->ctx);
 439 }
 440
 441 NTSTATUS wb_init_domain_recv(struct composite_context *c,
 442                              TALLOC_CTX *mem_ctx,
 443                              struct wbsrv_domain **result)
 444 {
 445         NTSTATUS status = composite_wait(c);
 446         if (NT_STATUS_IS_OK(status)) {
 447                 struct init_domain_state *state =
 448                         talloc_get_type(c->private_data,
 449                                         struct init_domain_state);
 450                 *result = talloc_steal(mem_ctx, state->domain);
 451         }
 452         talloc_free(c);
 453         return status;
 454 }
 455
 456 NTSTATUS wb_init_domain(TALLOC_CTX *mem_ctx, struct wbsrv_service *service,
 457                         struct wb_dom_info *dom_info,
 458                         struct wbsrv_domain **result)
 459 {
 460         struct composite_context *c =
 461                 wb_init_domain_send(mem_ctx, service, dom_info);
 462         return wb_init_domain_recv(c, mem_ctx, result);
 463 }