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 2 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, write to the Free Software
19 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
24 extern pstring user_socket_options;
30 {PROTOCOL_CORE,"PC NETWORK PROGRAM 1.0"},
31 {PROTOCOL_COREPLUS,"MICROSOFT NETWORKS 1.03"},
32 {PROTOCOL_LANMAN1,"MICROSOFT NETWORKS 3.0"},
33 {PROTOCOL_LANMAN1,"LANMAN1.0"},
34 {PROTOCOL_LANMAN2,"LM1.2X002"},
35 {PROTOCOL_LANMAN2,"DOS LANMAN2.1"},
36 {PROTOCOL_LANMAN2,"Samba"},
37 {PROTOCOL_NT1,"NT LANMAN 1.0"},
38 {PROTOCOL_NT1,"NT LM 0.12"},
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 BOOL cli_session_setup_lanman2(struct cli_state *cli, const char *user,
59 const char *pass, size_t passlen, const char *workgroup)
61 DATA_BLOB session_key = data_blob(NULL, 0);
62 DATA_BLOB lm_response = data_blob(NULL, 0);
66 if (passlen > sizeof(pword)-1)
69 /* LANMAN servers predate NT status codes and Unicode and ignore those
70 smb flags so we must disable the corresponding default capabilities
71 that would otherwise cause the Unicode and NT Status flags to be
72 set (and even returned by the server) */
74 cli->capabilities &= ~(CAP_UNICODE | CAP_STATUS32);
76 /* if in share level security then don't send a password now */
77 if (!(cli->sec_mode & NEGOTIATE_SECURITY_USER_LEVEL))
80 if (passlen > 0 && (cli->sec_mode & NEGOTIATE_SECURITY_CHALLENGE_RESPONSE) && passlen != 24) {
81 /* Encrypted mode needed, and non encrypted password supplied. */
82 lm_response = data_blob(NULL, 24);
83 if (!SMBencrypt(pass, cli->secblob.data,(uchar *)lm_response.data)) {
84 DEBUG(1, ("Password is > 14 chars in length, and is therefore incompatible with Lanman authentication\n"));
87 } else if ((cli->sec_mode & NEGOTIATE_SECURITY_CHALLENGE_RESPONSE) && passlen == 24) {
88 /* Encrypted mode needed, and encrypted password supplied. */
89 lm_response = data_blob(pass, passlen);
90 } else if (passlen > 0) {
91 /* Plaintext mode needed, assume plaintext supplied. */
92 passlen = clistr_push(cli, pword, pass, sizeof(pword), STR_TERMINATE);
93 lm_response = data_blob(pass, passlen);
96 /* send a session setup command */
97 memset(cli->outbuf,'\0',smb_size);
98 set_message(cli->outbuf,10, 0, True);
99 SCVAL(cli->outbuf,smb_com,SMBsesssetupX);
100 cli_setup_packet(cli);
102 SCVAL(cli->outbuf,smb_vwv0,0xFF);
103 SSVAL(cli->outbuf,smb_vwv2,cli->max_xmit);
104 SSVAL(cli->outbuf,smb_vwv3,2);
105 SSVAL(cli->outbuf,smb_vwv4,1);
106 SIVAL(cli->outbuf,smb_vwv5,cli->sesskey);
107 SSVAL(cli->outbuf,smb_vwv7,lm_response.length);
109 p = smb_buf(cli->outbuf);
110 memcpy(p,lm_response.data,lm_response.length);
111 p += lm_response.length;
112 p += clistr_push(cli, p, user, -1, STR_TERMINATE|STR_UPPER);
113 p += clistr_push(cli, p, workgroup, -1, STR_TERMINATE|STR_UPPER);
114 p += clistr_push(cli, p, "Unix", -1, STR_TERMINATE);
115 p += clistr_push(cli, p, "Samba", -1, STR_TERMINATE);
116 cli_setup_bcc(cli, p);
119 if (!cli_receive_smb(cli))
122 show_msg(cli->inbuf);
124 if (cli_is_error(cli))
127 /* use the returned vuid from now on */
128 cli->vuid = SVAL(cli->inbuf,smb_uid);
129 fstrcpy(cli->user_name, user);
131 if (session_key.data) {
132 /* Have plaintext orginal */
133 cli_set_session_key(cli, session_key);
139 /****************************************************************************
140 Work out suitable capabilities to offer the server.
141 ****************************************************************************/
143 static uint32 cli_session_setup_capabilities(struct cli_state *cli)
145 uint32 capabilities = CAP_NT_SMBS;
147 if (!cli->force_dos_errors)
148 capabilities |= CAP_STATUS32;
150 if (cli->use_level_II_oplocks)
151 capabilities |= CAP_LEVEL_II_OPLOCKS;
153 capabilities |= (cli->capabilities & (CAP_UNICODE|CAP_LARGE_FILES|CAP_LARGE_READX|CAP_LARGE_WRITEX|CAP_DFS));
157 /****************************************************************************
158 Do a NT1 guest session setup.
159 ****************************************************************************/
161 static BOOL cli_session_setup_guest(struct cli_state *cli)
164 uint32 capabilities = cli_session_setup_capabilities(cli);
166 memset(cli->outbuf, '\0', smb_size);
167 set_message(cli->outbuf,13,0,True);
168 SCVAL(cli->outbuf,smb_com,SMBsesssetupX);
169 cli_setup_packet(cli);
171 SCVAL(cli->outbuf,smb_vwv0,0xFF);
172 SSVAL(cli->outbuf,smb_vwv2,CLI_BUFFER_SIZE);
173 SSVAL(cli->outbuf,smb_vwv3,2);
174 SSVAL(cli->outbuf,smb_vwv4,cli->pid);
175 SIVAL(cli->outbuf,smb_vwv5,cli->sesskey);
176 SSVAL(cli->outbuf,smb_vwv7,0);
177 SSVAL(cli->outbuf,smb_vwv8,0);
178 SIVAL(cli->outbuf,smb_vwv11,capabilities);
179 p = smb_buf(cli->outbuf);
180 p += clistr_push(cli, p, "", -1, STR_TERMINATE); /* username */
181 p += clistr_push(cli, p, "", -1, STR_TERMINATE); /* workgroup */
182 p += clistr_push(cli, p, "Unix", -1, STR_TERMINATE);
183 p += clistr_push(cli, p, "Samba", -1, STR_TERMINATE);
184 cli_setup_bcc(cli, p);
187 if (!cli_receive_smb(cli))
190 show_msg(cli->inbuf);
192 if (cli_is_error(cli))
195 cli->vuid = SVAL(cli->inbuf,smb_uid);
197 p = smb_buf(cli->inbuf);
198 p += clistr_pull(cli, cli->server_os, p, sizeof(fstring), -1, STR_TERMINATE);
199 p += clistr_pull(cli, cli->server_type, p, sizeof(fstring), -1, STR_TERMINATE);
200 p += clistr_pull(cli, cli->server_domain, p, sizeof(fstring), -1, STR_TERMINATE);
202 if (strstr(cli->server_type, "Samba")) {
203 cli->is_samba = True;
206 fstrcpy(cli->user_name, "");
211 /****************************************************************************
212 Do a NT1 plaintext session setup.
213 ****************************************************************************/
215 static BOOL cli_session_setup_plaintext(struct cli_state *cli, const char *user,
216 const char *pass, const char *workgroup)
218 uint32 capabilities = cli_session_setup_capabilities(cli);
222 fstr_sprintf( lanman, "Samba %s", SAMBA_VERSION_STRING);
224 memset(cli->outbuf, '\0', smb_size);
225 set_message(cli->outbuf,13,0,True);
226 SCVAL(cli->outbuf,smb_com,SMBsesssetupX);
227 cli_setup_packet(cli);
229 SCVAL(cli->outbuf,smb_vwv0,0xFF);
230 SSVAL(cli->outbuf,smb_vwv2,CLI_BUFFER_SIZE);
231 SSVAL(cli->outbuf,smb_vwv3,2);
232 SSVAL(cli->outbuf,smb_vwv4,cli->pid);
233 SIVAL(cli->outbuf,smb_vwv5,cli->sesskey);
234 SSVAL(cli->outbuf,smb_vwv8,0);
235 SIVAL(cli->outbuf,smb_vwv11,capabilities);
236 p = smb_buf(cli->outbuf);
238 /* check wether to send the ASCII or UNICODE version of the password */
240 if ( (capabilities & CAP_UNICODE) == 0 ) {
241 p += clistr_push(cli, p, pass, -1, STR_TERMINATE); /* password */
242 SSVAL(cli->outbuf,smb_vwv7,PTR_DIFF(p, smb_buf(cli->outbuf)));
245 p += clistr_push(cli, p, pass, -1, STR_UNICODE|STR_TERMINATE); /* unicode password */
246 SSVAL(cli->outbuf,smb_vwv8,PTR_DIFF(p, smb_buf(cli->outbuf)));
249 p += clistr_push(cli, p, user, -1, STR_TERMINATE); /* username */
250 p += clistr_push(cli, p, workgroup, -1, STR_TERMINATE); /* workgroup */
251 p += clistr_push(cli, p, "Unix", -1, STR_TERMINATE);
252 p += clistr_push(cli, p, lanman, -1, STR_TERMINATE);
253 cli_setup_bcc(cli, p);
256 if (!cli_receive_smb(cli))
259 show_msg(cli->inbuf);
261 if (cli_is_error(cli))
264 cli->vuid = SVAL(cli->inbuf,smb_uid);
265 p = smb_buf(cli->inbuf);
266 p += clistr_pull(cli, cli->server_os, p, sizeof(fstring), -1, STR_TERMINATE);
267 p += clistr_pull(cli, cli->server_type, p, sizeof(fstring), -1, STR_TERMINATE);
268 p += clistr_pull(cli, cli->server_domain, p, sizeof(fstring), -1, STR_TERMINATE);
269 fstrcpy(cli->user_name, user);
271 if (strstr(cli->server_type, "Samba")) {
272 cli->is_samba = True;
278 /****************************************************************************
279 do a NT1 NTLM/LM encrypted session setup - for when extended security
281 @param cli client state to create do session setup on
283 @param pass *either* cleartext password (passlen !=24) or LM response.
284 @param ntpass NT response, implies ntpasslen >=24, implies pass is not clear
285 @param workgroup The user's domain.
286 ****************************************************************************/
288 static BOOL cli_session_setup_nt1(struct cli_state *cli, const char *user,
289 const char *pass, size_t passlen,
290 const char *ntpass, size_t ntpasslen,
291 const char *workgroup)
293 uint32 capabilities = cli_session_setup_capabilities(cli);
294 DATA_BLOB lm_response = data_blob(NULL, 0);
295 DATA_BLOB nt_response = data_blob(NULL, 0);
296 DATA_BLOB session_key = data_blob(NULL, 0);
301 /* do nothing - guest login */
302 } else if (passlen != 24) {
303 if (lp_client_ntlmv2_auth()) {
304 DATA_BLOB server_chal;
305 DATA_BLOB names_blob;
306 server_chal = data_blob(cli->secblob.data, MIN(cli->secblob.length, 8));
308 /* note that the 'workgroup' here is a best guess - we don't know
309 the server's domain at this point. The 'server name' is also
312 names_blob = NTLMv2_generate_names_blob(cli->called.name, workgroup);
314 if (!SMBNTLMv2encrypt(user, workgroup, pass, &server_chal,
316 &lm_response, &nt_response, &session_key)) {
317 data_blob_free(&names_blob);
318 data_blob_free(&server_chal);
321 data_blob_free(&names_blob);
322 data_blob_free(&server_chal);
326 E_md4hash(pass, nt_hash);
329 nt_response = data_blob(NULL, 0);
331 nt_response = data_blob(NULL, 24);
332 SMBNTencrypt(pass,cli->secblob.data,nt_response.data);
334 /* non encrypted password supplied. Ignore ntpass. */
335 if (lp_client_lanman_auth()) {
336 lm_response = data_blob(NULL, 24);
337 if (!SMBencrypt(pass,cli->secblob.data, lm_response.data)) {
338 /* Oops, the LM response is invalid, just put
339 the NT response there instead */
340 data_blob_free(&lm_response);
341 lm_response = data_blob(nt_response.data, nt_response.length);
344 /* LM disabled, place NT# in LM field instead */
345 lm_response = data_blob(nt_response.data, nt_response.length);
348 session_key = data_blob(NULL, 16);
350 E_deshash(pass, session_key.data);
351 memset(&session_key.data[8], '\0', 8);
353 SMBsesskeygen_ntv1(nt_hash, NULL, session_key.data);
357 cli_simple_set_signing(cli, session_key, lm_response);
359 cli_simple_set_signing(cli, session_key, nt_response);
362 /* pre-encrypted password supplied. Only used for
363 security=server, can't do
364 signing because we don't have original key */
366 lm_response = data_blob(pass, passlen);
367 nt_response = data_blob(ntpass, ntpasslen);
370 /* send a session setup command */
371 memset(cli->outbuf,'\0',smb_size);
373 set_message(cli->outbuf,13,0,True);
374 SCVAL(cli->outbuf,smb_com,SMBsesssetupX);
375 cli_setup_packet(cli);
377 SCVAL(cli->outbuf,smb_vwv0,0xFF);
378 SSVAL(cli->outbuf,smb_vwv2,CLI_BUFFER_SIZE);
379 SSVAL(cli->outbuf,smb_vwv3,2);
380 SSVAL(cli->outbuf,smb_vwv4,cli->pid);
381 SIVAL(cli->outbuf,smb_vwv5,cli->sesskey);
382 SSVAL(cli->outbuf,smb_vwv7,lm_response.length);
383 SSVAL(cli->outbuf,smb_vwv8,nt_response.length);
384 SIVAL(cli->outbuf,smb_vwv11,capabilities);
385 p = smb_buf(cli->outbuf);
386 if (lm_response.length) {
387 memcpy(p,lm_response.data, lm_response.length); p += lm_response.length;
389 if (nt_response.length) {
390 memcpy(p,nt_response.data, nt_response.length); p += nt_response.length;
392 p += clistr_push(cli, p, user, -1, STR_TERMINATE);
394 /* Upper case here might help some NTLMv2 implementations */
395 p += clistr_push(cli, p, workgroup, -1, STR_TERMINATE|STR_UPPER);
396 p += clistr_push(cli, p, "Unix", -1, STR_TERMINATE);
397 p += clistr_push(cli, p, "Samba", -1, STR_TERMINATE);
398 cli_setup_bcc(cli, p);
400 if (!cli_send_smb(cli) || !cli_receive_smb(cli)) {
405 /* show_msg(cli->inbuf); */
407 if (cli_is_error(cli)) {
412 /* use the returned vuid from now on */
413 cli->vuid = SVAL(cli->inbuf,smb_uid);
415 p = smb_buf(cli->inbuf);
416 p += clistr_pull(cli, cli->server_os, p, sizeof(fstring), -1, STR_TERMINATE);
417 p += clistr_pull(cli, cli->server_type, p, sizeof(fstring), -1, STR_TERMINATE);
418 p += clistr_pull(cli, cli->server_domain, p, sizeof(fstring), -1, STR_TERMINATE);
420 if (strstr(cli->server_type, "Samba")) {
421 cli->is_samba = True;
424 fstrcpy(cli->user_name, user);
426 if (session_key.data) {
427 /* Have plaintext orginal */
428 cli_set_session_key(cli, session_key);
433 data_blob_free(&lm_response);
434 data_blob_free(&nt_response);
435 data_blob_free(&session_key);
439 /****************************************************************************
440 Send a extended security session setup blob
441 ****************************************************************************/
443 static BOOL cli_session_setup_blob_send(struct cli_state *cli, DATA_BLOB blob)
445 uint32 capabilities = cli_session_setup_capabilities(cli);
448 capabilities |= CAP_EXTENDED_SECURITY;
450 /* send a session setup command */
451 memset(cli->outbuf,'\0',smb_size);
453 set_message(cli->outbuf,12,0,True);
454 SCVAL(cli->outbuf,smb_com,SMBsesssetupX);
456 cli_setup_packet(cli);
458 SCVAL(cli->outbuf,smb_vwv0,0xFF);
459 SSVAL(cli->outbuf,smb_vwv2,CLI_BUFFER_SIZE);
460 SSVAL(cli->outbuf,smb_vwv3,2);
461 SSVAL(cli->outbuf,smb_vwv4,1);
462 SIVAL(cli->outbuf,smb_vwv5,0);
463 SSVAL(cli->outbuf,smb_vwv7,blob.length);
464 SIVAL(cli->outbuf,smb_vwv10,capabilities);
465 p = smb_buf(cli->outbuf);
466 memcpy(p, blob.data, blob.length);
468 p += clistr_push(cli, p, "Unix", -1, STR_TERMINATE);
469 p += clistr_push(cli, p, "Samba", -1, STR_TERMINATE);
470 cli_setup_bcc(cli, p);
471 return cli_send_smb(cli);
474 /****************************************************************************
475 Send a extended security session setup blob, returning a reply blob.
476 ****************************************************************************/
478 static DATA_BLOB cli_session_setup_blob_receive(struct cli_state *cli)
480 DATA_BLOB blob2 = data_blob(NULL, 0);
484 if (!cli_receive_smb(cli))
487 show_msg(cli->inbuf);
489 if (cli_is_error(cli) && !NT_STATUS_EQUAL(cli_nt_error(cli),
490 NT_STATUS_MORE_PROCESSING_REQUIRED)) {
494 /* use the returned vuid from now on */
495 cli->vuid = SVAL(cli->inbuf,smb_uid);
497 p = smb_buf(cli->inbuf);
499 blob2 = data_blob(p, SVAL(cli->inbuf, smb_vwv3));
502 p += clistr_pull(cli, cli->server_os, p, sizeof(fstring), -1, STR_TERMINATE);
504 /* w2k with kerberos doesn't properly null terminate this field */
505 len = smb_buflen(cli->inbuf) - PTR_DIFF(p, smb_buf(cli->inbuf));
506 p += clistr_pull(cli, cli->server_type, p, sizeof(fstring), len, 0);
513 /****************************************************************************
514 Send a extended security session setup blob, returning a reply blob.
515 ****************************************************************************/
517 static DATA_BLOB cli_session_setup_blob(struct cli_state *cli, DATA_BLOB blob)
519 DATA_BLOB blob2 = data_blob(NULL, 0);
520 if (!cli_session_setup_blob_send(cli, blob)) {
524 return cli_session_setup_blob_receive(cli);
527 /****************************************************************************
528 Use in-memory credentials cache
529 ****************************************************************************/
531 static void use_in_memory_ccache(void) {
532 setenv(KRB5_ENV_CCNAME, "MEMORY:cliconnect", 1);
535 /****************************************************************************
536 Do a spnego/kerberos encrypted session setup.
537 ****************************************************************************/
539 static ADS_STATUS cli_session_setup_kerberos(struct cli_state *cli, const char *principal, const char *workgroup)
541 DATA_BLOB blob2, negTokenTarg;
542 DATA_BLOB session_key_krb5;
543 DATA_BLOB null_blob = data_blob(NULL, 0);
546 DEBUG(2,("Doing kerberos session setup\n"));
548 /* generate the encapsulated kerberos5 ticket */
549 rc = spnego_gen_negTokenTarg(principal, 0, &negTokenTarg, &session_key_krb5, 0);
552 DEBUG(1, ("spnego_gen_negTokenTarg failed: %s\n", error_message(rc)));
553 return ADS_ERROR_KRB5(rc);
557 file_save("negTokenTarg.dat", negTokenTarg.data, negTokenTarg.length);
560 cli_simple_set_signing(cli, session_key_krb5, null_blob);
562 blob2 = cli_session_setup_blob(cli, negTokenTarg);
564 /* we don't need this blob for kerberos */
565 data_blob_free(&blob2);
567 cli_set_session_key(cli, session_key_krb5);
569 data_blob_free(&negTokenTarg);
570 data_blob_free(&session_key_krb5);
572 if (cli_is_error(cli)) {
573 if (NT_STATUS_IS_OK(cli_nt_error(cli))) {
574 return ADS_ERROR_NT(NT_STATUS_UNSUCCESSFUL);
577 return ADS_ERROR_NT(cli_nt_error(cli));
579 #endif /* HAVE_KRB5 */
582 /****************************************************************************
583 Do a spnego/NTLMSSP encrypted session setup.
584 ****************************************************************************/
586 static NTSTATUS cli_session_setup_ntlmssp(struct cli_state *cli, const char *user,
587 const char *pass, const char *domain)
589 struct ntlmssp_state *ntlmssp_state;
593 DATA_BLOB blob = data_blob(NULL, 0);
594 DATA_BLOB blob_in = data_blob(NULL, 0);
595 DATA_BLOB blob_out = data_blob(NULL, 0);
597 cli_temp_set_signing(cli);
599 if (!NT_STATUS_IS_OK(nt_status = ntlmssp_client_start(&ntlmssp_state))) {
603 if (!NT_STATUS_IS_OK(nt_status = ntlmssp_set_username(ntlmssp_state, user))) {
606 if (!NT_STATUS_IS_OK(nt_status = ntlmssp_set_domain(ntlmssp_state, domain))) {
609 if (!NT_STATUS_IS_OK(nt_status = ntlmssp_set_password(ntlmssp_state, pass))) {
614 nt_status = ntlmssp_update(ntlmssp_state,
616 data_blob_free(&blob_in);
617 if (NT_STATUS_EQUAL(nt_status, NT_STATUS_MORE_PROCESSING_REQUIRED) || NT_STATUS_IS_OK(nt_status)) {
619 /* and wrap it in a SPNEGO wrapper */
620 msg1 = gen_negTokenInit(OID_NTLMSSP, blob_out);
622 /* wrap it in SPNEGO */
623 msg1 = spnego_gen_auth(blob_out);
626 /* now send that blob on its way */
627 if (!cli_session_setup_blob_send(cli, msg1)) {
628 DEBUG(3, ("Failed to send NTLMSSP/SPNEGO blob to server!\n"));
629 nt_status = NT_STATUS_UNSUCCESSFUL;
631 data_blob_free(&msg1);
633 blob = cli_session_setup_blob_receive(cli);
635 nt_status = cli_nt_error(cli);
636 if (cli_is_error(cli) && NT_STATUS_IS_OK(nt_status)) {
637 if (cli->smb_rw_error == READ_BAD_SIG) {
638 nt_status = NT_STATUS_ACCESS_DENIED;
640 nt_status = NT_STATUS_UNSUCCESSFUL;
647 if (NT_STATUS_IS_OK(nt_status)) {
648 nt_status = NT_STATUS_UNSUCCESSFUL;
650 } else if ((turn == 1) &&
651 NT_STATUS_EQUAL(nt_status, NT_STATUS_MORE_PROCESSING_REQUIRED)) {
652 DATA_BLOB tmp_blob = data_blob(NULL, 0);
653 /* the server might give us back two challenges */
654 if (!spnego_parse_challenge(blob, &blob_in,
656 DEBUG(3,("Failed to parse challenges\n"));
657 nt_status = NT_STATUS_INVALID_PARAMETER;
659 data_blob_free(&tmp_blob);
661 if (!spnego_parse_auth_response(blob, nt_status,
663 DEBUG(3,("Failed to parse auth response\n"));
664 if (NT_STATUS_IS_OK(nt_status)
665 || NT_STATUS_EQUAL(nt_status, NT_STATUS_MORE_PROCESSING_REQUIRED))
666 nt_status = NT_STATUS_INVALID_PARAMETER;
669 data_blob_free(&blob);
670 data_blob_free(&blob_out);
672 } while (NT_STATUS_EQUAL(nt_status, NT_STATUS_MORE_PROCESSING_REQUIRED));
674 if (NT_STATUS_IS_OK(nt_status)) {
676 DATA_BLOB key = data_blob(ntlmssp_state->session_key.data,
677 ntlmssp_state->session_key.length);
678 DATA_BLOB null_blob = data_blob(NULL, 0);
681 fstrcpy(cli->server_domain, ntlmssp_state->server_domain);
682 cli_set_session_key(cli, ntlmssp_state->session_key);
684 res = cli_simple_set_signing(cli, key, null_blob);
686 data_blob_free(&key);
690 /* 'resign' the last message, so we get the right sequence numbers
691 for checking the first reply from the server */
692 cli_calculate_sign_mac(cli);
694 if (!cli_check_sign_mac(cli)) {
695 nt_status = NT_STATUS_ACCESS_DENIED;
700 /* we have a reference conter on ntlmssp_state, if we are signing
701 then the state will be kept by the signing engine */
703 ntlmssp_end(&ntlmssp_state);
708 /****************************************************************************
709 Do a spnego encrypted session setup.
710 ****************************************************************************/
712 ADS_STATUS cli_session_setup_spnego(struct cli_state *cli, const char *user,
713 const char *pass, const char *domain)
716 char *OIDs[ASN1_MAX_OIDS];
719 BOOL got_kerberos_mechanism = False;
723 DEBUG(3,("Doing spnego session setup (blob length=%lu)\n", (unsigned long)cli->secblob.length));
725 /* the server might not even do spnego */
726 if (cli->secblob.length <= 16) {
727 DEBUG(3,("server didn't supply a full spnego negprot\n"));
732 file_save("negprot.dat", cli->secblob.data, cli->secblob.length);
735 /* there is 16 bytes of GUID before the real spnego packet starts */
736 blob = data_blob(cli->secblob.data+16, cli->secblob.length-16);
738 /* the server sent us the first part of the SPNEGO exchange in the negprot
740 if (!spnego_parse_negTokenInit(blob, OIDs, &principal)) {
741 data_blob_free(&blob);
742 return ADS_ERROR_NT(NT_STATUS_INVALID_PARAMETER);
744 data_blob_free(&blob);
746 /* make sure the server understands kerberos */
747 for (i=0;OIDs[i];i++) {
748 DEBUG(3,("got OID=%s\n", OIDs[i]));
750 if (strcmp(OIDs[i], OID_KERBEROS5_OLD) == 0 ||
751 strcmp(OIDs[i], OID_KERBEROS5) == 0) {
752 got_kerberos_mechanism = True;
757 DEBUG(3,("got principal=%s\n", principal));
759 fstrcpy(cli->user_name, user);
762 /* If password is set we reauthenticate to kerberos server
763 * and do not store results */
765 if (got_kerberos_mechanism && cli->use_kerberos) {
771 use_in_memory_ccache();
772 ret = kerberos_kinit_password(user, pass, 0 /* no time correction for now */, NULL);
775 SAFE_FREE(principal);
776 DEBUG(0, ("Kinit failed: %s\n", error_message(ret)));
777 if (cli->fallback_after_kerberos)
779 return ADS_ERROR_KRB5(ret);
783 rc = cli_session_setup_kerberos(cli, principal, domain);
784 if (ADS_ERR_OK(rc) || !cli->fallback_after_kerberos) {
785 SAFE_FREE(principal);
791 SAFE_FREE(principal);
795 return ADS_ERROR_NT(cli_session_setup_ntlmssp(cli, user, pass, domain));
798 /****************************************************************************
799 Send a session setup. The username and workgroup is in UNIX character
800 format and must be converted to DOS codepage format before sending. If the
801 password is in plaintext, the same should be done.
802 ****************************************************************************/
804 BOOL cli_session_setup(struct cli_state *cli,
806 const char *pass, int passlen,
807 const char *ntpass, int ntpasslen,
808 const char *workgroup)
813 /* allow for workgroups as part of the username */
814 fstrcpy(user2, user);
815 if ((p=strchr_m(user2,'\\')) || (p=strchr_m(user2,'/')) ||
816 (p=strchr_m(user2,*lp_winbind_separator()))) {
822 if (cli->protocol < PROTOCOL_LANMAN1)
825 /* now work out what sort of session setup we are going to
826 do. I have split this into separate functions to make the
827 flow a bit easier to understand (tridge) */
829 /* if its an older server then we have to use the older request format */
831 if (cli->protocol < PROTOCOL_NT1) {
832 if (!lp_client_lanman_auth() && passlen != 24 && (*pass)) {
833 DEBUG(1, ("Server requested LM password but 'client lanman auth'"
838 if ((cli->sec_mode & NEGOTIATE_SECURITY_CHALLENGE_RESPONSE) == 0 &&
839 !lp_client_plaintext_auth() && (*pass)) {
840 DEBUG(1, ("Server requested plaintext password but 'client use plaintext auth'"
845 return cli_session_setup_lanman2(cli, user, pass, passlen, workgroup);
848 /* if no user is supplied then we have to do an anonymous connection.
849 passwords are ignored */
852 return cli_session_setup_guest(cli);
854 /* if the server is share level then send a plaintext null
855 password at this point. The password is sent in the tree
858 if ((cli->sec_mode & NEGOTIATE_SECURITY_USER_LEVEL) == 0)
859 return cli_session_setup_plaintext(cli, user, "", workgroup);
861 /* if the server doesn't support encryption then we have to use
862 plaintext. The second password is ignored */
864 if ((cli->sec_mode & NEGOTIATE_SECURITY_CHALLENGE_RESPONSE) == 0) {
865 if (!lp_client_plaintext_auth() && (*pass)) {
866 DEBUG(1, ("Server requested plaintext password but 'client use plaintext auth'"
870 return cli_session_setup_plaintext(cli, user, pass, workgroup);
873 /* if the server supports extended security then use SPNEGO */
875 if (cli->capabilities & CAP_EXTENDED_SECURITY) {
876 ADS_STATUS status = cli_session_setup_spnego(cli, user, pass, workgroup);
877 if (!ADS_ERR_OK(status)) {
878 DEBUG(3, ("SPNEGO login failed: %s\n", ads_errstr(status)));
882 /* otherwise do a NT1 style session setup */
883 if ( !cli_session_setup_nt1(cli, user, pass, passlen, ntpass, ntpasslen, workgroup) ) {
884 DEBUG(3,("cli_session_setup: NT1 session setup failed!\n"));
889 if (strstr(cli->server_type, "Samba")) {
890 cli->is_samba = True;
897 /****************************************************************************
899 *****************************************************************************/
901 BOOL cli_ulogoff(struct cli_state *cli)
903 memset(cli->outbuf,'\0',smb_size);
904 set_message(cli->outbuf,2,0,True);
905 SCVAL(cli->outbuf,smb_com,SMBulogoffX);
906 cli_setup_packet(cli);
907 SSVAL(cli->outbuf,smb_vwv0,0xFF);
908 SSVAL(cli->outbuf,smb_vwv2,0); /* no additional info */
911 if (!cli_receive_smb(cli))
914 if (cli_is_error(cli)) {
922 /****************************************************************************
924 ****************************************************************************/
926 BOOL cli_send_tconX(struct cli_state *cli,
927 const char *share, const char *dev, const char *pass, int passlen)
929 fstring fullshare, pword;
931 memset(cli->outbuf,'\0',smb_size);
932 memset(cli->inbuf,'\0',smb_size);
934 fstrcpy(cli->share, share);
936 /* in user level security don't send a password now */
937 if (cli->sec_mode & NEGOTIATE_SECURITY_USER_LEVEL) {
941 DEBUG(1, ("Server not using user level security and no password supplied.\n"));
945 if ((cli->sec_mode & NEGOTIATE_SECURITY_CHALLENGE_RESPONSE) &&
946 *pass && passlen != 24) {
947 if (!lp_client_lanman_auth()) {
948 DEBUG(1, ("Server requested LANMAN password (share-level security) but 'client use lanman auth'"
954 * Non-encrypted passwords - convert to DOS codepage before encryption.
957 SMBencrypt(pass,cli->secblob.data,(uchar *)pword);
959 if((cli->sec_mode & (NEGOTIATE_SECURITY_USER_LEVEL|NEGOTIATE_SECURITY_CHALLENGE_RESPONSE)) == 0) {
960 if (!lp_client_plaintext_auth() && (*pass)) {
961 DEBUG(1, ("Server requested plaintext password but 'client use plaintext auth'"
967 * Non-encrypted passwords - convert to DOS codepage before using.
969 passlen = clistr_push(cli, pword, pass, sizeof(pword), STR_TERMINATE);
973 memcpy(pword, pass, passlen);
978 slprintf(fullshare, sizeof(fullshare)-1,
979 "\\\\%s\\%s", cli->desthost, share);
981 set_message(cli->outbuf,4, 0, True);
982 SCVAL(cli->outbuf,smb_com,SMBtconX);
983 cli_setup_packet(cli);
985 SSVAL(cli->outbuf,smb_vwv0,0xFF);
986 SSVAL(cli->outbuf,smb_vwv3,passlen);
988 p = smb_buf(cli->outbuf);
990 memcpy(p,pword,passlen);
993 p += clistr_push(cli, p, fullshare, -1, STR_TERMINATE |STR_UPPER);
994 p += clistr_push(cli, p, dev, -1, STR_TERMINATE |STR_UPPER | STR_ASCII);
996 cli_setup_bcc(cli, p);
999 if (!cli_receive_smb(cli))
1002 if (cli_is_error(cli))
1005 clistr_pull(cli, cli->dev, smb_buf(cli->inbuf), sizeof(fstring), -1, STR_TERMINATE|STR_ASCII);
1007 if (cli->protocol >= PROTOCOL_NT1 &&
1008 smb_buflen(cli->inbuf) == 3) {
1009 /* almost certainly win95 - enable bug fixes */
1013 /* Make sure that we have the optional support 16-bit field. WCT > 2 */
1014 /* Avoids issues when connecting to Win9x boxes sharing files */
1016 cli->dfsroot = False;
1017 if ( (CVAL(cli->inbuf, smb_wct))>2 && cli->protocol >= PROTOCOL_LANMAN2 )
1018 cli->dfsroot = (SVAL( cli->inbuf, smb_vwv2 ) & SMB_SHARE_IN_DFS) ? True : False;
1020 cli->cnum = SVAL(cli->inbuf,smb_tid);
1024 /****************************************************************************
1025 Send a tree disconnect.
1026 ****************************************************************************/
1028 BOOL cli_tdis(struct cli_state *cli)
1030 memset(cli->outbuf,'\0',smb_size);
1031 set_message(cli->outbuf,0,0,True);
1032 SCVAL(cli->outbuf,smb_com,SMBtdis);
1033 SSVAL(cli->outbuf,smb_tid,cli->cnum);
1034 cli_setup_packet(cli);
1037 if (!cli_receive_smb(cli))
1040 if (cli_is_error(cli)) {
1048 /****************************************************************************
1049 Send a negprot command.
1050 ****************************************************************************/
1052 void cli_negprot_send(struct cli_state *cli)
1057 if (cli->protocol < PROTOCOL_NT1)
1058 cli->use_spnego = False;
1060 memset(cli->outbuf,'\0',smb_size);
1062 /* setup the protocol strings */
1063 set_message(cli->outbuf,0,0,True);
1065 p = smb_buf(cli->outbuf);
1067 prots[numprots].name && prots[numprots].prot<=cli->protocol;
1070 p += clistr_push(cli, p, prots[numprots].name, -1, STR_TERMINATE);
1073 SCVAL(cli->outbuf,smb_com,SMBnegprot);
1074 cli_setup_bcc(cli, p);
1075 cli_setup_packet(cli);
1077 SCVAL(smb_buf(cli->outbuf),0,2);
1082 /****************************************************************************
1083 Send a negprot command.
1084 ****************************************************************************/
1086 BOOL cli_negprot(struct cli_state *cli)
1092 if (cli->protocol < PROTOCOL_NT1)
1093 cli->use_spnego = False;
1095 memset(cli->outbuf,'\0',smb_size);
1097 /* setup the protocol strings */
1098 for (plength=0,numprots=0;
1099 prots[numprots].name && prots[numprots].prot<=cli->protocol;
1101 plength += strlen(prots[numprots].name)+2;
1103 set_message(cli->outbuf,0,plength,True);
1105 p = smb_buf(cli->outbuf);
1107 prots[numprots].name && prots[numprots].prot<=cli->protocol;
1110 p += clistr_push(cli, p, prots[numprots].name, -1, STR_TERMINATE);
1113 SCVAL(cli->outbuf,smb_com,SMBnegprot);
1114 cli_setup_packet(cli);
1116 SCVAL(smb_buf(cli->outbuf),0,2);
1119 if (!cli_receive_smb(cli))
1122 show_msg(cli->inbuf);
1124 if (cli_is_error(cli) ||
1125 ((int)SVAL(cli->inbuf,smb_vwv0) >= numprots)) {
1129 cli->protocol = prots[SVAL(cli->inbuf,smb_vwv0)].prot;
1131 if ((cli->protocol < PROTOCOL_NT1) && cli->sign_info.mandatory_signing) {
1132 DEBUG(0,("cli_negprot: SMB signing is mandatory and the selected protocol level doesn't support it.\n"));
1136 if (cli->protocol >= PROTOCOL_NT1) {
1138 cli->sec_mode = CVAL(cli->inbuf,smb_vwv1);
1139 cli->max_mux = SVAL(cli->inbuf, smb_vwv1+1);
1140 cli->max_xmit = IVAL(cli->inbuf,smb_vwv3+1);
1141 cli->sesskey = IVAL(cli->inbuf,smb_vwv7+1);
1142 cli->serverzone = SVALS(cli->inbuf,smb_vwv15+1);
1143 cli->serverzone *= 60;
1144 /* this time arrives in real GMT */
1145 cli->servertime = interpret_long_date(cli->inbuf+smb_vwv11+1);
1146 cli->secblob = data_blob(smb_buf(cli->inbuf),smb_buflen(cli->inbuf));
1147 cli->capabilities = IVAL(cli->inbuf,smb_vwv9+1);
1148 if (cli->capabilities & CAP_RAW_MODE) {
1149 cli->readbraw_supported = True;
1150 cli->writebraw_supported = True;
1152 /* work out if they sent us a workgroup */
1153 if (!(cli->capabilities & CAP_EXTENDED_SECURITY) &&
1154 smb_buflen(cli->inbuf) > 8) {
1155 clistr_pull(cli, cli->server_domain,
1156 smb_buf(cli->inbuf)+8, sizeof(cli->server_domain),
1157 smb_buflen(cli->inbuf)-8, STR_UNICODE|STR_NOALIGN);
1161 * As signing is slow we only turn it on if either the client or
1162 * the server require it. JRA.
1165 if (cli->sec_mode & NEGOTIATE_SECURITY_SIGNATURES_REQUIRED) {
1166 /* Fail if server says signing is mandatory and we don't want to support it. */
1167 if (!cli->sign_info.allow_smb_signing) {
1168 DEBUG(0,("cli_negprot: SMB signing is mandatory and we have disabled it.\n"));
1171 cli->sign_info.negotiated_smb_signing = True;
1172 cli->sign_info.mandatory_signing = True;
1173 } else if (cli->sign_info.mandatory_signing && cli->sign_info.allow_smb_signing) {
1174 /* Fail if client says signing is mandatory and the server doesn't support it. */
1175 if (!(cli->sec_mode & NEGOTIATE_SECURITY_SIGNATURES_ENABLED)) {
1176 DEBUG(1,("cli_negprot: SMB signing is mandatory and the server doesn't support it.\n"));
1179 cli->sign_info.negotiated_smb_signing = True;
1180 cli->sign_info.mandatory_signing = True;
1181 } else if (cli->sec_mode & NEGOTIATE_SECURITY_SIGNATURES_ENABLED) {
1182 cli->sign_info.negotiated_smb_signing = True;
1185 if (cli->capabilities & (CAP_LARGE_READX|CAP_LARGE_WRITEX)) {
1186 SAFE_FREE(cli->outbuf);
1187 SAFE_FREE(cli->inbuf);
1188 cli->outbuf = (char *)SMB_MALLOC(CLI_SAMBA_MAX_LARGE_READX_SIZE+SAFETY_MARGIN);
1189 cli->inbuf = (char *)SMB_MALLOC(CLI_SAMBA_MAX_LARGE_READX_SIZE+SAFETY_MARGIN);
1190 cli->bufsize = CLI_SAMBA_MAX_LARGE_READX_SIZE;
1193 } else if (cli->protocol >= PROTOCOL_LANMAN1) {
1194 cli->use_spnego = False;
1195 cli->sec_mode = SVAL(cli->inbuf,smb_vwv1);
1196 cli->max_xmit = SVAL(cli->inbuf,smb_vwv2);
1197 cli->max_mux = SVAL(cli->inbuf, smb_vwv3);
1198 cli->sesskey = IVAL(cli->inbuf,smb_vwv6);
1199 cli->serverzone = SVALS(cli->inbuf,smb_vwv10);
1200 cli->serverzone *= 60;
1201 /* this time is converted to GMT by make_unix_date */
1202 cli->servertime = cli_make_unix_date(cli,cli->inbuf+smb_vwv8);
1203 cli->readbraw_supported = ((SVAL(cli->inbuf,smb_vwv5) & 0x1) != 0);
1204 cli->writebraw_supported = ((SVAL(cli->inbuf,smb_vwv5) & 0x2) != 0);
1205 cli->secblob = data_blob(smb_buf(cli->inbuf),smb_buflen(cli->inbuf));
1207 /* the old core protocol */
1208 cli->use_spnego = False;
1210 cli->serverzone = get_time_zone(time(NULL));
1213 cli->max_xmit = MIN(cli->max_xmit, CLI_BUFFER_SIZE);
1215 /* a way to force ascii SMB */
1216 if (getenv("CLI_FORCE_ASCII"))
1217 cli->capabilities &= ~CAP_UNICODE;
1222 /****************************************************************************
1223 Send a session request. See rfc1002.txt 4.3 and 4.3.2.
1224 ****************************************************************************/
1226 BOOL cli_session_request(struct cli_state *cli,
1227 struct nmb_name *calling, struct nmb_name *called)
1232 memcpy(&(cli->calling), calling, sizeof(*calling));
1233 memcpy(&(cli->called ), called , sizeof(*called ));
1235 /* put in the destination name */
1236 p = cli->outbuf+len;
1237 name_mangle(cli->called .name, p, cli->called .name_type);
1241 p = cli->outbuf+len;
1242 name_mangle(cli->calling.name, p, cli->calling.name_type);
1245 /* 445 doesn't have session request */
1246 if (cli->port == 445)
1249 /* send a session request (RFC 1002) */
1250 /* setup the packet length
1251 * Remove four bytes from the length count, since the length
1252 * field in the NBT Session Service header counts the number
1253 * of bytes which follow. The cli_send_smb() function knows
1254 * about this and accounts for those four bytes.
1258 _smb_setlen(cli->outbuf,len);
1259 SCVAL(cli->outbuf,0,0x81);
1262 DEBUG(5,("Sent session request\n"));
1264 if (!cli_receive_smb(cli))
1267 if (CVAL(cli->inbuf,0) == 0x84) {
1268 /* C. Hoch 9/14/95 Start */
1269 /* For information, here is the response structure.
1270 * We do the byte-twiddling to for portability.
1271 struct RetargetResponse{
1273 unsigned char flags;
1279 int port = (CVAL(cli->inbuf,8)<<8)+CVAL(cli->inbuf,9);
1280 /* SESSION RETARGET */
1281 putip((char *)&cli->dest_ip,cli->inbuf+4);
1283 cli->fd = open_socket_out(SOCK_STREAM, &cli->dest_ip, port, LONG_CONNECT_TIMEOUT);
1287 DEBUG(3,("Retargeted\n"));
1289 set_socket_options(cli->fd,user_socket_options);
1296 DEBUG(0,("Retarget recursion - failing\n"));
1300 ret = cli_session_request(cli, calling, called);
1304 } /* C. Hoch 9/14/95 End */
1306 if (CVAL(cli->inbuf,0) != 0x82) {
1307 /* This is the wrong place to put the error... JRA. */
1308 cli->rap_error = CVAL(cli->inbuf,4);
1314 /****************************************************************************
1315 Open the client sockets.
1316 ****************************************************************************/
1318 BOOL cli_connect(struct cli_state *cli, const char *host, struct in_addr *ip)
1320 int name_type = 0x20;
1323 /* reasonable default hostname */
1324 if (!host) host = "*SMBSERVER";
1326 fstrcpy(cli->desthost, host);
1328 /* allow hostnames of the form NAME#xx and do a netbios lookup */
1329 if ((p = strchr(cli->desthost, '#'))) {
1330 name_type = strtol(p+1, NULL, 16);
1334 if (!ip || is_zero_ip(*ip)) {
1335 if (!resolve_name(cli->desthost, &cli->dest_ip, name_type)) {
1338 if (ip) *ip = cli->dest_ip;
1343 if (getenv("LIBSMB_PROG")) {
1344 cli->fd = sock_exec(getenv("LIBSMB_PROG"));
1346 /* try 445 first, then 139 */
1347 int port = cli->port?cli->port:445;
1348 cli->fd = open_socket_out(SOCK_STREAM, &cli->dest_ip,
1349 port, cli->timeout);
1350 if (cli->fd == -1 && cli->port == 0) {
1352 cli->fd = open_socket_out(SOCK_STREAM, &cli->dest_ip,
1353 port, cli->timeout);
1358 if (cli->fd == -1) {
1359 DEBUG(1,("Error connecting to %s (%s)\n",
1360 ip?inet_ntoa(*ip):host,strerror(errno)));
1364 set_socket_options(cli->fd,user_socket_options);
1370 establishes a connection to after the negprot.
1371 @param output_cli A fully initialised cli structure, non-null only on success
1372 @param dest_host The netbios name of the remote host
1373 @param dest_ip (optional) The the destination IP, NULL for name based lookup
1374 @param port (optional) The destination port (0 for default)
1375 @param retry BOOL. Did this connection fail with a retryable error ?
1378 NTSTATUS cli_start_connection(struct cli_state **output_cli,
1379 const char *my_name,
1380 const char *dest_host,
1381 struct in_addr *dest_ip, int port,
1382 int signing_state, int flags,
1386 struct nmb_name calling;
1387 struct nmb_name called;
1388 struct cli_state *cli;
1395 my_name = global_myname();
1397 if (!(cli = cli_initialise(NULL)))
1398 return NT_STATUS_NO_MEMORY;
1400 make_nmb_name(&calling, my_name, 0x0);
1401 make_nmb_name(&called , dest_host, 0x20);
1403 if (cli_set_port(cli, port) != port) {
1405 return NT_STATUS_UNSUCCESSFUL;
1408 cli_set_timeout(cli, 10000); /* 10 seconds. */
1417 DEBUG(3,("Connecting to host=%s\n", dest_host));
1419 if (!cli_connect(cli, dest_host, &ip)) {
1420 DEBUG(1,("cli_start_connection: failed to connect to %s (%s)\n",
1421 nmb_namestr(&called), inet_ntoa(ip)));
1423 if (is_zero_ip(ip)) {
1424 return NT_STATUS_BAD_NETWORK_NAME;
1426 return NT_STATUS_CONNECTION_REFUSED;
1433 if (!cli_session_request(cli, &calling, &called)) {
1435 DEBUG(1,("session request to %s failed (%s)\n",
1436 called.name, cli_errstr(cli)));
1437 if ((p=strchr(called.name, '.')) && !is_ipaddress(called.name)) {
1441 if (strcmp(called.name, "*SMBSERVER")) {
1442 make_nmb_name(&called , "*SMBSERVER", 0x20);
1445 return NT_STATUS_BAD_NETWORK_NAME;
1448 cli_setup_signing_state(cli, signing_state);
1450 if (flags & CLI_FULL_CONNECTION_DONT_SPNEGO)
1451 cli->use_spnego = False;
1452 else if (flags & CLI_FULL_CONNECTION_USE_KERBEROS)
1453 cli->use_kerberos = True;
1455 if (!cli_negprot(cli)) {
1456 DEBUG(1,("failed negprot\n"));
1457 nt_status = cli_nt_error(cli);
1458 if (NT_STATUS_IS_OK(nt_status)) {
1459 nt_status = NT_STATUS_UNSUCCESSFUL;
1466 return NT_STATUS_OK;
1471 establishes a connection right up to doing tconX, password specified.
1472 @param output_cli A fully initialised cli structure, non-null only on success
1473 @param dest_host The netbios name of the remote host
1474 @param dest_ip (optional) The the destination IP, NULL for name based lookup
1475 @param port (optional) The destination port (0 for default)
1476 @param service (optional) The share to make the connection to. Should be 'unqualified' in any way.
1477 @param service_type The 'type' of serivice.
1478 @param user Username, unix string
1479 @param domain User's domain
1480 @param password User's password, unencrypted unix string.
1481 @param retry BOOL. Did this connection fail with a retryable error ?
1484 NTSTATUS cli_full_connection(struct cli_state **output_cli,
1485 const char *my_name,
1486 const char *dest_host,
1487 struct in_addr *dest_ip, int port,
1488 const char *service, const char *service_type,
1489 const char *user, const char *domain,
1490 const char *password, int flags,
1495 struct cli_state *cli = NULL;
1496 int pw_len = password ? strlen(password)+1 : 0;
1498 nt_status = cli_start_connection(&cli, my_name, dest_host,
1499 dest_ip, port, signing_state, flags, retry);
1501 if (!NT_STATUS_IS_OK(nt_status)) {
1505 if (!cli_session_setup(cli, user, password, pw_len, password, pw_len, domain)) {
1506 if ((flags & CLI_FULL_CONNECTION_ANNONYMOUS_FALLBACK)
1507 && cli_session_setup(cli, "", "", 0, "", 0, domain)) {
1509 nt_status = cli_nt_error(cli);
1510 DEBUG(1,("failed session setup with %s\n", nt_errstr(nt_status)));
1512 if (NT_STATUS_IS_OK(nt_status))
1513 nt_status = NT_STATUS_UNSUCCESSFUL;
1519 if (!cli_send_tconX(cli, service, service_type, password, pw_len)) {
1520 nt_status = cli_nt_error(cli);
1521 DEBUG(1,("failed tcon_X with %s\n", nt_errstr(nt_status)));
1523 if (NT_STATUS_IS_OK(nt_status)) {
1524 nt_status = NT_STATUS_UNSUCCESSFUL;
1530 cli_init_creds(cli, user, domain, password);
1533 return NT_STATUS_OK;
1536 /****************************************************************************
1537 Attempt a NetBIOS session request, falling back to *SMBSERVER if needed.
1538 ****************************************************************************/
1540 BOOL attempt_netbios_session_request(struct cli_state *cli, const char *srchost, const char *desthost,
1541 struct in_addr *pdest_ip)
1543 struct nmb_name calling, called;
1545 make_nmb_name(&calling, srchost, 0x0);
1548 * If the called name is an IP address
1549 * then use *SMBSERVER immediately.
1552 if(is_ipaddress(desthost))
1553 make_nmb_name(&called, "*SMBSERVER", 0x20);
1555 make_nmb_name(&called, desthost, 0x20);
1557 if (!cli_session_request(cli, &calling, &called)) {
1558 struct nmb_name smbservername;
1560 make_nmb_name(&smbservername , "*SMBSERVER", 0x20);
1563 * If the name wasn't *SMBSERVER then
1564 * try with *SMBSERVER if the first name fails.
1567 if (nmb_name_equal(&called, &smbservername)) {
1570 * The name used was *SMBSERVER, don't bother with another name.
1573 DEBUG(0,("attempt_netbios_session_request: %s rejected the session for name *SMBSERVER \
1574 with error %s.\n", desthost, cli_errstr(cli) ));
1579 * We need to close the connection here but can't call cli_shutdown as
1580 * will free an allocated cli struct. cli_close_connection was invented
1581 * for this purpose. JRA. Based on work by "Kim R. Pedersen" <krp@filanet.dk>.
1584 cli_close_connection(cli);
1586 if (!cli_initialise(cli) ||
1587 !cli_connect(cli, desthost, pdest_ip) ||
1588 !cli_session_request(cli, &calling, &smbservername)) {
1589 DEBUG(0,("attempt_netbios_session_request: %s rejected the session for \
1590 name *SMBSERVER with error %s\n", desthost, cli_errstr(cli) ));
1602 /****************************************************************************
1603 Send an old style tcon.
1604 ****************************************************************************/
1605 NTSTATUS cli_raw_tcon(struct cli_state *cli,
1606 const char *service, const char *pass, const char *dev,
1607 uint16 *max_xmit, uint16 *tid)
1611 if (!lp_client_plaintext_auth() && (*pass)) {
1612 DEBUG(1, ("Server requested plaintext password but 'client use plaintext auth'"
1614 return NT_STATUS_ACCESS_DENIED;
1617 memset(cli->outbuf,'\0',smb_size);
1618 memset(cli->inbuf,'\0',smb_size);
1620 set_message(cli->outbuf, 0, 0, True);
1621 SCVAL(cli->outbuf,smb_com,SMBtcon);
1622 cli_setup_packet(cli);
1624 p = smb_buf(cli->outbuf);
1625 *p++ = 4; p += clistr_push(cli, p, service, -1, STR_TERMINATE | STR_NOALIGN);
1626 *p++ = 4; p += clistr_push(cli, p, pass, -1, STR_TERMINATE | STR_NOALIGN);
1627 *p++ = 4; p += clistr_push(cli, p, dev, -1, STR_TERMINATE | STR_NOALIGN);
1629 cli_setup_bcc(cli, p);
1632 if (!cli_receive_smb(cli)) {
1633 return NT_STATUS_UNEXPECTED_NETWORK_ERROR;
1636 if (cli_is_error(cli)) {
1637 return cli_nt_error(cli);
1640 *max_xmit = SVAL(cli->inbuf, smb_vwv0);
1641 *tid = SVAL(cli->inbuf, smb_vwv1);
1643 return NT_STATUS_OK;
1646 /* Return a cli_state pointing at the IPC$ share for the given server */
1648 struct cli_state *get_ipc_connect(char *server, struct in_addr *server_ip,
1649 struct user_auth_info *user_info)
1651 struct cli_state *cli;
1657 nt_status = cli_full_connection(&cli, myname, server, server_ip, 0, "IPC$", "IPC",
1658 user_info->username, lp_workgroup(), user_info->password,
1659 CLI_FULL_CONNECTION_ANNONYMOUS_FALLBACK, Undefined, NULL);
1661 if (NT_STATUS_IS_OK(nt_status)) {
1663 } else if (is_ipaddress(server)) {
1664 /* windows 9* needs a correct NMB name for connections */
1665 fstring remote_name;
1667 if (name_status_find("*", 0, 0, *server_ip, remote_name)) {
1668 cli = get_ipc_connect(remote_name, server_ip, user_info);
1677 * Given the IP address of a master browser on the network, return its
1678 * workgroup and connect to it.
1680 * This function is provided to allow additional processing beyond what
1681 * get_ipc_connect_master_ip_bcast() does, e.g. to retrieve the list of master
1682 * browsers and obtain each master browsers' list of domains (in case the
1683 * first master browser is recently on the network and has not yet
1684 * synchronized with other master browsers and therefore does not yet have the
1685 * entire network browse list)
1688 struct cli_state *get_ipc_connect_master_ip(struct ip_service * mb_ip, pstring workgroup, struct user_auth_info *user_info)
1690 static fstring name;
1691 struct cli_state *cli;
1692 struct in_addr server_ip;
1694 DEBUG(99, ("Looking up name of master browser %s\n",
1695 inet_ntoa(mb_ip->ip)));
1698 * Do a name status query to find out the name of the master browser.
1699 * We use <01><02>__MSBROWSE__<02>#01 if *#00 fails because a domain
1700 * master browser will not respond to a wildcard query (or, at least,
1701 * an NT4 server acting as the domain master browser will not).
1703 * We might be able to use ONLY the query on MSBROWSE, but that's not
1704 * yet been tested with all Windows versions, so until it is, leave
1705 * the original wildcard query as the first choice and fall back to
1706 * MSBROWSE if the wildcard query fails.
1708 if (!name_status_find("*", 0, 0x1d, mb_ip->ip, name) &&
1709 !name_status_find(MSBROWSE, 1, 0x1d, mb_ip->ip, name)) {
1711 DEBUG(99, ("Could not retrieve name status for %s\n",
1712 inet_ntoa(mb_ip->ip)));
1716 if (!find_master_ip(name, &server_ip)) {
1717 DEBUG(99, ("Could not find master ip for %s\n", name));
1721 pstrcpy(workgroup, name);
1723 DEBUG(4, ("found master browser %s, %s\n",
1724 name, inet_ntoa(mb_ip->ip)));
1726 cli = get_ipc_connect(inet_ntoa(server_ip), &server_ip, user_info);
1733 * Return the IP address and workgroup of a master browser on the network, and
1737 struct cli_state *get_ipc_connect_master_ip_bcast(pstring workgroup, struct user_auth_info *user_info)
1739 struct ip_service *ip_list;
1740 struct cli_state *cli;
1743 DEBUG(99, ("Do broadcast lookup for workgroups on local network\n"));
1745 /* Go looking for workgroups by broadcasting on the local network */
1747 if (!name_resolve_bcast(MSBROWSE, 1, &ip_list, &count)) {
1748 DEBUG(99, ("No master browsers responded\n"));
1752 for (i = 0; i < count; i++) {
1753 DEBUG(99, ("Found master browser %s\n", inet_ntoa(ip_list[i].ip)));
1755 cli = get_ipc_connect_master_ip(&ip_list[i], workgroup, user_info);