ae2a9adf6497ae0bab8bd13ef7da85694e6e0428
[ira/wip.git] / source3 / utils / sharesec.c
1 /*
2  *  Unix SMB/Netbios implementation.
3  *  Utility for managing share permissions
4  *
5  *  Copyright (C) Tim Potter                    2000
6  *  Copyright (C) Jeremy Allison                2000
7  *  Copyright (C) Jelmer Vernooij               2003
8  *  Copyright (C) Gerald (Jerry) Carter         2005.
9  *
10  *  This program is free software; you can redistribute it and/or modify
11  *  it under the terms of the GNU General Public License as published by
12  *  the Free Software Foundation; either version 3 of the License, or
13  *  (at your option) any later version.
14  *
15  *  This program is distributed in the hope that it will be useful,
16  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
17  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18  *  GNU General Public License for more details.
19  *
20  *  You should have received a copy of the GNU General Public License
21  *  along with this program; if not, see <http://www.gnu.org/licenses/>.
22  */
23
24
25 #include "includes.h"
26
27 static TALLOC_CTX *ctx;
28
29 enum acl_mode { SMB_ACL_DELETE,
30                 SMB_ACL_MODIFY,
31                 SMB_ACL_ADD,
32                 SMB_ACL_SET,
33                 SMB_SD_DELETE,
34                 SMB_ACL_VIEW };
35
36 struct perm_value {
37         const char *perm;
38         uint32 mask;
39 };
40
41 /* These values discovered by inspection */
42
43 static const struct perm_value special_values[] = {
44         { "R", SEC_RIGHTS_FILE_READ },
45         { "W", SEC_RIGHTS_FILE_WRITE },
46         { "X", SEC_RIGHTS_FILE_EXECUTE },
47         { "D", SEC_STD_DELETE },
48         { "P", SEC_STD_WRITE_DAC },
49         { "O", SEC_STD_WRITE_OWNER },
50         { NULL, 0 },
51 };
52
53 #define SEC_RIGHTS_DIR_CHANGE ( SEC_RIGHTS_DIR_READ|SEC_STD_DELETE|\
54                                 SEC_RIGHTS_DIR_WRITE|SEC_DIR_TRAVERSE )
55
56 static const struct perm_value standard_values[] = {
57         { "READ",   SEC_RIGHTS_DIR_READ|SEC_DIR_TRAVERSE },
58         { "CHANGE", SEC_RIGHTS_DIR_CHANGE },
59         { "FULL",   SEC_RIGHTS_DIR_ALL },
60         { NULL, 0 },
61 };
62
63 /********************************************************************
64  print an ACE on a FILE
65 ********************************************************************/
66
67 static void print_ace(FILE *f, SEC_ACE *ace)
68 {
69         const struct perm_value *v;
70         int do_print = 0;
71         uint32 got_mask;
72
73         fprintf(f, "%s:", sid_string_tos(&ace->trustee));
74
75         /* Ace type */
76
77         if (ace->type == SEC_ACE_TYPE_ACCESS_ALLOWED) {
78                 fprintf(f, "ALLOWED");
79         } else if (ace->type == SEC_ACE_TYPE_ACCESS_DENIED) {
80                 fprintf(f, "DENIED");
81         } else {
82                 fprintf(f, "%d", ace->type);
83         }
84
85         /* Not sure what flags can be set in a file ACL */
86
87         fprintf(f, "/%d/", ace->flags);
88
89         /* Standard permissions */
90
91         for (v = standard_values; v->perm; v++) {
92                 if (ace->access_mask == v->mask) {
93                         fprintf(f, "%s", v->perm);
94                         return;
95                 }
96         }
97
98         /* Special permissions.  Print out a hex value if we have
99            leftover bits in the mask. */
100
101         got_mask = ace->access_mask;
102
103  again:
104         for (v = special_values; v->perm; v++) {
105                 if ((ace->access_mask & v->mask) == v->mask) {
106                         if (do_print) {
107                                 fprintf(f, "%s", v->perm);
108                         }
109                         got_mask &= ~v->mask;
110                 }
111         }
112
113         if (!do_print) {
114                 if (got_mask != 0) {
115                         fprintf(f, "0x%08x", ace->access_mask);
116                 } else {
117                         do_print = 1;
118                         goto again;
119                 }
120         }
121 }
122
123 /********************************************************************
124  print an ascii version of a security descriptor on a FILE handle
125 ********************************************************************/
126
127 static void sec_desc_print(FILE *f, SEC_DESC *sd)
128 {
129         uint32 i;
130
131         fprintf(f, "REVISION:%d\n", sd->revision);
132
133         /* Print owner and group sid */
134
135         fprintf(f, "OWNER:%s\n", sid_string_tos(sd->owner_sid));
136
137         fprintf(f, "GROUP:%s\n", sid_string_tos(sd->group_sid));
138
139         /* Print aces */
140         for (i = 0; sd->dacl && i < sd->dacl->num_aces; i++) {
141                 SEC_ACE *ace = &sd->dacl->aces[i];
142                 fprintf(f, "ACL:");
143                 print_ace(f, ace);
144                 fprintf(f, "\n");
145         }
146 }
147
148 /********************************************************************
149  parse an ACE in the same format as print_ace()
150 ********************************************************************/
151
152 static bool parse_ace(SEC_ACE *ace, const char *orig_str)
153 {
154         char *p;
155         const char *cp;
156         char *tok;
157         unsigned int atype = 0;
158         unsigned int aflags = 0;
159         unsigned int amask = 0;
160         DOM_SID sid;
161         uint32_t mask;
162         const struct perm_value *v;
163         char *str = SMB_STRDUP(orig_str);
164         TALLOC_CTX *frame = talloc_stackframe();
165
166         if (!str) {
167                 TALLOC_FREE(frame);
168                 return False;
169         }
170
171         ZERO_STRUCTP(ace);
172         p = strchr_m(str,':');
173         if (!p) {
174                 fprintf(stderr, "ACE '%s': missing ':'.\n", orig_str);
175                 SAFE_FREE(str);
176                 TALLOC_FREE(frame);
177                 return False;
178         }
179         *p = '\0';
180         p++;
181         /* Try to parse numeric form */
182
183         if (sscanf(p, "%i/%i/%i", &atype, &aflags, &amask) == 3 &&
184             string_to_sid(&sid, str)) {
185                 goto done;
186         }
187
188         /* Try to parse text form */
189
190         if (!string_to_sid(&sid, str)) {
191                 fprintf(stderr, "ACE '%s': failed to convert '%s' to SID\n",
192                         orig_str, str);
193                 SAFE_FREE(str);
194                 TALLOC_FREE(frame);
195                 return False;
196         }
197
198         cp = p;
199         if (!next_token_talloc(frame, &cp, &tok, "/")) {
200                 fprintf(stderr, "ACE '%s': failed to find '/' character.\n",
201                         orig_str);
202                 SAFE_FREE(str);
203                 TALLOC_FREE(frame);
204                 return False;
205         }
206
207         if (strncmp(tok, "ALLOWED", strlen("ALLOWED")) == 0) {
208                 atype = SEC_ACE_TYPE_ACCESS_ALLOWED;
209         } else if (strncmp(tok, "DENIED", strlen("DENIED")) == 0) {
210                 atype = SEC_ACE_TYPE_ACCESS_DENIED;
211         } else {
212                 fprintf(stderr, "ACE '%s': missing 'ALLOWED' or 'DENIED' "
213                         "entry at '%s'\n", orig_str, tok);
214                 SAFE_FREE(str);
215                 TALLOC_FREE(frame);
216                 return False;
217         }
218
219         /* Only numeric form accepted for flags at present */
220         /* no flags on share permissions */
221
222         if (!(next_token_talloc(frame, &cp, &tok, "/") &&
223               sscanf(tok, "%i", &aflags) && aflags == 0)) {
224                 fprintf(stderr, "ACE '%s': bad integer flags entry at '%s'\n",
225                         orig_str, tok);
226                 SAFE_FREE(str);
227                 TALLOC_FREE(frame);
228                 return False;
229         }
230
231         if (!next_token_talloc(frame, &cp, &tok, "/")) {
232                 fprintf(stderr, "ACE '%s': missing / at '%s'\n",
233                         orig_str, tok);
234                 SAFE_FREE(str);
235                 TALLOC_FREE(frame);
236                 return False;
237         }
238
239         if (strncmp(tok, "0x", 2) == 0) {
240                 if (sscanf(tok, "%i", &amask) != 1) {
241                         fprintf(stderr, "ACE '%s': bad hex number at '%s'\n",
242                                 orig_str, tok);
243                         TALLOC_FREE(frame);
244                         SAFE_FREE(str);
245                         return False;
246                 }
247                 goto done;
248         }
249
250         for (v = standard_values; v->perm; v++) {
251                 if (strcmp(tok, v->perm) == 0) {
252                         amask = v->mask;
253                         goto done;
254                 }
255         }
256
257         p = tok;
258
259         while(*p) {
260                 bool found = False;
261
262                 for (v = special_values; v->perm; v++) {
263                         if (v->perm[0] == *p) {
264                                 amask |= v->mask;
265                                 found = True;
266                         }
267                 }
268
269                 if (!found) {
270                         fprintf(stderr, "ACE '%s': bad permission value at "
271                                 "'%s'\n", orig_str, p);
272                         TALLOC_FREE(frame);
273                         SAFE_FREE(str);
274                         return False;
275                 }
276                 p++;
277         }
278
279         if (*p) {
280                 TALLOC_FREE(frame);
281                 SAFE_FREE(str);
282                 return False;
283         }
284
285  done:
286         mask = amask;
287         init_sec_ace(ace, &sid, atype, mask, aflags);
288         SAFE_FREE(str);
289         TALLOC_FREE(frame);
290         return True;
291 }
292
293
294 /********************************************************************
295 ********************************************************************/
296
297 static SEC_DESC* parse_acl_string(TALLOC_CTX *mem_ctx, const char *szACL, size_t *sd_size )
298 {
299         SEC_DESC *sd = NULL;
300         SEC_ACE *ace;
301         SEC_ACL *acl;
302         int num_ace;
303         const char *pacl;
304         int i;
305
306         if ( !szACL )
307                 return NULL;
308
309         pacl = szACL;
310         num_ace = count_chars( pacl, ',' ) + 1;
311
312         if ( !(ace = TALLOC_ZERO_ARRAY( mem_ctx, SEC_ACE, num_ace )) )
313                 return NULL;
314
315         for ( i=0; i<num_ace; i++ ) {
316                 char *end_acl = strchr_m( pacl, ',' );
317                 fstring acl_string;
318
319                 strncpy( acl_string, pacl, MIN( PTR_DIFF( end_acl, pacl ), sizeof(fstring)-1) );
320                 acl_string[MIN( PTR_DIFF( end_acl, pacl ), sizeof(fstring)-1)] = '\0';
321
322                 if ( !parse_ace( &ace[i], acl_string ) )
323                         return NULL;
324
325                 pacl = end_acl;
326                 pacl++;
327         }
328
329         if ( !(acl = make_sec_acl( mem_ctx, NT4_ACL_REVISION, num_ace, ace )) )
330                 return NULL;
331
332         sd = make_sec_desc( mem_ctx, SEC_DESC_REVISION, SEC_DESC_SELF_RELATIVE,
333                 NULL, NULL, NULL, acl, sd_size);
334
335         return sd;
336 }
337
338 /* add an ACE to a list of ACEs in a SEC_ACL */
339 static bool add_ace(TALLOC_CTX *mem_ctx, SEC_ACL **the_acl, SEC_ACE *ace)
340 {
341         SEC_ACL *new_ace;
342         SEC_ACE *aces;
343         if (! *the_acl) {
344                 return (((*the_acl) = make_sec_acl(mem_ctx, 3, 1, ace)) != NULL);
345         }
346
347         if (!(aces = SMB_CALLOC_ARRAY(SEC_ACE, 1+(*the_acl)->num_aces))) {
348                 return False;
349         }
350         memcpy(aces, (*the_acl)->aces, (*the_acl)->num_aces * sizeof(SEC_ACE));
351         memcpy(aces+(*the_acl)->num_aces, ace, sizeof(SEC_ACE));
352         new_ace = make_sec_acl(mem_ctx,(*the_acl)->revision,1+(*the_acl)->num_aces, aces);
353         SAFE_FREE(aces);
354         (*the_acl) = new_ace;
355         return True;
356 }
357
358 /* The MSDN is contradictory over the ordering of ACE entries in an ACL.
359    However NT4 gives a "The information may have been modified by a
360    computer running Windows NT 5.0" if denied ACEs do not appear before
361    allowed ACEs. */
362
363 static int ace_compare(SEC_ACE *ace1, SEC_ACE *ace2)
364 {
365         if (sec_ace_equal(ace1, ace2))
366                 return 0;
367
368         if (ace1->type != ace2->type)
369                 return ace2->type - ace1->type;
370
371         if (sid_compare(&ace1->trustee, &ace2->trustee))
372                 return sid_compare(&ace1->trustee, &ace2->trustee);
373
374         if (ace1->flags != ace2->flags)
375                 return ace1->flags - ace2->flags;
376
377         if (ace1->access_mask != ace2->access_mask)
378                 return ace1->access_mask - ace2->access_mask;
379
380         if (ace1->size != ace2->size)
381                 return ace1->size - ace2->size;
382
383         return memcmp(ace1, ace2, sizeof(SEC_ACE));
384 }
385
386 static void sort_acl(SEC_ACL *the_acl)
387 {
388         uint32 i;
389         if (!the_acl) return;
390
391         qsort(the_acl->aces, the_acl->num_aces, sizeof(the_acl->aces[0]), QSORT_CAST ace_compare);
392
393         for (i=1;i<the_acl->num_aces;) {
394                 if (sec_ace_equal(&the_acl->aces[i-1], &the_acl->aces[i])) {
395                         int j;
396                         for (j=i; j<the_acl->num_aces-1; j++) {
397                                 the_acl->aces[j] = the_acl->aces[j+1];
398                         }
399                         the_acl->num_aces--;
400                 } else {
401                         i++;
402                 }
403         }
404 }
405
406
407 static int change_share_sec(TALLOC_CTX *mem_ctx, const char *sharename, char *the_acl, enum acl_mode mode)
408 {
409         SEC_DESC *sd = NULL;
410         SEC_DESC *old = NULL;
411         size_t sd_size = 0;
412         uint32 i, j;
413
414         if (mode != SMB_ACL_SET && mode != SMB_SD_DELETE) {
415             if (!(old = get_share_security( mem_ctx, sharename, &sd_size )) ) {
416                 fprintf(stderr, "Unable to retrieve permissions for share "
417                         "[%s]\n", sharename);
418                 return -1;
419             }
420         }
421
422         if ( (mode != SMB_ACL_VIEW && mode != SMB_SD_DELETE) &&
423             !(sd = parse_acl_string(mem_ctx, the_acl, &sd_size )) ) {
424                 fprintf( stderr, "Failed to parse acl\n");
425                 return -1;
426         }
427
428         switch (mode) {
429         case SMB_ACL_VIEW:
430                 sec_desc_print( stdout, old);
431                 return 0;
432         case SMB_ACL_DELETE:
433             for (i=0;sd->dacl && i<sd->dacl->num_aces;i++) {
434                 bool found = False;
435
436                 for (j=0;old->dacl && j<old->dacl->num_aces;j++) {
437                     if (sec_ace_equal(&sd->dacl->aces[i], &old->dacl->aces[j])) {
438                         uint32 k;
439                         for (k=j; k<old->dacl->num_aces-1;k++) {
440                             old->dacl->aces[k] = old->dacl->aces[k+1];
441                         }
442                         old->dacl->num_aces--;
443                         found = True;
444                         break;
445                     }
446                 }
447
448                 if (!found) {
449                 printf("ACL for ACE:");
450                 print_ace(stdout, &sd->dacl->aces[i]);
451                 printf(" not found\n");
452                 }
453             }
454             break;
455         case SMB_ACL_MODIFY:
456             for (i=0;sd->dacl && i<sd->dacl->num_aces;i++) {
457                 bool found = False;
458
459                 for (j=0;old->dacl && j<old->dacl->num_aces;j++) {
460                     if (sid_equal(&sd->dacl->aces[i].trustee,
461                         &old->dacl->aces[j].trustee)) {
462                         old->dacl->aces[j] = sd->dacl->aces[i];
463                         found = True;
464                     }
465                 }
466
467                 if (!found) {
468                     printf("ACL for SID %s not found\n",
469                            sid_string_tos(&sd->dacl->aces[i].trustee));
470                 }
471             }
472
473             if (sd->owner_sid) {
474                 old->owner_sid = sd->owner_sid;
475             }
476
477             if (sd->group_sid) {
478                 old->group_sid = sd->group_sid;
479             }
480             break;
481         case SMB_ACL_ADD:
482             for (i=0;sd->dacl && i<sd->dacl->num_aces;i++) {
483                 add_ace(mem_ctx, &old->dacl, &sd->dacl->aces[i]);
484             }
485             break;
486         case SMB_ACL_SET:
487             old = sd;
488             break;
489         case SMB_SD_DELETE:
490             if (!delete_share_security(sharename)) {
491                 fprintf( stderr, "Failed to delete security descriptor for "
492                          "share [%s]\n", sharename );
493                 return -1;
494             }
495             return 0;
496         }
497
498         /* Denied ACE entries must come before allowed ones */
499         sort_acl(old->dacl);
500
501         if ( !set_share_security( sharename, old ) ) {
502             fprintf( stderr, "Failed to store acl for share [%s]\n", sharename );
503             return 2;
504         }
505         return 0;
506 }
507
508 /********************************************************************
509   main program
510 ********************************************************************/
511
512 int main(int argc, const char *argv[])
513 {
514         int opt;
515         int retval = 0;
516         enum acl_mode mode = SMB_ACL_SET;
517         static char *the_acl = NULL;
518         fstring sharename;
519         bool force_acl = False;
520         int snum;
521         poptContext pc;
522         bool initialize_sid = False;
523         struct poptOption long_options[] = {
524                 POPT_AUTOHELP
525                 { "remove", 'r', POPT_ARG_STRING, &the_acl, 'r', "Remove ACEs", "ACL" },
526                 { "modify", 'm', POPT_ARG_STRING, &the_acl, 'm', "Modify existing ACEs", "ACL" },
527                 { "add", 'a', POPT_ARG_STRING, &the_acl, 'a', "Add ACEs", "ACL" },
528                 { "replace", 'R', POPT_ARG_STRING, &the_acl, 'R', "Overwrite share permission ACL", "ACLS" },
529                 { "delete", 'D', POPT_ARG_NONE, NULL, 'D', "Delete the entire security descriptor" },
530                 { "view", 'v', POPT_ARG_NONE, NULL, 'v', "View current share permissions" },
531                 { "machine-sid", 'M', POPT_ARG_NONE, NULL, 'M', "Initialize the machine SID" },
532                 { "force", 'F', POPT_ARG_NONE, NULL, 'F', "Force storing the ACL", "ACLS" },
533                 POPT_COMMON_SAMBA
534                 { NULL }
535         };
536
537         if ( !(ctx = talloc_stackframe()) ) {
538                 fprintf( stderr, "Failed to initialize talloc context!\n");
539                 return -1;
540         }
541
542         /* set default debug level to 1 regardless of what smb.conf sets */
543         setup_logging( "sharesec", True );
544         DEBUGLEVEL_CLASS[DBGC_ALL] = 1;
545         dbf = x_stderr;
546         x_setbuf( x_stderr, NULL );
547
548         pc = poptGetContext("sharesec", argc, argv, long_options, 0);
549
550         poptSetOtherOptionHelp(pc, "sharename\n");
551
552         while ((opt = poptGetNextOpt(pc)) != -1) {
553                 switch (opt) {
554                 case 'r':
555                         the_acl = smb_xstrdup(poptGetOptArg(pc));
556                         mode = SMB_ACL_DELETE;
557                         break;
558
559                 case 'm':
560                         the_acl = smb_xstrdup(poptGetOptArg(pc));
561                         mode = SMB_ACL_MODIFY;
562                         break;
563
564                 case 'a':
565                         the_acl = smb_xstrdup(poptGetOptArg(pc));
566                         mode = SMB_ACL_ADD;
567                         break;
568
569                 case 'R':
570                         the_acl = smb_xstrdup(poptGetOptArg(pc));
571                         mode = SMB_ACL_SET;
572                         break;
573
574                 case 'D':
575                         mode = SMB_SD_DELETE;
576                         break;
577
578                 case 'v':
579                         mode = SMB_ACL_VIEW;
580                         break;
581
582                 case 'F':
583                         force_acl = True;
584                         break;
585
586                 case 'M':
587                         initialize_sid = True;
588                         break;
589                 }
590         }
591
592         setlinebuf(stdout);
593
594         load_case_tables();
595
596         lp_load( get_dyn_CONFIGFILE(), False, False, False, True );
597
598         /* check for initializing secrets.tdb first */
599
600         if ( initialize_sid ) {
601                 DOM_SID *sid = get_global_sam_sid();
602
603                 if ( !sid ) {
604                         fprintf( stderr, "Failed to retrieve Machine SID!\n");
605                         return 3;
606                 }
607
608                 printf ("%s\n", sid_string_tos( sid ) );
609                 return 0;
610         }
611
612         if ( mode == SMB_ACL_VIEW && force_acl ) {
613                 fprintf( stderr, "Invalid combination of -F and -v\n");
614                 return -1;
615         }
616
617         /* get the sharename */
618
619         if(!poptPeekArg(pc)) {
620                 poptPrintUsage(pc, stderr, 0);
621                 return -1;
622         }
623
624         fstrcpy(sharename, poptGetArg(pc));
625
626         snum = lp_servicenumber( sharename );
627
628         if ( snum == -1 && !force_acl ) {
629                 fprintf( stderr, "Invalid sharename: %s\n", sharename);
630                 return -1;
631         }
632
633         retval = change_share_sec(ctx, sharename, the_acl, mode);
634
635         talloc_destroy(ctx);
636
637         return retval;
638 }