Decouple clistr_pull from struct cli_state->inbuf
[metze/samba/wip.git] / source3 / libsmb / clifsinfo.c
1 /* 
2    Unix SMB/CIFS implementation.
3    FS info functions
4    Copyright (C) Stefan (metze) Metzmacher      2003
5    Copyright (C) Jeremy Allison 2007
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 3 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, see <http://www.gnu.org/licenses/>.
19 */
20
21 #include "includes.h"
22
23 /****************************************************************************
24  Get UNIX extensions version info.
25 ****************************************************************************/
26
27 bool cli_unix_extensions_version(struct cli_state *cli, uint16 *pmajor, uint16 *pminor,
28                                         uint32 *pcaplow, uint32 *pcaphigh)
29 {
30         bool ret = False;
31         uint16 setup;
32         char param[2];
33         char *rparam=NULL, *rdata=NULL;
34         unsigned int rparam_count=0, rdata_count=0;
35
36         setup = TRANSACT2_QFSINFO;
37
38         SSVAL(param,0,SMB_QUERY_CIFS_UNIX_INFO);
39
40         if (!cli_send_trans(cli, SMBtrans2,
41                     NULL,
42                     0, 0,
43                     &setup, 1, 0,
44                     param, 2, 0,
45                     NULL, 0, 560)) {
46                 goto cleanup;
47         }
48
49         if (!cli_receive_trans(cli, SMBtrans2,
50                               &rparam, &rparam_count,
51                               &rdata, &rdata_count)) {
52                 goto cleanup;
53         }
54
55         if (cli_is_error(cli)) {
56                 ret = False;
57                 goto cleanup;
58         } else {
59                 ret = True;
60         }
61
62         if (rdata_count < 12) {
63                 goto cleanup;
64         }
65
66         *pmajor = SVAL(rdata,0);
67         *pminor = SVAL(rdata,2);
68         cli->posix_capabilities = *pcaplow = IVAL(rdata,4);
69         *pcaphigh = IVAL(rdata,8);
70
71         /* todo: but not yet needed
72          *       return the other stuff
73          */
74
75 cleanup:
76         SAFE_FREE(rparam);
77         SAFE_FREE(rdata);
78
79         return ret;
80 }
81
82 /****************************************************************************
83  Set UNIX extensions capabilities.
84 ****************************************************************************/
85
86 bool cli_set_unix_extensions_capabilities(struct cli_state *cli, uint16 major, uint16 minor,
87                                         uint32 caplow, uint32 caphigh)
88 {
89         bool ret = False;
90         uint16 setup;
91         char param[4];
92         char data[12];
93         char *rparam=NULL, *rdata=NULL;
94         unsigned int rparam_count=0, rdata_count=0;
95
96         setup = TRANSACT2_SETFSINFO;
97
98         SSVAL(param,0,0);
99         SSVAL(param,2,SMB_SET_CIFS_UNIX_INFO);
100
101         SSVAL(data,0,major);
102         SSVAL(data,2,minor);
103         SIVAL(data,4,caplow);
104         SIVAL(data,8,caphigh);
105
106         if (!cli_send_trans(cli, SMBtrans2,
107                     NULL,
108                     0, 0,
109                     &setup, 1, 0,
110                     param, 4, 0,
111                     data, 12, 560)) {
112                 goto cleanup;
113         }
114
115         if (!cli_receive_trans(cli, SMBtrans2,
116                               &rparam, &rparam_count,
117                               &rdata, &rdata_count)) {
118                 goto cleanup;
119         }
120
121         if (cli_is_error(cli)) {
122                 ret = False;
123                 goto cleanup;
124         } else {
125                 ret = True;
126         }
127
128 cleanup:
129         SAFE_FREE(rparam);
130         SAFE_FREE(rdata);
131
132         return ret;
133 }
134
135 bool cli_get_fs_attr_info(struct cli_state *cli, uint32 *fs_attr)
136 {
137         bool ret = False;
138         uint16 setup;
139         char param[2];
140         char *rparam=NULL, *rdata=NULL;
141         unsigned int rparam_count=0, rdata_count=0;
142
143         if (!cli||!fs_attr)
144                 smb_panic("cli_get_fs_attr_info() called with NULL Pionter!");
145
146         setup = TRANSACT2_QFSINFO;
147
148         SSVAL(param,0,SMB_QUERY_FS_ATTRIBUTE_INFO);
149
150         if (!cli_send_trans(cli, SMBtrans2,
151                     NULL,
152                     0, 0,
153                     &setup, 1, 0,
154                     param, 2, 0,
155                     NULL, 0, 560)) {
156                 goto cleanup;
157         }
158
159         if (!cli_receive_trans(cli, SMBtrans2,
160                               &rparam, &rparam_count,
161                               &rdata, &rdata_count)) {
162                 goto cleanup;
163         }
164
165         if (cli_is_error(cli)) {
166                 ret = False;
167                 goto cleanup;
168         } else {
169                 ret = True;
170         }
171
172         if (rdata_count < 12) {
173                 goto cleanup;
174         }
175
176         *fs_attr = IVAL(rdata,0);
177
178         /* todo: but not yet needed
179          *       return the other stuff
180          */
181
182 cleanup:
183         SAFE_FREE(rparam);
184         SAFE_FREE(rdata);
185
186         return ret;
187 }
188
189 bool cli_get_fs_volume_info_old(struct cli_state *cli, fstring volume_name, uint32 *pserial_number)
190 {
191         bool ret = False;
192         uint16 setup;
193         char param[2];
194         char *rparam=NULL, *rdata=NULL;
195         unsigned int rparam_count=0, rdata_count=0;
196         unsigned char nlen;
197
198         setup = TRANSACT2_QFSINFO;
199
200         SSVAL(param,0,SMB_INFO_VOLUME);
201
202         if (!cli_send_trans(cli, SMBtrans2,
203                     NULL,
204                     0, 0,
205                     &setup, 1, 0,
206                     param, 2, 0,
207                     NULL, 0, 560)) {
208                 goto cleanup;
209         }
210
211         if (!cli_receive_trans(cli, SMBtrans2,
212                               &rparam, &rparam_count,
213                               &rdata, &rdata_count)) {
214                 goto cleanup;
215         }
216
217         if (cli_is_error(cli)) {
218                 ret = False;
219                 goto cleanup;
220         } else {
221                 ret = True;
222         }
223
224         if (rdata_count < 5) {
225                 goto cleanup;
226         }
227
228         if (pserial_number) {
229                 *pserial_number = IVAL(rdata,0);
230         }
231         nlen = CVAL(rdata,l2_vol_cch);
232         clistr_pull(cli->inbuf, volume_name, rdata + l2_vol_szVolLabel,
233                     sizeof(fstring), nlen, STR_NOALIGN);
234
235         /* todo: but not yet needed
236          *       return the other stuff
237          */
238
239 cleanup:
240         SAFE_FREE(rparam);
241         SAFE_FREE(rdata);
242
243         return ret;
244 }
245
246 bool cli_get_fs_volume_info(struct cli_state *cli, fstring volume_name, uint32 *pserial_number, time_t *pdate)
247 {
248         bool ret = False;
249         uint16 setup;
250         char param[2];
251         char *rparam=NULL, *rdata=NULL;
252         unsigned int rparam_count=0, rdata_count=0;
253         unsigned int nlen;
254
255         setup = TRANSACT2_QFSINFO;
256
257         SSVAL(param,0,SMB_QUERY_FS_VOLUME_INFO);
258
259         if (!cli_send_trans(cli, SMBtrans2,
260                     NULL,
261                     0, 0,
262                     &setup, 1, 0,
263                     param, 2, 0,
264                     NULL, 0, 560)) {
265                 goto cleanup;
266         }
267
268         if (!cli_receive_trans(cli, SMBtrans2,
269                               &rparam, &rparam_count,
270                               &rdata, &rdata_count)) {
271                 goto cleanup;
272         }
273
274         if (cli_is_error(cli)) {
275                 ret = False;
276                 goto cleanup;
277         } else {
278                 ret = True;
279         }
280
281         if (rdata_count < 19) {
282                 goto cleanup;
283         }
284
285         if (pdate) {
286                 struct timespec ts;
287                 ts = interpret_long_date(rdata);
288                 *pdate = ts.tv_sec;
289         }
290         if (pserial_number) {
291                 *pserial_number = IVAL(rdata,8);
292         }
293         nlen = IVAL(rdata,12);
294         clistr_pull(cli->inbuf, volume_name, rdata + 18, sizeof(fstring),
295                     nlen, STR_UNICODE);
296
297         /* todo: but not yet needed
298          *       return the other stuff
299          */
300
301 cleanup:
302         SAFE_FREE(rparam);
303         SAFE_FREE(rdata);
304
305         return ret;
306 }
307
308 /******************************************************************************
309  Send/receive the request encryption blob.
310 ******************************************************************************/
311
312 static NTSTATUS enc_blob_send_receive(struct cli_state *cli, DATA_BLOB *in, DATA_BLOB *out, DATA_BLOB *param_out)
313 {
314         uint16 setup;
315         char param[4];
316         char *rparam=NULL, *rdata=NULL;
317         unsigned int rparam_count=0, rdata_count=0;
318         NTSTATUS status = NT_STATUS_OK;
319
320         setup = TRANSACT2_SETFSINFO;
321
322         SSVAL(param,0,0);
323         SSVAL(param,2,SMB_REQUEST_TRANSPORT_ENCRYPTION);
324
325         if (!cli_send_trans(cli, SMBtrans2,
326                                 NULL,
327                                 0, 0,
328                                 &setup, 1, 0,
329                                 param, 4, 0,
330                                 (char *)in->data, in->length, CLI_BUFFER_SIZE)) {
331                 status = cli_nt_error(cli);
332                 goto out;
333         }
334
335         if (!cli_receive_trans(cli, SMBtrans2,
336                                 &rparam, &rparam_count,
337                                 &rdata, &rdata_count)) {
338                 status = cli_nt_error(cli);
339                 goto out;
340         }
341
342         if (cli_is_error(cli)) {
343                 status = cli_nt_error(cli);
344                 if (!NT_STATUS_EQUAL(status, NT_STATUS_MORE_PROCESSING_REQUIRED)) {
345                         goto out;
346                 }
347         }
348
349         *out = data_blob(rdata, rdata_count);
350         *param_out = data_blob(rparam, rparam_count);
351
352   out:
353
354         SAFE_FREE(rparam);
355         SAFE_FREE(rdata);
356         return status;
357 }
358
359 /******************************************************************************
360  Make a client state struct.
361 ******************************************************************************/
362
363 static struct smb_trans_enc_state *make_cli_enc_state(enum smb_trans_enc_type smb_enc_type)
364 {
365         struct smb_trans_enc_state *es = NULL;
366         es = SMB_MALLOC_P(struct smb_trans_enc_state);
367         if (!es) {
368                 return NULL;
369         }
370         ZERO_STRUCTP(es);
371         es->smb_enc_type = smb_enc_type;
372
373 #if defined(HAVE_GSSAPI) && defined(HAVE_KRB5)
374         if (smb_enc_type == SMB_TRANS_ENC_GSS) {
375                 es->s.gss_state = SMB_MALLOC_P(struct smb_tran_enc_state_gss);
376                 if (!es->s.gss_state) {
377                         SAFE_FREE(es);
378                         return NULL;
379                 }
380                 ZERO_STRUCTP(es->s.gss_state);
381         }
382 #endif
383         return es;
384 }
385
386 /******************************************************************************
387  Start a raw ntlmssp encryption.
388 ******************************************************************************/
389
390 NTSTATUS cli_raw_ntlm_smb_encryption_start(struct cli_state *cli, 
391                                 const char *user,
392                                 const char *pass,
393                                 const char *domain)
394 {
395         DATA_BLOB blob_in = data_blob_null;
396         DATA_BLOB blob_out = data_blob_null;
397         DATA_BLOB param_out = data_blob_null;
398         NTSTATUS status = NT_STATUS_UNSUCCESSFUL;
399         struct smb_trans_enc_state *es = make_cli_enc_state(SMB_TRANS_ENC_NTLM);
400
401         if (!es) {
402                 return NT_STATUS_NO_MEMORY;
403         }
404         status = ntlmssp_client_start(&es->s.ntlmssp_state);
405         if (!NT_STATUS_IS_OK(status)) {
406                 goto fail;
407         }
408
409         ntlmssp_want_feature(es->s.ntlmssp_state, NTLMSSP_FEATURE_SESSION_KEY);
410         es->s.ntlmssp_state->neg_flags |= (NTLMSSP_NEGOTIATE_SIGN|NTLMSSP_NEGOTIATE_SEAL);
411
412         if (!NT_STATUS_IS_OK(status = ntlmssp_set_username(es->s.ntlmssp_state, user))) {
413                 goto fail;
414         }
415         if (!NT_STATUS_IS_OK(status = ntlmssp_set_domain(es->s.ntlmssp_state, domain))) {
416                 goto fail;
417         }
418         if (!NT_STATUS_IS_OK(status = ntlmssp_set_password(es->s.ntlmssp_state, pass))) {
419                 goto fail;
420         }
421
422         do {
423                 status = ntlmssp_update(es->s.ntlmssp_state, blob_in, &blob_out);
424                 data_blob_free(&blob_in);
425                 data_blob_free(&param_out);
426                 if (NT_STATUS_EQUAL(status, NT_STATUS_MORE_PROCESSING_REQUIRED) || NT_STATUS_IS_OK(status)) {
427                         NTSTATUS trans_status = enc_blob_send_receive(cli,
428                                                                         &blob_out,
429                                                                         &blob_in,
430                                                                         &param_out);
431                         if (!NT_STATUS_EQUAL(trans_status,
432                                         NT_STATUS_MORE_PROCESSING_REQUIRED) &&
433                                         !NT_STATUS_IS_OK(trans_status)) {
434                                 status = trans_status;
435                         } else {
436                                 if (param_out.length == 2) {
437                                         es->enc_ctx_num = SVAL(param_out.data, 0);
438                                 }
439                         }
440                 }
441                 data_blob_free(&blob_out);
442         } while (NT_STATUS_EQUAL(status, NT_STATUS_MORE_PROCESSING_REQUIRED));
443
444         data_blob_free(&blob_in);
445
446         if (NT_STATUS_IS_OK(status)) {
447                 /* Replace the old state, if any. */
448                 if (cli->trans_enc_state) {
449                         common_free_encryption_state(&cli->trans_enc_state);
450                 }
451                 cli->trans_enc_state = es;
452                 cli->trans_enc_state->enc_on = True;
453                 es = NULL;
454         }
455
456   fail:
457
458         common_free_encryption_state(&es);
459         return status;
460 }
461
462 #if defined(HAVE_GSSAPI) && defined(HAVE_KRB5)
463
464 #ifndef SMB_GSS_REQUIRED_FLAGS
465 #define SMB_GSS_REQUIRED_FLAGS (GSS_C_CONF_FLAG|GSS_C_INTEG_FLAG|GSS_C_MUTUAL_FLAG|GSS_C_REPLAY_FLAG|GSS_C_SEQUENCE_FLAG)
466 #endif
467
468 /******************************************************************************
469  Get client gss blob to send to a server.
470 ******************************************************************************/
471
472 static NTSTATUS make_cli_gss_blob(struct smb_trans_enc_state *es,
473                                 const char *service,
474                                 const char *host,
475                                 NTSTATUS status_in,
476                                 DATA_BLOB spnego_blob_in,
477                                 DATA_BLOB *p_blob_out)
478 {
479         const char *krb_mechs[] = {OID_KERBEROS5, NULL};
480         OM_uint32 ret;
481         OM_uint32 min;
482         gss_name_t srv_name;
483         gss_buffer_desc input_name;
484         gss_buffer_desc *p_tok_in;
485         gss_buffer_desc tok_out, tok_in;
486         DATA_BLOB blob_out = data_blob_null;
487         DATA_BLOB blob_in = data_blob_null;
488         char *host_princ_s = NULL;
489         OM_uint32 ret_flags = 0;
490         NTSTATUS status = NT_STATUS_OK;
491
492         gss_OID_desc nt_hostbased_service =
493         {10, CONST_DISCARD(char *,"\x2a\x86\x48\x86\xf7\x12\x01\x02\x01\x04")};
494
495         memset(&tok_out, '\0', sizeof(tok_out));
496
497         /* Get a ticket for the service@host */
498         if (asprintf(&host_princ_s, "%s@%s", service, host) == -1) {
499                 return NT_STATUS_NO_MEMORY;
500         }
501
502         input_name.value = host_princ_s;
503         input_name.length = strlen(host_princ_s) + 1;
504
505         ret = gss_import_name(&min,
506                                 &input_name,
507                                 &nt_hostbased_service,
508                                 &srv_name);
509
510         if (ret != GSS_S_COMPLETE) {
511                 SAFE_FREE(host_princ_s);
512                 return map_nt_error_from_gss(ret, min);
513         }
514
515         if (spnego_blob_in.length == 0) {
516                 p_tok_in = GSS_C_NO_BUFFER;
517         } else {
518                 /* Remove the SPNEGO wrapper */
519                 if (!spnego_parse_auth_response(spnego_blob_in, status_in, OID_KERBEROS5, &blob_in)) {
520                         status = NT_STATUS_UNSUCCESSFUL;
521                         goto fail;
522                 }
523                 tok_in.value = blob_in.data;
524                 tok_in.length = blob_in.length;
525                 p_tok_in = &tok_in;
526         }
527
528         ret = gss_init_sec_context(&min,
529                                 GSS_C_NO_CREDENTIAL, /* Use our default cred. */
530                                 &es->s.gss_state->gss_ctx,
531                                 srv_name,
532                                 GSS_C_NO_OID, /* default OID. */
533                                 GSS_C_MUTUAL_FLAG | GSS_C_REPLAY_FLAG | GSS_C_SEQUENCE_FLAG | GSS_C_DELEG_FLAG,
534                                 GSS_C_INDEFINITE,       /* requested ticket lifetime. */
535                                 NULL,   /* no channel bindings */
536                                 p_tok_in,
537                                 NULL,   /* ignore mech type */
538                                 &tok_out,
539                                 &ret_flags,
540                                 NULL);  /* ignore time_rec */
541
542         status = map_nt_error_from_gss(ret, min);
543         if (!NT_STATUS_IS_OK(status) && !NT_STATUS_EQUAL(status,NT_STATUS_MORE_PROCESSING_REQUIRED)) {
544                 ADS_STATUS adss = ADS_ERROR_GSS(ret, min);
545                 DEBUG(10,("make_cli_gss_blob: gss_init_sec_context failed with %s\n",
546                         ads_errstr(adss)));
547                 goto fail;
548         }
549
550         if ((ret_flags & SMB_GSS_REQUIRED_FLAGS) != SMB_GSS_REQUIRED_FLAGS) {
551                 status = NT_STATUS_ACCESS_DENIED;
552         }
553
554         blob_out = data_blob(tok_out.value, tok_out.length);
555
556         /* Wrap in an SPNEGO wrapper */
557         *p_blob_out = gen_negTokenTarg(krb_mechs, blob_out);
558
559   fail:
560
561         data_blob_free(&blob_out);
562         data_blob_free(&blob_in);
563         SAFE_FREE(host_princ_s);
564         gss_release_name(&min, &srv_name);
565         if (tok_out.value) {
566                 gss_release_buffer(&min, &tok_out);
567         }
568         return status;
569 }
570
571 /******************************************************************************
572  Start a SPNEGO gssapi encryption context.
573 ******************************************************************************/
574
575 NTSTATUS cli_gss_smb_encryption_start(struct cli_state *cli)
576 {
577         DATA_BLOB blob_recv = data_blob_null;
578         DATA_BLOB blob_send = data_blob_null;
579         DATA_BLOB param_out = data_blob_null;
580         NTSTATUS status = NT_STATUS_UNSUCCESSFUL;
581         fstring fqdn;
582         const char *servicename;
583         struct smb_trans_enc_state *es = make_cli_enc_state(SMB_TRANS_ENC_GSS);
584
585         if (!es) {
586                 return NT_STATUS_NO_MEMORY;
587         }
588
589         name_to_fqdn(fqdn, cli->desthost);
590         strlower_m(fqdn);
591
592         servicename = "cifs";
593         status = make_cli_gss_blob(es, servicename, fqdn, NT_STATUS_OK, blob_recv, &blob_send);
594         if (!NT_STATUS_EQUAL(status,NT_STATUS_MORE_PROCESSING_REQUIRED)) {
595                 servicename = "host";
596                 status = make_cli_gss_blob(es, servicename, fqdn, NT_STATUS_OK, blob_recv, &blob_send);
597                 if (!NT_STATUS_EQUAL(status,NT_STATUS_MORE_PROCESSING_REQUIRED)) {
598                         goto fail;
599                 }
600         }
601
602         do {
603                 data_blob_free(&blob_recv);
604                 status = enc_blob_send_receive(cli, &blob_send, &blob_recv, &param_out);
605                 if (param_out.length == 2) {
606                         es->enc_ctx_num = SVAL(param_out.data, 0);
607                 }
608                 data_blob_free(&blob_send);
609                 status = make_cli_gss_blob(es, servicename, fqdn, status, blob_recv, &blob_send);
610         } while (NT_STATUS_EQUAL(status, NT_STATUS_MORE_PROCESSING_REQUIRED));
611         data_blob_free(&blob_recv);
612
613         if (NT_STATUS_IS_OK(status)) {
614                 /* Replace the old state, if any. */
615                 if (cli->trans_enc_state) {
616                         common_free_encryption_state(&cli->trans_enc_state);
617                 }
618                 cli->trans_enc_state = es;
619                 cli->trans_enc_state->enc_on = True;
620                 es = NULL;
621         }
622
623   fail:
624
625         common_free_encryption_state(&es);
626         return status;
627 }
628 #else
629 NTSTATUS cli_gss_smb_encryption_start(struct cli_state *cli)
630 {
631         return NT_STATUS_NOT_SUPPORTED;
632 }
633 #endif
634
635 /********************************************************************
636  Ensure a connection is encrypted.
637 ********************************************************************/
638
639 NTSTATUS cli_force_encryption(struct cli_state *c,
640                         const char *username,
641                         const char *password,
642                         const char *domain)
643 {
644         uint16 major, minor;
645         uint32 caplow, caphigh;
646
647         if (!SERVER_HAS_UNIX_CIFS(c)) {
648                 return NT_STATUS_NOT_SUPPORTED;
649         }
650
651         if (!cli_unix_extensions_version(c, &major, &minor, &caplow, &caphigh)) {
652                 return NT_STATUS_UNKNOWN_REVISION;
653         }
654
655         if (!(caplow & CIFS_UNIX_TRANSPORT_ENCRYPTION_CAP)) {
656                 return NT_STATUS_UNSUPPORTED_COMPRESSION;
657         }
658
659         if (c->use_kerberos) {
660                 return cli_gss_smb_encryption_start(c);
661         }
662         return cli_raw_ntlm_smb_encryption_start(c,
663                                         username,
664                                         password,
665                                         domain);
666 }