Remove more redundant lsa parsing functions.
[bbaumbach/samba-autobuild/.git] / source / rpc_parse / parse_sec.c
1 /* 
2  *  Unix SMB/Netbios implementation.
3  *  Version 1.9.
4  *  RPC Pipe client / server routines
5  *  Copyright (C) Andrew Tridgell              1992-1998,
6  *  Copyright (C) Jeremy R. Allison            1995-2005.
7  *  Copyright (C) Luke Kenneth Casson Leighton 1996-1998,
8  *  Copyright (C) Paul Ashton                  1997-1998.
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 #include "includes.h"
25
26 #undef DBGC_CLASS
27 #define DBGC_CLASS DBGC_RPC_PARSE
28
29 /*******************************************************************
30  Reads or writes a SEC_ACCESS structure.
31 ********************************************************************/
32
33 bool sec_io_access(const char *desc, SEC_ACCESS *t, prs_struct *ps, int depth)
34 {
35         if (t == NULL)
36                 return False;
37
38         prs_debug(ps, depth, desc, "sec_io_access");
39         depth++;
40         
41         if(!prs_uint32("mask", ps, depth, t))
42                 return False;
43
44         return True;
45 }
46
47 /*******************************************************************
48  Reads or writes a SEC_ACE structure.
49 ********************************************************************/
50
51 bool sec_io_ace(const char *desc, SEC_ACE *psa, prs_struct *ps, int depth)
52 {
53         uint32 old_offset;
54         uint32 offset_ace_size;
55         uint8 type;
56
57         if (psa == NULL)
58                 return False;
59
60         prs_debug(ps, depth, desc, "sec_io_ace");
61         depth++;
62         
63         old_offset = prs_offset(ps);
64
65         if (MARSHALLING(ps)) {
66                 type = (uint8)psa->type;
67         }
68
69         if(!prs_uint8("type ", ps, depth, &type))
70                 return False;
71
72         if (UNMARSHALLING(ps)) {
73                 psa->type = (enum security_ace_type)type;
74         }
75
76         if(!prs_uint8("flags", ps, depth, &psa->flags))
77                 return False;
78
79         if(!prs_uint16_pre("size ", ps, depth, &psa->size, &offset_ace_size))
80                 return False;
81
82         if(!prs_uint32("access_mask", ps, depth, &psa->access_mask))
83                 return False;
84
85         /* check whether object access is present */
86         if (!sec_ace_object(psa->type)) {
87                 if (!smb_io_dom_sid("trustee  ", &psa->trustee , ps, depth))
88                         return False;
89         } else {
90                 if (!prs_uint32("obj_flags", ps, depth, &psa->object.object.flags))
91                         return False;
92
93                 if (psa->object.object.flags & SEC_ACE_OBJECT_PRESENT)
94                         if (!smb_io_uuid("obj_guid", &psa->object.object.type.type, ps,depth))
95                                 return False;
96
97                 if (psa->object.object.flags & SEC_ACE_OBJECT_INHERITED_PRESENT)
98                         if (!smb_io_uuid("inh_guid", &psa->object.object.inherited_type.inherited_type, ps,depth))
99                                 return False;
100
101                 if(!smb_io_dom_sid("trustee  ", &psa->trustee , ps, depth))
102                         return False;
103         }
104
105         /* Theorectically an ACE can have a size greater than the
106            sum of its components. When marshalling, pad with extra null bytes up to the
107            correct size. */
108
109         if (MARSHALLING(ps) && (psa->size > prs_offset(ps) - old_offset)) {
110                 uint32 extra_len = psa->size - (prs_offset(ps) - old_offset);
111                 uint32 i;
112                 uint8 c = 0;
113
114                 for (i = 0; i < extra_len; i++) {
115                         if (!prs_uint8("ace extra space", ps, depth, &c))
116                                 return False;
117                 }
118         }
119
120         if(!prs_uint16_post("size ", ps, depth, &psa->size, offset_ace_size, old_offset))
121                 return False;
122
123         return True;
124 }
125
126 /*******************************************************************
127  Reads or writes a SEC_ACL structure.  
128
129  First of the xx_io_xx functions that allocates its data structures
130  for you as it reads them.
131 ********************************************************************/
132
133 bool sec_io_acl(const char *desc, SEC_ACL **ppsa, prs_struct *ps, int depth)
134 {
135         unsigned int i;
136         uint32 old_offset;
137         uint32 offset_acl_size;
138         SEC_ACL *psa;
139         uint16 revision;
140
141         /*
142          * Note that the size is always a multiple of 4 bytes due to the
143          * nature of the data structure.  Therefore the prs_align() calls
144          * have been removed as they through us off when doing two-layer
145          * marshalling such as in the printing code (RPC_BUFFER).  --jerry
146          */
147
148         if (ppsa == NULL)
149                 return False;
150
151         psa = *ppsa;
152
153         if(UNMARSHALLING(ps) && psa == NULL) {
154                 /*
155                  * This is a read and we must allocate the stuct to read into.
156                  */
157                 if((psa = PRS_ALLOC_MEM(ps, SEC_ACL, 1)) == NULL)
158                         return False;
159                 *ppsa = psa;
160         }
161
162         prs_debug(ps, depth, desc, "sec_io_acl");
163         depth++;
164         
165         old_offset = prs_offset(ps);
166
167         if (MARSHALLING(ps)) {
168                 revision = (uint16)psa->revision;
169         }
170
171         if(!prs_uint16("revision", ps, depth, &revision))
172                 return False;
173
174         if (UNMARSHALLING(ps)) {
175                 psa->revision = (enum security_acl_revision)revision;
176         }
177
178         if(!prs_uint16_pre("size     ", ps, depth, &psa->size, &offset_acl_size))
179                 return False;
180
181         if(!prs_uint32("num_aces ", ps, depth, &psa->num_aces))
182                 return False;
183
184         if (UNMARSHALLING(ps)) {
185                 if (psa->num_aces) {
186                         if((psa->aces = PRS_ALLOC_MEM(ps, SEC_ACE, psa->num_aces)) == NULL)
187                                 return False;
188                 } else {
189                         psa->aces = NULL;
190                 }
191         }
192
193         for (i = 0; i < psa->num_aces; i++) {
194                 fstring tmp;
195                 slprintf(tmp, sizeof(tmp)-1, "ace_list[%02d]: ", i);
196                 if(!sec_io_ace(tmp, &psa->aces[i], ps, depth))
197                         return False;
198         }
199
200         /* Theorectically an ACL can have a size greater than the
201            sum of its components. When marshalling, pad with extra null bytes up to the
202            correct size. */
203
204         if (MARSHALLING(ps) && (psa->size > prs_offset(ps) - old_offset)) {
205                 uint32 extra_len = psa->size - (prs_offset(ps) - old_offset);
206                 uint8 c = 0;
207
208                 for (i = 0; i < extra_len; i++) {
209                         if (!prs_uint8("acl extra space", ps, depth, &c))
210                                 return False;
211                 }
212         }
213
214         if(!prs_uint16_post("size     ", ps, depth, &psa->size, offset_acl_size, old_offset))
215                 return False;
216
217         return True;
218 }
219
220 /*******************************************************************
221  Reads or writes a SEC_DESC structure.
222  If reading and the *ppsd = NULL, allocates the structure.
223 ********************************************************************/
224
225 bool sec_io_desc(const char *desc, SEC_DESC **ppsd, prs_struct *ps, int depth)
226 {
227         uint32 old_offset;
228         uint32 max_offset = 0; /* after we're done, move offset to end */
229         uint32 tmp_offset = 0;
230         uint32 off_sacl, off_dacl, off_owner_sid, off_grp_sid;
231         uint16 revision;
232
233         SEC_DESC *psd;
234
235         if (ppsd == NULL)
236                 return False;
237
238         psd = *ppsd;
239
240         if (psd == NULL) {
241                 if(UNMARSHALLING(ps)) {
242                         if((psd = PRS_ALLOC_MEM(ps,SEC_DESC,1)) == NULL)
243                                 return False;
244                         *ppsd = psd;
245                 } else {
246                         /* Marshalling - just ignore. */
247                         return True;
248                 }
249         }
250
251         prs_debug(ps, depth, desc, "sec_io_desc");
252         depth++;
253
254         /* start of security descriptor stored for back-calc offset purposes */
255         old_offset = prs_offset(ps);
256
257         if (MARSHALLING(ps)) {
258                 revision = (uint16)psd->revision;
259         }
260
261         if(!prs_uint16("revision", ps, depth, &revision))
262                 return False;
263
264         if (UNMARSHALLING(ps)) {
265                 psd->revision = (enum security_descriptor_revision)revision;
266         }
267
268         if(!prs_uint16("type     ", ps, depth, &psd->type))
269                 return False;
270
271         if (MARSHALLING(ps)) {
272                 uint32 offset = SEC_DESC_HEADER_SIZE;
273
274                 /*
275                  * Work out the offsets here, as we write it out.
276                  */
277
278                 if (psd->sacl != NULL) {
279                         off_sacl = offset;
280                         offset += psd->sacl->size;
281                 } else {
282                         off_sacl = 0;
283                 }
284
285                 if (psd->dacl != NULL) {
286                         off_dacl = offset;
287                         offset += psd->dacl->size;
288                 } else {
289                         off_dacl = 0;
290                 }
291
292                 if (psd->owner_sid != NULL) {
293                         off_owner_sid = offset;
294                         offset += ndr_size_dom_sid(psd->owner_sid, 0);
295                 } else {
296                         off_owner_sid = 0;
297                 }
298
299                 if (psd->group_sid != NULL) {
300                         off_grp_sid = offset;
301                         offset += ndr_size_dom_sid(psd->group_sid, 0);
302                 } else {
303                         off_grp_sid = 0;
304                 }
305         }
306
307         if(!prs_uint32("off_owner_sid", ps, depth, &off_owner_sid))
308                 return False;
309
310         if(!prs_uint32("off_grp_sid  ", ps, depth, &off_grp_sid))
311                 return False;
312
313         if(!prs_uint32("off_sacl     ", ps, depth, &off_sacl))
314                 return False;
315
316         if(!prs_uint32("off_dacl     ", ps, depth, &off_dacl))
317                 return False;
318
319         max_offset = MAX(max_offset, prs_offset(ps));
320
321         if (off_owner_sid != 0) {
322
323                 tmp_offset = prs_offset(ps);
324                 if(!prs_set_offset(ps, old_offset + off_owner_sid))
325                         return False;
326
327                 if (UNMARSHALLING(ps)) {
328                         /* reading */
329                         if((psd->owner_sid = PRS_ALLOC_MEM(ps,DOM_SID,1)) == NULL)
330                                 return False;
331                 }
332
333                 if(!smb_io_dom_sid("owner_sid ", psd->owner_sid , ps, depth))
334                         return False;
335
336                 max_offset = MAX(max_offset, prs_offset(ps));
337
338                 if (!prs_set_offset(ps,tmp_offset))
339                         return False;
340         }
341
342         if (psd->group_sid != 0) {
343
344                 tmp_offset = prs_offset(ps);
345                 if(!prs_set_offset(ps, old_offset + off_grp_sid))
346                         return False;
347
348                 if (UNMARSHALLING(ps)) {
349                         /* reading */
350                         if((psd->group_sid = PRS_ALLOC_MEM(ps,DOM_SID,1)) == NULL)
351                                 return False;
352                 }
353
354                 if(!smb_io_dom_sid("grp_sid", psd->group_sid, ps, depth))
355                         return False;
356                         
357                 max_offset = MAX(max_offset, prs_offset(ps));
358
359                 if (!prs_set_offset(ps,tmp_offset))
360                         return False;
361         }
362
363         if ((psd->type & SEC_DESC_SACL_PRESENT) && off_sacl) {
364                 tmp_offset = prs_offset(ps);
365                 if(!prs_set_offset(ps, old_offset + off_sacl))
366                         return False;
367                 if(!sec_io_acl("sacl", &psd->sacl, ps, depth))
368                         return False;
369                 max_offset = MAX(max_offset, prs_offset(ps));
370                 if (!prs_set_offset(ps,tmp_offset))
371                         return False;
372         }
373
374         if ((psd->type & SEC_DESC_DACL_PRESENT) && off_dacl != 0) {
375                 tmp_offset = prs_offset(ps);
376                 if(!prs_set_offset(ps, old_offset + off_dacl))
377                         return False;
378                 if(!sec_io_acl("dacl", &psd->dacl, ps, depth))
379                         return False;
380                 max_offset = MAX(max_offset, prs_offset(ps));
381                 if (!prs_set_offset(ps,tmp_offset))
382                         return False;
383         }
384
385         if(!prs_set_offset(ps, max_offset))
386                 return False;
387
388         return True;
389 }
390
391 /*******************************************************************
392  Reads or writes a SEC_DESC_BUF structure.
393 ********************************************************************/
394
395 bool sec_io_desc_buf(const char *desc, SEC_DESC_BUF **ppsdb, prs_struct *ps, int depth)
396 {
397         uint32 off_len;
398         uint32 off_max_len;
399         uint32 old_offset;
400         uint32 size;
401         uint32 len;
402         SEC_DESC_BUF *psdb;
403         uint32 ptr;
404
405         if (ppsdb == NULL)
406                 return False;
407
408         psdb = *ppsdb;
409
410         if (UNMARSHALLING(ps) && psdb == NULL) {
411                 if((psdb = PRS_ALLOC_MEM(ps,SEC_DESC_BUF,1)) == NULL)
412                         return False;
413                 *ppsdb = psdb;
414         }
415
416         prs_debug(ps, depth, desc, "sec_io_desc_buf");
417         depth++;
418
419         if(!prs_align(ps))
420                 return False;
421         
422         if(!prs_uint32_pre("max_len", ps, depth, &psdb->sd_size, &off_max_len))
423                 return False;
424
425         ptr = 1;
426         if(!prs_uint32    ("ptr  ", ps, depth, &ptr))
427                 return False;
428
429         len = ndr_size_security_descriptor(psdb->sd, 0);
430         if(!prs_uint32_pre("len    ", ps, depth, &len, &off_len))
431                 return False;
432
433         old_offset = prs_offset(ps);
434
435         /* reading, length is non-zero; writing, descriptor is non-NULL */
436         if ((UNMARSHALLING(ps) && psdb->sd_size != 0) || (MARSHALLING(ps) && psdb->sd != NULL)) {
437                 if(!sec_io_desc("sec   ", &psdb->sd, ps, depth))
438                         return False;
439         }
440
441         if(!prs_align(ps))
442                 return False;
443         
444         size = prs_offset(ps) - old_offset;
445         if(!prs_uint32_post("max_len", ps, depth, &psdb->sd_size, off_max_len, size == 0 ? psdb->sd_size : size))
446                 return False;
447
448         if(!prs_uint32_post("len    ", ps, depth, &len, off_len, size))
449                 return False;
450
451         return True;
452 }