?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
include updates
[tomato.git] / release / src-rt-6.x.4708 / router / samba-3.0.25b / source / libsmb / cliconnect.c
blobdd84db319ebef75cb7736fcf10dca19342b446ae
1 /*
2 Unix SMB/CIFS implementation.
3 client connect/disconnect routines
4 Copyright (C) Andrew Tridgell 1994-1998
5 Copyright (C) Andrew Bartlett 2001-2003
6
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.
11
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.
16
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.
20 */
21
22 #include "includes.h"
23
24 extern pstring user_socket_options;
25
26 static const struct {
27 int prot;
28 const char *name;
29 } prots[] = {
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,"LANMAN2.1"},
37 {PROTOCOL_LANMAN2,"Samba"},
38 {PROTOCOL_NT1,"NT LANMAN 1.0"},
39 {PROTOCOL_NT1,"NT LM 0.12"},
40 {-1,NULL}
41 };
42
43 /**
44 * Set the user session key for a connection
45 * @param cli The cli structure to add it too
46 * @param session_key The session key used. (A copy of this is taken for the cli struct)
47 *
48 */
49
50 static void cli_set_session_key (struct cli_state *cli, const DATA_BLOB session_key)
51 {
52 cli->user_session_key = data_blob(session_key.data, session_key.length);
53 }
54
55 /****************************************************************************
56 Do an old lanman2 style session setup.
57 ****************************************************************************/
58
59 static NTSTATUS cli_session_setup_lanman2(struct cli_state *cli,
60 const char *user,
61 const char *pass, size_t passlen,
62 const char *workgroup)
63 {
64 DATA_BLOB session_key = data_blob(NULL, 0);
65 DATA_BLOB lm_response = data_blob(NULL, 0);
66 fstring pword;
67 char *p;
68
69 if (passlen > sizeof(pword)-1) {
70 return NT_STATUS_INVALID_PARAMETER;
71 }
72
73 /* LANMAN servers predate NT status codes and Unicode and ignore those
74 smb flags so we must disable the corresponding default capabilities
75 that would otherwise cause the Unicode and NT Status flags to be
76 set (and even returned by the server) */
77
78 cli->capabilities &= ~(CAP_UNICODE | CAP_STATUS32);
79
80 /* if in share level security then don't send a password now */
81 if (!(cli->sec_mode & NEGOTIATE_SECURITY_USER_LEVEL))
82 passlen = 0;
83
84 if (passlen > 0 && (cli->sec_mode & NEGOTIATE_SECURITY_CHALLENGE_RESPONSE) && passlen != 24) {
85 /* Encrypted mode needed, and non encrypted password supplied. */
86 lm_response = data_blob(NULL, 24);
87 if (!SMBencrypt(pass, cli->secblob.data,(uchar *)lm_response.data)) {
88 DEBUG(1, ("Password is > 14 chars in length, and is therefore incompatible with Lanman authentication\n"));
89 return NT_STATUS_ACCESS_DENIED;
90 }
91 } else if ((cli->sec_mode & NEGOTIATE_SECURITY_CHALLENGE_RESPONSE) && passlen == 24) {
92 /* Encrypted mode needed, and encrypted password supplied. */
93 lm_response = data_blob(pass, passlen);
94 } else if (passlen > 0) {
95 /* Plaintext mode needed, assume plaintext supplied. */
96 passlen = clistr_push(cli, pword, pass, sizeof(pword), STR_TERMINATE);
97 lm_response = data_blob(pass, passlen);
98 }
99
100 /* send a session setup command */
101 memset(cli->outbuf,'\0',smb_size);
102 set_message(cli->outbuf,10, 0, True);
103 SCVAL(cli->outbuf,smb_com,SMBsesssetupX);
104 cli_setup_packet(cli);
105
106 SCVAL(cli->outbuf,smb_vwv0,0xFF);
107 SSVAL(cli->outbuf,smb_vwv2,cli->max_xmit);
108 SSVAL(cli->outbuf,smb_vwv3,2);
109 SSVAL(cli->outbuf,smb_vwv4,1);
110 SIVAL(cli->outbuf,smb_vwv5,cli->sesskey);
111 SSVAL(cli->outbuf,smb_vwv7,lm_response.length);
112
113 p = smb_buf(cli->outbuf);
114 memcpy(p,lm_response.data,lm_response.length);
115 p += lm_response.length;
116 p += clistr_push(cli, p, user, -1, STR_TERMINATE|STR_UPPER);
117 p += clistr_push(cli, p, workgroup, -1, STR_TERMINATE|STR_UPPER);
118 p += clistr_push(cli, p, "Unix", -1, STR_TERMINATE);
119 p += clistr_push(cli, p, "Samba", -1, STR_TERMINATE);
120 cli_setup_bcc(cli, p);
121
122 if (!cli_send_smb(cli) || !cli_receive_smb(cli)) {
123 return cli_nt_error(cli);
124 }
125
126 show_msg(cli->inbuf);
127
128 if (cli_is_error(cli)) {
129 return cli_nt_error(cli);
130 }
131
132 /* use the returned vuid from now on */
133 cli->vuid = SVAL(cli->inbuf,smb_uid);
134 fstrcpy(cli->user_name, user);
135
136 if (session_key.data) {
137 /* Have plaintext orginal */
138 cli_set_session_key(cli, session_key);
139 }
140
141 return NT_STATUS_OK;
142 }
143
144 /****************************************************************************
145 Work out suitable capabilities to offer the server.
146 ****************************************************************************/
147
148 static uint32 cli_session_setup_capabilities(struct cli_state *cli)
149 {
150 uint32 capabilities = CAP_NT_SMBS;
151
152 if (!cli->force_dos_errors)
153 capabilities |= CAP_STATUS32;
154
155 if (cli->use_level_II_oplocks)
156 capabilities |= CAP_LEVEL_II_OPLOCKS;
157
158 capabilities |= (cli->capabilities & (CAP_UNICODE|CAP_LARGE_FILES|CAP_LARGE_READX|CAP_LARGE_WRITEX|CAP_DFS));
159 return capabilities;
160 }
161
162 /****************************************************************************
163 Do a NT1 guest session setup.
164 ****************************************************************************/
165
166 static NTSTATUS cli_session_setup_guest(struct cli_state *cli)
167 {
168 char *p;
169 uint32 capabilities = cli_session_setup_capabilities(cli);
170
171 memset(cli->outbuf, '\0', smb_size);
172 set_message(cli->outbuf,13,0,True);
173 SCVAL(cli->outbuf,smb_com,SMBsesssetupX);
174 cli_setup_packet(cli);
175
176 SCVAL(cli->outbuf,smb_vwv0,0xFF);
177 SSVAL(cli->outbuf,smb_vwv2,CLI_BUFFER_SIZE);
178 SSVAL(cli->outbuf,smb_vwv3,2);
179 SSVAL(cli->outbuf,smb_vwv4,cli->pid);
180 SIVAL(cli->outbuf,smb_vwv5,cli->sesskey);
181 SSVAL(cli->outbuf,smb_vwv7,0);
182 SSVAL(cli->outbuf,smb_vwv8,0);
183 SIVAL(cli->outbuf,smb_vwv11,capabilities);
184 p = smb_buf(cli->outbuf);
185 p += clistr_push(cli, p, "", -1, STR_TERMINATE); /* username */
186 p += clistr_push(cli, p, "", -1, STR_TERMINATE); /* workgroup */
187 p += clistr_push(cli, p, "Unix", -1, STR_TERMINATE);
188 p += clistr_push(cli, p, "Samba", -1, STR_TERMINATE);
189 cli_setup_bcc(cli, p);
190
191 if (!cli_send_smb(cli) || !cli_receive_smb(cli)) {
192 return cli_nt_error(cli);
193 }
194
195 show_msg(cli->inbuf);
196
197 if (cli_is_error(cli)) {
198 return cli_nt_error(cli);
199 }
200
201 cli->vuid = SVAL(cli->inbuf,smb_uid);
202
203 p = smb_buf(cli->inbuf);
204 p += clistr_pull(cli, cli->server_os, p, sizeof(fstring), -1, STR_TERMINATE);
205 p += clistr_pull(cli, cli->server_type, p, sizeof(fstring), -1, STR_TERMINATE);
206 p += clistr_pull(cli, cli->server_domain, p, sizeof(fstring), -1, STR_TERMINATE);
207
208 if (strstr(cli->server_type, "Samba")) {
209 cli->is_samba = True;
210 }
211
212 fstrcpy(cli->user_name, "");
213
214 return NT_STATUS_OK;
215 }
216
217 /****************************************************************************
218 Do a NT1 plaintext session setup.
219 ****************************************************************************/
220
221 static NTSTATUS cli_session_setup_plaintext(struct cli_state *cli,
222 const char *user, const char *pass,
223 const char *workgroup)
224 {
225 uint32 capabilities = cli_session_setup_capabilities(cli);
226 char *p;
227 fstring lanman;
228
229 fstr_sprintf( lanman, "Samba %s", SAMBA_VERSION_STRING);
230
231 memset(cli->outbuf, '\0', smb_size);
232 set_message(cli->outbuf,13,0,True);
233 SCVAL(cli->outbuf,smb_com,SMBsesssetupX);
234 cli_setup_packet(cli);
235
236 SCVAL(cli->outbuf,smb_vwv0,0xFF);
237 SSVAL(cli->outbuf,smb_vwv2,CLI_BUFFER_SIZE);
238 SSVAL(cli->outbuf,smb_vwv3,2);
239 SSVAL(cli->outbuf,smb_vwv4,cli->pid);
240 SIVAL(cli->outbuf,smb_vwv5,cli->sesskey);
241 SSVAL(cli->outbuf,smb_vwv8,0);
242 SIVAL(cli->outbuf,smb_vwv11,capabilities);
243 p = smb_buf(cli->outbuf);
244
245 /* check wether to send the ASCII or UNICODE version of the password */
246
247 if ( (capabilities & CAP_UNICODE) == 0 ) {
248 p += clistr_push(cli, p, pass, -1, STR_TERMINATE); /* password */
249 SSVAL(cli->outbuf,smb_vwv7,PTR_DIFF(p, smb_buf(cli->outbuf)));
250 }
251 else {
252 p += clistr_push(cli, p, pass, -1, STR_UNICODE|STR_TERMINATE); /* unicode password */
253 SSVAL(cli->outbuf,smb_vwv8,PTR_DIFF(p, smb_buf(cli->outbuf)));
254 }
255
256 p += clistr_push(cli, p, user, -1, STR_TERMINATE); /* username */
257 p += clistr_push(cli, p, workgroup, -1, STR_TERMINATE); /* workgroup */
258 p += clistr_push(cli, p, "Unix", -1, STR_TERMINATE);
259 p += clistr_push(cli, p, lanman, -1, STR_TERMINATE);
260 cli_setup_bcc(cli, p);
261
262 if (!cli_send_smb(cli) || !cli_receive_smb(cli)) {
263 return cli_nt_error(cli);
264 }
265
266 show_msg(cli->inbuf);
267
268 if (cli_is_error(cli)) {
269 return cli_nt_error(cli);
270 }
271
272 cli->vuid = SVAL(cli->inbuf,smb_uid);
273 p = smb_buf(cli->inbuf);
274 p += clistr_pull(cli, cli->server_os, p, sizeof(fstring), -1, STR_TERMINATE);
275 p += clistr_pull(cli, cli->server_type, p, sizeof(fstring), -1, STR_TERMINATE);
276 p += clistr_pull(cli, cli->server_domain, p, sizeof(fstring), -1, STR_TERMINATE);
277 fstrcpy(cli->user_name, user);
278
279 if (strstr(cli->server_type, "Samba")) {
280 cli->is_samba = True;
281 }
282
283 return NT_STATUS_OK;
284 }
285
286 /****************************************************************************
287 do a NT1 NTLM/LM encrypted session setup - for when extended security
288 is not negotiated.
289 @param cli client state to create do session setup on
290 @param user username
291 @param pass *either* cleartext password (passlen !=24) or LM response.
292 @param ntpass NT response, implies ntpasslen >=24, implies pass is not clear
293 @param workgroup The user's domain.
294 ****************************************************************************/
295
296 static NTSTATUS cli_session_setup_nt1(struct cli_state *cli, const char *user,
297 const char *pass, size_t passlen,
298 const char *ntpass, size_t ntpasslen,
299 const char *workgroup)
300 {
301 uint32 capabilities = cli_session_setup_capabilities(cli);
302 DATA_BLOB lm_response = data_blob(NULL, 0);
303 DATA_BLOB nt_response = data_blob(NULL, 0);
304 DATA_BLOB session_key = data_blob(NULL, 0);
305 NTSTATUS result;
306 char *p;
307
308 if (passlen == 0) {
309 /* do nothing - guest login */
310 } else if (passlen != 24) {
311 if (lp_client_ntlmv2_auth()) {
312 DATA_BLOB server_chal;
313 DATA_BLOB names_blob;
314 server_chal = data_blob(cli->secblob.data, MIN(cli->secblob.length, 8));
315
316 /* note that the 'workgroup' here is a best guess - we don't know
317 the server's domain at this point. The 'server name' is also
318 dodgy...
319 */
320 names_blob = NTLMv2_generate_names_blob(cli->called.name, workgroup);
321
322 if (!SMBNTLMv2encrypt(user, workgroup, pass, &server_chal,
323 &names_blob,
324 &lm_response, &nt_response, &session_key)) {
325 data_blob_free(&names_blob);
326 data_blob_free(&server_chal);
327 return NT_STATUS_ACCESS_DENIED;
328 }
329 data_blob_free(&names_blob);
330 data_blob_free(&server_chal);
331
332 } else {
333 uchar nt_hash[16];
334 E_md4hash(pass, nt_hash);
335
336 #ifdef LANMAN_ONLY
337 nt_response = data_blob(NULL, 0);
338 #else
339 nt_response = data_blob(NULL, 24);
340 SMBNTencrypt(pass,cli->secblob.data,nt_response.data);
341 #endif
342 /* non encrypted password supplied. Ignore ntpass. */
343 if (lp_client_lanman_auth()) {
344 lm_response = data_blob(NULL, 24);
345 if (!SMBencrypt(pass,cli->secblob.data, lm_response.data)) {
346 /* Oops, the LM response is invalid, just put
347 the NT response there instead */
348 data_blob_free(&lm_response);
349 lm_response = data_blob(nt_response.data, nt_response.length);
350 }
351 } else {
352 /* LM disabled, place NT# in LM field instead */
353 lm_response = data_blob(nt_response.data, nt_response.length);
354 }
355
356 session_key = data_blob(NULL, 16);
357 #ifdef LANMAN_ONLY
358 E_deshash(pass, session_key.data);
359 memset(&session_key.data[8], '\0', 8);
360 #else
361 SMBsesskeygen_ntv1(nt_hash, NULL, session_key.data);
362 #endif
363 }
364 #ifdef LANMAN_ONLY
365 cli_simple_set_signing(cli, session_key, lm_response);
366 #else
367 cli_simple_set_signing(cli, session_key, nt_response);
368 #endif
369 } else {
370 /* pre-encrypted password supplied. Only used for
371 security=server, can't do
372 signing because we don't have original key */
373
374 lm_response = data_blob(pass, passlen);
375 nt_response = data_blob(ntpass, ntpasslen);
376 }
377
378 /* send a session setup command */
379 memset(cli->outbuf,'\0',smb_size);
380
381 set_message(cli->outbuf,13,0,True);
382 SCVAL(cli->outbuf,smb_com,SMBsesssetupX);
383 cli_setup_packet(cli);
384
385 SCVAL(cli->outbuf,smb_vwv0,0xFF);
386 SSVAL(cli->outbuf,smb_vwv2,CLI_BUFFER_SIZE);
387 SSVAL(cli->outbuf,smb_vwv3,2);
388 SSVAL(cli->outbuf,smb_vwv4,cli->pid);
389 SIVAL(cli->outbuf,smb_vwv5,cli->sesskey);
390 SSVAL(cli->outbuf,smb_vwv7,lm_response.length);
391 SSVAL(cli->outbuf,smb_vwv8,nt_response.length);
392 SIVAL(cli->outbuf,smb_vwv11,capabilities);
393 p = smb_buf(cli->outbuf);
394 if (lm_response.length) {
395 memcpy(p,lm_response.data, lm_response.length); p += lm_response.length;
396 }
397 if (nt_response.length) {
398 memcpy(p,nt_response.data, nt_response.length); p += nt_response.length;
399 }
400 p += clistr_push(cli, p, user, -1, STR_TERMINATE);
401
402 /* Upper case here might help some NTLMv2 implementations */
403 p += clistr_push(cli, p, workgroup, -1, STR_TERMINATE|STR_UPPER);
404 p += clistr_push(cli, p, "Unix", -1, STR_TERMINATE);
405 p += clistr_push(cli, p, "Samba", -1, STR_TERMINATE);
406 cli_setup_bcc(cli, p);
407
408 if (!cli_send_smb(cli) || !cli_receive_smb(cli)) {
409 result = cli_nt_error(cli);
410 goto end;
411 }
412
413 /* show_msg(cli->inbuf); */
414
415 if (cli_is_error(cli)) {
416 result = cli_nt_error(cli);
417 goto end;
418 }
419
420 /* use the returned vuid from now on */
421 cli->vuid = SVAL(cli->inbuf,smb_uid);
422
423 p = smb_buf(cli->inbuf);
424 p += clistr_pull(cli, cli->server_os, p, sizeof(fstring), -1, STR_TERMINATE);
425 p += clistr_pull(cli, cli->server_type, p, sizeof(fstring), -1, STR_TERMINATE);
426 p += clistr_pull(cli, cli->server_domain, p, sizeof(fstring), -1, STR_TERMINATE);
427
428 if (strstr(cli->server_type, "Samba")) {
429 cli->is_samba = True;
430 }
431
432 fstrcpy(cli->user_name, user);
433
434 if (session_key.data) {
435 /* Have plaintext orginal */
436 cli_set_session_key(cli, session_key);
437 }
438
439 result = NT_STATUS_OK;
440 end:
441 data_blob_free(&lm_response);
442 data_blob_free(&nt_response);
443 data_blob_free(&session_key);
444 return result;
445 }
446
447 /****************************************************************************
448 Send a extended security session setup blob
449 ****************************************************************************/
450
451 static BOOL cli_session_setup_blob_send(struct cli_state *cli, DATA_BLOB blob)
452 {
453 uint32 capabilities = cli_session_setup_capabilities(cli);
454 char *p;
455
456 capabilities |= CAP_EXTENDED_SECURITY;
457
458 /* send a session setup command */
459 memset(cli->outbuf,'\0',smb_size);
460
461 set_message(cli->outbuf,12,0,True);
462 SCVAL(cli->outbuf,smb_com,SMBsesssetupX);
463
464 cli_setup_packet(cli);
465
466 SCVAL(cli->outbuf,smb_vwv0,0xFF);
467 SSVAL(cli->outbuf,smb_vwv2,CLI_BUFFER_SIZE);
468 SSVAL(cli->outbuf,smb_vwv3,2);
469 SSVAL(cli->outbuf,smb_vwv4,1);
470 SIVAL(cli->outbuf,smb_vwv5,0);
471 SSVAL(cli->outbuf,smb_vwv7,blob.length);
472 SIVAL(cli->outbuf,smb_vwv10,capabilities);
473 p = smb_buf(cli->outbuf);
474 memcpy(p, blob.data, blob.length);
475 p += blob.length;
476 p += clistr_push(cli, p, "Unix", -1, STR_TERMINATE);
477 p += clistr_push(cli, p, "Samba", -1, STR_TERMINATE);
478 cli_setup_bcc(cli, p);
479 return cli_send_smb(cli);
480 }
481
482 /****************************************************************************
483 Send a extended security session setup blob, returning a reply blob.
484 ****************************************************************************/
485
486 static DATA_BLOB cli_session_setup_blob_receive(struct cli_state *cli)
487 {
488 DATA_BLOB blob2 = data_blob(NULL, 0);
489 char *p;
490 size_t len;
491
492 if (!cli_receive_smb(cli))
493 return blob2;
494
495 show_msg(cli->inbuf);
496
497 if (cli_is_error(cli) && !NT_STATUS_EQUAL(cli_nt_error(cli),
498 NT_STATUS_MORE_PROCESSING_REQUIRED)) {
499 return blob2;
500 }
501
502 /* use the returned vuid from now on */
503 cli->vuid = SVAL(cli->inbuf,smb_uid);
504
505 p = smb_buf(cli->inbuf);
506
507 blob2 = data_blob(p, SVAL(cli->inbuf, smb_vwv3));
508
509 p += blob2.length;
510 p += clistr_pull(cli, cli->server_os, p, sizeof(fstring), -1, STR_TERMINATE);
511
512 /* w2k with kerberos doesn't properly null terminate this field */
513 len = smb_buflen(cli->inbuf) - PTR_DIFF(p, smb_buf(cli->inbuf));
514 p += clistr_pull(cli, cli->server_type, p, sizeof(fstring), len, 0);
515
516 return blob2;
517 }
518
519 #ifdef HAVE_KRB5
520 /****************************************************************************
521 Send a extended security session setup blob, returning a reply blob.
522 ****************************************************************************/
523
524 /* The following is calculated from :
525 * (smb_size-4) = 35
526 * (smb_wcnt * 2) = 24 (smb_wcnt == 12 in cli_session_setup_blob_send() )
527 * (strlen("Unix") + 1 + strlen("Samba") + 1) * 2 = 22 (unicode strings at
528 * end of packet.
529 */
530
531 #define BASE_SESSSETUP_BLOB_PACKET_SIZE (35 + 24 + 22)
532
533 static BOOL cli_session_setup_blob(struct cli_state *cli, DATA_BLOB blob, DATA_BLOB session_key_krb5)
534 {
535 int32 remaining = blob.length;
536 int32 cur = 0;
537 DATA_BLOB send_blob = data_blob(NULL, 0);
538 int32 max_blob_size = 0;
539 DATA_BLOB receive_blob = data_blob(NULL, 0);
540
541 if (cli->max_xmit < BASE_SESSSETUP_BLOB_PACKET_SIZE + 1) {
542 DEBUG(0,("cli_session_setup_blob: cli->max_xmit too small "
543 "(was %u, need minimum %u)\n",
544 (unsigned int)cli->max_xmit,
545 BASE_SESSSETUP_BLOB_PACKET_SIZE));
546 cli_set_nt_error(cli, NT_STATUS_INVALID_PARAMETER);
547 return False;
548 }
549
550 max_blob_size = cli->max_xmit - BASE_SESSSETUP_BLOB_PACKET_SIZE;
551
552 while ( remaining > 0) {
553 if (remaining >= max_blob_size) {
554 send_blob.length = max_blob_size;
555 remaining -= max_blob_size;
556 } else {
557 DATA_BLOB null_blob = data_blob(NULL, 0);
558
559 send_blob.length = remaining;
560 remaining = 0;
561
562 /* This is the last packet in the sequence - turn signing on. */
563 cli_simple_set_signing(cli, session_key_krb5, null_blob);
564 }
565
566 send_blob.data = &blob.data[cur];
567 cur += send_blob.length;
568
569 DEBUG(10, ("cli_session_setup_blob: Remaining (%u) sending (%u) current (%u)\n",
570 (unsigned int)remaining,
571 (unsigned int)send_blob.length,
572 (unsigned int)cur ));
573
574 if (!cli_session_setup_blob_send(cli, send_blob)) {
575 DEBUG(0, ("cli_session_setup_blob: send failed\n"));
576 return False;
577 }
578
579 receive_blob = cli_session_setup_blob_receive(cli);
580 data_blob_free(&receive_blob);
581
582 if (cli_is_error(cli) &&
583 !NT_STATUS_EQUAL( cli_get_nt_error(cli),
584 NT_STATUS_MORE_PROCESSING_REQUIRED)) {
585 DEBUG(0, ("cli_session_setup_blob: recieve failed (%s)\n",
586 nt_errstr(cli_get_nt_error(cli)) ));
587 return False;
588 }
589 }
590
591 return True;
592 }
593
594 /****************************************************************************
595 Use in-memory credentials cache
596 ****************************************************************************/
597
598 static void use_in_memory_ccache(void) {
599 setenv(KRB5_ENV_CCNAME, "MEMORY:cliconnect", 1);
600 }
601
602 /****************************************************************************
603 Do a spnego/kerberos encrypted session setup.
604 ****************************************************************************/
605
606 static ADS_STATUS cli_session_setup_kerberos(struct cli_state *cli, const char *principal, const char *workgroup)
607 {
608 DATA_BLOB negTokenTarg;
609 DATA_BLOB session_key_krb5;
610 int rc;
611
612 DEBUG(2,("Doing kerberos session setup\n"));
613
614 /* generate the encapsulated kerberos5 ticket */
615 rc = spnego_gen_negTokenTarg(principal, 0, &negTokenTarg, &session_key_krb5, 0, NULL);
616
617 if (rc) {
618 DEBUG(1, ("cli_session_setup_kerberos: spnego_gen_negTokenTarg failed: %s\n",
619 error_message(rc)));
620 return ADS_ERROR_KRB5(rc);
621 }
622
623 #if 0
624 file_save("negTokenTarg.dat", negTokenTarg.data, negTokenTarg.length);
625 #endif
626
627 if (!cli_session_setup_blob(cli, negTokenTarg, session_key_krb5)) {
628 data_blob_free(&negTokenTarg);
629 data_blob_free(&session_key_krb5);
630 ADS_ERROR_NT(cli_nt_error(cli));
631 }
632
633 cli_set_session_key(cli, session_key_krb5);
634
635 data_blob_free(&negTokenTarg);
636 data_blob_free(&session_key_krb5);
637
638 if (cli_is_error(cli)) {
639 if (NT_STATUS_IS_OK(cli_nt_error(cli))) {
640 return ADS_ERROR_NT(NT_STATUS_UNSUCCESSFUL);
641 }
642 }
643 return ADS_ERROR_NT(cli_nt_error(cli));
644 }
645 #endif /* HAVE_KRB5 */
646
647
648 /****************************************************************************
649 Do a spnego/NTLMSSP encrypted session setup.
650 ****************************************************************************/
651
652 static NTSTATUS cli_session_setup_ntlmssp(struct cli_state *cli, const char *user,
653 const char *pass, const char *domain)
654 {
655 struct ntlmssp_state *ntlmssp_state;
656 NTSTATUS nt_status;
657 int turn = 1;
658 DATA_BLOB msg1;
659 DATA_BLOB blob = data_blob(NULL, 0);
660 DATA_BLOB blob_in = data_blob(NULL, 0);
661 DATA_BLOB blob_out = data_blob(NULL, 0);
662
663 cli_temp_set_signing(cli);
664
665 if (!NT_STATUS_IS_OK(nt_status = ntlmssp_client_start(&ntlmssp_state))) {
666 return nt_status;
667 }
668 ntlmssp_want_feature(ntlmssp_state, NTLMSSP_FEATURE_SESSION_KEY);
669
670 if (!NT_STATUS_IS_OK(nt_status = ntlmssp_set_username(ntlmssp_state, user))) {
671 return nt_status;
672 }
673 if (!NT_STATUS_IS_OK(nt_status = ntlmssp_set_domain(ntlmssp_state, domain))) {
674 return nt_status;
675 }
676 if (!NT_STATUS_IS_OK(nt_status = ntlmssp_set_password(ntlmssp_state, pass))) {
677 return nt_status;
678 }
679
680 do {
681 nt_status = ntlmssp_update(ntlmssp_state,
682 blob_in, &blob_out);
683 data_blob_free(&blob_in);
684 if (NT_STATUS_EQUAL(nt_status, NT_STATUS_MORE_PROCESSING_REQUIRED) || NT_STATUS_IS_OK(nt_status)) {
685 if (turn == 1) {
686 /* and wrap it in a SPNEGO wrapper */
687 msg1 = gen_negTokenInit(OID_NTLMSSP, blob_out);
688 } else {
689 /* wrap it in SPNEGO */
690 msg1 = spnego_gen_auth(blob_out);
691 }
692
693 /* now send that blob on its way */
694 if (!cli_session_setup_blob_send(cli, msg1)) {
695 DEBUG(3, ("Failed to send NTLMSSP/SPNEGO blob to server!\n"));
696 nt_status = NT_STATUS_UNSUCCESSFUL;
697 } else {
698 blob = cli_session_setup_blob_receive(cli);
699
700 nt_status = cli_nt_error(cli);
701 if (cli_is_error(cli) && NT_STATUS_IS_OK(nt_status)) {
702 if (cli->smb_rw_error == READ_BAD_SIG) {
703 nt_status = NT_STATUS_ACCESS_DENIED;
704 } else {
705 nt_status = NT_STATUS_UNSUCCESSFUL;
706 }
707 }
708 }
709 data_blob_free(&msg1);
710 }
711
712 if (!blob.length) {
713 if (NT_STATUS_IS_OK(nt_status)) {
714 nt_status = NT_STATUS_UNSUCCESSFUL;
715 }
716 } else if ((turn == 1) &&
717 NT_STATUS_EQUAL(nt_status, NT_STATUS_MORE_PROCESSING_REQUIRED)) {
718 DATA_BLOB tmp_blob = data_blob(NULL, 0);
719 /* the server might give us back two challenges */
720 if (!spnego_parse_challenge(blob, &blob_in,
721 &tmp_blob)) {
722 DEBUG(3,("Failed to parse challenges\n"));
723 nt_status = NT_STATUS_INVALID_PARAMETER;
724 }
725 data_blob_free(&tmp_blob);
726 } else {
727 if (!spnego_parse_auth_response(blob, nt_status,
728 &blob_in)) {
729 DEBUG(3,("Failed to parse auth response\n"));
730 if (NT_STATUS_IS_OK(nt_status)
731 || NT_STATUS_EQUAL(nt_status, NT_STATUS_MORE_PROCESSING_REQUIRED))
732 nt_status = NT_STATUS_INVALID_PARAMETER;
733 }
734 }
735 data_blob_free(&blob);
736 data_blob_free(&blob_out);
737 turn++;
738 } while (NT_STATUS_EQUAL(nt_status, NT_STATUS_MORE_PROCESSING_REQUIRED));
739
740 data_blob_free(&blob_in);
741
742 if (NT_STATUS_IS_OK(nt_status)) {
743
744 DATA_BLOB key = data_blob(ntlmssp_state->session_key.data,
745 ntlmssp_state->session_key.length);
746 DATA_BLOB null_blob = data_blob(NULL, 0);
747 BOOL res;
748
749 fstrcpy(cli->server_domain, ntlmssp_state->server_domain);
750 cli_set_session_key(cli, ntlmssp_state->session_key);
751
752 res = cli_simple_set_signing(cli, key, null_blob);
753
754 data_blob_free(&key);
755
756 if (res) {
757
758 /* 'resign' the last message, so we get the right sequence numbers
759 for checking the first reply from the server */
760 cli_calculate_sign_mac(cli);
761
762 if (!cli_check_sign_mac(cli)) {
763 nt_status = NT_STATUS_ACCESS_DENIED;
764 }
765 }
766 }
767
768 /* we have a reference conter on ntlmssp_state, if we are signing
769 then the state will be kept by the signing engine */
770
771 ntlmssp_end(&ntlmssp_state);
772
773 return nt_status;
774 }
775
776 /****************************************************************************
777 Do a spnego encrypted session setup.
778 ****************************************************************************/
779
780 ADS_STATUS cli_session_setup_spnego(struct cli_state *cli, const char *user,
781 const char *pass, const char *domain)
782 {
783 char *principal;
784 char *OIDs[ASN1_MAX_OIDS];
785 int i;
786 BOOL got_kerberos_mechanism = False;
787 DATA_BLOB blob;
788
789 DEBUG(3,("Doing spnego session setup (blob length=%lu)\n", (unsigned long)cli->secblob.length));
790
791 /* the server might not even do spnego */
792 if (cli->secblob.length <= 16) {
793 DEBUG(3,("server didn't supply a full spnego negprot\n"));
794 goto ntlmssp;
795 }
796
797 #if 0
798 file_save("negprot.dat", cli->secblob.data, cli->secblob.length);
799 #endif
800
801 /* there is 16 bytes of GUID before the real spnego packet starts */
802 blob = data_blob(cli->secblob.data+16, cli->secblob.length-16);
803
804 /* the server sent us the first part of the SPNEGO exchange in the negprot
805 reply */
806 if (!spnego_parse_negTokenInit(blob, OIDs, &principal)) {
807 data_blob_free(&blob);
808 return ADS_ERROR_NT(NT_STATUS_INVALID_PARAMETER);
809 }
810 data_blob_free(&blob);
811
812 /* make sure the server understands kerberos */
813 for (i=0;OIDs[i];i++) {
814 DEBUG(3,("got OID=%s\n", OIDs[i]));
815 if (strcmp(OIDs[i], OID_KERBEROS5_OLD) == 0 ||
816 strcmp(OIDs[i], OID_KERBEROS5) == 0) {
817 got_kerberos_mechanism = True;
818 }
819 free(OIDs[i]);
820 }
821
822 DEBUG(3,("got principal=%s\n", principal ? principal : "<null>"));
823
824 if (got_kerberos_mechanism && (principal == NULL)) {
825 /*
826 * It is WRONG to depend on the principal sent in the negprot
827 * reply, but right now we do it. So for safety (don't
828 * segfault later) disable Kerberos when no principal was
829 * sent. -- VL
830 */
831 DEBUG(1, ("Kerberos mech was offered, but no principal was "
832 "sent, disabling Kerberos\n"));
833 cli->use_kerberos = False;
834 }
835
836 fstrcpy(cli->user_name, user);
837
838 #ifdef HAVE_KRB5
839 /* If password is set we reauthenticate to kerberos server
840 * and do not store results */
841
842 if (got_kerberos_mechanism && cli->use_kerberos) {
843 ADS_STATUS rc;
844
845 if (pass && *pass) {
846 int ret;
847
848 use_in_memory_ccache();
849 ret = kerberos_kinit_password(user, pass, 0 /* no time correction for now */, NULL);
850
851 if (ret){
852 SAFE_FREE(principal);
853 DEBUG(0, ("Kinit failed: %s\n", error_message(ret)));
854 if (cli->fallback_after_kerberos)
855 goto ntlmssp;
856 return ADS_ERROR_KRB5(ret);
857 }
858 }
859
860 rc = cli_session_setup_kerberos(cli, principal, domain);
861 if (ADS_ERR_OK(rc) || !cli->fallback_after_kerberos) {
862 SAFE_FREE(principal);
863 return rc;
864 }
865 }
866 #endif
867
868 SAFE_FREE(principal);
869
870 ntlmssp:
871
872 return ADS_ERROR_NT(cli_session_setup_ntlmssp(cli, user, pass, domain));
873 }
874
875 /****************************************************************************
876 Send a session setup. The username and workgroup is in UNIX character
877 format and must be converted to DOS codepage format before sending. If the
878 password is in plaintext, the same should be done.
879 ****************************************************************************/
880
881 NTSTATUS cli_session_setup(struct cli_state *cli,
882 const char *user,
883 const char *pass, int passlen,
884 const char *ntpass, int ntpasslen,
885 const char *workgroup)
886 {
887 char *p;
888 fstring user2;
889
890 /* allow for workgroups as part of the username */
891 fstrcpy(user2, user);
892 if ((p=strchr_m(user2,'\\')) || (p=strchr_m(user2,'/')) ||
893 (p=strchr_m(user2,*lp_winbind_separator()))) {
894 *p = 0;
895 user = p+1;
896 workgroup = user2;
897 }
898
899 if (cli->protocol < PROTOCOL_LANMAN1) {
900 return NT_STATUS_OK;
901 }
902
903 /* now work out what sort of session setup we are going to
904 do. I have split this into separate functions to make the
905 flow a bit easier to understand (tridge) */
906
907 /* if its an older server then we have to use the older request format */
908
909 if (cli->protocol < PROTOCOL_NT1) {
910 if (!lp_client_lanman_auth() && passlen != 24 && (*pass)) {
911 DEBUG(1, ("Server requested LM password but 'client lanman auth'"
912 " is disabled\n"));
913 return NT_STATUS_ACCESS_DENIED;
914 }
915
916 if ((cli->sec_mode & NEGOTIATE_SECURITY_CHALLENGE_RESPONSE) == 0 &&
917 !lp_client_plaintext_auth() && (*pass)) {
918 DEBUG(1, ("Server requested plaintext password but 'client use plaintext auth'"
919 " is disabled\n"));
920 return NT_STATUS_ACCESS_DENIED;
921 }
922
923 return cli_session_setup_lanman2(cli, user, pass, passlen,
924 workgroup);
925 }
926
927 /* if no user is supplied then we have to do an anonymous connection.
928 passwords are ignored */
929
930 if (!user || !*user)
931 return cli_session_setup_guest(cli);
932
933 /* if the server is share level then send a plaintext null
934 password at this point. The password is sent in the tree
935 connect */
936
937 if ((cli->sec_mode & NEGOTIATE_SECURITY_USER_LEVEL) == 0)
938 return cli_session_setup_plaintext(cli, user, "", workgroup);
939
940 /* if the server doesn't support encryption then we have to use
941 plaintext. The second password is ignored */
942
943 if ((cli->sec_mode & NEGOTIATE_SECURITY_CHALLENGE_RESPONSE) == 0) {
944 if (!lp_client_plaintext_auth() && (*pass)) {
945 DEBUG(1, ("Server requested plaintext password but 'client use plaintext auth'"
946 " is disabled\n"));
947 return NT_STATUS_ACCESS_DENIED;
948 }
949 return cli_session_setup_plaintext(cli, user, pass, workgroup);
950 }
951
952 /* if the server supports extended security then use SPNEGO */
953
954 if (cli->capabilities & CAP_EXTENDED_SECURITY) {
955 ADS_STATUS status = cli_session_setup_spnego(cli, user, pass, workgroup);
956 if (!ADS_ERR_OK(status)) {
957 DEBUG(3, ("SPNEGO login failed: %s\n", ads_errstr(status)));
958 return ads_ntstatus(status);
959 }
960 } else {
961 NTSTATUS status;
962
963 /* otherwise do a NT1 style session setup */
964 status = cli_session_setup_nt1(cli, user, pass, passlen,
965 ntpass, ntpasslen, workgroup);
966 if (!NT_STATUS_IS_OK(status)) {
967 DEBUG(3,("cli_session_setup: NT1 session setup "
968 "failed: %s\n", nt_errstr(status)));
969 return status;
970 }
971 }
972
973 if (strstr(cli->server_type, "Samba")) {
974 cli->is_samba = True;
975 }
976
977 return NT_STATUS_OK;
978
979 }
980
981 /****************************************************************************
982 Send a uloggoff.
983 *****************************************************************************/
984
985 BOOL cli_ulogoff(struct cli_state *cli)
986 {
987 memset(cli->outbuf,'\0',smb_size);
988 set_message(cli->outbuf,2,0,True);
989 SCVAL(cli->outbuf,smb_com,SMBulogoffX);
990 cli_setup_packet(cli);
991 SSVAL(cli->outbuf,smb_vwv0,0xFF);
992 SSVAL(cli->outbuf,smb_vwv2,0); /* no additional info */
993
994 cli_send_smb(cli);
995 if (!cli_receive_smb(cli))
996 return False;
997
998 if (cli_is_error(cli)) {
999 return False;
1000 }
1001
1002 cli->cnum = -1;
1003 return True;
1004 }
1005
1006 /****************************************************************************
1007 Send a tconX.
1008 ****************************************************************************/
1009
1010 BOOL cli_send_tconX(struct cli_state *cli,
1011 const char *share, const char *dev, const char *pass, int passlen)
1012 {
1013 fstring fullshare, pword;
1014 char *p;
1015 memset(cli->outbuf,'\0',smb_size);
1016 memset(cli->inbuf,'\0',smb_size);
1017
1018 fstrcpy(cli->share, share);
1019
1020 /* in user level security don't send a password now */
1021 if (cli->sec_mode & NEGOTIATE_SECURITY_USER_LEVEL) {
1022 passlen = 1;
1023 pass = "";
1024 } else if (!pass) {
1025 DEBUG(1, ("Server not using user level security and no password supplied.\n"));
1026 return False;
1027 }
1028
1029 if ((cli->sec_mode & NEGOTIATE_SECURITY_CHALLENGE_RESPONSE) &&
1030 *pass && passlen != 24) {
1031 if (!lp_client_lanman_auth()) {
1032 DEBUG(1, ("Server requested LANMAN password (share-level security) but 'client use lanman auth'"
1033 " is disabled\n"));
1034 return False;
1035 }
1036
1037 /*
1038 * Non-encrypted passwords - convert to DOS codepage before encryption.
1039 */
1040 passlen = 24;
1041 SMBencrypt(pass,cli->secblob.data,(uchar *)pword);
1042 } else {
1043 if((cli->sec_mode & (NEGOTIATE_SECURITY_USER_LEVEL|NEGOTIATE_SECURITY_CHALLENGE_RESPONSE)) == 0) {
1044 if (!lp_client_plaintext_auth() && (*pass)) {
1045 DEBUG(1, ("Server requested plaintext password but 'client use plaintext auth'"
1046 " is disabled\n"));
1047 return False;
1048 }
1049
1050 /*
1051 * Non-encrypted passwords - convert to DOS codepage before using.
1052 */
1053 passlen = clistr_push(cli, pword, pass, sizeof(pword), STR_TERMINATE);
1054
1055 } else {
1056 if (passlen) {
1057 memcpy(pword, pass, passlen);
1058 }
1059 }
1060 }
1061
1062 slprintf(fullshare, sizeof(fullshare)-1,
1063 "\\\\%s\\%s", cli->desthost, share);
1064
1065 set_message(cli->outbuf,4, 0, True);
1066 SCVAL(cli->outbuf,smb_com,SMBtconX);
1067 cli_setup_packet(cli);
1068
1069 SSVAL(cli->outbuf,smb_vwv0,0xFF);
1070 SSVAL(cli->outbuf,smb_vwv2,TCONX_FLAG_EXTENDED_RESPONSE);
1071 SSVAL(cli->outbuf,smb_vwv3,passlen);
1072
1073 p = smb_buf(cli->outbuf);
1074 if (passlen) {
1075 memcpy(p,pword,passlen);
1076 }
1077 p += passlen;
1078 p += clistr_push(cli, p, fullshare, -1, STR_TERMINATE |STR_UPPER);
1079 p += clistr_push(cli, p, dev, -1, STR_TERMINATE |STR_UPPER | STR_ASCII);
1080
1081 cli_setup_bcc(cli, p);
1082
1083 cli_send_smb(cli);
1084 if (!cli_receive_smb(cli))
1085 return False;
1086
1087 if (cli_is_error(cli))
1088 return False;
1089
1090 clistr_pull(cli, cli->dev, smb_buf(cli->inbuf), sizeof(fstring), -1, STR_TERMINATE|STR_ASCII);
1091
1092 if (cli->protocol >= PROTOCOL_NT1 &&
1093 smb_buflen(cli->inbuf) == 3) {
1094 /* almost certainly win95 - enable bug fixes */
1095 cli->win95 = True;
1096 }
1097
1098 /* Make sure that we have the optional support 16-bit field. WCT > 2 */
1099 /* Avoids issues when connecting to Win9x boxes sharing files */
1100
1101 cli->dfsroot = False;
1102 if ( (CVAL(cli->inbuf, smb_wct))>2 && cli->protocol >= PROTOCOL_LANMAN2 )
1103 cli->dfsroot = (SVAL( cli->inbuf, smb_vwv2 ) & SMB_SHARE_IN_DFS) ? True : False;
1104
1105 cli->cnum = SVAL(cli->inbuf,smb_tid);
1106 return True;
1107 }
1108
1109 /****************************************************************************
1110 Send a tree disconnect.
1111 ****************************************************************************/
1112
1113 BOOL cli_tdis(struct cli_state *cli)
1114 {
1115 memset(cli->outbuf,'\0',smb_size);
1116 set_message(cli->outbuf,0,0,True);
1117 SCVAL(cli->outbuf,smb_com,SMBtdis);
1118 SSVAL(cli->outbuf,smb_tid,cli->cnum);
1119 cli_setup_packet(cli);
1120
1121 cli_send_smb(cli);
1122 if (!cli_receive_smb(cli))
1123 return False;
1124
1125 if (cli_is_error(cli)) {
1126 return False;
1127 }
1128
1129 cli->cnum = -1;
1130 return True;
1131 }
1132
1133 /****************************************************************************
1134 Send a negprot command.
1135 ****************************************************************************/
1136
1137 void cli_negprot_send(struct cli_state *cli)
1138 {
1139 char *p;
1140 int numprots;
1141
1142 if (cli->protocol < PROTOCOL_NT1)
1143 cli->use_spnego = False;
1144
1145 memset(cli->outbuf,'\0',smb_size);
1146
1147 /* setup the protocol strings */
1148 set_message(cli->outbuf,0,0,True);
1149
1150 p = smb_buf(cli->outbuf);
1151 for (numprots=0;
1152 prots[numprots].name && prots[numprots].prot<=cli->protocol;
1153 numprots++) {
1154 *p++ = 2;
1155 p += clistr_push(cli, p, prots[numprots].name, -1, STR_TERMINATE);
1156 }
1157
1158 SCVAL(cli->outbuf,smb_com,SMBnegprot);
1159 cli_setup_bcc(cli, p);
1160 cli_setup_packet(cli);
1161
1162 SCVAL(smb_buf(cli->outbuf),0,2);
1163
1164 cli_send_smb(cli);
1165 }
1166
1167 /****************************************************************************
1168 Send a negprot command.
1169 ****************************************************************************/
1170
1171 BOOL cli_negprot(struct cli_state *cli)
1172 {
1173 char *p;
1174 int numprots;
1175 int plength;
1176
1177 if (cli->protocol < PROTOCOL_NT1)
1178 cli->use_spnego = False;
1179
1180 memset(cli->outbuf,'\0',smb_size);
1181
1182 /* setup the protocol strings */
1183 for (plength=0,numprots=0;
1184 prots[numprots].name && prots[numprots].prot<=cli->protocol;
1185 numprots++)
1186 plength += strlen(prots[numprots].name)+2;
1187
1188 set_message(cli->outbuf,0,plength,True);
1189
1190 p = smb_buf(cli->outbuf);
1191 for (numprots=0;
1192 prots[numprots].name && prots[numprots].prot<=cli->protocol;
1193 numprots++) {
1194 *p++ = 2;
1195 p += clistr_push(cli, p, prots[numprots].name, -1, STR_TERMINATE);
1196 }
1197
1198 SCVAL(cli->outbuf,smb_com,SMBnegprot);
1199 cli_setup_packet(cli);
1200
1201 SCVAL(smb_buf(cli->outbuf),0,2);
1202
1203 cli_send_smb(cli);
1204 if (!cli_receive_smb(cli))
1205 return False;
1206
1207 show_msg(cli->inbuf);
1208
1209 if (cli_is_error(cli) ||
1210 ((int)SVAL(cli->inbuf,smb_vwv0) >= numprots)) {
1211 return(False);
1212 }
1213
1214 cli->protocol = prots[SVAL(cli->inbuf,smb_vwv0)].prot;
1215
1216 if ((cli->protocol < PROTOCOL_NT1) && cli->sign_info.mandatory_signing) {
1217 DEBUG(0,("cli_negprot: SMB signing is mandatory and the selected protocol level doesn't support it.\n"));
1218 return False;
1219 }
1220
1221 if (cli->protocol >= PROTOCOL_NT1) {
1222 struct timespec ts;
1223 /* NT protocol */
1224 cli->sec_mode = CVAL(cli->inbuf,smb_vwv1);
1225 cli->max_mux = SVAL(cli->inbuf, smb_vwv1+1);
1226 cli->max_xmit = IVAL(cli->inbuf,smb_vwv3+1);
1227 cli->sesskey = IVAL(cli->inbuf,smb_vwv7+1);
1228 cli->serverzone = SVALS(cli->inbuf,smb_vwv15+1);
1229 cli->serverzone *= 60;
1230 /* this time arrives in real GMT */
1231 ts = interpret_long_date(cli->inbuf+smb_vwv11+1);
1232 cli->servertime = ts.tv_sec;
1233 cli->secblob = data_blob(smb_buf(cli->inbuf),smb_buflen(cli->inbuf));
1234 cli->capabilities = IVAL(cli->inbuf,smb_vwv9+1);
1235 if (cli->capabilities & CAP_RAW_MODE) {
1236 cli->readbraw_supported = True;
1237 cli->writebraw_supported = True;
1238 }
1239 /* work out if they sent us a workgroup */
1240 if (!(cli->capabilities & CAP_EXTENDED_SECURITY) &&
1241 smb_buflen(cli->inbuf) > 8) {
1242 clistr_pull(cli, cli->server_domain,
1243 smb_buf(cli->inbuf)+8, sizeof(cli->server_domain),
1244 smb_buflen(cli->inbuf)-8, STR_UNICODE|STR_NOALIGN);
1245 }
1246
1247 /*
1248 * As signing is slow we only turn it on if either the client or
1249 * the server require it. JRA.
1250 */
1251
1252 if (cli->sec_mode & NEGOTIATE_SECURITY_SIGNATURES_REQUIRED) {
1253 /* Fail if server says signing is mandatory and we don't want to support it. */
1254 if (!cli->sign_info.allow_smb_signing) {
1255 DEBUG(0,("cli_negprot: SMB signing is mandatory and we have disabled it.\n"));
1256 return False;
1257 }
1258 cli->sign_info.negotiated_smb_signing = True;
1259 cli->sign_info.mandatory_signing = True;
1260 } else if (cli->sign_info.mandatory_signing && cli->sign_info.allow_smb_signing) {
1261 /* Fail if client says signing is mandatory and the server doesn't support it. */
1262 if (!(cli->sec_mode & NEGOTIATE_SECURITY_SIGNATURES_ENABLED)) {
1263 DEBUG(1,("cli_negprot: SMB signing is mandatory and the server doesn't support it.\n"));
1264 return False;
1265 }
1266 cli->sign_info.negotiated_smb_signing = True;
1267 cli->sign_info.mandatory_signing = True;
1268 } else if (cli->sec_mode & NEGOTIATE_SECURITY_SIGNATURES_ENABLED) {
1269 cli->sign_info.negotiated_smb_signing = True;
1270 }
1271
1272 if (cli->capabilities & (CAP_LARGE_READX|CAP_LARGE_WRITEX)) {
1273 SAFE_FREE(cli->outbuf);
1274 SAFE_FREE(cli->inbuf);
1275 cli->outbuf = (char *)SMB_MALLOC(CLI_SAMBA_MAX_LARGE_READX_SIZE+SAFETY_MARGIN);
1276 cli->inbuf = (char *)SMB_MALLOC(CLI_SAMBA_MAX_LARGE_READX_SIZE+SAFETY_MARGIN);
1277 cli->bufsize = CLI_SAMBA_MAX_LARGE_READX_SIZE;
1278 }
1279
1280 } else if (cli->protocol >= PROTOCOL_LANMAN1) {
1281 cli->use_spnego = False;
1282 cli->sec_mode = SVAL(cli->inbuf,smb_vwv1);
1283 cli->max_xmit = SVAL(cli->inbuf,smb_vwv2);
1284 cli->max_mux = SVAL(cli->inbuf, smb_vwv3);
1285 cli->sesskey = IVAL(cli->inbuf,smb_vwv6);
1286 cli->serverzone = SVALS(cli->inbuf,smb_vwv10);
1287 cli->serverzone *= 60;
1288 /* this time is converted to GMT by make_unix_date */
1289 cli->servertime = cli_make_unix_date(cli,cli->inbuf+smb_vwv8);
1290 cli->readbraw_supported = ((SVAL(cli->inbuf,smb_vwv5) & 0x1) != 0);
1291 cli->writebraw_supported = ((SVAL(cli->inbuf,smb_vwv5) & 0x2) != 0);
1292 cli->secblob = data_blob(smb_buf(cli->inbuf),smb_buflen(cli->inbuf));
1293 } else {
1294 /* the old core protocol */
1295 cli->use_spnego = False;
1296 cli->sec_mode = 0;
1297 cli->serverzone = get_time_zone(time(NULL));
1298 }
1299
1300 cli->max_xmit = MIN(cli->max_xmit, CLI_BUFFER_SIZE);
1301
1302 /* a way to force ascii SMB */
1303 if (getenv("CLI_FORCE_ASCII"))
1304 cli->capabilities &= ~CAP_UNICODE;
1305
1306 return True;
1307 }
1308
1309 /****************************************************************************
1310 Send a session request. See rfc1002.txt 4.3 and 4.3.2.
1311 ****************************************************************************/
1312
1313 BOOL cli_session_request(struct cli_state *cli,
1314 struct nmb_name *calling, struct nmb_name *called)
1315 {
1316 char *p;
1317 int len = 4;
1318
1319 memcpy(&(cli->calling), calling, sizeof(*calling));
1320 memcpy(&(cli->called ), called , sizeof(*called ));
1321
1322 /* put in the destination name */
1323 p = cli->outbuf+len;
1324 name_mangle(cli->called .name, p, cli->called .name_type);
1325 len += name_len(p);
1326
1327 /* and my name */
1328 p = cli->outbuf+len;
1329 name_mangle(cli->calling.name, p, cli->calling.name_type);
1330 len += name_len(p);
1331
1332 /* 445 doesn't have session request */
1333 if (cli->port == 445)
1334 return True;
1335
1336 /* send a session request (RFC 1002) */
1337 /* setup the packet length
1338 * Remove four bytes from the length count, since the length
1339 * field in the NBT Session Service header counts the number
1340 * of bytes which follow. The cli_send_smb() function knows
1341 * about this and accounts for those four bytes.
1342 * CRH.
1343 */
1344 len -= 4;
1345 _smb_setlen(cli->outbuf,len);
1346 SCVAL(cli->outbuf,0,0x81);
1347
1348 cli_send_smb(cli);
1349 DEBUG(5,("Sent session request\n"));
1350
1351 if (!cli_receive_smb(cli))
1352 return False;
1353
1354 if (CVAL(cli->inbuf,0) == 0x84) {
1355 /* C. Hoch 9/14/95 Start */
1356 /* For information, here is the response structure.
1357 * We do the byte-twiddling to for portability.
1358 struct RetargetResponse{
1359 unsigned char type;
1360 unsigned char flags;
1361 int16 length;
1362 int32 ip_addr;
1363 int16 port;
1364 };
1365 */
1366 int port = (CVAL(cli->inbuf,8)<<8)+CVAL(cli->inbuf,9);
1367 /* SESSION RETARGET */
1368 putip((char *)&cli->dest_ip,cli->inbuf+4);
1369
1370 cli->fd = open_socket_out(SOCK_STREAM, &cli->dest_ip, port, LONG_CONNECT_TIMEOUT);
1371 if (cli->fd == -1)
1372 return False;
1373
1374 DEBUG(3,("Retargeted\n"));
1375
1376 set_socket_options(cli->fd,user_socket_options);
1377
1378 /* Try again */
1379 {
1380 static int depth;
1381 BOOL ret;
1382 if (depth > 4) {
1383 DEBUG(0,("Retarget recursion - failing\n"));
1384 return False;
1385 }
1386 depth++;
1387 ret = cli_session_request(cli, calling, called);
1388 depth--;
1389 return ret;
1390 }
1391 } /* C. Hoch 9/14/95 End */
1392
1393 if (CVAL(cli->inbuf,0) != 0x82) {
1394 /* This is the wrong place to put the error... JRA. */
1395 cli->rap_error = CVAL(cli->inbuf,4);
1396 return False;
1397 }
1398 return(True);
1399 }
1400
1401 /****************************************************************************
1402 Open the client sockets.
1403 ****************************************************************************/
1404
1405 BOOL cli_connect(struct cli_state *cli, const char *host, struct in_addr *ip)
1406 {
1407 int name_type = 0x20;
1408 char *p;
1409
1410 /* reasonable default hostname */
1411 if (!host) host = "*SMBSERVER";
1412
1413 fstrcpy(cli->desthost, host);
1414
1415 /* allow hostnames of the form NAME#xx and do a netbios lookup */
1416 if ((p = strchr(cli->desthost, '#'))) {
1417 name_type = strtol(p+1, NULL, 16);
1418 *p = 0;
1419 }
1420
1421 if (!ip || is_zero_ip(*ip)) {
1422 if (!resolve_name(cli->desthost, &cli->dest_ip, name_type)) {
1423 return False;
1424 }
1425 if (ip) *ip = cli->dest_ip;
1426 } else {
1427 cli->dest_ip = *ip;
1428 }
1429
1430 if (getenv("LIBSMB_PROG")) {
1431 cli->fd = sock_exec(getenv("LIBSMB_PROG"));
1432 } else {
1433 /* try 445 first, then 139 */
1434 int port = cli->port?cli->port:445;
1435 cli->fd = open_socket_out(SOCK_STREAM, &cli->dest_ip,
1436 port, cli->timeout);
1437 if (cli->fd == -1 && cli->port == 0) {
1438 port = 139;
1439 cli->fd = open_socket_out(SOCK_STREAM, &cli->dest_ip,
1440 port, cli->timeout);
1441 }
1442 if (cli->fd != -1)
1443 cli->port = port;
1444 }
1445 if (cli->fd == -1) {
1446 DEBUG(1,("Error connecting to %s (%s)\n",
1447 ip?inet_ntoa(*ip):host,strerror(errno)));
1448 return False;
1449 }
1450
1451 set_socket_options(cli->fd,user_socket_options);
1452
1453 return True;
1454 }
1455
1456 /**
1457 establishes a connection to after the negprot.
1458 @param output_cli A fully initialised cli structure, non-null only on success
1459 @param dest_host The netbios name of the remote host
1460 @param dest_ip (optional) The the destination IP, NULL for name based lookup
1461 @param port (optional) The destination port (0 for default)
1462 @param retry BOOL. Did this connection fail with a retryable error ?
1463
1464 */
1465 NTSTATUS cli_start_connection(struct cli_state **output_cli,
1466 const char *my_name,
1467 const char *dest_host,
1468 struct in_addr *dest_ip, int port,
1469 int signing_state, int flags,
1470 BOOL *retry)
1471 {
1472 NTSTATUS nt_status;
1473 struct nmb_name calling;
1474 struct nmb_name called;
1475 struct cli_state *cli;
1476 struct in_addr ip;
1477
1478 if (retry)
1479 *retry = False;
1480
1481 if (!my_name)
1482 my_name = global_myname();
1483
1484 if (!(cli = cli_initialise())) {
1485 return NT_STATUS_NO_MEMORY;
1486 }
1487
1488 make_nmb_name(&calling, my_name, 0x0);
1489 make_nmb_name(&called , dest_host, 0x20);
1490
1491 if (cli_set_port(cli, port) != port) {
1492 cli_shutdown(cli);
1493 return NT_STATUS_UNSUCCESSFUL;
1494 }
1495
1496 cli_set_timeout(cli, 10000); /* 10 seconds. */
1497
1498 if (dest_ip)
1499 ip = *dest_ip;
1500 else
1501 ZERO_STRUCT(ip);
1502
1503 again:
1504
1505 DEBUG(3,("Connecting to host=%s\n", dest_host));
1506
1507 if (!cli_connect(cli, dest_host, &ip)) {
1508 DEBUG(1,("cli_start_connection: failed to connect to %s (%s)\n",
1509 nmb_namestr(&called), inet_ntoa(ip)));
1510 cli_shutdown(cli);
1511 if (is_zero_ip(ip)) {
1512 return NT_STATUS_BAD_NETWORK_NAME;
1513 } else {
1514 return NT_STATUS_CONNECTION_REFUSED;
1515 }
1516 }
1517
1518 if (retry)
1519 *retry = True;
1520
1521 if (!cli_session_request(cli, &calling, &called)) {
1522 char *p;
1523 DEBUG(1,("session request to %s failed (%s)\n",
1524 called.name, cli_errstr(cli)));
1525 if ((p=strchr(called.name, '.')) && !is_ipaddress(called.name)) {
1526 *p = 0;
1527 goto again;
1528 }
1529 if (strcmp(called.name, "*SMBSERVER")) {
1530 make_nmb_name(&called , "*SMBSERVER", 0x20);
1531 goto again;
1532 }
1533 return NT_STATUS_BAD_NETWORK_NAME;
1534 }
1535
1536 cli_setup_signing_state(cli, signing_state);
1537
1538 if (flags & CLI_FULL_CONNECTION_DONT_SPNEGO)
1539 cli->use_spnego = False;
1540 else if (flags & CLI_FULL_CONNECTION_USE_KERBEROS)
1541 cli->use_kerberos = True;
1542
1543 if (!cli_negprot(cli)) {
1544 DEBUG(1,("failed negprot\n"));
1545 nt_status = cli_nt_error(cli);
1546 if (NT_STATUS_IS_OK(nt_status)) {
1547 nt_status = NT_STATUS_UNSUCCESSFUL;
1548 }
1549 cli_shutdown(cli);
1550 return nt_status;
1551 }
1552
1553 *output_cli = cli;
1554 return NT_STATUS_OK;
1555 }
1556
1557
1558 /**
1559 establishes a connection right up to doing tconX, password specified.
1560 @param output_cli A fully initialised cli structure, non-null only on success
1561 @param dest_host The netbios name of the remote host
1562 @param dest_ip (optional) The the destination IP, NULL for name based lookup
1563 @param port (optional) The destination port (0 for default)
1564 @param service (optional) The share to make the connection to. Should be 'unqualified' in any way.
1565 @param service_type The 'type' of serivice.
1566 @param user Username, unix string
1567 @param domain User's domain
1568 @param password User's password, unencrypted unix string.
1569 @param retry BOOL. Did this connection fail with a retryable error ?
1570 */
1571
1572 NTSTATUS cli_full_connection(struct cli_state **output_cli,
1573 const char *my_name,
1574 const char *dest_host,
1575 struct in_addr *dest_ip, int port,
1576 const char *service, const char *service_type,
1577 const char *user, const char *domain,
1578 const char *password, int flags,
1579 int signing_state,
1580 BOOL *retry)
1581 {
1582 NTSTATUS nt_status;
1583 struct cli_state *cli = NULL;
1584 int pw_len = password ? strlen(password)+1 : 0;
1585
1586 *output_cli = NULL;
1587
1588 if (password == NULL) {
1589 password = "";
1590 }
1591
1592 nt_status = cli_start_connection(&cli, my_name, dest_host,
1593 dest_ip, port, signing_state, flags, retry);
1594
1595 if (!NT_STATUS_IS_OK(nt_status)) {
1596 return nt_status;
1597 }
1598
1599 nt_status = cli_session_setup(cli, user, password, pw_len, password,
1600 pw_len, domain);
1601 if (!NT_STATUS_IS_OK(nt_status)) {
1602
1603 if (!(flags & CLI_FULL_CONNECTION_ANONYMOUS_FALLBACK)) {
1604 DEBUG(1,("failed session setup with %s\n",
1605 nt_errstr(nt_status)));
1606 cli_shutdown(cli);
1607 return nt_status;
1608 }
1609
1610 nt_status = cli_session_setup(cli, "", "", 0, "", 0, domain);
1611 if (!NT_STATUS_IS_OK(nt_status)) {
1612 DEBUG(1,("anonymous failed session setup with %s\n",
1613 nt_errstr(nt_status)));
1614 cli_shutdown(cli);
1615 return nt_status;
1616 }
1617 }
1618
1619 if (service) {
1620 if (!cli_send_tconX(cli, service, service_type, password, pw_len)) {
1621 nt_status = cli_nt_error(cli);
1622 DEBUG(1,("failed tcon_X with %s\n", nt_errstr(nt_status)));
1623 cli_shutdown(cli);
1624 if (NT_STATUS_IS_OK(nt_status)) {
1625 nt_status = NT_STATUS_UNSUCCESSFUL;
1626 }
1627 return nt_status;
1628 }
1629 }
1630
1631 cli_init_creds(cli, user, domain, password);
1632
1633 *output_cli = cli;
1634 return NT_STATUS_OK;
1635 }
1636
1637 /****************************************************************************
1638 Attempt a NetBIOS session request, falling back to *SMBSERVER if needed.
1639 ****************************************************************************/
1640
1641 BOOL attempt_netbios_session_request(struct cli_state **ppcli, const char *srchost, const char *desthost,
1642 struct in_addr *pdest_ip)
1643 {
1644 struct nmb_name calling, called;
1645
1646 make_nmb_name(&calling, srchost, 0x0);
1647
1648 /*
1649 * If the called name is an IP address
1650 * then use *SMBSERVER immediately.
1651 */
1652
1653 if(is_ipaddress(desthost)) {
1654 make_nmb_name(&called, "*SMBSERVER", 0x20);
1655 } else {
1656 make_nmb_name(&called, desthost, 0x20);
1657 }
1658
1659 if (!cli_session_request(*ppcli, &calling, &called)) {
1660 struct nmb_name smbservername;
1661
1662 make_nmb_name(&smbservername , "*SMBSERVER", 0x20);
1663
1664 /*
1665 * If the name wasn't *SMBSERVER then
1666 * try with *SMBSERVER if the first name fails.
1667 */
1668
1669 if (nmb_name_equal(&called, &smbservername)) {
1670
1671 /*
1672 * The name used was *SMBSERVER, don't bother with another name.
1673 */
1674
1675 DEBUG(0,("attempt_netbios_session_request: %s rejected the session for name *SMBSERVER \
1676 with error %s.\n", desthost, cli_errstr(*ppcli) ));
1677 return False;
1678 }
1679
1680 /* Try again... */
1681 cli_shutdown(*ppcli);
1682
1683 *ppcli = cli_initialise();
1684 if (!*ppcli) {
1685 /* Out of memory... */
1686 return False;
1687 }
1688
1689 if (!cli_connect(*ppcli, desthost, pdest_ip) ||
1690 !cli_session_request(*ppcli, &calling, &smbservername)) {
1691 DEBUG(0,("attempt_netbios_session_request: %s rejected the session for \
1692 name *SMBSERVER with error %s\n", desthost, cli_errstr(*ppcli) ));
1693 return False;
1694 }
1695 }
1696
1697 return True;
1698 }
1699
1700
1701
1702
1703
1704 /****************************************************************************
1705 Send an old style tcon.
1706 ****************************************************************************/
1707 NTSTATUS cli_raw_tcon(struct cli_state *cli,
1708 const char *service, const char *pass, const char *dev,
1709 uint16 *max_xmit, uint16 *tid)
1710 {
1711 char *p;
1712
1713 if (!lp_client_plaintext_auth() && (*pass)) {
1714 DEBUG(1, ("Server requested plaintext password but 'client use plaintext auth'"
1715 " is disabled\n"));
1716 return NT_STATUS_ACCESS_DENIED;
1717 }
1718
1719 memset(cli->outbuf,'\0',smb_size);
1720 memset(cli->inbuf,'\0',smb_size);
1721
1722 set_message(cli->outbuf, 0, 0, True);
1723 SCVAL(cli->outbuf,smb_com,SMBtcon);
1724 cli_setup_packet(cli);
1725
1726 p = smb_buf(cli->outbuf);
1727 *p++ = 4; p += clistr_push(cli, p, service, -1, STR_TERMINATE | STR_NOALIGN);
1728 *p++ = 4; p += clistr_push(cli, p, pass, -1, STR_TERMINATE | STR_NOALIGN);
1729 *p++ = 4; p += clistr_push(cli, p, dev, -1, STR_TERMINATE | STR_NOALIGN);
1730
1731 cli_setup_bcc(cli, p);
1732
1733 cli_send_smb(cli);
1734 if (!cli_receive_smb(cli)) {
1735 return NT_STATUS_UNEXPECTED_NETWORK_ERROR;
1736 }
1737
1738 if (cli_is_error(cli)) {
1739 return cli_nt_error(cli);
1740 }
1741
1742 *max_xmit = SVAL(cli->inbuf, smb_vwv0);
1743 *tid = SVAL(cli->inbuf, smb_vwv1);
1744
1745 return NT_STATUS_OK;
1746 }
1747
1748 /* Return a cli_state pointing at the IPC$ share for the given server */
1749
1750 struct cli_state *get_ipc_connect(char *server, struct in_addr *server_ip,
1751 struct user_auth_info *user_info)
1752 {
1753 struct cli_state *cli;
1754 pstring myname;
1755 NTSTATUS nt_status;
1756
1757 get_myname(myname);
1758
1759 nt_status = cli_full_connection(&cli, myname, server, server_ip, 0, "IPC$", "IPC",
1760 user_info->username, lp_workgroup(), user_info->password,
1761 CLI_FULL_CONNECTION_ANONYMOUS_FALLBACK, Undefined, NULL);
1762
1763 if (NT_STATUS_IS_OK(nt_status)) {
1764 return cli;
1765 } else if (is_ipaddress(server)) {
1766 /* windows 9* needs a correct NMB name for connections */
1767 fstring remote_name;
1768
1769 if (name_status_find("*", 0, 0, *server_ip, remote_name)) {
1770 cli = get_ipc_connect(remote_name, server_ip, user_info);
1771 if (cli)
1772 return cli;
1773 }
1774 }
1775 return NULL;
1776 }
1777
1778 /*
1779 * Given the IP address of a master browser on the network, return its
1780 * workgroup and connect to it.
1781 *
1782 * This function is provided to allow additional processing beyond what
1783 * get_ipc_connect_master_ip_bcast() does, e.g. to retrieve the list of master
1784 * browsers and obtain each master browsers' list of domains (in case the
1785 * first master browser is recently on the network and has not yet
1786 * synchronized with other master browsers and therefore does not yet have the
1787 * entire network browse list)
1788 */
1789
1790 struct cli_state *get_ipc_connect_master_ip(struct ip_service * mb_ip, pstring workgroup, struct user_auth_info *user_info)
1791 {
1792 static fstring name;
1793 struct cli_state *cli;
1794 struct in_addr server_ip;
1795
1796 DEBUG(99, ("Looking up name of master browser %s\n",
1797 inet_ntoa(mb_ip->ip)));
1798
1799 /*
1800 * Do a name status query to find out the name of the master browser.
1801 * We use <01><02>__MSBROWSE__<02>#01 if *#00 fails because a domain
1802 * master browser will not respond to a wildcard query (or, at least,
1803 * an NT4 server acting as the domain master browser will not).
1804 *
1805 * We might be able to use ONLY the query on MSBROWSE, but that's not
1806 * yet been tested with all Windows versions, so until it is, leave
1807 * the original wildcard query as the first choice and fall back to
1808 * MSBROWSE if the wildcard query fails.
1809 */
1810 if (!name_status_find("*", 0, 0x1d, mb_ip->ip, name) &&
1811 !name_status_find(MSBROWSE, 1, 0x1d, mb_ip->ip, name)) {
1812
1813 DEBUG(99, ("Could not retrieve name status for %s\n",
1814 inet_ntoa(mb_ip->ip)));
1815 return NULL;
1816 }
1817
1818 if (!find_master_ip(name, &server_ip)) {
1819 DEBUG(99, ("Could not find master ip for %s\n", name));
1820 return NULL;
1821 }
1822
1823 pstrcpy(workgroup, name);
1824
1825 DEBUG(4, ("found master browser %s, %s\n",
1826 name, inet_ntoa(mb_ip->ip)));
1827
1828 cli = get_ipc_connect(inet_ntoa(server_ip), &server_ip, user_info);
1829
1830 return cli;
1831
1832 }
1833
1834 /*
1835 * Return the IP address and workgroup of a master browser on the network, and
1836 * connect to it.
1837 */
1838
1839 struct cli_state *get_ipc_connect_master_ip_bcast(pstring workgroup, struct user_auth_info *user_info)
1840 {
1841 struct ip_service *ip_list;
1842 struct cli_state *cli;
1843 int i, count;
1844
1845 DEBUG(99, ("Do broadcast lookup for workgroups on local network\n"));
1846
1847 /* Go looking for workgroups by broadcasting on the local network */
1848
1849 if (!name_resolve_bcast(MSBROWSE, 1, &ip_list, &count)) {
1850 DEBUG(99, ("No master browsers responded\n"));
1851 return False;
1852 }
1853
1854 for (i = 0; i < count; i++) {
1855 DEBUG(99, ("Found master browser %s\n", inet_ntoa(ip_list[i].ip)));
1856
1857 cli = get_ipc_connect_master_ip(&ip_list[i], workgroup, user_info);
1858 if (cli)
1859 return(cli);
1860 }
1861
1862 return NULL;
1863 }
Tomato firmware and modifications.