source4/torture/rpc/remote_pac.c

   1 /*
   2    Unix SMB/CIFS implementation.
   3
   4    test suite for netlogon PAC operations
   5
   6    Copyright (C) Andrew Bartlett <abartlet@samba.org> 2012
   7
   8    This program is free software; you can redistribute it and/or modify
   9    it under the terms of the GNU General Public License as published by
  10    the Free Software Foundation; either version 3 of the License, or
  11    (at your option) any later version.
  12
  13    This program is distributed in the hope that it will be useful,
  14    but WITHOUT ANY WARRANTY; without even the implied warranty of
  15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16    GNU General Public License for more details.
  17
  18    You should have received a copy of the GNU General Public License
  19    along with this program.  If not, see <http://www.gnu.org/licenses/>.
  20 */
  21
  22 #include "includes.h"
  23 #include "auth/auth.h"
  24 #include "auth/auth_sam_reply.h"
  25 #include "auth/gensec/gensec.h"
  26 #include "system/kerberos.h"
  27 #include "auth/kerberos/kerberos.h"
  28 #include "auth/credentials/credentials.h"
  29 #include "auth/credentials/credentials_krb5.h"
  30 #include "lib/cmdline/popt_common.h"
  31 #include "torture/rpc/torture_rpc.h"
  32 #include "libcli/auth/libcli_auth.h"
  33 #include "libcli/security/security.h"
  34 #include "librpc/gen_ndr/ndr_netlogon_c.h"
  35 #include "librpc/gen_ndr/ndr_krb5pac.h"
  36 #include "librpc/gen_ndr/ndr_samr_c.h"
  37 #include "param/param.h"
  38
  39 #define TEST_MACHINE_NAME_BDC "torturepacbdc"
  40 #define TEST_MACHINE_NAME_WKSTA "torturepacwksta"
  41 #define TEST_MACHINE_NAME_WKSTA_DES "torturepacwkdes"
  42 #define TEST_MACHINE_NAME_S2U4SELF_BDC "tests2u4selfbdc"
  43 #define TEST_MACHINE_NAME_S2U4SELF_WKSTA "tests2u4selfwk"
  44
  45 struct pac_data {
  46         struct PAC_SIGNATURE_DATA *pac_srv_sig;
  47         struct PAC_SIGNATURE_DATA *pac_kdc_sig;
  48 };
  49
  50 /* A helper function which avoids touching the local databases to
  51  * generate the session info, as we just want to verify the PAC
  52  * details, not the full local token */
  53 static NTSTATUS test_generate_session_info_pac(struct auth4_context *auth_ctx,
  54                                                TALLOC_CTX *mem_ctx,
  55                                                struct smb_krb5_context *smb_krb5_context,
  56                                                DATA_BLOB *pac_blob,
  57                                                const char *principal_name,
  58                                                const struct tsocket_address *remote_address,
  59                                                uint32_t session_info_flags,
  60                                                struct auth_session_info **session_info)
  61 {
  62         NTSTATUS nt_status;
  63         struct auth_user_info_dc *user_info_dc;
  64         TALLOC_CTX *tmp_ctx;
  65         struct pac_data *pac_data;
  66
  67         tmp_ctx = talloc_named(mem_ctx, 0, "gensec_gssapi_session_info context");
  68         NT_STATUS_HAVE_NO_MEMORY(tmp_ctx);
  69
  70         auth_ctx->private_data = pac_data = talloc_zero(auth_ctx, struct pac_data);
  71
  72         pac_data->pac_srv_sig = talloc(tmp_ctx, struct PAC_SIGNATURE_DATA);
  73         if (!pac_data->pac_srv_sig) {
  74                 talloc_free(tmp_ctx);
  75                 return NT_STATUS_NO_MEMORY;
  76         }
  77         pac_data->pac_kdc_sig = talloc(tmp_ctx, struct PAC_SIGNATURE_DATA);
  78         if (!pac_data->pac_kdc_sig) {
  79                 talloc_free(tmp_ctx);
  80                 return NT_STATUS_NO_MEMORY;
  81         }
  82
  83         nt_status = kerberos_pac_blob_to_user_info_dc(tmp_ctx,
  84                                                       *pac_blob,
  85                                                       smb_krb5_context->krb5_context,
  86                                                       &user_info_dc,
  87                                                       pac_data->pac_srv_sig,
  88                                                       pac_data->pac_kdc_sig);
  89         if (!NT_STATUS_IS_OK(nt_status)) {
  90                 talloc_free(tmp_ctx);
  91                 return nt_status;
  92         }
  93
  94         talloc_steal(pac_data, pac_data->pac_srv_sig);
  95         talloc_steal(pac_data, pac_data->pac_kdc_sig);
  96
  97         if (user_info_dc->info->authenticated) {
  98                 session_info_flags |= AUTH_SESSION_INFO_AUTHENTICATED;
  99         }
 100
 101         session_info_flags |= AUTH_SESSION_INFO_SIMPLE_PRIVILEGES;
 102         nt_status = auth_generate_session_info(mem_ctx,
 103                                                NULL,
 104                                                NULL,
 105                                                user_info_dc, session_info_flags,
 106                                                session_info);
 107         if (!NT_STATUS_IS_OK(nt_status)) {
 108                 talloc_free(tmp_ctx);
 109                 return nt_status;
 110         }
 111
 112         talloc_free(tmp_ctx);
 113         return nt_status;
 114 }
 115
 116 /* Check to see if we can pass the PAC across to the NETLOGON server for validation */
 117
 118 /* Also happens to be a really good one-step verfication of our Kerberos stack */
 119
 120 static bool test_PACVerify(struct torture_context *tctx,
 121                            struct dcerpc_pipe *p,
 122                            struct cli_credentials *credentials,
 123                            enum netr_SchannelType secure_channel_type,
 124                            const char *test_machine_name,
 125                            uint32_t negotiate_flags)
 126 {
 127         NTSTATUS status;
 128
 129         struct netr_LogonSamLogon r;
 130
 131         union netr_LogonLevel logon;
 132         union netr_Validation validation;
 133         uint8_t authoritative;
 134         struct netr_Authenticator return_authenticator;
 135
 136         struct netr_GenericInfo generic;
 137         struct netr_Authenticator auth, auth2;
 138
 139         struct netlogon_creds_CredentialState *creds;
 140         struct gensec_security *gensec_client_context;
 141         struct gensec_security *gensec_server_context;
 142
 143         DATA_BLOB client_to_server, server_to_client, pac_wrapped, payload;
 144         struct PAC_Validate pac_wrapped_struct;
 145
 146         enum ndr_err_code ndr_err;
 147
 148         struct auth4_context *auth_context;
 149         struct auth_session_info *session_info;
 150         struct pac_data *pac_data;
 151
 152         struct dcerpc_binding_handle *b = p->binding_handle;
 153         TALLOC_CTX *tmp_ctx = talloc_new(tctx);
 154         torture_assert(tctx, tmp_ctx != NULL, "talloc_new() failed");
 155
 156         torture_comment(tctx,
 157                 "Testing PAC Verify (secure_channel_type: %d, machine: %s, negotiate_flags: 0x%08x\n",
 158                 secure_channel_type, test_machine_name, negotiate_flags);
 159
 160         if (!test_SetupCredentials2(p, tctx, negotiate_flags,
 161                                     credentials, secure_channel_type,
 162                                     &creds)) {
 163                 return false;
 164         }
 165
 166         auth_context = talloc_zero(tmp_ctx, struct auth4_context);
 167         torture_assert(tctx, auth_context != NULL, "talloc_new() failed");
 168
 169         auth_context->generate_session_info_pac = test_generate_session_info_pac;
 170
 171         status = gensec_client_start(tctx, &gensec_client_context,
 172                                      lpcfg_gensec_settings(tctx, tctx->lp_ctx));
 173         torture_assert_ntstatus_ok(tctx, status, "gensec_client_start (client) failed");
 174
 175         status = gensec_set_target_hostname(gensec_client_context, test_machine_name);
 176
 177         status = gensec_set_credentials(gensec_client_context, cmdline_credentials);
 178         torture_assert_ntstatus_ok(tctx, status, "gensec_set_credentials (client) failed");
 179
 180         status = gensec_start_mech_by_sasl_name(gensec_client_context, "GSSAPI");
 181         torture_assert_ntstatus_ok(tctx, status, "gensec_start_mech_by_sasl_name (client) failed");
 182
 183         status = gensec_server_start(tctx,
 184                                      lpcfg_gensec_settings(tctx, tctx->lp_ctx),
 185                                      auth_context, &gensec_server_context);
 186         torture_assert_ntstatus_ok(tctx, status, "gensec_server_start (server) failed");
 187
 188         status = gensec_set_credentials(gensec_server_context, credentials);
 189         torture_assert_ntstatus_ok(tctx, status, "gensec_set_credentials (server) failed");
 190
 191         status = gensec_start_mech_by_sasl_name(gensec_server_context, "GSSAPI");
 192         torture_assert_ntstatus_ok(tctx, status, "gensec_start_mech_by_sasl_name (server) failed");
 193
 194         server_to_client = data_blob(NULL, 0);
 195
 196         do {
 197                 /* Do a client-server update dance */
 198                 status = gensec_update(gensec_client_context, tmp_ctx, tctx->ev, server_to_client, &client_to_server);
 199                 if (!NT_STATUS_EQUAL(status, NT_STATUS_MORE_PROCESSING_REQUIRED)) {;
 200                         torture_assert_ntstatus_ok(tctx, status, "gensec_update (client) failed");
 201                 }
 202
 203                 status = gensec_update(gensec_server_context, tmp_ctx, tctx->ev, client_to_server, &server_to_client);
 204                 if (!NT_STATUS_EQUAL(status, NT_STATUS_MORE_PROCESSING_REQUIRED)) {;
 205                         torture_assert_ntstatus_ok(tctx, status, "gensec_update (server) failed");
 206                 }
 207
 208                 if (NT_STATUS_IS_OK(status)) {
 209                         break;
 210                 }
 211         } while (1);
 212
 213         /* Extract the PAC using Samba's code */
 214
 215         status = gensec_session_info(gensec_server_context, gensec_server_context, &session_info);
 216         torture_assert_ntstatus_ok(tctx, status, "gensec_session_info failed");
 217
 218         pac_data = talloc_get_type(auth_context->private_data, struct pac_data);
 219
 220         torture_assert(tctx, pac_data != NULL, "gensec_update failed to fill in pac_data in auth_context");
 221         torture_assert(tctx, pac_data->pac_srv_sig != NULL, "pac_srv_sig not present");
 222         torture_assert(tctx, pac_data->pac_kdc_sig != NULL, "pac_kdc_sig not present");
 223
 224         pac_wrapped_struct.ChecksumLength = pac_data->pac_srv_sig->signature.length;
 225         pac_wrapped_struct.SignatureType = pac_data->pac_kdc_sig->type;
 226         pac_wrapped_struct.SignatureLength = pac_data->pac_kdc_sig->signature.length;
 227         pac_wrapped_struct.ChecksumAndSignature = payload
 228                 = data_blob_talloc(tmp_ctx, NULL,
 229                                    pac_wrapped_struct.ChecksumLength
 230                                    + pac_wrapped_struct.SignatureLength);
 231         memcpy(&payload.data[0],
 232                pac_data->pac_srv_sig->signature.data,
 233                pac_wrapped_struct.ChecksumLength);
 234         memcpy(&payload.data[pac_wrapped_struct.ChecksumLength],
 235                pac_data->pac_kdc_sig->signature.data,
 236                pac_wrapped_struct.SignatureLength);
 237
 238         ndr_err = ndr_push_struct_blob(&pac_wrapped, tmp_ctx, &pac_wrapped_struct,
 239                                        (ndr_push_flags_fn_t)ndr_push_PAC_Validate);
 240         torture_assert(tctx, NDR_ERR_CODE_IS_SUCCESS(ndr_err), "ndr_push_struct_blob of PACValidate structure failed");
 241
 242         torture_assert(tctx, (creds->negotiate_flags & NETLOGON_NEG_ARCFOUR), "not willing to even try a PACValidate without RC4 encryption");
 243         if (creds->negotiate_flags & NETLOGON_NEG_SUPPORTS_AES) {
 244                 netlogon_creds_aes_encrypt(creds, pac_wrapped.data, pac_wrapped.length);
 245         } else {
 246                 netlogon_creds_arcfour_crypt(creds, pac_wrapped.data, pac_wrapped.length);
 247         }
 248
 249         generic.length = pac_wrapped.length;
 250         generic.data = pac_wrapped.data;
 251
 252         /* Validate it over the netlogon pipe */
 253
 254         generic.identity_info.parameter_control = 0;
 255         generic.identity_info.logon_id_high = 0;
 256         generic.identity_info.logon_id_low = 0;
 257         generic.identity_info.domain_name.string = session_info->info->domain_name;
 258         generic.identity_info.account_name.string = session_info->info->account_name;
 259         generic.identity_info.workstation.string = test_machine_name;
 260
 261         generic.package_name.string = "Kerberos";
 262
 263         logon.generic = &generic;
 264
 265         ZERO_STRUCT(auth2);
 266         netlogon_creds_client_authenticator(creds, &auth);
 267         r.in.credential = &auth;
 268         r.in.return_authenticator = &auth2;
 269         r.in.logon = &logon;
 270         r.in.logon_level = NetlogonGenericInformation;
 271         r.in.server_name = talloc_asprintf(tctx, "\\\\%s", dcerpc_server_name(p));
 272         r.in.computer_name = cli_credentials_get_workstation(credentials);
 273         r.in.validation_level = NetlogonValidationGenericInfo2;
 274         r.out.validation = &validation;
 275         r.out.authoritative = &authoritative;
 276         r.out.return_authenticator = &return_authenticator;
 277
 278         torture_assert_ntstatus_ok(tctx, dcerpc_netr_LogonSamLogon_r(b, tctx, &r),
 279                 "LogonSamLogon failed");
 280
 281         torture_assert_ntstatus_ok(tctx, r.out.result, "LogonSamLogon failed");
 282
 283         /* This will break the signature nicely (even in the crypto wrapping), check we get a logon failure */
 284         generic.data[generic.length-1]++;
 285
 286         logon.generic = &generic;
 287
 288         ZERO_STRUCT(auth2);
 289         netlogon_creds_client_authenticator(creds, &auth);
 290         r.in.credential = &auth;
 291         r.in.return_authenticator = &auth2;
 292         r.in.logon_level = NetlogonGenericInformation;
 293         r.in.logon = &logon;
 294         r.in.server_name = talloc_asprintf(tctx, "\\\\%s", dcerpc_server_name(p));
 295         r.in.computer_name = cli_credentials_get_workstation(credentials);
 296         r.in.validation_level = NetlogonValidationGenericInfo2;
 297
 298         torture_assert_ntstatus_ok(tctx, dcerpc_netr_LogonSamLogon_r(b, tctx, &r),
 299                 "LogonSamLogon failed");
 300
 301         torture_assert_ntstatus_equal(tctx, r.out.result, NT_STATUS_LOGON_FAILURE, "LogonSamLogon failed");
 302
 303         torture_assert(tctx, netlogon_creds_client_check(creds, &r.out.return_authenticator->cred),
 304                        "Credential chaining failed");
 305
 306         /* This will break the parsing nicely (even in the crypto wrapping), check we get INVALID_PARAMETER */
 307         generic.length--;
 308
 309         logon.generic = &generic;
 310
 311         ZERO_STRUCT(auth2);
 312         netlogon_creds_client_authenticator(creds, &auth);
 313         r.in.credential = &auth;
 314         r.in.return_authenticator = &auth2;
 315         r.in.logon_level = NetlogonGenericInformation;
 316         r.in.logon = &logon;
 317         r.in.server_name = talloc_asprintf(tctx, "\\\\%s", dcerpc_server_name(p));
 318         r.in.computer_name = cli_credentials_get_workstation(credentials);
 319         r.in.validation_level = NetlogonValidationGenericInfo2;
 320
 321         torture_assert_ntstatus_ok(tctx, dcerpc_netr_LogonSamLogon_r(b, tctx, &r),
 322                 "LogonSamLogon failed");
 323
 324         torture_assert_ntstatus_equal(tctx, r.out.result, NT_STATUS_INVALID_PARAMETER, "LogonSamLogon failed");
 325
 326         torture_assert(tctx, netlogon_creds_client_check(creds,
 327                                                          &r.out.return_authenticator->cred),
 328                        "Credential chaining failed");
 329
 330         pac_wrapped_struct.ChecksumLength = pac_data->pac_srv_sig->signature.length;
 331         pac_wrapped_struct.SignatureType = pac_data->pac_kdc_sig->type;
 332
 333         /* Break the SignatureType */
 334         pac_wrapped_struct.SignatureType++;
 335
 336         pac_wrapped_struct.SignatureLength = pac_data->pac_kdc_sig->signature.length;
 337         pac_wrapped_struct.ChecksumAndSignature = payload
 338                 = data_blob_talloc(tmp_ctx, NULL,
 339                                    pac_wrapped_struct.ChecksumLength
 340                                    + pac_wrapped_struct.SignatureLength);
 341         memcpy(&payload.data[0],
 342                pac_data->pac_srv_sig->signature.data,
 343                pac_wrapped_struct.ChecksumLength);
 344         memcpy(&payload.data[pac_wrapped_struct.ChecksumLength],
 345                pac_data->pac_kdc_sig->signature.data,
 346                pac_wrapped_struct.SignatureLength);
 347
 348         ndr_err = ndr_push_struct_blob(&pac_wrapped, tmp_ctx, &pac_wrapped_struct,
 349                                        (ndr_push_flags_fn_t)ndr_push_PAC_Validate);
 350         torture_assert(tctx, NDR_ERR_CODE_IS_SUCCESS(ndr_err), "ndr_push_struct_blob of PACValidate structure failed");
 351
 352         torture_assert(tctx, (creds->negotiate_flags & NETLOGON_NEG_ARCFOUR), "not willing to even try a PACValidate without RC4 encryption");
 353         if (creds->negotiate_flags & NETLOGON_NEG_SUPPORTS_AES) {
 354                 netlogon_creds_aes_encrypt(creds, pac_wrapped.data, pac_wrapped.length);
 355         } else {
 356                 netlogon_creds_arcfour_crypt(creds, pac_wrapped.data, pac_wrapped.length);
 357         }
 358
 359         generic.length = pac_wrapped.length;
 360         generic.data = pac_wrapped.data;
 361
 362         logon.generic = &generic;
 363
 364         ZERO_STRUCT(auth2);
 365         netlogon_creds_client_authenticator(creds, &auth);
 366         r.in.credential = &auth;
 367         r.in.return_authenticator = &auth2;
 368         r.in.logon_level = NetlogonGenericInformation;
 369         r.in.logon = &logon;
 370         r.in.server_name = talloc_asprintf(tctx, "\\\\%s", dcerpc_server_name(p));
 371         r.in.computer_name = cli_credentials_get_workstation(credentials);
 372         r.in.validation_level = NetlogonValidationGenericInfo2;
 373
 374         torture_assert_ntstatus_ok(tctx, dcerpc_netr_LogonSamLogon_r(b, tctx, &r),
 375                 "LogonSamLogon failed");
 376
 377         torture_assert_ntstatus_equal(tctx, r.out.result, NT_STATUS_LOGON_FAILURE, "LogonSamLogon failed");
 378
 379         torture_assert(tctx, netlogon_creds_client_check(creds, &r.out.return_authenticator->cred),
 380                        "Credential chaining failed");
 381
 382         pac_wrapped_struct.ChecksumLength = pac_data->pac_srv_sig->signature.length;
 383         pac_wrapped_struct.SignatureType = pac_data->pac_kdc_sig->type;
 384         pac_wrapped_struct.SignatureLength = pac_data->pac_kdc_sig->signature.length;
 385
 386         pac_wrapped_struct.ChecksumAndSignature = payload
 387                 = data_blob_talloc(tmp_ctx, NULL,
 388                                    pac_wrapped_struct.ChecksumLength
 389                                    + pac_wrapped_struct.SignatureLength);
 390         memcpy(&payload.data[0],
 391                pac_data->pac_srv_sig->signature.data,
 392                pac_wrapped_struct.ChecksumLength);
 393         memcpy(&payload.data[pac_wrapped_struct.ChecksumLength],
 394                pac_data->pac_kdc_sig->signature.data,
 395                pac_wrapped_struct.SignatureLength);
 396
 397         /* Break the signature length */
 398         pac_wrapped_struct.SignatureLength++;
 399
 400         ndr_err = ndr_push_struct_blob(&pac_wrapped, tmp_ctx, &pac_wrapped_struct,
 401                                        (ndr_push_flags_fn_t)ndr_push_PAC_Validate);
 402         torture_assert(tctx, NDR_ERR_CODE_IS_SUCCESS(ndr_err), "ndr_push_struct_blob of PACValidate structure failed");
 403
 404         torture_assert(tctx, (creds->negotiate_flags & NETLOGON_NEG_ARCFOUR), "not willing to even try a PACValidate without RC4 encryption");
 405         if (creds->negotiate_flags & NETLOGON_NEG_SUPPORTS_AES) {
 406                 netlogon_creds_aes_encrypt(creds, pac_wrapped.data, pac_wrapped.length);
 407         } else {
 408                 netlogon_creds_arcfour_crypt(creds, pac_wrapped.data, pac_wrapped.length);
 409         }
 410
 411         generic.length = pac_wrapped.length;
 412         generic.data = pac_wrapped.data;
 413
 414         logon.generic = &generic;
 415
 416         ZERO_STRUCT(auth2);
 417         netlogon_creds_client_authenticator(creds, &auth);
 418         r.in.credential = &auth;
 419         r.in.return_authenticator = &auth2;
 420         r.in.logon_level = NetlogonGenericInformation;
 421         r.in.logon = &logon;
 422         r.in.server_name = talloc_asprintf(tctx, "\\\\%s", dcerpc_server_name(p));
 423         r.in.computer_name = cli_credentials_get_workstation(credentials);
 424         r.in.validation_level = NetlogonValidationGenericInfo2;
 425
 426         torture_assert_ntstatus_ok(tctx, dcerpc_netr_LogonSamLogon_r(b, tctx, &r),
 427                 "LogonSamLogon failed");
 428
 429         torture_assert_ntstatus_equal(tctx, r.out.result, NT_STATUS_INVALID_PARAMETER, "LogonSamLogon failed");
 430
 431         torture_assert(tctx, netlogon_creds_client_check(creds, &r.out.return_authenticator->cred),
 432                        "Credential chaining failed");
 433
 434         return true;
 435 }
 436
 437 static bool test_PACVerify_bdc_arcfour(struct torture_context *tctx,
 438                                        struct dcerpc_pipe *p,
 439                                        struct cli_credentials *credentials)
 440 {
 441         return test_PACVerify(tctx, p, credentials, SEC_CHAN_BDC,
 442                               TEST_MACHINE_NAME_BDC,
 443                               NETLOGON_NEG_AUTH2_ADS_FLAGS);
 444 }
 445
 446 static bool test_PACVerify_bdc_aes(struct torture_context *tctx,
 447                                    struct dcerpc_pipe *p,
 448                                    struct cli_credentials *credentials)
 449 {
 450         return test_PACVerify(tctx, p, credentials, SEC_CHAN_BDC,
 451                               TEST_MACHINE_NAME_BDC,
 452                               NETLOGON_NEG_AUTH2_ADS_FLAGS | NETLOGON_NEG_SUPPORTS_AES);
 453 }
 454
 455 static bool test_PACVerify_workstation_arcfour(struct torture_context *tctx,
 456                                                struct dcerpc_pipe *p,
 457                                                struct cli_credentials *credentials)
 458 {
 459         return test_PACVerify(tctx, p, credentials, SEC_CHAN_WKSTA,
 460                               TEST_MACHINE_NAME_WKSTA,
 461                               NETLOGON_NEG_AUTH2_ADS_FLAGS);
 462 }
 463
 464 static bool test_PACVerify_workstation_aes(struct torture_context *tctx,
 465                                            struct dcerpc_pipe *p,
 466                                            struct cli_credentials *credentials)
 467 {
 468         return test_PACVerify(tctx, p, credentials, SEC_CHAN_WKSTA,
 469                               TEST_MACHINE_NAME_WKSTA,
 470                               NETLOGON_NEG_AUTH2_ADS_FLAGS | NETLOGON_NEG_SUPPORTS_AES);
 471 }
 472
 473 static bool test_PACVerify_workstation_des(struct torture_context *tctx,
 474                                            struct dcerpc_pipe *p, struct cli_credentials *credentials, struct test_join *join_ctx)
 475 {
 476         struct samr_SetUserInfo r;
 477         union samr_UserInfo user_info;
 478         struct dcerpc_pipe *samr_pipe = torture_join_samr_pipe(join_ctx);
 479
 480 #ifdef AD_DC_BUILD_IS_ENABLED
 481         struct smb_krb5_context *smb_krb5_context;
 482         krb5_error_code ret;
 483
 484         ret = cli_credentials_get_krb5_context(cmdline_credentials, tctx->lp_ctx, &smb_krb5_context);
 485         torture_assert_int_equal(tctx, ret, 0, "cli_credentials_get_krb5_context() failed");
 486
 487         if (krb5_config_get_bool_default(smb_krb5_context->krb5_context, NULL, FALSE,
 488                                          "libdefaults",
 489                                          "allow_weak_crypto", NULL) == FALSE) {
 490                 torture_skip(tctx, "Cannot test DES without [libdefaults] allow_weak_crypto = yes");
 491         }
 492 #else
 493         torture_skip(tctx, "Skipping DES test in non-AD DC build");
 494 #endif
 495
 496         /* Mark this workstation with DES-only */
 497         user_info.info16.acct_flags = ACB_USE_DES_KEY_ONLY | ACB_WSTRUST;
 498         r.in.user_handle = torture_join_samr_user_policy(join_ctx);
 499         r.in.level = 16;
 500         r.in.info = &user_info;
 501
 502         torture_assert_ntstatus_ok(tctx, dcerpc_samr_SetUserInfo_r(samr_pipe->binding_handle, tctx, &r),
 503                 "failed to set DES info account flags");
 504         torture_assert_ntstatus_ok(tctx, r.out.result,
 505                 "failed to set DES into account flags");
 506
 507         return test_PACVerify(tctx, p, credentials, SEC_CHAN_WKSTA,
 508                               TEST_MACHINE_NAME_WKSTA_DES,
 509                               NETLOGON_NEG_AUTH2_ADS_FLAGS);
 510 }
 511
 512
 513 /* Check various ways to get the PAC, in particular check the group membership and other details between the PAC from a normal kinit, S2U4Self and a SamLogon */
 514 static bool test_S2U4Self(struct torture_context *tctx,
 515                           struct dcerpc_pipe *p,
 516                           struct cli_credentials *credentials,
 517                           enum netr_SchannelType secure_channel_type,
 518                           const char *test_machine_name,
 519                           uint32_t negotiate_flags)
 520 {
 521         NTSTATUS status;
 522         struct dcerpc_binding_handle *b = p->binding_handle;
 523
 524         struct netr_LogonSamLogon r;
 525
 526         union netr_LogonLevel logon;
 527         union netr_Validation validation;
 528         uint8_t authoritative;
 529
 530         struct netr_Authenticator auth, auth2;
 531
 532         DATA_BLOB client_to_server, server_to_client;
 533
 534         struct netlogon_creds_CredentialState *creds;
 535         struct gensec_security *gensec_client_context;
 536         struct gensec_security *gensec_server_context;
 537
 538         struct auth4_context *auth_context;
 539         struct auth_session_info *kinit_session_info;
 540         struct auth_session_info *s2u4self_session_info;
 541         struct auth_user_info_dc *netlogon_user_info_dc;
 542
 543         struct netr_NetworkInfo ninfo;
 544         DATA_BLOB names_blob, chal, lm_resp, nt_resp;
 545         size_t i;
 546         int flags = CLI_CRED_NTLMv2_AUTH;
 547
 548         struct dom_sid *builtin_domain;
 549
 550         TALLOC_CTX *tmp_ctx = talloc_new(tctx);
 551
 552         torture_assert(tctx, tmp_ctx != NULL, "talloc_new() failed");
 553
 554         torture_comment(tctx,
 555                 "Testing S4U2SELF (secure_channel_type: %d, machine: %s, negotiate_flags: 0x%08x\n",
 556                 secure_channel_type, test_machine_name, negotiate_flags);
 557
 558         auth_context = talloc_zero(tmp_ctx, struct auth4_context);
 559         torture_assert(tctx, auth_context != NULL, "talloc_new() failed");
 560
 561         auth_context->generate_session_info_pac = test_generate_session_info_pac;
 562
 563         /* First, do a normal Kerberos connection */
 564
 565         status = gensec_client_start(tctx, &gensec_client_context,
 566                                      lpcfg_gensec_settings(tctx, tctx->lp_ctx));
 567         torture_assert_ntstatus_ok(tctx, status, "gensec_client_start (client) failed");
 568
 569         status = gensec_set_target_hostname(gensec_client_context, test_machine_name);
 570
 571         status = gensec_set_credentials(gensec_client_context, cmdline_credentials);
 572         torture_assert_ntstatus_ok(tctx, status, "gensec_set_credentials (client) failed");
 573
 574         status = gensec_start_mech_by_sasl_name(gensec_client_context, "GSSAPI");
 575         torture_assert_ntstatus_ok(tctx, status, "gensec_start_mech_by_sasl_name (client) failed");
 576
 577         status = gensec_server_start(tctx,
 578                                      lpcfg_gensec_settings(tctx, tctx->lp_ctx),
 579                                      auth_context, &gensec_server_context);
 580         torture_assert_ntstatus_ok(tctx, status, "gensec_server_start (server) failed");
 581
 582         status = gensec_set_credentials(gensec_server_context, credentials);
 583         torture_assert_ntstatus_ok(tctx, status, "gensec_set_credentials (server) failed");
 584
 585         status = gensec_start_mech_by_sasl_name(gensec_server_context, "GSSAPI");
 586         torture_assert_ntstatus_ok(tctx, status, "gensec_start_mech_by_sasl_name (server) failed");
 587
 588         server_to_client = data_blob(NULL, 0);
 589
 590         do {
 591                 /* Do a client-server update dance */
 592                 status = gensec_update(gensec_client_context, tmp_ctx, tctx->ev, server_to_client, &client_to_server);
 593                 if (!NT_STATUS_EQUAL(status, NT_STATUS_MORE_PROCESSING_REQUIRED)) {;
 594                         torture_assert_ntstatus_ok(tctx, status, "gensec_update (client) failed");
 595                 }
 596
 597                 status = gensec_update(gensec_server_context, tmp_ctx, tctx->ev, client_to_server, &server_to_client);
 598                 if (!NT_STATUS_EQUAL(status, NT_STATUS_MORE_PROCESSING_REQUIRED)) {;
 599                         torture_assert_ntstatus_ok(tctx, status, "gensec_update (server) failed");
 600                 }
 601
 602                 if (NT_STATUS_IS_OK(status)) {
 603                         break;
 604                 }
 605         } while (1);
 606
 607         /* Extract the PAC using Samba's code */
 608
 609         status = gensec_session_info(gensec_server_context, gensec_server_context, &kinit_session_info);
 610         torture_assert_ntstatus_ok(tctx, status, "gensec_session_info failed");
 611
 612
 613         /* Now do the dance with S2U4Self */
 614
 615         /* Wipe out any existing ccache */
 616         cli_credentials_invalidate_ccache(credentials, CRED_SPECIFIED);
 617         cli_credentials_set_impersonate_principal(credentials,
 618                         cli_credentials_get_principal(cmdline_credentials, tmp_ctx),
 619                         talloc_asprintf(tmp_ctx, "host/%s", test_machine_name));
 620
 621         status = gensec_client_start(tctx, &gensec_client_context,
 622                                      lpcfg_gensec_settings(tctx, tctx->lp_ctx));
 623         torture_assert_ntstatus_ok(tctx, status, "gensec_client_start (client) failed");
 624
 625         status = gensec_set_target_hostname(gensec_client_context, test_machine_name);
 626
 627         /* We now set the same credentials on both client and server contexts */
 628         status = gensec_set_credentials(gensec_client_context, credentials);
 629         torture_assert_ntstatus_ok(tctx, status, "gensec_set_credentials (client) failed");
 630
 631         status = gensec_start_mech_by_sasl_name(gensec_client_context, "GSSAPI");
 632         torture_assert_ntstatus_ok(tctx, status, "gensec_start_mech_by_sasl_name (client) failed");
 633
 634         status = gensec_server_start(tctx,
 635                                      lpcfg_gensec_settings(tctx, tctx->lp_ctx),
 636                                      auth_context, &gensec_server_context);
 637         torture_assert_ntstatus_ok(tctx, status, "gensec_server_start (server) failed");
 638
 639         status = gensec_set_credentials(gensec_server_context, credentials);
 640         torture_assert_ntstatus_ok(tctx, status, "gensec_set_credentials (server) failed");
 641
 642         status = gensec_start_mech_by_sasl_name(gensec_server_context, "GSSAPI");
 643         torture_assert_ntstatus_ok(tctx, status, "gensec_start_mech_by_sasl_name (server) failed");
 644
 645         server_to_client = data_blob(NULL, 0);
 646
 647         do {
 648                 /* Do a client-server update dance */
 649                 status = gensec_update(gensec_client_context, tmp_ctx, tctx->ev, server_to_client, &client_to_server);
 650                 if (!NT_STATUS_EQUAL(status, NT_STATUS_MORE_PROCESSING_REQUIRED)) {;
 651                         torture_assert_ntstatus_ok(tctx, status, "gensec_update (client) failed");
 652                 }
 653
 654                 status = gensec_update(gensec_server_context, tmp_ctx, tctx->ev, client_to_server, &server_to_client);
 655                 if (!NT_STATUS_EQUAL(status, NT_STATUS_MORE_PROCESSING_REQUIRED)) {;
 656                         torture_assert_ntstatus_ok(tctx, status, "gensec_update (server) failed");
 657                 }
 658
 659                 if (NT_STATUS_IS_OK(status)) {
 660                         break;
 661                 }
 662         } while (1);
 663
 664         /* Don't pollute the remaining tests with the changed credentials */
 665         cli_credentials_invalidate_ccache(credentials, CRED_SPECIFIED);
 666         cli_credentials_set_target_service(credentials, NULL);
 667         cli_credentials_set_impersonate_principal(credentials, NULL, NULL);
 668
 669         /* Extract the PAC using Samba's code */
 670
 671         status = gensec_session_info(gensec_server_context, gensec_server_context, &s2u4self_session_info);
 672         torture_assert_ntstatus_ok(tctx, status, "gensec_session_info failed");
 673
 674         cli_credentials_get_ntlm_username_domain(cmdline_credentials, tctx,
 675                                                  &ninfo.identity_info.account_name.string,
 676                                                  &ninfo.identity_info.domain_name.string);
 677
 678         /* Now try with SamLogon */
 679         generate_random_buffer(ninfo.challenge,
 680                                sizeof(ninfo.challenge));
 681         chal = data_blob_const(ninfo.challenge,
 682                                sizeof(ninfo.challenge));
 683
 684         names_blob = NTLMv2_generate_names_blob(tctx, cli_credentials_get_workstation(credentials),
 685                                                 cli_credentials_get_domain(credentials));
 686
 687         status = cli_credentials_get_ntlm_response(cmdline_credentials, tctx,
 688                                                    &flags,
 689                                                    chal,
 690                                                    names_blob,
 691                                                    &lm_resp, &nt_resp,
 692                                                    NULL, NULL);
 693         torture_assert_ntstatus_ok(tctx, status, "cli_credentials_get_ntlm_response failed");
 694
 695         ninfo.lm.data = lm_resp.data;
 696         ninfo.lm.length = lm_resp.length;
 697
 698         ninfo.nt.data = nt_resp.data;
 699         ninfo.nt.length = nt_resp.length;
 700
 701         ninfo.identity_info.parameter_control = 0;
 702         ninfo.identity_info.logon_id_low = 0;
 703         ninfo.identity_info.logon_id_high = 0;
 704         ninfo.identity_info.workstation.string = cli_credentials_get_workstation(credentials);
 705
 706         logon.network = &ninfo;
 707
 708         r.in.server_name = talloc_asprintf(tctx, "\\\\%s", dcerpc_server_name(p));
 709         r.in.computer_name = cli_credentials_get_workstation(credentials);
 710         r.in.credential = &auth;
 711         r.in.return_authenticator = &auth2;
 712         r.in.logon_level = NetlogonNetworkInformation;
 713         r.in.logon = &logon;
 714         r.out.validation = &validation;
 715         r.out.authoritative = &authoritative;
 716
 717         if (!test_SetupCredentials2(p, tctx, negotiate_flags,
 718                                     credentials, secure_channel_type,
 719                                     &creds)) {
 720                 return false;
 721         }
 722
 723         ZERO_STRUCT(auth2);
 724         netlogon_creds_client_authenticator(creds, &auth);
 725
 726         r.in.validation_level = 3;
 727
 728         status = dcerpc_netr_LogonSamLogon_r(b, tctx, &r);
 729         torture_assert_ntstatus_ok(tctx, status, "LogonSamLogon failed");
 730
 731         torture_assert(tctx, netlogon_creds_client_check(creds,
 732                                                          &r.out.return_authenticator->cred),
 733                        "Credential chaining failed");
 734
 735         status = make_user_info_dc_netlogon_validation(tmp_ctx,
 736                                                       ninfo.identity_info.account_name.string,
 737                                                       r.in.validation_level,
 738                                                       r.out.validation,
 739                                                           true, /* This user was authenticated */
 740                                                       &netlogon_user_info_dc);
 741
 742         torture_assert_ntstatus_ok(tctx, status, "make_user_info_dc_netlogon_validation failed");
 743
 744         torture_assert_str_equal(tctx, netlogon_user_info_dc->info->account_name == NULL ? "" : netlogon_user_info_dc->info->account_name,
 745                                  kinit_session_info->info->account_name, "Account name differs for kinit-based PAC");
 746         torture_assert_str_equal(tctx,netlogon_user_info_dc->info->account_name == NULL ? "" : netlogon_user_info_dc->info->account_name,
 747                                  s2u4self_session_info->info->account_name, "Account name differs for S2U4Self");
 748         torture_assert_str_equal(tctx, netlogon_user_info_dc->info->full_name == NULL ? "" : netlogon_user_info_dc->info->full_name, kinit_session_info->info->full_name, "Full name differs for kinit-based PAC");
 749         torture_assert_str_equal(tctx, netlogon_user_info_dc->info->full_name == NULL ? "" : netlogon_user_info_dc->info->full_name, s2u4self_session_info->info->full_name, "Full name differs for S2U4Self");
 750         torture_assert_int_equal(tctx, netlogon_user_info_dc->num_sids, kinit_session_info->torture->num_dc_sids, "Different numbers of domain groups for kinit-based PAC");
 751         torture_assert_int_equal(tctx, netlogon_user_info_dc->num_sids, s2u4self_session_info->torture->num_dc_sids, "Different numbers of domain groups for S2U4Self");
 752
 753         builtin_domain = dom_sid_parse_talloc(tmp_ctx, SID_BUILTIN);
 754
 755         for (i = 0; i < kinit_session_info->torture->num_dc_sids; i++) {
 756                 torture_assert(tctx, dom_sid_equal(&netlogon_user_info_dc->sids[i], &kinit_session_info->torture->dc_sids[i]), "Different domain groups for kinit-based PAC");
 757                 torture_assert(tctx, dom_sid_equal(&netlogon_user_info_dc->sids[i], &s2u4self_session_info->torture->dc_sids[i]), "Different domain groups for S2U4Self");
 758                 torture_assert(tctx, !dom_sid_in_domain(builtin_domain, &s2u4self_session_info->torture->dc_sids[i]), "Returned BUILTIN domain in groups for S2U4Self");
 759                 torture_assert(tctx, !dom_sid_in_domain(builtin_domain, &kinit_session_info->torture->dc_sids[i]), "Returned BUILTIN domain in groups kinit-based PAC");
 760                 torture_assert(tctx, !dom_sid_in_domain(builtin_domain, &netlogon_user_info_dc->sids[i]), "Returned BUILTIN domian in groups from NETLOGON SamLogon reply");
 761         }
 762
 763         return true;
 764 }
 765
 766 static bool test_S2U4Self_bdc_arcfour(struct torture_context *tctx,
 767                                       struct dcerpc_pipe *p,
 768                                       struct cli_credentials *credentials)
 769 {
 770         return test_S2U4Self(tctx, p, credentials, SEC_CHAN_BDC,
 771                              TEST_MACHINE_NAME_S2U4SELF_BDC,
 772                              NETLOGON_NEG_AUTH2_ADS_FLAGS);
 773 }
 774
 775 static bool test_S2U4Self_bdc_aes(struct torture_context *tctx,
 776                                   struct dcerpc_pipe *p,
 777                                   struct cli_credentials *credentials)
 778 {
 779         return test_S2U4Self(tctx, p, credentials, SEC_CHAN_BDC,
 780                              TEST_MACHINE_NAME_S2U4SELF_BDC,
 781                              NETLOGON_NEG_AUTH2_ADS_FLAGS | NETLOGON_NEG_SUPPORTS_AES);
 782 }
 783
 784 static bool test_S2U4Self_workstation_arcfour(struct torture_context *tctx,
 785                                               struct dcerpc_pipe *p,
 786                                               struct cli_credentials *credentials)
 787 {
 788         return test_S2U4Self(tctx, p, credentials, SEC_CHAN_WKSTA,
 789                              TEST_MACHINE_NAME_S2U4SELF_WKSTA,
 790                              NETLOGON_NEG_AUTH2_ADS_FLAGS);
 791 }
 792
 793 static bool test_S2U4Self_workstation_aes(struct torture_context *tctx,
 794                                           struct dcerpc_pipe *p,
 795                                           struct cli_credentials *credentials)
 796 {
 797         return test_S2U4Self(tctx, p, credentials, SEC_CHAN_WKSTA,
 798                              TEST_MACHINE_NAME_S2U4SELF_WKSTA,
 799                              NETLOGON_NEG_AUTH2_ADS_FLAGS | NETLOGON_NEG_SUPPORTS_AES);
 800 }
 801
 802 struct torture_suite *torture_rpc_remote_pac(TALLOC_CTX *mem_ctx)
 803 {
 804         struct torture_suite *suite = torture_suite_create(mem_ctx, "pac");
 805         struct torture_rpc_tcase *tcase;
 806
 807         /* It is important to use different names, so that old entries in our credential cache are not used */
 808         tcase = torture_suite_add_machine_bdc_rpc_iface_tcase(suite, "netr-bdc-arcfour",
 809                                                               &ndr_table_netlogon, TEST_MACHINE_NAME_BDC);
 810         torture_rpc_tcase_add_test_creds(tcase, "verify-sig-arcfour", test_PACVerify_bdc_arcfour);
 811
 812         tcase = torture_suite_add_machine_bdc_rpc_iface_tcase(suite, "netr-bdc-aes",
 813                                                               &ndr_table_netlogon, TEST_MACHINE_NAME_BDC);
 814         torture_rpc_tcase_add_test_creds(tcase, "verify-sig-aes", test_PACVerify_bdc_aes);
 815
 816         tcase = torture_suite_add_machine_workstation_rpc_iface_tcase(suite, "netr-mem-arcfour",
 817                                                                       &ndr_table_netlogon, TEST_MACHINE_NAME_WKSTA);
 818         torture_rpc_tcase_add_test_creds(tcase, "verify-sig-arcfour", test_PACVerify_workstation_arcfour);
 819
 820         tcase = torture_suite_add_machine_workstation_rpc_iface_tcase(suite, "netr-mem-aes",
 821                                                                       &ndr_table_netlogon, TEST_MACHINE_NAME_WKSTA);
 822         torture_rpc_tcase_add_test_creds(tcase, "verify-sig-aes", test_PACVerify_workstation_aes);
 823
 824         tcase = torture_suite_add_machine_workstation_rpc_iface_tcase(suite, "netlogon-member-des",
 825                                                                       &ndr_table_netlogon, TEST_MACHINE_NAME_WKSTA_DES);
 826         torture_rpc_tcase_add_test_join(tcase, "verify-sig", test_PACVerify_workstation_des);
 827
 828         tcase = torture_suite_add_machine_bdc_rpc_iface_tcase(suite, "netr-bdc-arcfour",
 829                                                               &ndr_table_netlogon, TEST_MACHINE_NAME_S2U4SELF_BDC);
 830         torture_rpc_tcase_add_test_creds(tcase, "s2u4self-arcfour", test_S2U4Self_bdc_arcfour);
 831
 832         tcase = torture_suite_add_machine_bdc_rpc_iface_tcase(suite, "netr-bcd-aes",
 833                                                               &ndr_table_netlogon, TEST_MACHINE_NAME_S2U4SELF_BDC);
 834         torture_rpc_tcase_add_test_creds(tcase, "s2u4self-aes", test_S2U4Self_bdc_aes);
 835
 836         tcase = torture_suite_add_machine_workstation_rpc_iface_tcase(suite, "netr-mem-arcfour",
 837                                                                       &ndr_table_netlogon, TEST_MACHINE_NAME_S2U4SELF_WKSTA);
 838         torture_rpc_tcase_add_test_creds(tcase, "s2u4self-arcfour", test_S2U4Self_workstation_arcfour);
 839
 840         tcase = torture_suite_add_machine_workstation_rpc_iface_tcase(suite, "netr-mem-aes",
 841                                                                       &ndr_table_netlogon, TEST_MACHINE_NAME_S2U4SELF_WKSTA);
 842         torture_rpc_tcase_add_test_creds(tcase, "s2u4self-aes", test_S2U4Self_workstation_aes);
 843
 844         return suite;
 845 }