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"},
40 static const char *star_smbserver_name = "*SMBSERVER";
43 * Set the user session key for a connection
44 * @param cli The cli structure to add it too
45 * @param session_key The session key used. (A copy of this is taken for the cli struct)
49 static void cli_set_session_key (struct cli_state *cli, const DATA_BLOB session_key)
51 cli->user_session_key = data_blob(session_key.data, session_key.length);
54 /****************************************************************************
55 Do an old lanman2 style session setup.
56 ****************************************************************************/
58 static NTSTATUS cli_session_setup_lanman2(struct cli_state *cli,
60 const char *pass, size_t passlen,
61 const char *workgroup)
63 DATA_BLOB session_key = data_blob_null;
64 DATA_BLOB lm_response = data_blob_null;
68 if (passlen > sizeof(pword)-1) {
69 return NT_STATUS_INVALID_PARAMETER;
72 /* LANMAN servers predate NT status codes and Unicode and ignore those
73 smb flags so we must disable the corresponding default capabilities
74 that would otherwise cause the Unicode and NT Status flags to be
75 set (and even returned by the server) */
77 cli->capabilities &= ~(CAP_UNICODE | CAP_STATUS32);
79 /* if in share level security then don't send a password now */
80 if (!(cli->sec_mode & NEGOTIATE_SECURITY_USER_LEVEL))
83 if (passlen > 0 && (cli->sec_mode & NEGOTIATE_SECURITY_CHALLENGE_RESPONSE) && passlen != 24) {
84 /* Encrypted mode needed, and non encrypted password supplied. */
85 lm_response = data_blob(NULL, 24);
86 if (!SMBencrypt(pass, cli->secblob.data,(uchar *)lm_response.data)) {
87 DEBUG(1, ("Password is > 14 chars in length, and is therefore incompatible with Lanman authentication\n"));
88 return NT_STATUS_ACCESS_DENIED;
90 } else if ((cli->sec_mode & NEGOTIATE_SECURITY_CHALLENGE_RESPONSE) && passlen == 24) {
91 /* Encrypted mode needed, and encrypted password supplied. */
92 lm_response = data_blob(pass, passlen);
93 } else if (passlen > 0) {
94 /* Plaintext mode needed, assume plaintext supplied. */
95 passlen = clistr_push(cli, pword, pass, sizeof(pword), STR_TERMINATE);
96 lm_response = data_blob(pass, passlen);
99 /* send a session setup command */
100 memset(cli->outbuf,'\0',smb_size);
101 cli_set_message(cli->outbuf,10, 0, True);
102 SCVAL(cli->outbuf,smb_com,SMBsesssetupX);
103 cli_setup_packet(cli);
105 SCVAL(cli->outbuf,smb_vwv0,0xFF);
106 SSVAL(cli->outbuf,smb_vwv2,cli->max_xmit);
107 SSVAL(cli->outbuf,smb_vwv3,2);
108 SSVAL(cli->outbuf,smb_vwv4,1);
109 SIVAL(cli->outbuf,smb_vwv5,cli->sesskey);
110 SSVAL(cli->outbuf,smb_vwv7,lm_response.length);
112 p = smb_buf(cli->outbuf);
113 memcpy(p,lm_response.data,lm_response.length);
114 p += lm_response.length;
115 p += clistr_push(cli, p, user, -1, STR_TERMINATE|STR_UPPER);
116 p += clistr_push(cli, p, workgroup, -1, STR_TERMINATE|STR_UPPER);
117 p += clistr_push(cli, p, "Unix", -1, STR_TERMINATE);
118 p += clistr_push(cli, p, "Samba", -1, STR_TERMINATE);
119 cli_setup_bcc(cli, p);
121 if (!cli_send_smb(cli) || !cli_receive_smb(cli)) {
122 return cli_nt_error(cli);
125 show_msg(cli->inbuf);
127 if (cli_is_error(cli)) {
128 return cli_nt_error(cli);
131 /* use the returned vuid from now on */
132 cli->vuid = SVAL(cli->inbuf,smb_uid);
133 fstrcpy(cli->user_name, user);
135 if (session_key.data) {
136 /* Have plaintext orginal */
137 cli_set_session_key(cli, session_key);
143 /****************************************************************************
144 Work out suitable capabilities to offer the server.
145 ****************************************************************************/
147 static uint32 cli_session_setup_capabilities(struct cli_state *cli)
149 uint32 capabilities = CAP_NT_SMBS;
151 if (!cli->force_dos_errors)
152 capabilities |= CAP_STATUS32;
154 if (cli->use_level_II_oplocks)
155 capabilities |= CAP_LEVEL_II_OPLOCKS;
157 capabilities |= (cli->capabilities & (CAP_UNICODE|CAP_LARGE_FILES|CAP_LARGE_READX|CAP_LARGE_WRITEX|CAP_DFS));
161 /****************************************************************************
162 Do a NT1 guest session setup.
163 ****************************************************************************/
165 static NTSTATUS cli_session_setup_guest(struct cli_state *cli)
168 uint32 capabilities = cli_session_setup_capabilities(cli);
170 memset(cli->outbuf, '\0', smb_size);
171 cli_set_message(cli->outbuf,13,0,True);
172 SCVAL(cli->outbuf,smb_com,SMBsesssetupX);
173 cli_setup_packet(cli);
175 SCVAL(cli->outbuf,smb_vwv0,0xFF);
176 SSVAL(cli->outbuf,smb_vwv2,CLI_BUFFER_SIZE);
177 SSVAL(cli->outbuf,smb_vwv3,2);
178 SSVAL(cli->outbuf,smb_vwv4,cli->pid);
179 SIVAL(cli->outbuf,smb_vwv5,cli->sesskey);
180 SSVAL(cli->outbuf,smb_vwv7,0);
181 SSVAL(cli->outbuf,smb_vwv8,0);
182 SIVAL(cli->outbuf,smb_vwv11,capabilities);
183 p = smb_buf(cli->outbuf);
184 p += clistr_push(cli, p, "", -1, STR_TERMINATE); /* username */
185 p += clistr_push(cli, p, "", -1, STR_TERMINATE); /* workgroup */
186 p += clistr_push(cli, p, "Unix", -1, STR_TERMINATE);
187 p += clistr_push(cli, p, "Samba", -1, STR_TERMINATE);
188 cli_setup_bcc(cli, p);
190 if (!cli_send_smb(cli) || !cli_receive_smb(cli)) {
191 return cli_nt_error(cli);
194 show_msg(cli->inbuf);
196 if (cli_is_error(cli)) {
197 return cli_nt_error(cli);
200 cli->vuid = SVAL(cli->inbuf,smb_uid);
202 p = smb_buf(cli->inbuf);
203 p += clistr_pull(cli, cli->server_os, p, sizeof(fstring), -1, STR_TERMINATE);
204 p += clistr_pull(cli, cli->server_type, p, sizeof(fstring), -1, STR_TERMINATE);
205 p += clistr_pull(cli, cli->server_domain, p, sizeof(fstring), -1, STR_TERMINATE);
207 if (strstr(cli->server_type, "Samba")) {
208 cli->is_samba = True;
211 fstrcpy(cli->user_name, "");
216 /****************************************************************************
217 Do a NT1 plaintext session setup.
218 ****************************************************************************/
220 static NTSTATUS cli_session_setup_plaintext(struct cli_state *cli,
221 const char *user, const char *pass,
222 const char *workgroup)
224 uint32 capabilities = cli_session_setup_capabilities(cli);
228 fstr_sprintf( lanman, "Samba %s", SAMBA_VERSION_STRING);
230 memset(cli->outbuf, '\0', smb_size);
231 cli_set_message(cli->outbuf,13,0,True);
232 SCVAL(cli->outbuf,smb_com,SMBsesssetupX);
233 cli_setup_packet(cli);
235 SCVAL(cli->outbuf,smb_vwv0,0xFF);
236 SSVAL(cli->outbuf,smb_vwv2,CLI_BUFFER_SIZE);
237 SSVAL(cli->outbuf,smb_vwv3,2);
238 SSVAL(cli->outbuf,smb_vwv4,cli->pid);
239 SIVAL(cli->outbuf,smb_vwv5,cli->sesskey);
240 SSVAL(cli->outbuf,smb_vwv8,0);
241 SIVAL(cli->outbuf,smb_vwv11,capabilities);
242 p = smb_buf(cli->outbuf);
244 /* check wether to send the ASCII or UNICODE version of the password */
246 if ( (capabilities & CAP_UNICODE) == 0 ) {
247 p += clistr_push(cli, p, pass, -1, STR_TERMINATE); /* password */
248 SSVAL(cli->outbuf,smb_vwv7,PTR_DIFF(p, smb_buf(cli->outbuf)));
251 /* For ucs2 passwords clistr_push calls ucs2_align, which causes
252 * the space taken by the unicode password to be one byte too
253 * long (as we're on an odd byte boundary here). Reduce the
254 * count by 1 to cope with this. Fixes smbclient against NetApp
255 * servers which can't cope. Fix from
256 * bryan.kolodziej@allenlund.com in bug #3840.
258 p += clistr_push(cli, p, pass, -1, STR_UNICODE|STR_TERMINATE); /* unicode password */
259 SSVAL(cli->outbuf,smb_vwv8,PTR_DIFF(p, smb_buf(cli->outbuf))-1);
262 p += clistr_push(cli, p, user, -1, STR_TERMINATE); /* username */
263 p += clistr_push(cli, p, workgroup, -1, STR_TERMINATE); /* workgroup */
264 p += clistr_push(cli, p, "Unix", -1, STR_TERMINATE);
265 p += clistr_push(cli, p, lanman, -1, STR_TERMINATE);
266 cli_setup_bcc(cli, p);
268 if (!cli_send_smb(cli) || !cli_receive_smb(cli)) {
269 return cli_nt_error(cli);
272 show_msg(cli->inbuf);
274 if (cli_is_error(cli)) {
275 return cli_nt_error(cli);
278 cli->vuid = SVAL(cli->inbuf,smb_uid);
279 p = smb_buf(cli->inbuf);
280 p += clistr_pull(cli, cli->server_os, p, sizeof(fstring), -1, STR_TERMINATE);
281 p += clistr_pull(cli, cli->server_type, p, sizeof(fstring), -1, STR_TERMINATE);
282 p += clistr_pull(cli, cli->server_domain, p, sizeof(fstring), -1, STR_TERMINATE);
283 fstrcpy(cli->user_name, user);
285 if (strstr(cli->server_type, "Samba")) {
286 cli->is_samba = True;
292 /****************************************************************************
293 do a NT1 NTLM/LM encrypted session setup - for when extended security
295 @param cli client state to create do session setup on
297 @param pass *either* cleartext password (passlen !=24) or LM response.
298 @param ntpass NT response, implies ntpasslen >=24, implies pass is not clear
299 @param workgroup The user's domain.
300 ****************************************************************************/
302 static NTSTATUS cli_session_setup_nt1(struct cli_state *cli, const char *user,
303 const char *pass, size_t passlen,
304 const char *ntpass, size_t ntpasslen,
305 const char *workgroup)
307 uint32 capabilities = cli_session_setup_capabilities(cli);
308 DATA_BLOB lm_response = data_blob_null;
309 DATA_BLOB nt_response = data_blob_null;
310 DATA_BLOB session_key = data_blob_null;
315 /* do nothing - guest login */
316 } else if (passlen != 24) {
317 if (lp_client_ntlmv2_auth()) {
318 DATA_BLOB server_chal;
319 DATA_BLOB names_blob;
320 server_chal = data_blob(cli->secblob.data, MIN(cli->secblob.length, 8));
322 /* note that the 'workgroup' here is a best guess - we don't know
323 the server's domain at this point. The 'server name' is also
326 names_blob = NTLMv2_generate_names_blob(cli->called.name, workgroup);
328 if (!SMBNTLMv2encrypt(user, workgroup, pass, &server_chal,
330 &lm_response, &nt_response, &session_key)) {
331 data_blob_free(&names_blob);
332 data_blob_free(&server_chal);
333 return NT_STATUS_ACCESS_DENIED;
335 data_blob_free(&names_blob);
336 data_blob_free(&server_chal);
340 E_md4hash(pass, nt_hash);
343 nt_response = data_blob_null;
345 nt_response = data_blob(NULL, 24);
346 SMBNTencrypt(pass,cli->secblob.data,nt_response.data);
348 /* non encrypted password supplied. Ignore ntpass. */
349 if (lp_client_lanman_auth()) {
350 lm_response = data_blob(NULL, 24);
351 if (!SMBencrypt(pass,cli->secblob.data, lm_response.data)) {
352 /* Oops, the LM response is invalid, just put
353 the NT response there instead */
354 data_blob_free(&lm_response);
355 lm_response = data_blob(nt_response.data, nt_response.length);
358 /* LM disabled, place NT# in LM field instead */
359 lm_response = data_blob(nt_response.data, nt_response.length);
362 session_key = data_blob(NULL, 16);
364 E_deshash(pass, session_key.data);
365 memset(&session_key.data[8], '\0', 8);
367 SMBsesskeygen_ntv1(nt_hash, NULL, session_key.data);
371 cli_simple_set_signing(cli, session_key, lm_response);
373 cli_simple_set_signing(cli, session_key, nt_response);
376 /* pre-encrypted password supplied. Only used for
377 security=server, can't do
378 signing because we don't have original key */
380 lm_response = data_blob(pass, passlen);
381 nt_response = data_blob(ntpass, ntpasslen);
384 /* send a session setup command */
385 memset(cli->outbuf,'\0',smb_size);
387 cli_set_message(cli->outbuf,13,0,True);
388 SCVAL(cli->outbuf,smb_com,SMBsesssetupX);
389 cli_setup_packet(cli);
391 SCVAL(cli->outbuf,smb_vwv0,0xFF);
392 SSVAL(cli->outbuf,smb_vwv2,CLI_BUFFER_SIZE);
393 SSVAL(cli->outbuf,smb_vwv3,2);
394 SSVAL(cli->outbuf,smb_vwv4,cli->pid);
395 SIVAL(cli->outbuf,smb_vwv5,cli->sesskey);
396 SSVAL(cli->outbuf,smb_vwv7,lm_response.length);
397 SSVAL(cli->outbuf,smb_vwv8,nt_response.length);
398 SIVAL(cli->outbuf,smb_vwv11,capabilities);
399 p = smb_buf(cli->outbuf);
400 if (lm_response.length) {
401 memcpy(p,lm_response.data, lm_response.length); p += lm_response.length;
403 if (nt_response.length) {
404 memcpy(p,nt_response.data, nt_response.length); p += nt_response.length;
406 p += clistr_push(cli, p, user, -1, STR_TERMINATE);
408 /* Upper case here might help some NTLMv2 implementations */
409 p += clistr_push(cli, p, workgroup, -1, STR_TERMINATE|STR_UPPER);
410 p += clistr_push(cli, p, "Unix", -1, STR_TERMINATE);
411 p += clistr_push(cli, p, "Samba", -1, STR_TERMINATE);
412 cli_setup_bcc(cli, p);
414 if (!cli_send_smb(cli) || !cli_receive_smb(cli)) {
415 result = cli_nt_error(cli);
419 /* show_msg(cli->inbuf); */
421 if (cli_is_error(cli)) {
422 result = cli_nt_error(cli);
426 /* use the returned vuid from now on */
427 cli->vuid = SVAL(cli->inbuf,smb_uid);
429 p = smb_buf(cli->inbuf);
430 p += clistr_pull(cli, cli->server_os, p, sizeof(fstring), -1, STR_TERMINATE);
431 p += clistr_pull(cli, cli->server_type, p, sizeof(fstring), -1, STR_TERMINATE);
432 p += clistr_pull(cli, cli->server_domain, p, sizeof(fstring), -1, STR_TERMINATE);
434 if (strstr(cli->server_type, "Samba")) {
435 cli->is_samba = True;
438 fstrcpy(cli->user_name, user);
440 if (session_key.data) {
441 /* Have plaintext orginal */
442 cli_set_session_key(cli, session_key);
445 result = NT_STATUS_OK;
447 data_blob_free(&lm_response);
448 data_blob_free(&nt_response);
449 data_blob_free(&session_key);
453 /****************************************************************************
454 Send a extended security session setup blob
455 ****************************************************************************/
457 static bool cli_session_setup_blob_send(struct cli_state *cli, DATA_BLOB blob)
459 uint32 capabilities = cli_session_setup_capabilities(cli);
462 capabilities |= CAP_EXTENDED_SECURITY;
464 /* send a session setup command */
465 memset(cli->outbuf,'\0',smb_size);
467 cli_set_message(cli->outbuf,12,0,True);
468 SCVAL(cli->outbuf,smb_com,SMBsesssetupX);
470 cli_setup_packet(cli);
472 SCVAL(cli->outbuf,smb_vwv0,0xFF);
473 SSVAL(cli->outbuf,smb_vwv2,CLI_BUFFER_SIZE);
474 SSVAL(cli->outbuf,smb_vwv3,2);
475 SSVAL(cli->outbuf,smb_vwv4,1);
476 SIVAL(cli->outbuf,smb_vwv5,0);
477 SSVAL(cli->outbuf,smb_vwv7,blob.length);
478 SIVAL(cli->outbuf,smb_vwv10,capabilities);
479 p = smb_buf(cli->outbuf);
480 memcpy(p, blob.data, blob.length);
482 p += clistr_push(cli, p, "Unix", -1, STR_TERMINATE);
483 p += clistr_push(cli, p, "Samba", -1, STR_TERMINATE);
484 cli_setup_bcc(cli, p);
485 return cli_send_smb(cli);
488 /****************************************************************************
489 Send a extended security session setup blob, returning a reply blob.
490 ****************************************************************************/
492 static DATA_BLOB cli_session_setup_blob_receive(struct cli_state *cli)
494 DATA_BLOB blob2 = data_blob_null;
498 if (!cli_receive_smb(cli))
501 show_msg(cli->inbuf);
503 if (cli_is_error(cli) && !NT_STATUS_EQUAL(cli_nt_error(cli),
504 NT_STATUS_MORE_PROCESSING_REQUIRED)) {
508 /* use the returned vuid from now on */
509 cli->vuid = SVAL(cli->inbuf,smb_uid);
511 p = smb_buf(cli->inbuf);
513 blob2 = data_blob(p, SVAL(cli->inbuf, smb_vwv3));
516 p += clistr_pull(cli, cli->server_os, p, sizeof(fstring), -1, STR_TERMINATE);
518 /* w2k with kerberos doesn't properly null terminate this field */
519 len = smb_bufrem(cli->inbuf, p);
520 p += clistr_pull(cli, cli->server_type, p, sizeof(fstring), len, 0);
526 /****************************************************************************
527 Send a extended security session setup blob, returning a reply blob.
528 ****************************************************************************/
530 /* The following is calculated from :
532 * (smb_wcnt * 2) = 24 (smb_wcnt == 12 in cli_session_setup_blob_send() )
533 * (strlen("Unix") + 1 + strlen("Samba") + 1) * 2 = 22 (unicode strings at
537 #define BASE_SESSSETUP_BLOB_PACKET_SIZE (35 + 24 + 22)
539 static bool cli_session_setup_blob(struct cli_state *cli, DATA_BLOB blob, DATA_BLOB session_key_krb5)
541 int32 remaining = blob.length;
543 DATA_BLOB send_blob = data_blob_null;
544 int32 max_blob_size = 0;
545 DATA_BLOB receive_blob = data_blob_null;
547 if (cli->max_xmit < BASE_SESSSETUP_BLOB_PACKET_SIZE + 1) {
548 DEBUG(0,("cli_session_setup_blob: cli->max_xmit too small "
549 "(was %u, need minimum %u)\n",
550 (unsigned int)cli->max_xmit,
551 BASE_SESSSETUP_BLOB_PACKET_SIZE));
552 cli_set_nt_error(cli, NT_STATUS_INVALID_PARAMETER);
556 max_blob_size = cli->max_xmit - BASE_SESSSETUP_BLOB_PACKET_SIZE;
558 while ( remaining > 0) {
559 if (remaining >= max_blob_size) {
560 send_blob.length = max_blob_size;
561 remaining -= max_blob_size;
563 DATA_BLOB null_blob = data_blob_null;
565 send_blob.length = remaining;
568 /* This is the last packet in the sequence - turn signing on. */
569 cli_simple_set_signing(cli, session_key_krb5, null_blob);
572 send_blob.data = &blob.data[cur];
573 cur += send_blob.length;
575 DEBUG(10, ("cli_session_setup_blob: Remaining (%u) sending (%u) current (%u)\n",
576 (unsigned int)remaining,
577 (unsigned int)send_blob.length,
578 (unsigned int)cur ));
580 if (!cli_session_setup_blob_send(cli, send_blob)) {
581 DEBUG(0, ("cli_session_setup_blob: send failed\n"));
585 receive_blob = cli_session_setup_blob_receive(cli);
586 data_blob_free(&receive_blob);
588 if (cli_is_error(cli) &&
589 !NT_STATUS_EQUAL( cli_get_nt_error(cli),
590 NT_STATUS_MORE_PROCESSING_REQUIRED)) {
591 DEBUG(0, ("cli_session_setup_blob: receive failed "
592 "(%s)\n", nt_errstr(cli_get_nt_error(cli))));
601 /****************************************************************************
602 Use in-memory credentials cache
603 ****************************************************************************/
605 static void use_in_memory_ccache(void) {
606 setenv(KRB5_ENV_CCNAME, "MEMORY:cliconnect", 1);
609 /****************************************************************************
610 Do a spnego/kerberos encrypted session setup.
611 ****************************************************************************/
613 static ADS_STATUS cli_session_setup_kerberos(struct cli_state *cli, const char *principal, const char *workgroup)
615 DATA_BLOB negTokenTarg;
616 DATA_BLOB session_key_krb5;
619 DEBUG(2,("Doing kerberos session setup\n"));
621 /* generate the encapsulated kerberos5 ticket */
622 rc = spnego_gen_negTokenTarg(principal, 0, &negTokenTarg, &session_key_krb5, 0, NULL);
625 DEBUG(1, ("cli_session_setup_kerberos: spnego_gen_negTokenTarg failed: %s\n",
627 return ADS_ERROR_KRB5(rc);
631 file_save("negTokenTarg.dat", negTokenTarg.data, negTokenTarg.length);
634 if (!cli_session_setup_blob(cli, negTokenTarg, session_key_krb5)) {
635 data_blob_free(&negTokenTarg);
636 data_blob_free(&session_key_krb5);
637 return ADS_ERROR_NT(cli_nt_error(cli));
640 cli_set_session_key(cli, session_key_krb5);
642 data_blob_free(&negTokenTarg);
643 data_blob_free(&session_key_krb5);
645 if (cli_is_error(cli)) {
646 if (NT_STATUS_IS_OK(cli_nt_error(cli))) {
647 return ADS_ERROR_NT(NT_STATUS_UNSUCCESSFUL);
650 return ADS_ERROR_NT(cli_nt_error(cli));
652 #endif /* HAVE_KRB5 */
655 /****************************************************************************
656 Do a spnego/NTLMSSP encrypted session setup.
657 ****************************************************************************/
659 static NTSTATUS cli_session_setup_ntlmssp(struct cli_state *cli, const char *user,
660 const char *pass, const char *domain)
662 struct ntlmssp_state *ntlmssp_state;
666 DATA_BLOB blob = data_blob_null;
667 DATA_BLOB blob_in = data_blob_null;
668 DATA_BLOB blob_out = data_blob_null;
670 cli_temp_set_signing(cli);
672 if (!NT_STATUS_IS_OK(nt_status = ntlmssp_client_start(&ntlmssp_state))) {
675 ntlmssp_want_feature(ntlmssp_state, NTLMSSP_FEATURE_SESSION_KEY);
677 if (!NT_STATUS_IS_OK(nt_status = ntlmssp_set_username(ntlmssp_state, user))) {
680 if (!NT_STATUS_IS_OK(nt_status = ntlmssp_set_domain(ntlmssp_state, domain))) {
683 if (!NT_STATUS_IS_OK(nt_status = ntlmssp_set_password(ntlmssp_state, pass))) {
688 nt_status = ntlmssp_update(ntlmssp_state,
690 data_blob_free(&blob_in);
691 if (NT_STATUS_EQUAL(nt_status, NT_STATUS_MORE_PROCESSING_REQUIRED) || NT_STATUS_IS_OK(nt_status)) {
693 /* and wrap it in a SPNEGO wrapper */
694 msg1 = gen_negTokenInit(OID_NTLMSSP, blob_out);
696 /* wrap it in SPNEGO */
697 msg1 = spnego_gen_auth(blob_out);
700 /* now send that blob on its way */
701 if (!cli_session_setup_blob_send(cli, msg1)) {
702 DEBUG(3, ("Failed to send NTLMSSP/SPNEGO blob to server!\n"));
703 nt_status = NT_STATUS_UNSUCCESSFUL;
705 blob = cli_session_setup_blob_receive(cli);
707 nt_status = cli_nt_error(cli);
708 if (cli_is_error(cli) && NT_STATUS_IS_OK(nt_status)) {
709 if (cli->smb_rw_error == SMB_READ_BAD_SIG) {
710 nt_status = NT_STATUS_ACCESS_DENIED;
712 nt_status = NT_STATUS_UNSUCCESSFUL;
716 data_blob_free(&msg1);
720 if (NT_STATUS_IS_OK(nt_status)) {
721 nt_status = NT_STATUS_UNSUCCESSFUL;
723 } else if ((turn == 1) &&
724 NT_STATUS_EQUAL(nt_status, NT_STATUS_MORE_PROCESSING_REQUIRED)) {
725 DATA_BLOB tmp_blob = data_blob_null;
726 /* the server might give us back two challenges */
727 if (!spnego_parse_challenge(blob, &blob_in,
729 DEBUG(3,("Failed to parse challenges\n"));
730 nt_status = NT_STATUS_INVALID_PARAMETER;
732 data_blob_free(&tmp_blob);
734 if (!spnego_parse_auth_response(blob, nt_status, OID_NTLMSSP,
736 DEBUG(3,("Failed to parse auth response\n"));
737 if (NT_STATUS_IS_OK(nt_status)
738 || NT_STATUS_EQUAL(nt_status, NT_STATUS_MORE_PROCESSING_REQUIRED))
739 nt_status = NT_STATUS_INVALID_PARAMETER;
742 data_blob_free(&blob);
743 data_blob_free(&blob_out);
745 } while (NT_STATUS_EQUAL(nt_status, NT_STATUS_MORE_PROCESSING_REQUIRED));
747 data_blob_free(&blob_in);
749 if (NT_STATUS_IS_OK(nt_status)) {
751 DATA_BLOB key = data_blob(ntlmssp_state->session_key.data,
752 ntlmssp_state->session_key.length);
753 DATA_BLOB null_blob = data_blob_null;
756 fstrcpy(cli->server_domain, ntlmssp_state->server_domain);
757 cli_set_session_key(cli, ntlmssp_state->session_key);
759 res = cli_simple_set_signing(cli, key, null_blob);
761 data_blob_free(&key);
765 /* 'resign' the last message, so we get the right sequence numbers
766 for checking the first reply from the server */
767 cli_calculate_sign_mac(cli, cli->outbuf);
769 if (!cli_check_sign_mac(cli, cli->inbuf)) {
770 nt_status = NT_STATUS_ACCESS_DENIED;
775 /* we have a reference conter on ntlmssp_state, if we are signing
776 then the state will be kept by the signing engine */
778 ntlmssp_end(&ntlmssp_state);
780 if (!NT_STATUS_IS_OK(nt_status)) {
786 /****************************************************************************
787 Do a spnego encrypted session setup.
789 user_domain: The shortname of the domain the user/machine is a member of.
790 dest_realm: The realm we're connecting to, if NULL we use our default realm.
791 ****************************************************************************/
793 ADS_STATUS cli_session_setup_spnego(struct cli_state *cli, const char *user,
794 const char *pass, const char *user_domain,
795 const char * dest_realm)
797 char *principal = NULL;
798 char *OIDs[ASN1_MAX_OIDS];
801 const char *p = NULL;
802 char *account = NULL;
804 DEBUG(3,("Doing spnego session setup (blob length=%lu)\n", (unsigned long)cli->secblob.length));
806 /* the server might not even do spnego */
807 if (cli->secblob.length <= 16) {
808 DEBUG(3,("server didn't supply a full spnego negprot\n"));
813 file_save("negprot.dat", cli->secblob.data, cli->secblob.length);
816 /* there is 16 bytes of GUID before the real spnego packet starts */
817 blob = data_blob(cli->secblob.data+16, cli->secblob.length-16);
819 /* The server sent us the first part of the SPNEGO exchange in the
820 * negprot reply. It is WRONG to depend on the principal sent in the
821 * negprot reply, but right now we do it. If we don't receive one,
822 * we try to best guess, then fall back to NTLM. */
823 if (!spnego_parse_negTokenInit(blob, OIDs, &principal)) {
824 data_blob_free(&blob);
825 return ADS_ERROR_NT(NT_STATUS_INVALID_PARAMETER);
827 data_blob_free(&blob);
829 /* make sure the server understands kerberos */
830 for (i=0;OIDs[i];i++) {
831 DEBUG(3,("got OID=%s\n", OIDs[i]));
832 if (strcmp(OIDs[i], OID_KERBEROS5_OLD) == 0 ||
833 strcmp(OIDs[i], OID_KERBEROS5) == 0) {
834 cli->got_kerberos_mechanism = True;
836 talloc_free(OIDs[i]);
839 DEBUG(3,("got principal=%s\n", principal ? principal : "<null>"));
841 fstrcpy(cli->user_name, user);
844 /* If password is set we reauthenticate to kerberos server
845 * and do not store results */
847 if (cli->got_kerberos_mechanism && cli->use_kerberos) {
853 use_in_memory_ccache();
854 ret = kerberos_kinit_password(user, pass, 0 /* no time correction for now */, NULL);
857 TALLOC_FREE(principal);
858 DEBUG(0, ("Kinit failed: %s\n", error_message(ret)));
859 if (cli->fallback_after_kerberos)
861 return ADS_ERROR_KRB5(ret);
865 /* If we get a bad principal, try to guess it if
866 we have a valid host NetBIOS name.
868 if (strequal(principal, ADS_IGNORE_PRINCIPAL)) {
869 TALLOC_FREE(principal);
872 if (principal == NULL &&
873 !is_ipaddress(cli->desthost) &&
874 !strequal(star_smbserver_name,
877 char *machine = NULL;
879 DEBUG(3,("cli_session_setup_spnego: got a "
880 "bad server principal, trying to guess ...\n"));
882 host = strchr_m(cli->desthost, '.');
884 machine = SMB_STRNDUP(cli->desthost,
885 host - cli->desthost);
887 machine = SMB_STRDUP(cli->desthost);
889 if (machine == NULL) {
890 return ADS_ERROR_NT(NT_STATUS_NO_MEMORY);
894 realm = SMB_STRDUP(dest_realm);
897 realm = kerberos_get_default_realm_from_ccache();
899 if (realm && *realm) {
900 principal = talloc_asprintf(NULL, "%s$@%s",
905 return ADS_ERROR_NT(NT_STATUS_NO_MEMORY);
907 DEBUG(3,("cli_session_setup_spnego: guessed "
908 "server principal=%s\n",
909 principal ? principal : "<null>"));
916 rc = cli_session_setup_kerberos(cli, principal,
918 if (ADS_ERR_OK(rc) || !cli->fallback_after_kerberos) {
919 TALLOC_FREE(principal);
926 TALLOC_FREE(principal);
930 account = talloc_strdup(talloc_tos(), user);
932 return ADS_ERROR_NT(NT_STATUS_NO_MEMORY);
935 /* when falling back to ntlmssp while authenticating with a machine
936 * account strip off the realm - gd */
938 if ((p = strchr_m(user, '@')) != NULL) {
939 account[PTR_DIFF(p,user)] = '\0';
942 return ADS_ERROR_NT(cli_session_setup_ntlmssp(cli, account, pass, user_domain));
945 /****************************************************************************
946 Send a session setup. The username and workgroup is in UNIX character
947 format and must be converted to DOS codepage format before sending. If the
948 password is in plaintext, the same should be done.
949 ****************************************************************************/
951 NTSTATUS cli_session_setup(struct cli_state *cli,
953 const char *pass, int passlen,
954 const char *ntpass, int ntpasslen,
955 const char *workgroup)
961 fstrcpy(user2, user);
970 /* allow for workgroups as part of the username */
971 if ((p=strchr_m(user2,'\\')) || (p=strchr_m(user2,'/')) ||
972 (p=strchr_m(user2,*lp_winbind_separator()))) {
978 if (cli->protocol < PROTOCOL_LANMAN1) {
982 /* now work out what sort of session setup we are going to
983 do. I have split this into separate functions to make the
984 flow a bit easier to understand (tridge) */
986 /* if its an older server then we have to use the older request format */
988 if (cli->protocol < PROTOCOL_NT1) {
989 if (!lp_client_lanman_auth() && passlen != 24 && (*pass)) {
990 DEBUG(1, ("Server requested LM password but 'client lanman auth'"
992 return NT_STATUS_ACCESS_DENIED;
995 if ((cli->sec_mode & NEGOTIATE_SECURITY_CHALLENGE_RESPONSE) == 0 &&
996 !lp_client_plaintext_auth() && (*pass)) {
997 DEBUG(1, ("Server requested plaintext password but "
998 "'client plaintext auth' is disabled\n"));
999 return NT_STATUS_ACCESS_DENIED;
1002 return cli_session_setup_lanman2(cli, user, pass, passlen,
1006 /* if no user is supplied then we have to do an anonymous connection.
1007 passwords are ignored */
1009 if (!user || !*user)
1010 return cli_session_setup_guest(cli);
1012 /* if the server is share level then send a plaintext null
1013 password at this point. The password is sent in the tree
1016 if ((cli->sec_mode & NEGOTIATE_SECURITY_USER_LEVEL) == 0)
1017 return cli_session_setup_plaintext(cli, user, "", workgroup);
1019 /* if the server doesn't support encryption then we have to use
1020 plaintext. The second password is ignored */
1022 if ((cli->sec_mode & NEGOTIATE_SECURITY_CHALLENGE_RESPONSE) == 0) {
1023 if (!lp_client_plaintext_auth() && (*pass)) {
1024 DEBUG(1, ("Server requested plaintext password but "
1025 "'client plaintext auth' is disabled\n"));
1026 return NT_STATUS_ACCESS_DENIED;
1028 return cli_session_setup_plaintext(cli, user, pass, workgroup);
1031 /* if the server supports extended security then use SPNEGO */
1033 if (cli->capabilities & CAP_EXTENDED_SECURITY) {
1034 ADS_STATUS status = cli_session_setup_spnego(cli, user, pass,
1036 if (!ADS_ERR_OK(status)) {
1037 DEBUG(3, ("SPNEGO login failed: %s\n", ads_errstr(status)));
1038 return ads_ntstatus(status);
1043 /* otherwise do a NT1 style session setup */
1044 status = cli_session_setup_nt1(cli, user, pass, passlen,
1045 ntpass, ntpasslen, workgroup);
1046 if (!NT_STATUS_IS_OK(status)) {
1047 DEBUG(3,("cli_session_setup: NT1 session setup "
1048 "failed: %s\n", nt_errstr(status)));
1053 if (strstr(cli->server_type, "Samba")) {
1054 cli->is_samba = True;
1057 return NT_STATUS_OK;
1060 /****************************************************************************
1062 *****************************************************************************/
1064 bool cli_ulogoff(struct cli_state *cli)
1066 memset(cli->outbuf,'\0',smb_size);
1067 cli_set_message(cli->outbuf,2,0,True);
1068 SCVAL(cli->outbuf,smb_com,SMBulogoffX);
1069 cli_setup_packet(cli);
1070 SSVAL(cli->outbuf,smb_vwv0,0xFF);
1071 SSVAL(cli->outbuf,smb_vwv2,0); /* no additional info */
1074 if (!cli_receive_smb(cli))
1077 if (cli_is_error(cli)) {
1085 /****************************************************************************
1087 ****************************************************************************/
1089 bool cli_send_tconX(struct cli_state *cli,
1090 const char *share, const char *dev, const char *pass, int passlen)
1092 fstring fullshare, pword;
1094 memset(cli->outbuf,'\0',smb_size);
1095 memset(cli->inbuf,'\0',smb_size);
1097 fstrcpy(cli->share, share);
1099 /* in user level security don't send a password now */
1100 if (cli->sec_mode & NEGOTIATE_SECURITY_USER_LEVEL) {
1104 DEBUG(1, ("Server not using user level security and no password supplied.\n"));
1108 if ((cli->sec_mode & NEGOTIATE_SECURITY_CHALLENGE_RESPONSE) &&
1109 *pass && passlen != 24) {
1110 if (!lp_client_lanman_auth()) {
1111 DEBUG(1, ("Server requested LANMAN password "
1112 "(share-level security) but "
1113 "'client lanman auth' is disabled\n"));
1118 * Non-encrypted passwords - convert to DOS codepage before encryption.
1121 SMBencrypt(pass,cli->secblob.data,(uchar *)pword);
1123 if((cli->sec_mode & (NEGOTIATE_SECURITY_USER_LEVEL|NEGOTIATE_SECURITY_CHALLENGE_RESPONSE)) == 0) {
1124 if (!lp_client_plaintext_auth() && (*pass)) {
1125 DEBUG(1, ("Server requested plaintext "
1126 "password but 'client plaintext "
1127 "auth' is disabled\n"));
1132 * Non-encrypted passwords - convert to DOS codepage before using.
1134 passlen = clistr_push(cli, pword, pass, sizeof(pword), STR_TERMINATE);
1138 memcpy(pword, pass, passlen);
1143 slprintf(fullshare, sizeof(fullshare)-1,
1144 "\\\\%s\\%s", cli->desthost, share);
1146 cli_set_message(cli->outbuf,4, 0, True);
1147 SCVAL(cli->outbuf,smb_com,SMBtconX);
1148 cli_setup_packet(cli);
1150 SSVAL(cli->outbuf,smb_vwv0,0xFF);
1151 SSVAL(cli->outbuf,smb_vwv2,TCONX_FLAG_EXTENDED_RESPONSE);
1152 SSVAL(cli->outbuf,smb_vwv3,passlen);
1154 p = smb_buf(cli->outbuf);
1156 memcpy(p,pword,passlen);
1159 p += clistr_push(cli, p, fullshare, -1, STR_TERMINATE |STR_UPPER);
1160 p += clistr_push(cli, p, dev, -1, STR_TERMINATE |STR_UPPER | STR_ASCII);
1162 cli_setup_bcc(cli, p);
1165 if (!cli_receive_smb(cli))
1168 if (cli_is_error(cli))
1171 clistr_pull(cli, cli->dev, smb_buf(cli->inbuf), sizeof(fstring), -1, STR_TERMINATE|STR_ASCII);
1173 if (cli->protocol >= PROTOCOL_NT1 &&
1174 smb_buflen(cli->inbuf) == 3) {
1175 /* almost certainly win95 - enable bug fixes */
1179 /* Make sure that we have the optional support 16-bit field. WCT > 2 */
1180 /* Avoids issues when connecting to Win9x boxes sharing files */
1182 cli->dfsroot = False;
1183 if ( (CVAL(cli->inbuf, smb_wct))>2 && cli->protocol >= PROTOCOL_LANMAN2 )
1184 cli->dfsroot = (SVAL( cli->inbuf, smb_vwv2 ) & SMB_SHARE_IN_DFS) ? True : False;
1186 cli->cnum = SVAL(cli->inbuf,smb_tid);
1190 /****************************************************************************
1191 Send a tree disconnect.
1192 ****************************************************************************/
1194 bool cli_tdis(struct cli_state *cli)
1196 memset(cli->outbuf,'\0',smb_size);
1197 cli_set_message(cli->outbuf,0,0,True);
1198 SCVAL(cli->outbuf,smb_com,SMBtdis);
1199 SSVAL(cli->outbuf,smb_tid,cli->cnum);
1200 cli_setup_packet(cli);
1203 if (!cli_receive_smb(cli))
1206 if (cli_is_error(cli)) {
1214 /****************************************************************************
1215 Send a negprot command.
1216 ****************************************************************************/
1218 void cli_negprot_send(struct cli_state *cli)
1223 if (cli->protocol < PROTOCOL_NT1)
1224 cli->use_spnego = False;
1226 memset(cli->outbuf,'\0',smb_size);
1228 /* setup the protocol strings */
1229 cli_set_message(cli->outbuf,0,0,True);
1231 p = smb_buf(cli->outbuf);
1233 prots[numprots].name && prots[numprots].prot<=cli->protocol;
1236 p += clistr_push(cli, p, prots[numprots].name, -1, STR_TERMINATE);
1239 SCVAL(cli->outbuf,smb_com,SMBnegprot);
1240 cli_setup_bcc(cli, p);
1241 cli_setup_packet(cli);
1243 SCVAL(smb_buf(cli->outbuf),0,2);
1248 /****************************************************************************
1249 Send a negprot command.
1250 ****************************************************************************/
1252 bool cli_negprot(struct cli_state *cli)
1258 if (cli->protocol < PROTOCOL_NT1)
1259 cli->use_spnego = False;
1261 memset(cli->outbuf,'\0',smb_size);
1263 /* setup the protocol strings */
1264 for (plength=0,numprots=0;
1265 prots[numprots].name && prots[numprots].prot<=cli->protocol;
1267 plength += strlen(prots[numprots].name)+2;
1269 cli_set_message(cli->outbuf,0,plength,True);
1271 p = smb_buf(cli->outbuf);
1273 prots[numprots].name && prots[numprots].prot<=cli->protocol;
1276 p += clistr_push(cli, p, prots[numprots].name, -1, STR_TERMINATE);
1279 SCVAL(cli->outbuf,smb_com,SMBnegprot);
1280 cli_setup_packet(cli);
1282 SCVAL(smb_buf(cli->outbuf),0,2);
1285 if (!cli_receive_smb(cli))
1288 show_msg(cli->inbuf);
1290 if (cli_is_error(cli) ||
1291 ((int)SVAL(cli->inbuf,smb_vwv0) >= numprots)) {
1295 cli->protocol = prots[SVAL(cli->inbuf,smb_vwv0)].prot;
1297 if ((cli->protocol < PROTOCOL_NT1) && cli->sign_info.mandatory_signing) {
1298 DEBUG(0,("cli_negprot: SMB signing is mandatory and the selected protocol level doesn't support it.\n"));
1302 if (cli->protocol >= PROTOCOL_NT1) {
1305 cli->sec_mode = CVAL(cli->inbuf,smb_vwv1);
1306 cli->max_mux = SVAL(cli->inbuf, smb_vwv1+1);
1307 cli->max_xmit = IVAL(cli->inbuf,smb_vwv3+1);
1308 cli->sesskey = IVAL(cli->inbuf,smb_vwv7+1);
1309 cli->serverzone = SVALS(cli->inbuf,smb_vwv15+1);
1310 cli->serverzone *= 60;
1311 /* this time arrives in real GMT */
1312 ts = interpret_long_date(cli->inbuf+smb_vwv11+1);
1313 cli->servertime = ts.tv_sec;
1314 cli->secblob = data_blob(smb_buf(cli->inbuf),smb_buflen(cli->inbuf));
1315 cli->capabilities = IVAL(cli->inbuf,smb_vwv9+1);
1316 if (cli->capabilities & CAP_RAW_MODE) {
1317 cli->readbraw_supported = True;
1318 cli->writebraw_supported = True;
1320 /* work out if they sent us a workgroup */
1321 if (!(cli->capabilities & CAP_EXTENDED_SECURITY) &&
1322 smb_buflen(cli->inbuf) > 8) {
1323 clistr_pull(cli, cli->server_domain,
1324 smb_buf(cli->inbuf)+8, sizeof(cli->server_domain),
1325 smb_buflen(cli->inbuf)-8, STR_UNICODE|STR_NOALIGN);
1329 * As signing is slow we only turn it on if either the client or
1330 * the server require it. JRA.
1333 if (cli->sec_mode & NEGOTIATE_SECURITY_SIGNATURES_REQUIRED) {
1334 /* Fail if server says signing is mandatory and we don't want to support it. */
1335 if (!cli->sign_info.allow_smb_signing) {
1336 DEBUG(0,("cli_negprot: SMB signing is mandatory and we have disabled it.\n"));
1339 cli->sign_info.negotiated_smb_signing = True;
1340 cli->sign_info.mandatory_signing = True;
1341 } else if (cli->sign_info.mandatory_signing && cli->sign_info.allow_smb_signing) {
1342 /* Fail if client says signing is mandatory and the server doesn't support it. */
1343 if (!(cli->sec_mode & NEGOTIATE_SECURITY_SIGNATURES_ENABLED)) {
1344 DEBUG(1,("cli_negprot: SMB signing is mandatory and the server doesn't support it.\n"));
1347 cli->sign_info.negotiated_smb_signing = True;
1348 cli->sign_info.mandatory_signing = True;
1349 } else if (cli->sec_mode & NEGOTIATE_SECURITY_SIGNATURES_ENABLED) {
1350 cli->sign_info.negotiated_smb_signing = True;
1353 if (cli->capabilities & (CAP_LARGE_READX|CAP_LARGE_WRITEX)) {
1354 SAFE_FREE(cli->outbuf);
1355 SAFE_FREE(cli->inbuf);
1356 cli->outbuf = (char *)SMB_MALLOC(CLI_SAMBA_MAX_LARGE_READX_SIZE+LARGE_WRITEX_HDR_SIZE+SAFETY_MARGIN);
1357 cli->inbuf = (char *)SMB_MALLOC(CLI_SAMBA_MAX_LARGE_READX_SIZE+LARGE_WRITEX_HDR_SIZE+SAFETY_MARGIN);
1358 cli->bufsize = CLI_SAMBA_MAX_LARGE_READX_SIZE + LARGE_WRITEX_HDR_SIZE;
1361 } else if (cli->protocol >= PROTOCOL_LANMAN1) {
1362 cli->use_spnego = False;
1363 cli->sec_mode = SVAL(cli->inbuf,smb_vwv1);
1364 cli->max_xmit = SVAL(cli->inbuf,smb_vwv2);
1365 cli->max_mux = SVAL(cli->inbuf, smb_vwv3);
1366 cli->sesskey = IVAL(cli->inbuf,smb_vwv6);
1367 cli->serverzone = SVALS(cli->inbuf,smb_vwv10);
1368 cli->serverzone *= 60;
1369 /* this time is converted to GMT by make_unix_date */
1370 cli->servertime = cli_make_unix_date(cli,cli->inbuf+smb_vwv8);
1371 cli->readbraw_supported = ((SVAL(cli->inbuf,smb_vwv5) & 0x1) != 0);
1372 cli->writebraw_supported = ((SVAL(cli->inbuf,smb_vwv5) & 0x2) != 0);
1373 cli->secblob = data_blob(smb_buf(cli->inbuf),smb_buflen(cli->inbuf));
1375 /* the old core protocol */
1376 cli->use_spnego = False;
1378 cli->serverzone = get_time_zone(time(NULL));
1381 cli->max_xmit = MIN(cli->max_xmit, CLI_BUFFER_SIZE);
1383 /* a way to force ascii SMB */
1384 if (getenv("CLI_FORCE_ASCII"))
1385 cli->capabilities &= ~CAP_UNICODE;
1390 /****************************************************************************
1391 Send a session request. See rfc1002.txt 4.3 and 4.3.2.
1392 ****************************************************************************/
1394 bool cli_session_request(struct cli_state *cli,
1395 struct nmb_name *calling, struct nmb_name *called)
1400 memcpy(&(cli->calling), calling, sizeof(*calling));
1401 memcpy(&(cli->called ), called , sizeof(*called ));
1403 /* put in the destination name */
1404 p = cli->outbuf+len;
1405 name_mangle(cli->called .name, p, cli->called .name_type);
1409 p = cli->outbuf+len;
1410 name_mangle(cli->calling.name, p, cli->calling.name_type);
1413 /* 445 doesn't have session request */
1414 if (cli->port == 445)
1417 /* send a session request (RFC 1002) */
1418 /* setup the packet length
1419 * Remove four bytes from the length count, since the length
1420 * field in the NBT Session Service header counts the number
1421 * of bytes which follow. The cli_send_smb() function knows
1422 * about this and accounts for those four bytes.
1426 _smb_setlen(cli->outbuf,len);
1427 SCVAL(cli->outbuf,0,0x81);
1430 DEBUG(5,("Sent session request\n"));
1432 if (!cli_receive_smb(cli))
1435 if (CVAL(cli->inbuf,0) == 0x84) {
1436 /* C. Hoch 9/14/95 Start */
1437 /* For information, here is the response structure.
1438 * We do the byte-twiddling to for portability.
1439 struct RetargetResponse{
1441 unsigned char flags;
1447 uint16_t port = (CVAL(cli->inbuf,8)<<8)+CVAL(cli->inbuf,9);
1448 struct in_addr dest_ip;
1450 /* SESSION RETARGET */
1451 putip((char *)&dest_ip,cli->inbuf+4);
1452 in_addr_to_sockaddr_storage(&cli->dest_ss, dest_ip);
1454 cli->fd = open_socket_out(SOCK_STREAM,
1457 LONG_CONNECT_TIMEOUT);
1461 DEBUG(3,("Retargeted\n"));
1463 set_socket_options(cli->fd, lp_socket_options());
1470 DEBUG(0,("Retarget recursion - failing\n"));
1474 ret = cli_session_request(cli, calling, called);
1478 } /* C. Hoch 9/14/95 End */
1480 if (CVAL(cli->inbuf,0) != 0x82) {
1481 /* This is the wrong place to put the error... JRA. */
1482 cli->rap_error = CVAL(cli->inbuf,4);
1488 /****************************************************************************
1489 Open the client sockets.
1490 ****************************************************************************/
1492 NTSTATUS cli_connect(struct cli_state *cli,
1494 struct sockaddr_storage *dest_ss)
1497 int name_type = 0x20;
1498 TALLOC_CTX *frame = talloc_stackframe();
1499 unsigned int num_addrs = 0;
1501 struct sockaddr_storage *ss_arr = NULL;
1504 /* reasonable default hostname */
1506 host = star_smbserver_name;
1509 fstrcpy(cli->desthost, host);
1511 /* allow hostnames of the form NAME#xx and do a netbios lookup */
1512 if ((p = strchr(cli->desthost, '#'))) {
1513 name_type = strtol(p+1, NULL, 16);
1517 if (!dest_ss || is_zero_addr((struct sockaddr *)dest_ss)) {
1518 NTSTATUS status =resolve_name_list(frame,
1523 if (!NT_STATUS_IS_OK(status)) {
1525 return NT_STATUS_BAD_NETWORK_NAME;
1529 ss_arr = TALLOC_P(frame, struct sockaddr_storage);
1532 return NT_STATUS_NO_MEMORY;
1537 for (i = 0; i < num_addrs; i++) {
1538 cli->dest_ss = ss_arr[i];
1539 if (getenv("LIBSMB_PROG")) {
1540 cli->fd = sock_exec(getenv("LIBSMB_PROG"));
1542 /* try 445 first, then 139 */
1543 uint16_t port = cli->port?cli->port:445;
1544 cli->fd = open_socket_out(SOCK_STREAM, &cli->dest_ss,
1545 port, cli->timeout);
1546 if (cli->fd == -1 && cli->port == 0) {
1548 cli->fd = open_socket_out(SOCK_STREAM, &cli->dest_ss,
1549 port, cli->timeout);
1551 if (cli->fd != -1) {
1555 if (cli->fd == -1) {
1556 char addr[INET6_ADDRSTRLEN];
1557 print_sockaddr(addr, sizeof(addr), &ss_arr[i]);
1558 DEBUG(2,("Error connecting to %s (%s)\n",
1559 dest_ss?addr:host,strerror(errno)));
1561 /* Exit from loop on first connection. */
1566 if (cli->fd == -1) {
1568 return map_nt_error_from_unix(errno);
1572 *dest_ss = cli->dest_ss;
1575 set_socket_options(cli->fd, lp_socket_options());
1578 return NT_STATUS_OK;
1582 establishes a connection to after the negprot.
1583 @param output_cli A fully initialised cli structure, non-null only on success
1584 @param dest_host The netbios name of the remote host
1585 @param dest_ss (optional) The the destination IP, NULL for name based lookup
1586 @param port (optional) The destination port (0 for default)
1587 @param retry bool. Did this connection fail with a retryable error ?
1590 NTSTATUS cli_start_connection(struct cli_state **output_cli,
1591 const char *my_name,
1592 const char *dest_host,
1593 struct sockaddr_storage *dest_ss, int port,
1594 int signing_state, int flags,
1598 struct nmb_name calling;
1599 struct nmb_name called;
1600 struct cli_state *cli;
1601 struct sockaddr_storage ss;
1607 my_name = global_myname();
1609 if (!(cli = cli_initialise())) {
1610 return NT_STATUS_NO_MEMORY;
1613 make_nmb_name(&calling, my_name, 0x0);
1614 make_nmb_name(&called , dest_host, 0x20);
1616 if (cli_set_port(cli, port) != port) {
1618 return NT_STATUS_UNSUCCESSFUL;
1621 cli_set_timeout(cli, 10000); /* 10 seconds. */
1631 DEBUG(3,("Connecting to host=%s\n", dest_host));
1633 nt_status = cli_connect(cli, dest_host, &ss);
1634 if (!NT_STATUS_IS_OK(nt_status)) {
1635 char addr[INET6_ADDRSTRLEN];
1636 print_sockaddr(addr, sizeof(addr), &ss);
1637 DEBUG(1,("cli_start_connection: failed to connect to %s (%s). Error %s\n",
1638 nmb_namestr(&called), addr, nt_errstr(nt_status) ));
1646 if (!cli_session_request(cli, &calling, &called)) {
1648 DEBUG(1,("session request to %s failed (%s)\n",
1649 called.name, cli_errstr(cli)));
1650 if ((p=strchr(called.name, '.')) && !is_ipaddress(called.name)) {
1654 if (strcmp(called.name, star_smbserver_name)) {
1655 make_nmb_name(&called , star_smbserver_name, 0x20);
1658 return NT_STATUS_BAD_NETWORK_NAME;
1661 cli_setup_signing_state(cli, signing_state);
1663 if (flags & CLI_FULL_CONNECTION_DONT_SPNEGO)
1664 cli->use_spnego = False;
1665 else if (flags & CLI_FULL_CONNECTION_USE_KERBEROS)
1666 cli->use_kerberos = True;
1668 if ((flags & CLI_FULL_CONNECTION_FALLBACK_AFTER_KERBEROS) &&
1669 cli->use_kerberos) {
1670 cli->fallback_after_kerberos = true;
1673 if (!cli_negprot(cli)) {
1674 DEBUG(1,("failed negprot\n"));
1675 nt_status = cli_nt_error(cli);
1676 if (NT_STATUS_IS_OK(nt_status)) {
1677 nt_status = NT_STATUS_UNSUCCESSFUL;
1684 return NT_STATUS_OK;
1689 establishes a connection right up to doing tconX, password specified.
1690 @param output_cli A fully initialised cli structure, non-null only on success
1691 @param dest_host The netbios name of the remote host
1692 @param dest_ip (optional) The the destination IP, NULL for name based lookup
1693 @param port (optional) The destination port (0 for default)
1694 @param service (optional) The share to make the connection to. Should be 'unqualified' in any way.
1695 @param service_type The 'type' of serivice.
1696 @param user Username, unix string
1697 @param domain User's domain
1698 @param password User's password, unencrypted unix string.
1699 @param retry bool. Did this connection fail with a retryable error ?
1702 NTSTATUS cli_full_connection(struct cli_state **output_cli,
1703 const char *my_name,
1704 const char *dest_host,
1705 struct sockaddr_storage *dest_ss, int port,
1706 const char *service, const char *service_type,
1707 const char *user, const char *domain,
1708 const char *password, int flags,
1713 struct cli_state *cli = NULL;
1714 int pw_len = password ? strlen(password)+1 : 0;
1718 if (password == NULL) {
1722 nt_status = cli_start_connection(&cli, my_name, dest_host,
1723 dest_ss, port, signing_state,
1726 if (!NT_STATUS_IS_OK(nt_status)) {
1730 nt_status = cli_session_setup(cli, user, password, pw_len, password,
1732 if (!NT_STATUS_IS_OK(nt_status)) {
1734 if (!(flags & CLI_FULL_CONNECTION_ANONYMOUS_FALLBACK)) {
1735 DEBUG(1,("failed session setup with %s\n",
1736 nt_errstr(nt_status)));
1741 nt_status = cli_session_setup(cli, "", "", 0, "", 0, domain);
1742 if (!NT_STATUS_IS_OK(nt_status)) {
1743 DEBUG(1,("anonymous failed session setup with %s\n",
1744 nt_errstr(nt_status)));
1751 if (!cli_send_tconX(cli, service, service_type, password, pw_len)) {
1752 nt_status = cli_nt_error(cli);
1753 DEBUG(1,("failed tcon_X with %s\n", nt_errstr(nt_status)));
1755 if (NT_STATUS_IS_OK(nt_status)) {
1756 nt_status = NT_STATUS_UNSUCCESSFUL;
1762 cli_init_creds(cli, user, domain, password);
1765 return NT_STATUS_OK;
1768 /****************************************************************************
1769 Attempt a NetBIOS session request, falling back to *SMBSERVER if needed.
1770 ****************************************************************************/
1772 bool attempt_netbios_session_request(struct cli_state **ppcli, const char *srchost, const char *desthost,
1773 struct sockaddr_storage *pdest_ss)
1775 struct nmb_name calling, called;
1777 make_nmb_name(&calling, srchost, 0x0);
1780 * If the called name is an IP address
1781 * then use *SMBSERVER immediately.
1784 if(is_ipaddress(desthost)) {
1785 make_nmb_name(&called, star_smbserver_name, 0x20);
1787 make_nmb_name(&called, desthost, 0x20);
1790 if (!cli_session_request(*ppcli, &calling, &called)) {
1792 struct nmb_name smbservername;
1794 make_nmb_name(&smbservername, star_smbserver_name, 0x20);
1797 * If the name wasn't *SMBSERVER then
1798 * try with *SMBSERVER if the first name fails.
1801 if (nmb_name_equal(&called, &smbservername)) {
1804 * The name used was *SMBSERVER, don't bother with another name.
1807 DEBUG(0,("attempt_netbios_session_request: %s rejected the session for name *SMBSERVER \
1808 with error %s.\n", desthost, cli_errstr(*ppcli) ));
1813 cli_shutdown(*ppcli);
1815 *ppcli = cli_initialise();
1817 /* Out of memory... */
1821 status = cli_connect(*ppcli, desthost, pdest_ss);
1822 if (!NT_STATUS_IS_OK(status) ||
1823 !cli_session_request(*ppcli, &calling, &smbservername)) {
1824 DEBUG(0,("attempt_netbios_session_request: %s rejected the session for \
1825 name *SMBSERVER with error %s\n", desthost, cli_errstr(*ppcli) ));
1833 /****************************************************************************
1834 Send an old style tcon.
1835 ****************************************************************************/
1836 NTSTATUS cli_raw_tcon(struct cli_state *cli,
1837 const char *service, const char *pass, const char *dev,
1838 uint16 *max_xmit, uint16 *tid)
1842 if (!lp_client_plaintext_auth() && (*pass)) {
1843 DEBUG(1, ("Server requested plaintext password but 'client "
1844 "plaintext auth' is disabled\n"));
1845 return NT_STATUS_ACCESS_DENIED;
1848 memset(cli->outbuf,'\0',smb_size);
1849 memset(cli->inbuf,'\0',smb_size);
1851 cli_set_message(cli->outbuf, 0, 0, True);
1852 SCVAL(cli->outbuf,smb_com,SMBtcon);
1853 cli_setup_packet(cli);
1855 p = smb_buf(cli->outbuf);
1856 *p++ = 4; p += clistr_push(cli, p, service, -1, STR_TERMINATE | STR_NOALIGN);
1857 *p++ = 4; p += clistr_push(cli, p, pass, -1, STR_TERMINATE | STR_NOALIGN);
1858 *p++ = 4; p += clistr_push(cli, p, dev, -1, STR_TERMINATE | STR_NOALIGN);
1860 cli_setup_bcc(cli, p);
1863 if (!cli_receive_smb(cli)) {
1864 return NT_STATUS_UNEXPECTED_NETWORK_ERROR;
1867 if (cli_is_error(cli)) {
1868 return cli_nt_error(cli);
1871 *max_xmit = SVAL(cli->inbuf, smb_vwv0);
1872 *tid = SVAL(cli->inbuf, smb_vwv1);
1874 return NT_STATUS_OK;
1877 /* Return a cli_state pointing at the IPC$ share for the given server */
1879 struct cli_state *get_ipc_connect(char *server,
1880 struct sockaddr_storage *server_ss,
1881 const struct user_auth_info *user_info)
1883 struct cli_state *cli;
1885 uint32_t flags = CLI_FULL_CONNECTION_ANONYMOUS_FALLBACK;
1887 if (user_info->use_kerberos) {
1888 flags |= CLI_FULL_CONNECTION_USE_KERBEROS;
1891 nt_status = cli_full_connection(&cli, NULL, server, server_ss, 0, "IPC$", "IPC",
1892 user_info->username ? user_info->username : "",
1894 user_info->password ? user_info->password : "",
1898 if (NT_STATUS_IS_OK(nt_status)) {
1900 } else if (is_ipaddress(server)) {
1901 /* windows 9* needs a correct NMB name for connections */
1902 fstring remote_name;
1904 if (name_status_find("*", 0, 0, server_ss, remote_name)) {
1905 cli = get_ipc_connect(remote_name, server_ss, user_info);
1914 * Given the IP address of a master browser on the network, return its
1915 * workgroup and connect to it.
1917 * This function is provided to allow additional processing beyond what
1918 * get_ipc_connect_master_ip_bcast() does, e.g. to retrieve the list of master
1919 * browsers and obtain each master browsers' list of domains (in case the
1920 * first master browser is recently on the network and has not yet
1921 * synchronized with other master browsers and therefore does not yet have the
1922 * entire network browse list)
1925 struct cli_state *get_ipc_connect_master_ip(TALLOC_CTX *ctx,
1926 struct ip_service *mb_ip,
1927 const struct user_auth_info *user_info,
1928 char **pp_workgroup_out)
1930 char addr[INET6_ADDRSTRLEN];
1932 struct cli_state *cli;
1933 struct sockaddr_storage server_ss;
1935 *pp_workgroup_out = NULL;
1937 print_sockaddr(addr, sizeof(addr), &mb_ip->ss);
1938 DEBUG(99, ("Looking up name of master browser %s\n",
1942 * Do a name status query to find out the name of the master browser.
1943 * We use <01><02>__MSBROWSE__<02>#01 if *#00 fails because a domain
1944 * master browser will not respond to a wildcard query (or, at least,
1945 * an NT4 server acting as the domain master browser will not).
1947 * We might be able to use ONLY the query on MSBROWSE, but that's not
1948 * yet been tested with all Windows versions, so until it is, leave
1949 * the original wildcard query as the first choice and fall back to
1950 * MSBROWSE if the wildcard query fails.
1952 if (!name_status_find("*", 0, 0x1d, &mb_ip->ss, name) &&
1953 !name_status_find(MSBROWSE, 1, 0x1d, &mb_ip->ss, name)) {
1955 DEBUG(99, ("Could not retrieve name status for %s\n",
1960 if (!find_master_ip(name, &server_ss)) {
1961 DEBUG(99, ("Could not find master ip for %s\n", name));
1965 *pp_workgroup_out = talloc_strdup(ctx, name);
1967 DEBUG(4, ("found master browser %s, %s\n", name, addr));
1969 print_sockaddr(addr, sizeof(addr), &server_ss);
1970 cli = get_ipc_connect(addr, &server_ss, user_info);
1976 * Return the IP address and workgroup of a master browser on the network, and
1980 struct cli_state *get_ipc_connect_master_ip_bcast(TALLOC_CTX *ctx,
1981 const struct user_auth_info *user_info,
1982 char **pp_workgroup_out)
1984 struct ip_service *ip_list;
1985 struct cli_state *cli;
1988 *pp_workgroup_out = NULL;
1990 DEBUG(99, ("Do broadcast lookup for workgroups on local network\n"));
1992 /* Go looking for workgroups by broadcasting on the local network */
1994 if (!NT_STATUS_IS_OK(name_resolve_bcast(MSBROWSE, 1, &ip_list,
1996 DEBUG(99, ("No master browsers responded\n"));
2000 for (i = 0; i < count; i++) {
2001 char addr[INET6_ADDRSTRLEN];
2002 print_sockaddr(addr, sizeof(addr), &ip_list[i].ss);
2003 DEBUG(99, ("Found master browser %s\n", addr));
2005 cli = get_ipc_connect_master_ip(ctx, &ip_list[i],
2006 user_info, pp_workgroup_out);