2 Unix SMB/CIFS implementation.
3 client connect/disconnect routines
4 Copyright (C) Andrew Tridgell 1994-1998
5 Copyright (C) Andrew Bartlett 2001-2003
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program. If not, see <http://www.gnu.org/licenses/>.
27 {PROTOCOL_CORE, "PC NETWORK PROGRAM 1.0"},
28 {PROTOCOL_COREPLUS, "MICROSOFT NETWORKS 1.03"},
29 {PROTOCOL_LANMAN1, "MICROSOFT NETWORKS 3.0"},
30 {PROTOCOL_LANMAN1, "LANMAN1.0"},
31 {PROTOCOL_LANMAN2, "LM1.2X002"},
32 {PROTOCOL_LANMAN2, "DOS LANMAN2.1"},
33 {PROTOCOL_LANMAN2, "LANMAN2.1"},
34 {PROTOCOL_LANMAN2, "Samba"},
35 {PROTOCOL_NT1, "NT LANMAN 1.0"},
36 {PROTOCOL_NT1, "NT LM 0.12"},
39 #define STAR_SMBSERVER "*SMBSERVER"
42 * Set the user session key for a connection
43 * @param cli The cli structure to add it too
44 * @param session_key The session key used. (A copy of this is taken for the cli struct)
48 static void cli_set_session_key (struct cli_state *cli, const DATA_BLOB session_key)
50 cli->user_session_key = data_blob(session_key.data, session_key.length);
53 /****************************************************************************
54 Do an old lanman2 style session setup.
55 ****************************************************************************/
57 static NTSTATUS cli_session_setup_lanman2(struct cli_state *cli,
59 const char *pass, size_t passlen,
60 const char *workgroup)
62 DATA_BLOB session_key = data_blob_null;
63 DATA_BLOB lm_response = data_blob_null;
67 if (passlen > sizeof(pword)-1) {
68 return NT_STATUS_INVALID_PARAMETER;
71 /* LANMAN servers predate NT status codes and Unicode and ignore those
72 smb flags so we must disable the corresponding default capabilities
73 that would otherwise cause the Unicode and NT Status flags to be
74 set (and even returned by the server) */
76 cli->capabilities &= ~(CAP_UNICODE | CAP_STATUS32);
78 /* if in share level security then don't send a password now */
79 if (!(cli->sec_mode & NEGOTIATE_SECURITY_USER_LEVEL))
82 if (passlen > 0 && (cli->sec_mode & NEGOTIATE_SECURITY_CHALLENGE_RESPONSE) && passlen != 24) {
83 /* Encrypted mode needed, and non encrypted password supplied. */
84 lm_response = data_blob(NULL, 24);
85 if (!SMBencrypt(pass, cli->secblob.data,(uchar *)lm_response.data)) {
86 DEBUG(1, ("Password is > 14 chars in length, and is therefore incompatible with Lanman authentication\n"));
87 return NT_STATUS_ACCESS_DENIED;
89 } else if ((cli->sec_mode & NEGOTIATE_SECURITY_CHALLENGE_RESPONSE) && passlen == 24) {
90 /* Encrypted mode needed, and encrypted password supplied. */
91 lm_response = data_blob(pass, passlen);
92 } else if (passlen > 0) {
93 /* Plaintext mode needed, assume plaintext supplied. */
94 passlen = clistr_push(cli, pword, pass, sizeof(pword), STR_TERMINATE);
95 lm_response = data_blob(pass, passlen);
98 /* send a session setup command */
99 memset(cli->outbuf,'\0',smb_size);
100 cli_set_message(cli->outbuf,10, 0, True);
101 SCVAL(cli->outbuf,smb_com,SMBsesssetupX);
102 cli_setup_packet(cli);
104 SCVAL(cli->outbuf,smb_vwv0,0xFF);
105 SSVAL(cli->outbuf,smb_vwv2,cli->max_xmit);
106 SSVAL(cli->outbuf,smb_vwv3,2);
107 SSVAL(cli->outbuf,smb_vwv4,1);
108 SIVAL(cli->outbuf,smb_vwv5,cli->sesskey);
109 SSVAL(cli->outbuf,smb_vwv7,lm_response.length);
111 p = smb_buf(cli->outbuf);
112 memcpy(p,lm_response.data,lm_response.length);
113 p += lm_response.length;
114 p += clistr_push(cli, p, user, -1, STR_TERMINATE|STR_UPPER);
115 p += clistr_push(cli, p, workgroup, -1, STR_TERMINATE|STR_UPPER);
116 p += clistr_push(cli, p, "Unix", -1, STR_TERMINATE);
117 p += clistr_push(cli, p, "Samba", -1, STR_TERMINATE);
118 cli_setup_bcc(cli, p);
120 if (!cli_send_smb(cli) || !cli_receive_smb(cli)) {
121 return cli_nt_error(cli);
124 show_msg(cli->inbuf);
126 if (cli_is_error(cli)) {
127 return cli_nt_error(cli);
130 /* use the returned vuid from now on */
131 cli->vuid = SVAL(cli->inbuf,smb_uid);
132 fstrcpy(cli->user_name, user);
134 if (session_key.data) {
135 /* Have plaintext orginal */
136 cli_set_session_key(cli, session_key);
142 /****************************************************************************
143 Work out suitable capabilities to offer the server.
144 ****************************************************************************/
146 static uint32 cli_session_setup_capabilities(struct cli_state *cli)
148 uint32 capabilities = CAP_NT_SMBS;
150 if (!cli->force_dos_errors)
151 capabilities |= CAP_STATUS32;
153 if (cli->use_level_II_oplocks)
154 capabilities |= CAP_LEVEL_II_OPLOCKS;
156 capabilities |= (cli->capabilities & (CAP_UNICODE|CAP_LARGE_FILES|CAP_LARGE_READX|CAP_LARGE_WRITEX|CAP_DFS));
160 /****************************************************************************
161 Do a NT1 guest session setup.
162 ****************************************************************************/
164 static NTSTATUS cli_session_setup_guest(struct cli_state *cli)
167 uint32 capabilities = cli_session_setup_capabilities(cli);
169 memset(cli->outbuf, '\0', smb_size);
170 cli_set_message(cli->outbuf,13,0,True);
171 SCVAL(cli->outbuf,smb_com,SMBsesssetupX);
172 cli_setup_packet(cli);
174 SCVAL(cli->outbuf,smb_vwv0,0xFF);
175 SSVAL(cli->outbuf,smb_vwv2,CLI_BUFFER_SIZE);
176 SSVAL(cli->outbuf,smb_vwv3,2);
177 SSVAL(cli->outbuf,smb_vwv4,cli->pid);
178 SIVAL(cli->outbuf,smb_vwv5,cli->sesskey);
179 SSVAL(cli->outbuf,smb_vwv7,0);
180 SSVAL(cli->outbuf,smb_vwv8,0);
181 SIVAL(cli->outbuf,smb_vwv11,capabilities);
182 p = smb_buf(cli->outbuf);
183 p += clistr_push(cli, p, "", -1, STR_TERMINATE); /* username */
184 p += clistr_push(cli, p, "", -1, STR_TERMINATE); /* workgroup */
185 p += clistr_push(cli, p, "Unix", -1, STR_TERMINATE);
186 p += clistr_push(cli, p, "Samba", -1, STR_TERMINATE);
187 cli_setup_bcc(cli, p);
189 if (!cli_send_smb(cli) || !cli_receive_smb(cli)) {
190 return cli_nt_error(cli);
193 show_msg(cli->inbuf);
195 if (cli_is_error(cli)) {
196 return cli_nt_error(cli);
199 cli->vuid = SVAL(cli->inbuf,smb_uid);
201 p = smb_buf(cli->inbuf);
202 p += clistr_pull(cli, cli->server_os, p, sizeof(fstring), -1, STR_TERMINATE);
203 p += clistr_pull(cli, cli->server_type, p, sizeof(fstring), -1, STR_TERMINATE);
204 p += clistr_pull(cli, cli->server_domain, p, sizeof(fstring), -1, STR_TERMINATE);
206 if (strstr(cli->server_type, "Samba")) {
207 cli->is_samba = True;
210 fstrcpy(cli->user_name, "");
215 /****************************************************************************
216 Do a NT1 plaintext session setup.
217 ****************************************************************************/
219 static NTSTATUS cli_session_setup_plaintext(struct cli_state *cli,
220 const char *user, const char *pass,
221 const char *workgroup)
223 uint32 capabilities = cli_session_setup_capabilities(cli);
227 fstr_sprintf( lanman, "Samba %s", SAMBA_VERSION_STRING);
229 memset(cli->outbuf, '\0', smb_size);
230 cli_set_message(cli->outbuf,13,0,True);
231 SCVAL(cli->outbuf,smb_com,SMBsesssetupX);
232 cli_setup_packet(cli);
234 SCVAL(cli->outbuf,smb_vwv0,0xFF);
235 SSVAL(cli->outbuf,smb_vwv2,CLI_BUFFER_SIZE);
236 SSVAL(cli->outbuf,smb_vwv3,2);
237 SSVAL(cli->outbuf,smb_vwv4,cli->pid);
238 SIVAL(cli->outbuf,smb_vwv5,cli->sesskey);
239 SSVAL(cli->outbuf,smb_vwv8,0);
240 SIVAL(cli->outbuf,smb_vwv11,capabilities);
241 p = smb_buf(cli->outbuf);
243 /* check wether to send the ASCII or UNICODE version of the password */
245 if ( (capabilities & CAP_UNICODE) == 0 ) {
246 p += clistr_push(cli, p, pass, -1, STR_TERMINATE); /* password */
247 SSVAL(cli->outbuf,smb_vwv7,PTR_DIFF(p, smb_buf(cli->outbuf)));
250 /* For ucs2 passwords clistr_push calls ucs2_align, which causes
251 * the space taken by the unicode password to be one byte too
252 * long (as we're on an odd byte boundary here). Reduce the
253 * count by 1 to cope with this. Fixes smbclient against NetApp
254 * servers which can't cope. Fix from
255 * bryan.kolodziej@allenlund.com in bug #3840.
257 p += clistr_push(cli, p, pass, -1, STR_UNICODE|STR_TERMINATE); /* unicode password */
258 SSVAL(cli->outbuf,smb_vwv8,PTR_DIFF(p, smb_buf(cli->outbuf))-1);
261 p += clistr_push(cli, p, user, -1, STR_TERMINATE); /* username */
262 p += clistr_push(cli, p, workgroup, -1, STR_TERMINATE); /* workgroup */
263 p += clistr_push(cli, p, "Unix", -1, STR_TERMINATE);
264 p += clistr_push(cli, p, lanman, -1, STR_TERMINATE);
265 cli_setup_bcc(cli, p);
267 if (!cli_send_smb(cli) || !cli_receive_smb(cli)) {
268 return cli_nt_error(cli);
271 show_msg(cli->inbuf);
273 if (cli_is_error(cli)) {
274 return cli_nt_error(cli);
277 cli->vuid = SVAL(cli->inbuf,smb_uid);
278 p = smb_buf(cli->inbuf);
279 p += clistr_pull(cli, cli->server_os, p, sizeof(fstring), -1, STR_TERMINATE);
280 p += clistr_pull(cli, cli->server_type, p, sizeof(fstring), -1, STR_TERMINATE);
281 p += clistr_pull(cli, cli->server_domain, p, sizeof(fstring), -1, STR_TERMINATE);
282 fstrcpy(cli->user_name, user);
284 if (strstr(cli->server_type, "Samba")) {
285 cli->is_samba = True;
291 /****************************************************************************
292 do a NT1 NTLM/LM encrypted session setup - for when extended security
294 @param cli client state to create do session setup on
296 @param pass *either* cleartext password (passlen !=24) or LM response.
297 @param ntpass NT response, implies ntpasslen >=24, implies pass is not clear
298 @param workgroup The user's domain.
299 ****************************************************************************/
301 static NTSTATUS cli_session_setup_nt1(struct cli_state *cli, const char *user,
302 const char *pass, size_t passlen,
303 const char *ntpass, size_t ntpasslen,
304 const char *workgroup)
306 uint32 capabilities = cli_session_setup_capabilities(cli);
307 DATA_BLOB lm_response = data_blob_null;
308 DATA_BLOB nt_response = data_blob_null;
309 DATA_BLOB session_key = data_blob_null;
314 /* do nothing - guest login */
315 } else if (passlen != 24) {
316 if (lp_client_ntlmv2_auth()) {
317 DATA_BLOB server_chal;
318 DATA_BLOB names_blob;
319 server_chal = data_blob(cli->secblob.data, MIN(cli->secblob.length, 8));
321 /* note that the 'workgroup' here is a best guess - we don't know
322 the server's domain at this point. The 'server name' is also
325 names_blob = NTLMv2_generate_names_blob(cli->called.name, workgroup);
327 if (!SMBNTLMv2encrypt(user, workgroup, pass, &server_chal,
329 &lm_response, &nt_response, &session_key)) {
330 data_blob_free(&names_blob);
331 data_blob_free(&server_chal);
332 return NT_STATUS_ACCESS_DENIED;
334 data_blob_free(&names_blob);
335 data_blob_free(&server_chal);
339 E_md4hash(pass, nt_hash);
342 nt_response = data_blob_null;
344 nt_response = data_blob(NULL, 24);
345 SMBNTencrypt(pass,cli->secblob.data,nt_response.data);
347 /* non encrypted password supplied. Ignore ntpass. */
348 if (lp_client_lanman_auth()) {
349 lm_response = data_blob(NULL, 24);
350 if (!SMBencrypt(pass,cli->secblob.data, lm_response.data)) {
351 /* Oops, the LM response is invalid, just put
352 the NT response there instead */
353 data_blob_free(&lm_response);
354 lm_response = data_blob(nt_response.data, nt_response.length);
357 /* LM disabled, place NT# in LM field instead */
358 lm_response = data_blob(nt_response.data, nt_response.length);
361 session_key = data_blob(NULL, 16);
363 E_deshash(pass, session_key.data);
364 memset(&session_key.data[8], '\0', 8);
366 SMBsesskeygen_ntv1(nt_hash, NULL, session_key.data);
370 cli_simple_set_signing(cli, session_key, lm_response);
372 cli_simple_set_signing(cli, session_key, nt_response);
375 /* pre-encrypted password supplied. Only used for
376 security=server, can't do
377 signing because we don't have original key */
379 lm_response = data_blob(pass, passlen);
380 nt_response = data_blob(ntpass, ntpasslen);
383 /* send a session setup command */
384 memset(cli->outbuf,'\0',smb_size);
386 cli_set_message(cli->outbuf,13,0,True);
387 SCVAL(cli->outbuf,smb_com,SMBsesssetupX);
388 cli_setup_packet(cli);
390 SCVAL(cli->outbuf,smb_vwv0,0xFF);
391 SSVAL(cli->outbuf,smb_vwv2,CLI_BUFFER_SIZE);
392 SSVAL(cli->outbuf,smb_vwv3,2);
393 SSVAL(cli->outbuf,smb_vwv4,cli->pid);
394 SIVAL(cli->outbuf,smb_vwv5,cli->sesskey);
395 SSVAL(cli->outbuf,smb_vwv7,lm_response.length);
396 SSVAL(cli->outbuf,smb_vwv8,nt_response.length);
397 SIVAL(cli->outbuf,smb_vwv11,capabilities);
398 p = smb_buf(cli->outbuf);
399 if (lm_response.length) {
400 memcpy(p,lm_response.data, lm_response.length); p += lm_response.length;
402 if (nt_response.length) {
403 memcpy(p,nt_response.data, nt_response.length); p += nt_response.length;
405 p += clistr_push(cli, p, user, -1, STR_TERMINATE);
407 /* Upper case here might help some NTLMv2 implementations */
408 p += clistr_push(cli, p, workgroup, -1, STR_TERMINATE|STR_UPPER);
409 p += clistr_push(cli, p, "Unix", -1, STR_TERMINATE);
410 p += clistr_push(cli, p, "Samba", -1, STR_TERMINATE);
411 cli_setup_bcc(cli, p);
413 if (!cli_send_smb(cli) || !cli_receive_smb(cli)) {
414 result = cli_nt_error(cli);
418 /* show_msg(cli->inbuf); */
420 if (cli_is_error(cli)) {
421 result = cli_nt_error(cli);
425 /* use the returned vuid from now on */
426 cli->vuid = SVAL(cli->inbuf,smb_uid);
428 p = smb_buf(cli->inbuf);
429 p += clistr_pull(cli, cli->server_os, p, sizeof(fstring), -1, STR_TERMINATE);
430 p += clistr_pull(cli, cli->server_type, p, sizeof(fstring), -1, STR_TERMINATE);
431 p += clistr_pull(cli, cli->server_domain, p, sizeof(fstring), -1, STR_TERMINATE);
433 if (strstr(cli->server_type, "Samba")) {
434 cli->is_samba = True;
437 fstrcpy(cli->user_name, user);
439 if (session_key.data) {
440 /* Have plaintext orginal */
441 cli_set_session_key(cli, session_key);
444 result = NT_STATUS_OK;
446 data_blob_free(&lm_response);
447 data_blob_free(&nt_response);
448 data_blob_free(&session_key);
452 /****************************************************************************
453 Send a extended security session setup blob
454 ****************************************************************************/
456 static bool cli_session_setup_blob_send(struct cli_state *cli, DATA_BLOB blob)
458 uint32 capabilities = cli_session_setup_capabilities(cli);
461 capabilities |= CAP_EXTENDED_SECURITY;
463 /* send a session setup command */
464 memset(cli->outbuf,'\0',smb_size);
466 cli_set_message(cli->outbuf,12,0,True);
467 SCVAL(cli->outbuf,smb_com,SMBsesssetupX);
469 cli_setup_packet(cli);
471 SCVAL(cli->outbuf,smb_vwv0,0xFF);
472 SSVAL(cli->outbuf,smb_vwv2,CLI_BUFFER_SIZE);
473 SSVAL(cli->outbuf,smb_vwv3,2);
474 SSVAL(cli->outbuf,smb_vwv4,1);
475 SIVAL(cli->outbuf,smb_vwv5,0);
476 SSVAL(cli->outbuf,smb_vwv7,blob.length);
477 SIVAL(cli->outbuf,smb_vwv10,capabilities);
478 p = smb_buf(cli->outbuf);
479 memcpy(p, blob.data, blob.length);
481 p += clistr_push(cli, p, "Unix", -1, STR_TERMINATE);
482 p += clistr_push(cli, p, "Samba", -1, STR_TERMINATE);
483 cli_setup_bcc(cli, p);
484 return cli_send_smb(cli);
487 /****************************************************************************
488 Send a extended security session setup blob, returning a reply blob.
489 ****************************************************************************/
491 static DATA_BLOB cli_session_setup_blob_receive(struct cli_state *cli)
493 DATA_BLOB blob2 = data_blob_null;
497 if (!cli_receive_smb(cli))
500 show_msg(cli->inbuf);
502 if (cli_is_error(cli) && !NT_STATUS_EQUAL(cli_nt_error(cli),
503 NT_STATUS_MORE_PROCESSING_REQUIRED)) {
507 /* use the returned vuid from now on */
508 cli->vuid = SVAL(cli->inbuf,smb_uid);
510 p = smb_buf(cli->inbuf);
512 blob2 = data_blob(p, SVAL(cli->inbuf, smb_vwv3));
515 p += clistr_pull(cli, cli->server_os, p, sizeof(fstring), -1, STR_TERMINATE);
517 /* w2k with kerberos doesn't properly null terminate this field */
518 len = smb_bufrem(cli->inbuf, p);
519 p += clistr_pull(cli, cli->server_type, p, sizeof(fstring), len, 0);
525 /****************************************************************************
526 Send a extended security session setup blob, returning a reply blob.
527 ****************************************************************************/
529 /* The following is calculated from :
531 * (smb_wcnt * 2) = 24 (smb_wcnt == 12 in cli_session_setup_blob_send() )
532 * (strlen("Unix") + 1 + strlen("Samba") + 1) * 2 = 22 (unicode strings at
536 #define BASE_SESSSETUP_BLOB_PACKET_SIZE (35 + 24 + 22)
538 static bool cli_session_setup_blob(struct cli_state *cli, DATA_BLOB blob, DATA_BLOB session_key_krb5)
540 int32 remaining = blob.length;
542 DATA_BLOB send_blob = data_blob_null;
543 int32 max_blob_size = 0;
544 DATA_BLOB receive_blob = data_blob_null;
546 if (cli->max_xmit < BASE_SESSSETUP_BLOB_PACKET_SIZE + 1) {
547 DEBUG(0,("cli_session_setup_blob: cli->max_xmit too small "
548 "(was %u, need minimum %u)\n",
549 (unsigned int)cli->max_xmit,
550 BASE_SESSSETUP_BLOB_PACKET_SIZE));
551 cli_set_nt_error(cli, NT_STATUS_INVALID_PARAMETER);
555 max_blob_size = cli->max_xmit - BASE_SESSSETUP_BLOB_PACKET_SIZE;
557 while ( remaining > 0) {
558 if (remaining >= max_blob_size) {
559 send_blob.length = max_blob_size;
560 remaining -= max_blob_size;
562 DATA_BLOB null_blob = data_blob_null;
564 send_blob.length = remaining;
567 /* This is the last packet in the sequence - turn signing on. */
568 cli_simple_set_signing(cli, session_key_krb5, null_blob);
571 send_blob.data = &blob.data[cur];
572 cur += send_blob.length;
574 DEBUG(10, ("cli_session_setup_blob: Remaining (%u) sending (%u) current (%u)\n",
575 (unsigned int)remaining,
576 (unsigned int)send_blob.length,
577 (unsigned int)cur ));
579 if (!cli_session_setup_blob_send(cli, send_blob)) {
580 DEBUG(0, ("cli_session_setup_blob: send failed\n"));
584 receive_blob = cli_session_setup_blob_receive(cli);
585 data_blob_free(&receive_blob);
587 if (cli_is_error(cli) &&
588 !NT_STATUS_EQUAL( cli_get_nt_error(cli),
589 NT_STATUS_MORE_PROCESSING_REQUIRED)) {
590 DEBUG(0, ("cli_session_setup_blob: receive failed "
591 "(%s)\n", nt_errstr(cli_get_nt_error(cli))));
600 /****************************************************************************
601 Use in-memory credentials cache
602 ****************************************************************************/
604 static void use_in_memory_ccache(void) {
605 setenv(KRB5_ENV_CCNAME, "MEMORY:cliconnect", 1);
608 /****************************************************************************
609 Do a spnego/kerberos encrypted session setup.
610 ****************************************************************************/
612 static ADS_STATUS cli_session_setup_kerberos(struct cli_state *cli, const char *principal, const char *workgroup)
614 DATA_BLOB negTokenTarg;
615 DATA_BLOB session_key_krb5;
618 DEBUG(2,("Doing kerberos session setup\n"));
620 /* generate the encapsulated kerberos5 ticket */
621 rc = spnego_gen_negTokenTarg(principal, 0, &negTokenTarg, &session_key_krb5, 0, NULL);
624 DEBUG(1, ("cli_session_setup_kerberos: spnego_gen_negTokenTarg failed: %s\n",
626 return ADS_ERROR_KRB5(rc);
630 file_save("negTokenTarg.dat", negTokenTarg.data, negTokenTarg.length);
633 if (!cli_session_setup_blob(cli, negTokenTarg, session_key_krb5)) {
634 data_blob_free(&negTokenTarg);
635 data_blob_free(&session_key_krb5);
636 return ADS_ERROR_NT(cli_nt_error(cli));
639 cli_set_session_key(cli, session_key_krb5);
641 data_blob_free(&negTokenTarg);
642 data_blob_free(&session_key_krb5);
644 if (cli_is_error(cli)) {
645 if (NT_STATUS_IS_OK(cli_nt_error(cli))) {
646 return ADS_ERROR_NT(NT_STATUS_UNSUCCESSFUL);
649 return ADS_ERROR_NT(cli_nt_error(cli));
651 #endif /* HAVE_KRB5 */
654 /****************************************************************************
655 Do a spnego/NTLMSSP encrypted session setup.
656 ****************************************************************************/
658 static NTSTATUS cli_session_setup_ntlmssp(struct cli_state *cli, const char *user,
659 const char *pass, const char *domain)
661 struct ntlmssp_state *ntlmssp_state;
665 DATA_BLOB blob = data_blob_null;
666 DATA_BLOB blob_in = data_blob_null;
667 DATA_BLOB blob_out = data_blob_null;
669 cli_temp_set_signing(cli);
671 if (!NT_STATUS_IS_OK(nt_status = ntlmssp_client_start(&ntlmssp_state))) {
674 ntlmssp_want_feature(ntlmssp_state, NTLMSSP_FEATURE_SESSION_KEY);
676 if (!NT_STATUS_IS_OK(nt_status = ntlmssp_set_username(ntlmssp_state, user))) {
679 if (!NT_STATUS_IS_OK(nt_status = ntlmssp_set_domain(ntlmssp_state, domain))) {
682 if (!NT_STATUS_IS_OK(nt_status = ntlmssp_set_password(ntlmssp_state, pass))) {
687 nt_status = ntlmssp_update(ntlmssp_state,
689 data_blob_free(&blob_in);
690 if (NT_STATUS_EQUAL(nt_status, NT_STATUS_MORE_PROCESSING_REQUIRED) || NT_STATUS_IS_OK(nt_status)) {
692 /* and wrap it in a SPNEGO wrapper */
693 msg1 = gen_negTokenInit(OID_NTLMSSP, blob_out);
695 /* wrap it in SPNEGO */
696 msg1 = spnego_gen_auth(blob_out);
699 /* now send that blob on its way */
700 if (!cli_session_setup_blob_send(cli, msg1)) {
701 DEBUG(3, ("Failed to send NTLMSSP/SPNEGO blob to server!\n"));
702 nt_status = NT_STATUS_UNSUCCESSFUL;
704 blob = cli_session_setup_blob_receive(cli);
706 nt_status = cli_nt_error(cli);
707 if (cli_is_error(cli) && NT_STATUS_IS_OK(nt_status)) {
708 if (cli->smb_rw_error == SMB_READ_BAD_SIG) {
709 nt_status = NT_STATUS_ACCESS_DENIED;
711 nt_status = NT_STATUS_UNSUCCESSFUL;
715 data_blob_free(&msg1);
719 if (NT_STATUS_IS_OK(nt_status)) {
720 nt_status = NT_STATUS_UNSUCCESSFUL;
722 } else if ((turn == 1) &&
723 NT_STATUS_EQUAL(nt_status, NT_STATUS_MORE_PROCESSING_REQUIRED)) {
724 DATA_BLOB tmp_blob = data_blob_null;
725 /* the server might give us back two challenges */
726 if (!spnego_parse_challenge(blob, &blob_in,
728 DEBUG(3,("Failed to parse challenges\n"));
729 nt_status = NT_STATUS_INVALID_PARAMETER;
731 data_blob_free(&tmp_blob);
733 if (!spnego_parse_auth_response(blob, nt_status, OID_NTLMSSP,
735 DEBUG(3,("Failed to parse auth response\n"));
736 if (NT_STATUS_IS_OK(nt_status)
737 || NT_STATUS_EQUAL(nt_status, NT_STATUS_MORE_PROCESSING_REQUIRED))
738 nt_status = NT_STATUS_INVALID_PARAMETER;
741 data_blob_free(&blob);
742 data_blob_free(&blob_out);
744 } while (NT_STATUS_EQUAL(nt_status, NT_STATUS_MORE_PROCESSING_REQUIRED));
746 data_blob_free(&blob_in);
748 if (NT_STATUS_IS_OK(nt_status)) {
750 fstrcpy(cli->server_domain, ntlmssp_state->server_domain);
751 cli_set_session_key(cli, ntlmssp_state->session_key);
753 if (cli_simple_set_signing(
754 cli, ntlmssp_state->session_key, data_blob_null)) {
756 /* 'resign' the last message, so we get the right sequence numbers
757 for checking the first reply from the server */
758 cli_calculate_sign_mac(cli, cli->outbuf);
760 if (!cli_check_sign_mac(cli, cli->inbuf)) {
761 nt_status = NT_STATUS_ACCESS_DENIED;
766 /* we have a reference conter on ntlmssp_state, if we are signing
767 then the state will be kept by the signing engine */
769 ntlmssp_end(&ntlmssp_state);
771 if (!NT_STATUS_IS_OK(nt_status)) {
777 /****************************************************************************
778 Do a spnego encrypted session setup.
780 user_domain: The shortname of the domain the user/machine is a member of.
781 dest_realm: The realm we're connecting to, if NULL we use our default realm.
782 ****************************************************************************/
784 ADS_STATUS cli_session_setup_spnego(struct cli_state *cli, const char *user,
785 const char *pass, const char *user_domain,
786 const char * dest_realm)
788 char *principal = NULL;
789 char *OIDs[ASN1_MAX_OIDS];
792 const char *p = NULL;
793 char *account = NULL;
795 DEBUG(3,("Doing spnego session setup (blob length=%lu)\n", (unsigned long)cli->secblob.length));
797 /* the server might not even do spnego */
798 if (cli->secblob.length <= 16) {
799 DEBUG(3,("server didn't supply a full spnego negprot\n"));
804 file_save("negprot.dat", cli->secblob.data, cli->secblob.length);
807 /* there is 16 bytes of GUID before the real spnego packet starts */
808 blob = data_blob(cli->secblob.data+16, cli->secblob.length-16);
810 /* The server sent us the first part of the SPNEGO exchange in the
811 * negprot reply. It is WRONG to depend on the principal sent in the
812 * negprot reply, but right now we do it. If we don't receive one,
813 * we try to best guess, then fall back to NTLM. */
814 if (!spnego_parse_negTokenInit(blob, OIDs, &principal)) {
815 data_blob_free(&blob);
816 return ADS_ERROR_NT(NT_STATUS_INVALID_PARAMETER);
818 data_blob_free(&blob);
820 /* make sure the server understands kerberos */
821 for (i=0;OIDs[i];i++) {
822 DEBUG(3,("got OID=%s\n", OIDs[i]));
823 if (strcmp(OIDs[i], OID_KERBEROS5_OLD) == 0 ||
824 strcmp(OIDs[i], OID_KERBEROS5) == 0) {
825 cli->got_kerberos_mechanism = True;
827 talloc_free(OIDs[i]);
830 DEBUG(3,("got principal=%s\n", principal ? principal : "<null>"));
832 fstrcpy(cli->user_name, user);
835 /* If password is set we reauthenticate to kerberos server
836 * and do not store results */
838 if (cli->got_kerberos_mechanism && cli->use_kerberos) {
844 use_in_memory_ccache();
845 ret = kerberos_kinit_password(user, pass, 0 /* no time correction for now */, NULL);
848 TALLOC_FREE(principal);
849 DEBUG(0, ("Kinit failed: %s\n", error_message(ret)));
850 if (cli->fallback_after_kerberos)
852 return ADS_ERROR_KRB5(ret);
856 /* If we get a bad principal, try to guess it if
857 we have a valid host NetBIOS name.
859 if (strequal(principal, ADS_IGNORE_PRINCIPAL)) {
860 TALLOC_FREE(principal);
863 if (principal == NULL &&
864 !is_ipaddress(cli->desthost) &&
865 !strequal(STAR_SMBSERVER,
868 char *machine = NULL;
870 DEBUG(3,("cli_session_setup_spnego: got a "
871 "bad server principal, trying to guess ...\n"));
873 host = strchr_m(cli->desthost, '.');
875 machine = SMB_STRNDUP(cli->desthost,
876 host - cli->desthost);
878 machine = SMB_STRDUP(cli->desthost);
880 if (machine == NULL) {
881 return ADS_ERROR_NT(NT_STATUS_NO_MEMORY);
885 realm = SMB_STRDUP(dest_realm);
888 realm = kerberos_get_default_realm_from_ccache();
890 if (realm && *realm) {
891 principal = talloc_asprintf(NULL, "%s$@%s",
896 return ADS_ERROR_NT(NT_STATUS_NO_MEMORY);
898 DEBUG(3,("cli_session_setup_spnego: guessed "
899 "server principal=%s\n",
900 principal ? principal : "<null>"));
907 rc = cli_session_setup_kerberos(cli, principal,
909 if (ADS_ERR_OK(rc) || !cli->fallback_after_kerberos) {
910 TALLOC_FREE(principal);
917 TALLOC_FREE(principal);
921 account = talloc_strdup(talloc_tos(), user);
923 return ADS_ERROR_NT(NT_STATUS_NO_MEMORY);
926 /* when falling back to ntlmssp while authenticating with a machine
927 * account strip off the realm - gd */
929 if ((p = strchr_m(user, '@')) != NULL) {
930 account[PTR_DIFF(p,user)] = '\0';
933 return ADS_ERROR_NT(cli_session_setup_ntlmssp(cli, account, pass, user_domain));
936 /****************************************************************************
937 Send a session setup. The username and workgroup is in UNIX character
938 format and must be converted to DOS codepage format before sending. If the
939 password is in plaintext, the same should be done.
940 ****************************************************************************/
942 NTSTATUS cli_session_setup(struct cli_state *cli,
944 const char *pass, int passlen,
945 const char *ntpass, int ntpasslen,
946 const char *workgroup)
952 fstrcpy(user2, user);
961 /* allow for workgroups as part of the username */
962 if ((p=strchr_m(user2,'\\')) || (p=strchr_m(user2,'/')) ||
963 (p=strchr_m(user2,*lp_winbind_separator()))) {
969 if (cli->protocol < PROTOCOL_LANMAN1) {
973 /* now work out what sort of session setup we are going to
974 do. I have split this into separate functions to make the
975 flow a bit easier to understand (tridge) */
977 /* if its an older server then we have to use the older request format */
979 if (cli->protocol < PROTOCOL_NT1) {
980 if (!lp_client_lanman_auth() && passlen != 24 && (*pass)) {
981 DEBUG(1, ("Server requested LM password but 'client lanman auth'"
983 return NT_STATUS_ACCESS_DENIED;
986 if ((cli->sec_mode & NEGOTIATE_SECURITY_CHALLENGE_RESPONSE) == 0 &&
987 !lp_client_plaintext_auth() && (*pass)) {
988 DEBUG(1, ("Server requested plaintext password but "
989 "'client plaintext auth' is disabled\n"));
990 return NT_STATUS_ACCESS_DENIED;
993 return cli_session_setup_lanman2(cli, user, pass, passlen,
997 /* if no user is supplied then we have to do an anonymous connection.
998 passwords are ignored */
1000 if (!user || !*user)
1001 return cli_session_setup_guest(cli);
1003 /* if the server is share level then send a plaintext null
1004 password at this point. The password is sent in the tree
1007 if ((cli->sec_mode & NEGOTIATE_SECURITY_USER_LEVEL) == 0)
1008 return cli_session_setup_plaintext(cli, user, "", workgroup);
1010 /* if the server doesn't support encryption then we have to use
1011 plaintext. The second password is ignored */
1013 if ((cli->sec_mode & NEGOTIATE_SECURITY_CHALLENGE_RESPONSE) == 0) {
1014 if (!lp_client_plaintext_auth() && (*pass)) {
1015 DEBUG(1, ("Server requested plaintext password but "
1016 "'client plaintext auth' is disabled\n"));
1017 return NT_STATUS_ACCESS_DENIED;
1019 return cli_session_setup_plaintext(cli, user, pass, workgroup);
1022 /* if the server supports extended security then use SPNEGO */
1024 if (cli->capabilities & CAP_EXTENDED_SECURITY) {
1025 ADS_STATUS status = cli_session_setup_spnego(cli, user, pass,
1027 if (!ADS_ERR_OK(status)) {
1028 DEBUG(3, ("SPNEGO login failed: %s\n", ads_errstr(status)));
1029 return ads_ntstatus(status);
1034 /* otherwise do a NT1 style session setup */
1035 status = cli_session_setup_nt1(cli, user, pass, passlen,
1036 ntpass, ntpasslen, workgroup);
1037 if (!NT_STATUS_IS_OK(status)) {
1038 DEBUG(3,("cli_session_setup: NT1 session setup "
1039 "failed: %s\n", nt_errstr(status)));
1044 if (strstr(cli->server_type, "Samba")) {
1045 cli->is_samba = True;
1048 return NT_STATUS_OK;
1051 /****************************************************************************
1053 *****************************************************************************/
1055 bool cli_ulogoff(struct cli_state *cli)
1057 memset(cli->outbuf,'\0',smb_size);
1058 cli_set_message(cli->outbuf,2,0,True);
1059 SCVAL(cli->outbuf,smb_com,SMBulogoffX);
1060 cli_setup_packet(cli);
1061 SSVAL(cli->outbuf,smb_vwv0,0xFF);
1062 SSVAL(cli->outbuf,smb_vwv2,0); /* no additional info */
1065 if (!cli_receive_smb(cli))
1068 if (cli_is_error(cli)) {
1076 /****************************************************************************
1078 ****************************************************************************/
1080 bool cli_send_tconX(struct cli_state *cli,
1081 const char *share, const char *dev, const char *pass, int passlen)
1083 fstring fullshare, pword;
1085 memset(cli->outbuf,'\0',smb_size);
1086 memset(cli->inbuf,'\0',smb_size);
1088 fstrcpy(cli->share, share);
1090 /* in user level security don't send a password now */
1091 if (cli->sec_mode & NEGOTIATE_SECURITY_USER_LEVEL) {
1095 DEBUG(1, ("Server not using user level security and no password supplied.\n"));
1099 if ((cli->sec_mode & NEGOTIATE_SECURITY_CHALLENGE_RESPONSE) &&
1100 *pass && passlen != 24) {
1101 if (!lp_client_lanman_auth()) {
1102 DEBUG(1, ("Server requested LANMAN password "
1103 "(share-level security) but "
1104 "'client lanman auth' is disabled\n"));
1109 * Non-encrypted passwords - convert to DOS codepage before encryption.
1112 SMBencrypt(pass,cli->secblob.data,(uchar *)pword);
1114 if((cli->sec_mode & (NEGOTIATE_SECURITY_USER_LEVEL|NEGOTIATE_SECURITY_CHALLENGE_RESPONSE)) == 0) {
1115 if (!lp_client_plaintext_auth() && (*pass)) {
1116 DEBUG(1, ("Server requested plaintext "
1117 "password but 'client plaintext "
1118 "auth' is disabled\n"));
1123 * Non-encrypted passwords - convert to DOS codepage before using.
1125 passlen = clistr_push(cli, pword, pass, sizeof(pword), STR_TERMINATE);
1129 memcpy(pword, pass, passlen);
1134 slprintf(fullshare, sizeof(fullshare)-1,
1135 "\\\\%s\\%s", cli->desthost, share);
1137 cli_set_message(cli->outbuf,4, 0, True);
1138 SCVAL(cli->outbuf,smb_com,SMBtconX);
1139 cli_setup_packet(cli);
1141 SSVAL(cli->outbuf,smb_vwv0,0xFF);
1142 SSVAL(cli->outbuf,smb_vwv2,TCONX_FLAG_EXTENDED_RESPONSE);
1143 SSVAL(cli->outbuf,smb_vwv3,passlen);
1145 p = smb_buf(cli->outbuf);
1147 memcpy(p,pword,passlen);
1150 p += clistr_push(cli, p, fullshare, -1, STR_TERMINATE |STR_UPPER);
1151 p += clistr_push(cli, p, dev, -1, STR_TERMINATE |STR_UPPER | STR_ASCII);
1153 cli_setup_bcc(cli, p);
1156 if (!cli_receive_smb(cli))
1159 if (cli_is_error(cli))
1162 clistr_pull(cli, cli->dev, smb_buf(cli->inbuf), sizeof(fstring), -1, STR_TERMINATE|STR_ASCII);
1164 if (cli->protocol >= PROTOCOL_NT1 &&
1165 smb_buflen(cli->inbuf) == 3) {
1166 /* almost certainly win95 - enable bug fixes */
1170 /* Make sure that we have the optional support 16-bit field. WCT > 2 */
1171 /* Avoids issues when connecting to Win9x boxes sharing files */
1173 cli->dfsroot = False;
1174 if ( (CVAL(cli->inbuf, smb_wct))>2 && cli->protocol >= PROTOCOL_LANMAN2 )
1175 cli->dfsroot = (SVAL( cli->inbuf, smb_vwv2 ) & SMB_SHARE_IN_DFS) ? True : False;
1177 cli->cnum = SVAL(cli->inbuf,smb_tid);
1181 /****************************************************************************
1182 Send a tree disconnect.
1183 ****************************************************************************/
1185 bool cli_tdis(struct cli_state *cli)
1187 memset(cli->outbuf,'\0',smb_size);
1188 cli_set_message(cli->outbuf,0,0,True);
1189 SCVAL(cli->outbuf,smb_com,SMBtdis);
1190 SSVAL(cli->outbuf,smb_tid,cli->cnum);
1191 cli_setup_packet(cli);
1194 if (!cli_receive_smb(cli))
1197 if (cli_is_error(cli)) {
1205 /****************************************************************************
1206 Send a negprot command.
1207 ****************************************************************************/
1209 void cli_negprot_sendsync(struct cli_state *cli)
1214 if (cli->protocol < PROTOCOL_NT1)
1215 cli->use_spnego = False;
1217 memset(cli->outbuf,'\0',smb_size);
1219 /* setup the protocol strings */
1220 cli_set_message(cli->outbuf,0,0,True);
1222 p = smb_buf(cli->outbuf);
1223 for (numprots=0; numprots < ARRAY_SIZE(prots); numprots++) {
1224 if (prots[numprots].prot > cli->protocol) {
1228 p += clistr_push(cli, p, prots[numprots].name, -1, STR_TERMINATE);
1231 SCVAL(cli->outbuf,smb_com,SMBnegprot);
1232 cli_setup_bcc(cli, p);
1233 cli_setup_packet(cli);
1235 SCVAL(smb_buf(cli->outbuf),0,2);
1240 /****************************************************************************
1241 Send a negprot command.
1242 ****************************************************************************/
1244 struct async_req *cli_negprot_send(TALLOC_CTX *mem_ctx,
1245 struct event_context *ev,
1246 struct cli_state *cli)
1248 struct async_req *result;
1249 uint8_t *bytes = NULL;
1252 if (cli->protocol < PROTOCOL_NT1)
1253 cli->use_spnego = False;
1255 /* setup the protocol strings */
1256 for (numprots=0; numprots < ARRAY_SIZE(prots); numprots++) {
1258 if (prots[numprots].prot > cli->protocol) {
1261 bytes = (uint8_t *)talloc_append_blob(
1262 talloc_tos(), bytes, data_blob_const(&c, sizeof(c)));
1263 if (bytes == NULL) {
1266 bytes = smb_bytes_push_str(bytes, false, prots[numprots].name);
1267 if (bytes == NULL) {
1272 result = cli_request_send(mem_ctx, ev, cli, SMBnegprot, 0, 0, NULL, 0,
1273 talloc_get_size(bytes), bytes);
1278 NTSTATUS cli_negprot_recv(struct async_req *req)
1280 struct cli_request *cli_req = talloc_get_type_abort(
1281 req->private_data, struct cli_request);
1282 struct cli_state *cli = cli_req->cli;
1290 if (async_req_is_error(req, &status)) {
1294 status = cli_pull_reply(req, &wct, &vwv, &num_bytes, &bytes);
1295 if (!NT_STATUS_IS_OK(status)) {
1299 protnum = SVAL(vwv, 0);
1301 if ((protnum >= ARRAY_SIZE(prots))
1302 || (prots[protnum].prot > cli_req->cli->protocol)) {
1303 return NT_STATUS_INVALID_NETWORK_RESPONSE;
1306 cli->protocol = prots[protnum].prot;
1308 if ((cli->protocol < PROTOCOL_NT1) && cli->sign_info.mandatory_signing) {
1309 DEBUG(0,("cli_negprot: SMB signing is mandatory and the selected protocol level doesn't support it.\n"));
1310 return NT_STATUS_ACCESS_DENIED;
1313 if (cli->protocol >= PROTOCOL_NT1) {
1316 cli->sec_mode = CVAL(vwv + 1, 0);
1317 cli->max_mux = SVAL(vwv + 1, 1);
1318 cli->max_xmit = IVAL(vwv + 3, 1);
1319 cli->sesskey = IVAL(vwv + 7, 1);
1320 cli->serverzone = SVALS(vwv + 15, 1);
1321 cli->serverzone *= 60;
1322 /* this time arrives in real GMT */
1323 ts = interpret_long_date(((char *)(vwv+11))+1);
1324 cli->servertime = ts.tv_sec;
1325 cli->secblob = data_blob(bytes, num_bytes);
1326 cli->capabilities = IVAL(vwv + 9, 1);
1327 if (cli->capabilities & CAP_RAW_MODE) {
1328 cli->readbraw_supported = True;
1329 cli->writebraw_supported = True;
1331 /* work out if they sent us a workgroup */
1332 if (!(cli->capabilities & CAP_EXTENDED_SECURITY) &&
1333 smb_buflen(cli->inbuf) > 8) {
1334 clistr_pull(cli, cli->server_domain,
1335 bytes+8, sizeof(cli->server_domain),
1337 STR_UNICODE|STR_NOALIGN);
1341 * As signing is slow we only turn it on if either the client or
1342 * the server require it. JRA.
1345 if (cli->sec_mode & NEGOTIATE_SECURITY_SIGNATURES_REQUIRED) {
1346 /* Fail if server says signing is mandatory and we don't want to support it. */
1347 if (!cli->sign_info.allow_smb_signing) {
1348 DEBUG(0,("cli_negprot: SMB signing is mandatory and we have disabled it.\n"));
1349 return NT_STATUS_ACCESS_DENIED;
1351 cli->sign_info.negotiated_smb_signing = True;
1352 cli->sign_info.mandatory_signing = True;
1353 } else if (cli->sign_info.mandatory_signing && cli->sign_info.allow_smb_signing) {
1354 /* Fail if client says signing is mandatory and the server doesn't support it. */
1355 if (!(cli->sec_mode & NEGOTIATE_SECURITY_SIGNATURES_ENABLED)) {
1356 DEBUG(1,("cli_negprot: SMB signing is mandatory and the server doesn't support it.\n"));
1357 return NT_STATUS_ACCESS_DENIED;
1359 cli->sign_info.negotiated_smb_signing = True;
1360 cli->sign_info.mandatory_signing = True;
1361 } else if (cli->sec_mode & NEGOTIATE_SECURITY_SIGNATURES_ENABLED) {
1362 cli->sign_info.negotiated_smb_signing = True;
1365 if (cli->capabilities & (CAP_LARGE_READX|CAP_LARGE_WRITEX)) {
1366 SAFE_FREE(cli->outbuf);
1367 SAFE_FREE(cli->inbuf);
1368 cli->outbuf = (char *)SMB_MALLOC(CLI_SAMBA_MAX_LARGE_READX_SIZE+LARGE_WRITEX_HDR_SIZE+SAFETY_MARGIN);
1369 cli->inbuf = (char *)SMB_MALLOC(CLI_SAMBA_MAX_LARGE_READX_SIZE+LARGE_WRITEX_HDR_SIZE+SAFETY_MARGIN);
1370 cli->bufsize = CLI_SAMBA_MAX_LARGE_READX_SIZE + LARGE_WRITEX_HDR_SIZE;
1373 } else if (cli->protocol >= PROTOCOL_LANMAN1) {
1374 cli->use_spnego = False;
1375 cli->sec_mode = SVAL(vwv + 1, 0);
1376 cli->max_xmit = SVAL(vwv + 2, 0);
1377 cli->max_mux = SVAL(vwv + 3, 0);
1378 cli->sesskey = IVAL(vwv + 6, 0);
1379 cli->serverzone = SVALS(vwv + 10, 0);
1380 cli->serverzone *= 60;
1381 /* this time is converted to GMT by make_unix_date */
1382 cli->servertime = cli_make_unix_date(
1383 cli, (char *)(vwv + 8));
1384 cli->readbraw_supported = ((SVAL(vwv + 5, 0) & 0x1) != 0);
1385 cli->writebraw_supported = ((SVAL(vwv + 5, 0) & 0x2) != 0);
1386 cli->secblob = data_blob(bytes, num_bytes);
1388 /* the old core protocol */
1389 cli->use_spnego = False;
1391 cli->serverzone = get_time_zone(time(NULL));
1394 cli->max_xmit = MIN(cli->max_xmit, CLI_BUFFER_SIZE);
1396 /* a way to force ascii SMB */
1397 if (getenv("CLI_FORCE_ASCII"))
1398 cli->capabilities &= ~CAP_UNICODE;
1400 return NT_STATUS_OK;
1403 NTSTATUS cli_negprot(struct cli_state *cli)
1405 TALLOC_CTX *frame = talloc_stackframe();
1406 struct event_context *ev;
1407 struct async_req *req;
1408 NTSTATUS status = NT_STATUS_NO_MEMORY;
1410 if (cli->fd_event != NULL) {
1412 * Can't use sync call while an async call is in flight
1414 cli_set_error(cli, NT_STATUS_INVALID_PARAMETER);
1418 ev = event_context_init(frame);
1423 req = cli_negprot_send(frame, ev, cli);
1428 while (req->state < ASYNC_REQ_DONE) {
1429 event_loop_once(ev);
1432 status = cli_negprot_recv(req);
1438 /****************************************************************************
1439 Send a session request. See rfc1002.txt 4.3 and 4.3.2.
1440 ****************************************************************************/
1442 bool cli_session_request(struct cli_state *cli,
1443 struct nmb_name *calling, struct nmb_name *called)
1448 /* 445 doesn't have session request */
1449 if (cli->port == 445)
1452 memcpy(&(cli->calling), calling, sizeof(*calling));
1453 memcpy(&(cli->called ), called , sizeof(*called ));
1455 /* put in the destination name */
1456 p = cli->outbuf+len;
1457 name_mangle(cli->called .name, p, cli->called .name_type);
1461 p = cli->outbuf+len;
1462 name_mangle(cli->calling.name, p, cli->calling.name_type);
1465 /* send a session request (RFC 1002) */
1466 /* setup the packet length
1467 * Remove four bytes from the length count, since the length
1468 * field in the NBT Session Service header counts the number
1469 * of bytes which follow. The cli_send_smb() function knows
1470 * about this and accounts for those four bytes.
1474 _smb_setlen(cli->outbuf,len);
1475 SCVAL(cli->outbuf,0,0x81);
1478 DEBUG(5,("Sent session request\n"));
1480 if (!cli_receive_smb(cli))
1483 if (CVAL(cli->inbuf,0) == 0x84) {
1484 /* C. Hoch 9/14/95 Start */
1485 /* For information, here is the response structure.
1486 * We do the byte-twiddling to for portability.
1487 struct RetargetResponse{
1489 unsigned char flags;
1495 uint16_t port = (CVAL(cli->inbuf,8)<<8)+CVAL(cli->inbuf,9);
1496 struct in_addr dest_ip;
1499 /* SESSION RETARGET */
1500 putip((char *)&dest_ip,cli->inbuf+4);
1501 in_addr_to_sockaddr_storage(&cli->dest_ss, dest_ip);
1503 status = open_socket_out(&cli->dest_ss, port,
1504 LONG_CONNECT_TIMEOUT, &cli->fd);
1505 if (!NT_STATUS_IS_OK(status)) {
1509 DEBUG(3,("Retargeted\n"));
1511 set_socket_options(cli->fd, lp_socket_options());
1518 DEBUG(0,("Retarget recursion - failing\n"));
1522 ret = cli_session_request(cli, calling, called);
1526 } /* C. Hoch 9/14/95 End */
1528 if (CVAL(cli->inbuf,0) != 0x82) {
1529 /* This is the wrong place to put the error... JRA. */
1530 cli->rap_error = CVAL(cli->inbuf,4);
1536 static void smb_sock_connected(struct async_req *req)
1538 int *pfd = (int *)req->async.priv;
1542 status = open_socket_out_defer_recv(req, &fd);
1543 if (NT_STATUS_IS_OK(status)) {
1548 static NTSTATUS open_smb_socket(const struct sockaddr_storage *pss,
1549 uint16_t *port, int timeout, int *pfd)
1551 struct event_context *ev;
1552 struct async_req *r139, *r445;
1558 return open_socket_out(pss, *port, timeout, pfd);
1561 ev = event_context_init(talloc_tos());
1563 return NT_STATUS_NO_MEMORY;
1566 r445 = open_socket_out_defer_send(ev, ev, timeval_set(0, 0),
1568 r139 = open_socket_out_defer_send(ev, ev, timeval_set(0, 3000),
1570 if ((r445 == NULL) || (r139 == NULL)) {
1571 status = NT_STATUS_NO_MEMORY;
1574 r445->async.fn = smb_sock_connected;
1575 r445->async.priv = &fd445;
1576 r139->async.fn = smb_sock_connected;
1577 r139->async.priv = &fd139;
1579 while ((fd139 == -1) && (r139->state < ASYNC_REQ_DONE)
1580 && (fd445 == -1) && (r445->state < ASYNC_REQ_DONE)) {
1581 event_loop_once(ev);
1584 if ((fd139 != -1) && (fd445 != -1)) {
1592 status = NT_STATUS_OK;
1598 status = NT_STATUS_OK;
1602 status = open_socket_out_defer_recv(r445, &fd445);
1608 /****************************************************************************
1609 Open the client sockets.
1610 ****************************************************************************/
1612 NTSTATUS cli_connect(struct cli_state *cli,
1614 struct sockaddr_storage *dest_ss)
1617 int name_type = 0x20;
1618 TALLOC_CTX *frame = talloc_stackframe();
1619 unsigned int num_addrs = 0;
1621 struct sockaddr_storage *ss_arr = NULL;
1624 /* reasonable default hostname */
1626 host = STAR_SMBSERVER;
1629 fstrcpy(cli->desthost, host);
1631 /* allow hostnames of the form NAME#xx and do a netbios lookup */
1632 if ((p = strchr(cli->desthost, '#'))) {
1633 name_type = strtol(p+1, NULL, 16);
1637 if (!dest_ss || is_zero_addr((struct sockaddr *)dest_ss)) {
1638 NTSTATUS status =resolve_name_list(frame,
1643 if (!NT_STATUS_IS_OK(status)) {
1645 return NT_STATUS_BAD_NETWORK_NAME;
1649 ss_arr = TALLOC_P(frame, struct sockaddr_storage);
1652 return NT_STATUS_NO_MEMORY;
1657 for (i = 0; i < num_addrs; i++) {
1658 cli->dest_ss = ss_arr[i];
1659 if (getenv("LIBSMB_PROG")) {
1660 cli->fd = sock_exec(getenv("LIBSMB_PROG"));
1662 uint16_t port = cli->port;
1664 status = open_smb_socket(&cli->dest_ss, &port,
1665 cli->timeout, &cli->fd);
1666 if (NT_STATUS_IS_OK(status)) {
1670 if (cli->fd == -1) {
1671 char addr[INET6_ADDRSTRLEN];
1672 print_sockaddr(addr, sizeof(addr), &ss_arr[i]);
1673 DEBUG(2,("Error connecting to %s (%s)\n",
1674 dest_ss?addr:host,strerror(errno)));
1676 /* Exit from loop on first connection. */
1681 if (cli->fd == -1) {
1683 return map_nt_error_from_unix(errno);
1687 *dest_ss = cli->dest_ss;
1690 set_socket_options(cli->fd, lp_socket_options());
1693 return NT_STATUS_OK;
1697 establishes a connection to after the negprot.
1698 @param output_cli A fully initialised cli structure, non-null only on success
1699 @param dest_host The netbios name of the remote host
1700 @param dest_ss (optional) The the destination IP, NULL for name based lookup
1701 @param port (optional) The destination port (0 for default)
1702 @param retry bool. Did this connection fail with a retryable error ?
1705 NTSTATUS cli_start_connection(struct cli_state **output_cli,
1706 const char *my_name,
1707 const char *dest_host,
1708 struct sockaddr_storage *dest_ss, int port,
1709 int signing_state, int flags,
1713 struct nmb_name calling;
1714 struct nmb_name called;
1715 struct cli_state *cli;
1716 struct sockaddr_storage ss;
1722 my_name = global_myname();
1724 if (!(cli = cli_initialise())) {
1725 return NT_STATUS_NO_MEMORY;
1728 make_nmb_name(&calling, my_name, 0x0);
1729 make_nmb_name(&called , dest_host, 0x20);
1731 if (cli_set_port(cli, port) != port) {
1733 return NT_STATUS_UNSUCCESSFUL;
1736 cli_set_timeout(cli, 10000); /* 10 seconds. */
1746 DEBUG(3,("Connecting to host=%s\n", dest_host));
1748 nt_status = cli_connect(cli, dest_host, &ss);
1749 if (!NT_STATUS_IS_OK(nt_status)) {
1750 char addr[INET6_ADDRSTRLEN];
1751 print_sockaddr(addr, sizeof(addr), &ss);
1752 DEBUG(1,("cli_start_connection: failed to connect to %s (%s). Error %s\n",
1753 nmb_namestr(&called), addr, nt_errstr(nt_status) ));
1761 if (!cli_session_request(cli, &calling, &called)) {
1763 DEBUG(1,("session request to %s failed (%s)\n",
1764 called.name, cli_errstr(cli)));
1765 if ((p=strchr(called.name, '.')) && !is_ipaddress(called.name)) {
1769 if (strcmp(called.name, STAR_SMBSERVER)) {
1770 make_nmb_name(&called , STAR_SMBSERVER, 0x20);
1773 return NT_STATUS_BAD_NETWORK_NAME;
1776 cli_setup_signing_state(cli, signing_state);
1778 if (flags & CLI_FULL_CONNECTION_DONT_SPNEGO)
1779 cli->use_spnego = False;
1780 else if (flags & CLI_FULL_CONNECTION_USE_KERBEROS)
1781 cli->use_kerberos = True;
1783 if ((flags & CLI_FULL_CONNECTION_FALLBACK_AFTER_KERBEROS) &&
1784 cli->use_kerberos) {
1785 cli->fallback_after_kerberos = true;
1788 nt_status = cli_negprot(cli);
1789 if (!NT_STATUS_IS_OK(nt_status)) {
1790 DEBUG(1, ("failed negprot: %s\n", nt_errstr(nt_status)));
1796 return NT_STATUS_OK;
1801 establishes a connection right up to doing tconX, password specified.
1802 @param output_cli A fully initialised cli structure, non-null only on success
1803 @param dest_host The netbios name of the remote host
1804 @param dest_ip (optional) The the destination IP, NULL for name based lookup
1805 @param port (optional) The destination port (0 for default)
1806 @param service (optional) The share to make the connection to. Should be 'unqualified' in any way.
1807 @param service_type The 'type' of serivice.
1808 @param user Username, unix string
1809 @param domain User's domain
1810 @param password User's password, unencrypted unix string.
1811 @param retry bool. Did this connection fail with a retryable error ?
1814 NTSTATUS cli_full_connection(struct cli_state **output_cli,
1815 const char *my_name,
1816 const char *dest_host,
1817 struct sockaddr_storage *dest_ss, int port,
1818 const char *service, const char *service_type,
1819 const char *user, const char *domain,
1820 const char *password, int flags,
1825 struct cli_state *cli = NULL;
1826 int pw_len = password ? strlen(password)+1 : 0;
1830 if (password == NULL) {
1834 nt_status = cli_start_connection(&cli, my_name, dest_host,
1835 dest_ss, port, signing_state,
1838 if (!NT_STATUS_IS_OK(nt_status)) {
1842 nt_status = cli_session_setup(cli, user, password, pw_len, password,
1844 if (!NT_STATUS_IS_OK(nt_status)) {
1846 if (!(flags & CLI_FULL_CONNECTION_ANONYMOUS_FALLBACK)) {
1847 DEBUG(1,("failed session setup with %s\n",
1848 nt_errstr(nt_status)));
1853 nt_status = cli_session_setup(cli, "", "", 0, "", 0, domain);
1854 if (!NT_STATUS_IS_OK(nt_status)) {
1855 DEBUG(1,("anonymous failed session setup with %s\n",
1856 nt_errstr(nt_status)));
1863 if (!cli_send_tconX(cli, service, service_type, password, pw_len)) {
1864 nt_status = cli_nt_error(cli);
1865 DEBUG(1,("failed tcon_X with %s\n", nt_errstr(nt_status)));
1867 if (NT_STATUS_IS_OK(nt_status)) {
1868 nt_status = NT_STATUS_UNSUCCESSFUL;
1874 cli_init_creds(cli, user, domain, password);
1877 return NT_STATUS_OK;
1880 /****************************************************************************
1881 Attempt a NetBIOS session request, falling back to *SMBSERVER if needed.
1882 ****************************************************************************/
1884 bool attempt_netbios_session_request(struct cli_state **ppcli, const char *srchost, const char *desthost,
1885 struct sockaddr_storage *pdest_ss)
1887 struct nmb_name calling, called;
1889 make_nmb_name(&calling, srchost, 0x0);
1892 * If the called name is an IP address
1893 * then use *SMBSERVER immediately.
1896 if(is_ipaddress(desthost)) {
1897 make_nmb_name(&called, STAR_SMBSERVER, 0x20);
1899 make_nmb_name(&called, desthost, 0x20);
1902 if (!cli_session_request(*ppcli, &calling, &called)) {
1904 struct nmb_name smbservername;
1906 make_nmb_name(&smbservername, STAR_SMBSERVER, 0x20);
1909 * If the name wasn't *SMBSERVER then
1910 * try with *SMBSERVER if the first name fails.
1913 if (nmb_name_equal(&called, &smbservername)) {
1916 * The name used was *SMBSERVER, don't bother with another name.
1919 DEBUG(0,("attempt_netbios_session_request: %s rejected the session for name *SMBSERVER \
1920 with error %s.\n", desthost, cli_errstr(*ppcli) ));
1925 cli_shutdown(*ppcli);
1927 *ppcli = cli_initialise();
1929 /* Out of memory... */
1933 status = cli_connect(*ppcli, desthost, pdest_ss);
1934 if (!NT_STATUS_IS_OK(status) ||
1935 !cli_session_request(*ppcli, &calling, &smbservername)) {
1936 DEBUG(0,("attempt_netbios_session_request: %s rejected the session for \
1937 name *SMBSERVER with error %s\n", desthost, cli_errstr(*ppcli) ));
1945 /****************************************************************************
1946 Send an old style tcon.
1947 ****************************************************************************/
1948 NTSTATUS cli_raw_tcon(struct cli_state *cli,
1949 const char *service, const char *pass, const char *dev,
1950 uint16 *max_xmit, uint16 *tid)
1954 if (!lp_client_plaintext_auth() && (*pass)) {
1955 DEBUG(1, ("Server requested plaintext password but 'client "
1956 "plaintext auth' is disabled\n"));
1957 return NT_STATUS_ACCESS_DENIED;
1960 memset(cli->outbuf,'\0',smb_size);
1961 memset(cli->inbuf,'\0',smb_size);
1963 cli_set_message(cli->outbuf, 0, 0, True);
1964 SCVAL(cli->outbuf,smb_com,SMBtcon);
1965 cli_setup_packet(cli);
1967 p = smb_buf(cli->outbuf);
1968 *p++ = 4; p += clistr_push(cli, p, service, -1, STR_TERMINATE | STR_NOALIGN);
1969 *p++ = 4; p += clistr_push(cli, p, pass, -1, STR_TERMINATE | STR_NOALIGN);
1970 *p++ = 4; p += clistr_push(cli, p, dev, -1, STR_TERMINATE | STR_NOALIGN);
1972 cli_setup_bcc(cli, p);
1975 if (!cli_receive_smb(cli)) {
1976 return NT_STATUS_UNEXPECTED_NETWORK_ERROR;
1979 if (cli_is_error(cli)) {
1980 return cli_nt_error(cli);
1983 *max_xmit = SVAL(cli->inbuf, smb_vwv0);
1984 *tid = SVAL(cli->inbuf, smb_vwv1);
1986 return NT_STATUS_OK;
1989 /* Return a cli_state pointing at the IPC$ share for the given server */
1991 struct cli_state *get_ipc_connect(char *server,
1992 struct sockaddr_storage *server_ss,
1993 const struct user_auth_info *user_info)
1995 struct cli_state *cli;
1997 uint32_t flags = CLI_FULL_CONNECTION_ANONYMOUS_FALLBACK;
1999 if (user_info->use_kerberos) {
2000 flags |= CLI_FULL_CONNECTION_USE_KERBEROS;
2003 nt_status = cli_full_connection(&cli, NULL, server, server_ss, 0, "IPC$", "IPC",
2004 user_info->username ? user_info->username : "",
2006 user_info->password ? user_info->password : "",
2010 if (NT_STATUS_IS_OK(nt_status)) {
2012 } else if (is_ipaddress(server)) {
2013 /* windows 9* needs a correct NMB name for connections */
2014 fstring remote_name;
2016 if (name_status_find("*", 0, 0, server_ss, remote_name)) {
2017 cli = get_ipc_connect(remote_name, server_ss, user_info);
2026 * Given the IP address of a master browser on the network, return its
2027 * workgroup and connect to it.
2029 * This function is provided to allow additional processing beyond what
2030 * get_ipc_connect_master_ip_bcast() does, e.g. to retrieve the list of master
2031 * browsers and obtain each master browsers' list of domains (in case the
2032 * first master browser is recently on the network and has not yet
2033 * synchronized with other master browsers and therefore does not yet have the
2034 * entire network browse list)
2037 struct cli_state *get_ipc_connect_master_ip(TALLOC_CTX *ctx,
2038 struct ip_service *mb_ip,
2039 const struct user_auth_info *user_info,
2040 char **pp_workgroup_out)
2042 char addr[INET6_ADDRSTRLEN];
2044 struct cli_state *cli;
2045 struct sockaddr_storage server_ss;
2047 *pp_workgroup_out = NULL;
2049 print_sockaddr(addr, sizeof(addr), &mb_ip->ss);
2050 DEBUG(99, ("Looking up name of master browser %s\n",
2054 * Do a name status query to find out the name of the master browser.
2055 * We use <01><02>__MSBROWSE__<02>#01 if *#00 fails because a domain
2056 * master browser will not respond to a wildcard query (or, at least,
2057 * an NT4 server acting as the domain master browser will not).
2059 * We might be able to use ONLY the query on MSBROWSE, but that's not
2060 * yet been tested with all Windows versions, so until it is, leave
2061 * the original wildcard query as the first choice and fall back to
2062 * MSBROWSE if the wildcard query fails.
2064 if (!name_status_find("*", 0, 0x1d, &mb_ip->ss, name) &&
2065 !name_status_find(MSBROWSE, 1, 0x1d, &mb_ip->ss, name)) {
2067 DEBUG(99, ("Could not retrieve name status for %s\n",
2072 if (!find_master_ip(name, &server_ss)) {
2073 DEBUG(99, ("Could not find master ip for %s\n", name));
2077 *pp_workgroup_out = talloc_strdup(ctx, name);
2079 DEBUG(4, ("found master browser %s, %s\n", name, addr));
2081 print_sockaddr(addr, sizeof(addr), &server_ss);
2082 cli = get_ipc_connect(addr, &server_ss, user_info);
2088 * Return the IP address and workgroup of a master browser on the network, and
2092 struct cli_state *get_ipc_connect_master_ip_bcast(TALLOC_CTX *ctx,
2093 const struct user_auth_info *user_info,
2094 char **pp_workgroup_out)
2096 struct ip_service *ip_list;
2097 struct cli_state *cli;
2100 *pp_workgroup_out = NULL;
2102 DEBUG(99, ("Do broadcast lookup for workgroups on local network\n"));
2104 /* Go looking for workgroups by broadcasting on the local network */
2106 if (!NT_STATUS_IS_OK(name_resolve_bcast(MSBROWSE, 1, &ip_list,
2108 DEBUG(99, ("No master browsers responded\n"));
2112 for (i = 0; i < count; i++) {
2113 char addr[INET6_ADDRSTRLEN];
2114 print_sockaddr(addr, sizeof(addr), &ip_list[i].ss);
2115 DEBUG(99, ("Found master browser %s\n", addr));
2117 cli = get_ipc_connect_master_ip(ctx, &ip_list[i],
2118 user_info, pp_workgroup_out);