b2e145e819cb0ff71f7f4fb72e1ccd9e2a9033d2
[nivanova/samba-autobuild/.git] / source3 / lib / privileges.c
1 /*
2    Unix SMB/CIFS implementation.
3    Privileges handling functions
4    Copyright (C) Jean Fran├žois Micouleau       1998-2001
5    Copyright (C) Simo Sorce                     2002-2003
6    Copyright (C) Gerald (Jerry) Carter          2005
7    Copyright (C) Michael Adam                   2007
8    
9    This program is free software; you can redistribute it and/or modify
10    it under the terms of the GNU General Public License as published by
11    the Free Software Foundation; either version 3 of the License, or
12    (at your option) any later version.
13    
14    This program is distributed in the hope that it will be useful,
15    but WITHOUT ANY WARRANTY; without even the implied warranty of
16    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
17    GNU General Public License for more details.
18    
19    You should have received a copy of the GNU General Public License
20    along with this program.  If not, see <http://www.gnu.org/licenses/>.
21 */
22
23  
24 #include "includes.h"
25
26 #define PRIVPREFIX              "PRIV_"
27
28 typedef struct {
29         size_t count;
30         DOM_SID *list;
31 } SID_LIST;
32
33 typedef struct {
34         TALLOC_CTX *mem_ctx;
35         SE_PRIV privilege;
36         SID_LIST sids;
37 } PRIV_SID_LIST;
38
39
40 static BOOL get_privileges( const DOM_SID *sid, SE_PRIV *mask )
41 {
42         TDB_CONTEXT *tdb = get_account_pol_tdb();
43         fstring keystr;
44         TDB_DATA data;
45
46         /* Fail if the admin has not enable privileges */
47         
48         if ( !lp_enable_privileges() ) {
49                 return False;
50         }
51         
52         if ( !tdb )
53                 return False;
54
55         /* PRIV_<SID> (NULL terminated) as the key */
56         
57         fstr_sprintf( keystr, "%s%s", PRIVPREFIX, sid_string_static(sid) );
58
59         data = tdb_fetch_bystring( tdb, keystr );
60         
61         if ( !data.dptr ) {
62                 DEBUG(3,("get_privileges: No privileges assigned to SID [%s]\n",
63                         sid_string_static(sid)));
64                 return False;
65         }
66         
67         SMB_ASSERT( data.dsize == sizeof( SE_PRIV ) );
68         
69         se_priv_copy( mask, (SE_PRIV*)data.dptr );
70         SAFE_FREE(data.dptr);
71
72         return True;
73 }
74
75 /***************************************************************************
76  Store the privilege mask (set) for a given SID
77 ****************************************************************************/
78
79 static BOOL set_privileges( const DOM_SID *sid, SE_PRIV *mask )
80 {
81         TDB_CONTEXT *tdb = get_account_pol_tdb();
82         fstring keystr;
83         TDB_DATA data;
84         
85         if ( !lp_enable_privileges() )
86                 return False;
87
88         if ( !tdb )
89                 return False;
90
91         if ( !sid || (sid->num_auths == 0) ) {
92                 DEBUG(0,("set_privileges: Refusing to store empty SID!\n"));
93                 return False;
94         }
95
96         /* PRIV_<SID> (NULL terminated) as the key */
97         
98         fstr_sprintf( keystr, "%s%s", PRIVPREFIX, sid_string_static(sid) );
99         
100         /* no packing.  static size structure, just write it out */
101         
102         data.dptr  = (uint8 *)mask;
103         data.dsize = sizeof(SE_PRIV);
104
105         return ( tdb_store_bystring(tdb, keystr, data, TDB_REPLACE) != -1 );
106 }
107
108 /*********************************************************************
109  get a list of all privileges for all sids in the list
110 *********************************************************************/
111
112 BOOL get_privileges_for_sids(SE_PRIV *privileges, DOM_SID *slist, int scount)
113 {
114         SE_PRIV mask;
115         int i;
116         BOOL found = False;
117
118         se_priv_copy( privileges, &se_priv_none );
119         
120         for ( i=0; i<scount; i++ ) {
121                 /* don't add unless we actually have a privilege assigned */
122
123                 if ( !get_privileges( &slist[i], &mask ) )
124                         continue;
125
126                 DEBUG(5,("get_privileges_for_sids: sid = %s\nPrivilege set:\n", 
127                         sid_string_static(&slist[i])));
128                 dump_se_priv( DBGC_ALL, 5, &mask );
129                         
130                 se_priv_add( privileges, &mask );
131                 found = True;
132         }
133
134         return found;
135 }
136
137
138 /*********************************************************************
139  travseral functions for privilege_enumerate_accounts
140 *********************************************************************/
141
142 static int priv_traverse_fn(TDB_CONTEXT *t, TDB_DATA key, TDB_DATA data, void *state)
143 {
144         PRIV_SID_LIST *priv = (PRIV_SID_LIST *)state;
145         int  prefixlen = strlen(PRIVPREFIX);
146         DOM_SID sid;
147         fstring sid_string;
148         
149         /* easy check first */
150         
151         if ( data.dsize != sizeof(SE_PRIV) )
152                 return 0;
153
154         /* check we have a PRIV_+SID entry */
155
156         if ( strncmp((const char *)key.dptr, PRIVPREFIX, prefixlen) != 0)
157                 return 0;
158                 
159         /* check to see if we are looking for a particular privilege */
160
161         if ( !se_priv_equal(&priv->privilege, &se_priv_none) ) {
162                 SE_PRIV mask;
163                 
164                 se_priv_copy( &mask, (SE_PRIV*)data.dptr );
165                 
166                 /* if the SID does not have the specified privilege 
167                    then just return */
168                    
169                 if ( !is_privilege_assigned( &mask, &priv->privilege) )
170                         return 0;
171         }
172                 
173         fstrcpy( sid_string, (const char *)&key.dptr[strlen(PRIVPREFIX)] );
174
175         /* this is a last ditch safety check to preventing returning
176            and invalid SID (i've somehow run into this on development branches) */
177
178         if ( strcmp( "S-0-0", sid_string ) == 0 )
179                 return 0;
180
181         if ( !string_to_sid(&sid, sid_string) ) {
182                 DEBUG(0,("travsersal_fn_enum__acct: Could not convert SID [%s]\n",
183                         sid_string));
184                 return 0;
185         }
186
187         if (!add_sid_to_array( priv->mem_ctx, &sid, &priv->sids.list,
188                                &priv->sids.count )) {
189                 return 0;
190         }
191         
192         return 0;
193 }
194
195 /*********************************************************************
196  Retreive list of privileged SIDs (for _lsa_enumerate_accounts()
197 *********************************************************************/
198
199 NTSTATUS privilege_enumerate_accounts(DOM_SID **sids, int *num_sids)
200 {
201         TDB_CONTEXT *tdb = get_account_pol_tdb();
202         PRIV_SID_LIST priv;
203         
204         if (!tdb) {
205                 return NT_STATUS_ACCESS_DENIED;
206         }
207
208         ZERO_STRUCT(priv);
209
210         se_priv_copy( &priv.privilege, &se_priv_none );
211
212         tdb_traverse( tdb, priv_traverse_fn, &priv);
213
214         /* give the memory away; caller will free */
215         
216         *sids      = priv.sids.list;
217         *num_sids  = priv.sids.count;
218
219         return NT_STATUS_OK;
220 }
221
222 /*********************************************************************
223  Retrieve list of SIDs granted a particular privilege
224 *********************************************************************/
225
226 NTSTATUS privilege_enum_sids(const SE_PRIV *mask, TALLOC_CTX *mem_ctx,
227                              DOM_SID **sids, int *num_sids)
228 {
229         TDB_CONTEXT *tdb = get_account_pol_tdb();
230         PRIV_SID_LIST priv;
231
232         if (!tdb) {
233                 return NT_STATUS_ACCESS_DENIED;
234         }
235
236         ZERO_STRUCT(priv);
237
238         se_priv_copy(&priv.privilege, mask);
239         priv.mem_ctx = mem_ctx;
240
241         tdb_traverse( tdb, priv_traverse_fn, &priv);
242
243         /* give the memory away; caller will free */
244
245         *sids      = priv.sids.list;
246         *num_sids  = priv.sids.count;
247
248         return NT_STATUS_OK;
249 }
250
251 /***************************************************************************
252  Add privilege to sid
253 ****************************************************************************/
254
255 BOOL grant_privilege(const DOM_SID *sid, const SE_PRIV *priv_mask)
256 {
257         SE_PRIV old_mask, new_mask;
258         
259         ZERO_STRUCT( old_mask );
260         ZERO_STRUCT( new_mask );
261
262         if ( get_privileges( sid, &old_mask ) )
263                 se_priv_copy( &new_mask, &old_mask );
264         else
265                 se_priv_copy( &new_mask, &se_priv_none );
266
267         se_priv_add( &new_mask, priv_mask );
268
269         DEBUG(10,("grant_privilege: %s\n", sid_string_static(sid)));
270         
271         DEBUGADD( 10, ("original privilege mask:\n"));
272         dump_se_priv( DBGC_ALL, 10, &old_mask );
273         
274         DEBUGADD( 10, ("new privilege mask:\n"));
275         dump_se_priv( DBGC_ALL, 10, &new_mask );
276         
277         return set_privileges( sid, &new_mask );
278 }
279
280 /*********************************************************************
281  Add a privilege based on its name
282 *********************************************************************/
283
284 BOOL grant_privilege_by_name(DOM_SID *sid, const char *name)
285 {
286         SE_PRIV mask;
287
288         if (! se_priv_from_name(name, &mask)) {
289                 DEBUG(3, ("grant_privilege_by_name: "
290                           "No Such Privilege Found (%s)\n", name));
291                 return False;
292         }
293
294         return grant_privilege( sid, &mask );
295 }
296
297 /***************************************************************************
298  Remove privilege from sid
299 ****************************************************************************/
300
301 BOOL revoke_privilege(const DOM_SID *sid, const SE_PRIV *priv_mask)
302 {
303         SE_PRIV mask;
304         
305         /* if the user has no privileges, then we can't revoke any */
306         
307         if ( !get_privileges( sid, &mask ) )
308                 return True;
309         
310         DEBUG(10,("revoke_privilege: %s\n", sid_string_static(sid)));
311         
312         DEBUGADD( 10, ("original privilege mask:\n"));
313         dump_se_priv( DBGC_ALL, 10, &mask );
314
315         se_priv_remove( &mask, priv_mask );
316         
317         DEBUGADD( 10, ("new privilege mask:\n"));
318         dump_se_priv( DBGC_ALL, 10, &mask );
319         
320         return set_privileges( sid, &mask );
321 }
322
323 /*********************************************************************
324  Revoke all privileges
325 *********************************************************************/
326
327 BOOL revoke_all_privileges( DOM_SID *sid )
328 {
329         return revoke_privilege( sid, &se_priv_all );
330 }
331
332 /*********************************************************************
333  Add a privilege based on its name
334 *********************************************************************/
335
336 BOOL revoke_privilege_by_name(DOM_SID *sid, const char *name)
337 {
338         SE_PRIV mask;
339
340         if (! se_priv_from_name(name, &mask)) {
341                 DEBUG(3, ("revoke_privilege_by_name: "
342                           "No Such Privilege Found (%s)\n", name));
343                 return False;
344         }
345
346         return revoke_privilege(sid, &mask);
347
348 }
349
350 /***************************************************************************
351  Retrieve the SIDs assigned to a given privilege
352 ****************************************************************************/
353
354 NTSTATUS privilege_create_account(const DOM_SID *sid )
355 {
356         return ( grant_privilege(sid, &se_priv_none) ? NT_STATUS_OK : NT_STATUS_UNSUCCESSFUL);
357 }
358
359 /****************************************************************************
360  initialise a privilege list and set the talloc context 
361  ****************************************************************************/
362  
363 NTSTATUS privilege_set_init(PRIVILEGE_SET *priv_set)
364 {
365         TALLOC_CTX *mem_ctx;
366         
367         ZERO_STRUCTP( priv_set );
368
369         mem_ctx = talloc_init("privilege set");
370         if ( !mem_ctx ) {
371                 DEBUG(0,("privilege_set_init: failed to initialize talloc ctx!\n"));
372                 return NT_STATUS_NO_MEMORY;
373         }
374
375         priv_set->mem_ctx = mem_ctx;
376
377         return NT_STATUS_OK;
378 }
379
380 /****************************************************************************
381   initialise a privilege list and with someone else's talloc context 
382 ****************************************************************************/
383
384 NTSTATUS privilege_set_init_by_ctx(TALLOC_CTX *mem_ctx, PRIVILEGE_SET *priv_set)
385 {
386         ZERO_STRUCTP( priv_set );
387         
388         priv_set->mem_ctx = mem_ctx;
389         priv_set->ext_ctx = True;
390
391         return NT_STATUS_OK;
392 }
393
394 /****************************************************************************
395  Free all memory used by a PRIVILEGE_SET
396 ****************************************************************************/
397
398 void privilege_set_free(PRIVILEGE_SET *priv_set)
399 {
400         if ( !priv_set )
401                 return;
402
403         if ( !( priv_set->ext_ctx ) )
404                 talloc_destroy( priv_set->mem_ctx );
405
406         ZERO_STRUCTP( priv_set );
407 }
408
409 /****************************************************************************
410  duplicate alloc luid_attr
411  ****************************************************************************/
412
413 NTSTATUS dup_luid_attr(TALLOC_CTX *mem_ctx, LUID_ATTR **new_la, LUID_ATTR *old_la, int count)
414 {
415         int i;
416
417         if ( !old_la )
418                 return NT_STATUS_OK;
419
420         if (count) {
421                 *new_la = TALLOC_ARRAY(mem_ctx, LUID_ATTR, count);
422                 if ( !*new_la ) {
423                         DEBUG(0,("dup_luid_attr: failed to alloc new LUID_ATTR array [%d]\n", count));
424                         return NT_STATUS_NO_MEMORY;
425                 }
426         } else {
427                 *new_la = NULL;
428         }
429
430         for (i=0; i<count; i++) {
431                 (*new_la)[i].luid.high = old_la[i].luid.high;
432                 (*new_la)[i].luid.low = old_la[i].luid.low;
433                 (*new_la)[i].attr = old_la[i].attr;
434         }
435         
436         return NT_STATUS_OK;
437 }
438
439 /*******************************************************************
440 *******************************************************************/
441
442 BOOL is_privileged_sid( const DOM_SID *sid )
443 {
444         SE_PRIV mask;
445         
446         return get_privileges( sid, &mask );
447 }
448
449 /*******************************************************************
450 *******************************************************************/
451
452 BOOL grant_all_privileges( const DOM_SID *sid )
453 {
454         SE_PRIV mask;
455
456         if (!se_priv_put_all_privileges(&mask)) {
457                 return False;
458         }
459         
460         return grant_privilege( sid, &mask );
461 }