2 * Unix SMB/Netbios implementation.
4 * RPC Pipe client / server routines
5 * Copyright (C) Andrew Tridgell 1992-1997,
6 * Copyright (C) Luke Kenneth Casson Leighton 1996-1997,
7 * Copyright (C) Paul Ashton 1997.
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 2 of the License, or
12 * (at your option) any later version.
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.
19 * You should have received a copy of the GNU General Public License
20 * along with this program; if not, write to the Free Software
21 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
27 extern int DEBUGLEVEL;
29 static void lsa_io_trans_names(char *desc, LSA_TRANS_NAME_ENUM *trn, prs_struct *ps, int depth);
31 /*******************************************************************
32 creates a LSA_TRANS_NAME structure.
33 ********************************************************************/
34 void make_lsa_trans_name(LSA_TRANS_NAME *trn, uint32 sid_name_use, char *name, uint32 idx)
36 int len_name = strlen(name);
38 trn->sid_name_use = sid_name_use;
39 make_uni_hdr(&(trn->hdr_name), len_name, len_name, len_name != 0);
40 trn->domain_idx = idx;
43 /*******************************************************************
44 reads or writes a LSA_TRANS_NAME structure.
45 ********************************************************************/
46 static void lsa_io_trans_name(char *desc, LSA_TRANS_NAME *trn, prs_struct *ps, int depth)
48 if (trn == NULL) return;
50 prs_debug(ps, depth, desc, "lsa_io_trans_name");
55 prs_uint32("sid_name_use", ps, depth, &(trn->sid_name_use));
56 smb_io_unihdr ("hdr_name", &(trn->hdr_name), ps, depth);
57 prs_uint32("domain_idx ", ps, depth, &(trn->domain_idx ));
60 /*******************************************************************
61 reads or writes a DOM_R_REF structure.
62 ********************************************************************/
63 static void lsa_io_dom_r_ref(char *desc, DOM_R_REF *r_r, prs_struct *ps, int depth)
67 prs_debug(ps, depth, desc, "smb_io_dom_r_ref");
70 if (r_r == NULL) return;
74 prs_uint32("undoc_buffer ", ps, depth, &(r_r->undoc_buffer )); /* undocumented buffer pointer. */
75 prs_uint32("num_ref_doms_1", ps, depth, &(r_r->num_ref_doms_1)); /* num referenced domains? */
76 prs_uint32("undoc_buffer2 ", ps, depth, &(r_r->undoc_buffer2 )); /* undocumented buffer pointer. */
77 prs_uint32("max_entries ", ps, depth, &(r_r->max_entries )); /* 32 - max number of entries */
78 prs_uint32("num_ref_doms_2", ps, depth, &(r_r->num_ref_doms_2)); /* 4 - num referenced domains? */
80 SMB_ASSERT_ARRAY(r_r->hdr_ref_dom, r_r->num_ref_doms_1-1);
81 SMB_ASSERT_ARRAY(r_r->ref_dom, r_r->num_ref_doms_2);
83 for (i = 0; i < r_r->num_ref_doms_1; i++)
87 slprintf(t, sizeof(t) - 1, "dom_ref[%d] ", i);
88 smb_io_unihdr(t, &(r_r->hdr_ref_dom[i].hdr_dom_name), ps, depth);
90 slprintf(t, sizeof(t) - 1, "sid_ptr[%d] ", i);
91 prs_uint32(t, ps, depth, &(r_r->hdr_ref_dom[i].ptr_dom_sid));
94 for (i = 0, n = 0, s = 0; i < r_r->num_ref_doms_2; i++)
98 if (r_r->hdr_ref_dom[i].hdr_dom_name.buffer != 0)
100 slprintf(t, sizeof(t) - 1, "dom_ref[%d] ", i);
101 smb_io_unistr2(t, &(r_r->ref_dom[n].uni_dom_name), True, ps, depth); /* domain name unicode string */
105 if (r_r->hdr_ref_dom[i].ptr_dom_sid != 0)
107 slprintf(t, sizeof(t) - 1, "sid_ptr[%d] ", i);
108 smb_io_dom_sid2("", &(r_r->ref_dom[s].ref_dom), ps, depth); /* referenced domain SIDs */
115 /*******************************************************************
116 makes an LSA_SEC_QOS structure.
117 ********************************************************************/
118 void make_lsa_sec_qos(LSA_SEC_QOS *qos, uint16 imp_lev, uint8 ctxt, uint8 eff,
121 if (qos == NULL) return;
123 DEBUG(5,("make_lsa_sec_qos\n"));
125 qos->len = 0x0c; /* length of quality of service block, in bytes */
126 qos->sec_imp_level = imp_lev;
127 qos->sec_ctxt_mode = ctxt;
128 qos->effective_only = eff;
129 qos->unknown = unknown;
132 /*******************************************************************
133 reads or writes an LSA_SEC_QOS structure.
134 ********************************************************************/
135 static void lsa_io_sec_qos(char *desc, LSA_SEC_QOS *qos, prs_struct *ps, int depth)
139 if (qos == NULL) return;
141 prs_debug(ps, depth, desc, "lsa_io_obj_qos");
148 /* these pointers had _better_ be zero, because we don't know
151 prs_uint32("len ", ps, depth, &(qos->len )); /* 0x18 - length (in bytes) inc. the length field. */
152 prs_uint16("sec_imp_level ", ps, depth, &(qos->sec_imp_level ));
153 prs_uint8 ("sec_ctxt_mode ", ps, depth, &(qos->sec_ctxt_mode ));
154 prs_uint8 ("effective_only", ps, depth, &(qos->effective_only));
155 prs_uint32("unknown ", ps, depth, &(qos->unknown ));
157 if (qos->len != ps->offset - start)
159 DEBUG(3,("lsa_io_sec_qos: length %x does not match size %x\n",
160 qos->len, ps->offset - start));
165 /*******************************************************************
166 makes an LSA_OBJ_ATTR structure.
167 ********************************************************************/
168 void make_lsa_obj_attr(LSA_OBJ_ATTR *attr, uint32 attributes, LSA_SEC_QOS *qos)
170 if (attr == NULL) return;
172 DEBUG(5,("make_lsa_obj_attr\n"));
174 attr->len = 0x18; /* length of object attribute block, in bytes */
175 attr->ptr_root_dir = 0;
176 attr->ptr_obj_name = 0;
177 attr->attributes = attributes;
178 attr->ptr_sec_desc = 0;
182 attr->ptr_sec_qos = 1;
187 attr->ptr_sec_qos = 0;
188 attr->sec_qos = NULL;
192 /*******************************************************************
193 reads or writes an LSA_OBJ_ATTR structure.
194 ********************************************************************/
195 static void lsa_io_obj_attr(char *desc, LSA_OBJ_ATTR *attr, prs_struct *ps, int depth)
199 if (attr == NULL) return;
201 prs_debug(ps, depth, desc, "lsa_io_obj_attr");
208 /* these pointers had _better_ be zero, because we don't know
211 prs_uint32("len ", ps, depth, &(attr->len )); /* 0x18 - length (in bytes) inc. the length field. */
212 prs_uint32("ptr_root_dir", ps, depth, &(attr->ptr_root_dir)); /* 0 - root directory (pointer) */
213 prs_uint32("ptr_obj_name", ps, depth, &(attr->ptr_obj_name)); /* 0 - object name (pointer) */
214 prs_uint32("attributes ", ps, depth, &(attr->attributes )); /* 0 - attributes (undocumented) */
215 prs_uint32("ptr_sec_desc", ps, depth, &(attr->ptr_sec_desc)); /* 0 - security descriptior (pointer) */
216 prs_uint32("ptr_sec_qos ", ps, depth, &(attr->ptr_sec_qos )); /* security quality of service (pointer) */
218 if (attr->len != ps->offset - start)
220 DEBUG(3,("lsa_io_obj_attr: length %x does not match size %x\n",
221 attr->len, ps->offset - start));
224 if (attr->ptr_sec_qos != 0 && attr->sec_qos != NULL)
226 lsa_io_sec_qos("sec_qos", attr->sec_qos, ps, depth);
230 /*******************************************************************
231 makes an LSA_Q_OPEN_POL structure.
232 ********************************************************************/
233 void make_q_open_pol(LSA_Q_OPEN_POL *r_q, char *server_name,
235 uint32 desired_access,
238 if (r_q == NULL) return;
240 DEBUG(5,("make_open_pol: attr:%d da:%d\n", attributes, desired_access));
242 r_q->ptr = 1; /* undocumented pointer */
246 r_q->des_access = desired_access;
249 make_unistr2 (&(r_q->uni_server_name), server_name, strlen(server_name));
250 make_lsa_obj_attr(&(r_q->attr ), attributes, qos);
253 /*******************************************************************
254 reads or writes an LSA_Q_OPEN_POL structure.
255 ********************************************************************/
256 void lsa_io_q_open_pol(char *desc, LSA_Q_OPEN_POL *r_q, prs_struct *ps, int depth)
258 if (r_q == NULL) return;
260 prs_debug(ps, depth, desc, "lsa_io_q_open_pol");
263 prs_uint32("ptr ", ps, depth, &(r_q->ptr ));
265 smb_io_unistr2 ("", &(r_q->uni_server_name), r_q->ptr, ps, depth);
266 lsa_io_obj_attr("", &(r_q->attr ), ps, depth);
268 if (r_q->attr.ptr_sec_qos == 0)
270 prs_uint32("des_access", ps, depth, &(r_q->des_access));
274 /*******************************************************************
275 reads or writes an LSA_R_OPEN_POL structure.
276 ********************************************************************/
277 void lsa_io_r_open_pol(char *desc, LSA_R_OPEN_POL *r_p, prs_struct *ps, int depth)
279 if (r_p == NULL) return;
281 prs_debug(ps, depth, desc, "lsa_io_r_open_pol");
284 smb_io_pol_hnd("", &(r_p->pol), ps, depth);
286 prs_uint32("status", ps, depth, &(r_p->status));
289 /*******************************************************************
290 makes an LSA_Q_QUERY_INFO structure.
291 ********************************************************************/
292 void make_q_query(LSA_Q_QUERY_INFO *q_q, POLICY_HND *hnd, uint16 info_class)
294 if (q_q == NULL || hnd == NULL) return;
296 DEBUG(5,("make_q_query\n"));
298 memcpy(&(q_q->pol), hnd, sizeof(q_q->pol));
300 q_q->info_class = info_class;
303 /*******************************************************************
304 reads or writes an LSA_Q_QUERY_INFO structure.
305 ********************************************************************/
306 void lsa_io_q_query(char *desc, LSA_Q_QUERY_INFO *q_q, prs_struct *ps, int depth)
308 if (q_q == NULL) return;
310 prs_debug(ps, depth, desc, "lsa_io_q_query");
313 smb_io_pol_hnd("", &(q_q->pol), ps, depth);
315 prs_uint16("info_class", ps, depth, &(q_q->info_class));
318 /*******************************************************************
319 reads or writes an LSA_Q_ENUM_TRUST_DOM structure.
320 ********************************************************************/
321 void lsa_io_q_enum_trust_dom(char *desc, LSA_Q_ENUM_TRUST_DOM *q_e, prs_struct *ps, int depth)
323 if (q_e == NULL) return;
325 prs_debug(ps, depth, desc, "lsa_io_q_enum_trust_dom");
329 smb_io_pol_hnd("", &(q_e->pol), ps, depth);
331 prs_uint32("enum_context ", ps, depth, &(q_e->enum_context ));
332 prs_uint32("preferred_len", ps, depth, &(q_e->preferred_len));
335 /*******************************************************************
336 makes an LSA_R_ENUM_TRUST_DOM structure.
337 ********************************************************************/
338 void make_r_enum_trust_dom(LSA_R_ENUM_TRUST_DOM *r_e,
339 uint32 enum_context, char *domain_name, DOM_SID *domain_sid,
342 if (r_e == NULL) return;
344 DEBUG(5,("make_r_enum_trust_dom\n"));
346 r_e->enum_context = enum_context;
350 int len_domain_name = strlen(domain_name);
352 r_e->num_domains = 1;
353 r_e->ptr_enum_domains = 1;
354 r_e->num_domains2 = 1;
356 make_uni_hdr2(&(r_e->hdr_domain_name ), len_domain_name, len_domain_name, 4);
357 make_unistr2 (&(r_e->uni_domain_name ), domain_name, len_domain_name);
358 make_dom_sid2(&(r_e->other_domain_sid), domain_sid);
362 r_e->num_domains = 0;
363 r_e->ptr_enum_domains = 0;
366 r_e->status = status;
369 /*******************************************************************
370 reads or writes an LSA_R_ENUM_TRUST_DOM structure.
371 ********************************************************************/
372 void lsa_io_r_enum_trust_dom(char *desc, LSA_R_ENUM_TRUST_DOM *r_e, prs_struct *ps, int depth)
374 if (r_e == NULL) return;
376 prs_debug(ps, depth, desc, "lsa_io_r_enum_trust_dom");
379 prs_uint32("enum_context ", ps, depth, &(r_e->enum_context ));
380 prs_uint32("num_domains ", ps, depth, &(r_e->num_domains ));
381 prs_uint32("ptr_enum_domains", ps, depth, &(r_e->ptr_enum_domains));
383 if (r_e->ptr_enum_domains != 0)
385 prs_uint32("num_domains2", ps, depth, &(r_e->num_domains2));
386 smb_io_unihdr2 ("", &(r_e->hdr_domain_name ), ps, depth);
387 smb_io_unistr2 ("", &(r_e->uni_domain_name ), r_e->hdr_domain_name.buffer, ps, depth);
388 smb_io_dom_sid2("", &(r_e->other_domain_sid), ps, depth);
391 prs_uint32("status", ps, depth, &(r_e->status));
394 /*******************************************************************
395 reads or writes an LSA_Q_QUERY_INFO structure.
396 ********************************************************************/
397 void lsa_io_r_query(char *desc, LSA_R_QUERY_INFO *r_q, prs_struct *ps, int depth)
399 if (r_q == NULL) return;
401 prs_debug(ps, depth, desc, "lsa_io_r_query");
404 prs_uint32("undoc_buffer", ps, depth, &(r_q->undoc_buffer));
406 if (r_q->undoc_buffer != 0)
408 prs_uint16("info_class", ps, depth, &(r_q->info_class));
410 switch (r_q->info_class)
414 smb_io_dom_query_3("", &(r_q->dom.id3), ps, depth);
419 smb_io_dom_query_5("", &(r_q->dom.id3), ps, depth);
430 prs_uint32("status", ps, depth, &(r_q->status));
433 /*******************************************************************
434 makes a LSA_SID_ENUM structure.
435 ********************************************************************/
436 void make_lsa_sid_enum(LSA_SID_ENUM *sen, int num_entries, DOM_SID **sids)
439 if (sen == NULL || sids == NULL) return;
441 DEBUG(5,("make_lsa_sid_enum\n"));
443 sen->num_entries = num_entries;
444 sen->ptr_sid_enum = num_entries != 0 ? 1 : 0;
445 sen->num_entries2 = num_entries;
447 SMB_ASSERT_ARRAY(sen->sid, sen->num_entries);
449 for (i = 0, i2 = 0; i < num_entries; i++)
454 make_dom_sid2(&(sen->sid[i2]), sids[i]);
464 /*******************************************************************
465 reads or writes a LSA_SID_ENUM structure.
466 ********************************************************************/
467 static void lsa_io_sid_enum(char *desc, LSA_SID_ENUM *sen,
468 prs_struct *ps, int depth)
472 if (sen == NULL) return;
474 prs_debug(ps, depth, desc, "lsa_io_sid_enum");
479 prs_uint32("num_entries ", ps, depth, &(sen->num_entries));
480 prs_uint32("ptr_sid_enum", ps, depth, &(sen->ptr_sid_enum));
481 prs_uint32("num_entries2", ps, depth, &(sen->num_entries2));
483 SMB_ASSERT_ARRAY(sen->ptr_sid, sen->num_entries);
485 for (i = 0; i < sen->num_entries; i++)
488 slprintf(temp, sizeof(temp) - 1, "ptr_sid[%d]", i);
489 prs_uint32(temp, ps, depth, &(sen->ptr_sid[i])); /* domain SID pointers to be looked up. */
492 SMB_ASSERT_ARRAY(sen->sid, sen->num_entries);
494 for (i = 0; i < sen->num_entries; i++)
497 slprintf(temp, sizeof(temp) - 1, "sid[%d]", i);
498 smb_io_dom_sid2(temp, &(sen->sid[i]), ps, depth); /* domain SIDs to be looked up. */
502 /*******************************************************************
503 makes an LSA_R_ENUM_TRUST_DOM structure.
504 ********************************************************************/
505 void make_q_lookup_sids(LSA_Q_LOOKUP_SIDS *q_l, POLICY_HND *hnd,
506 int num_sids, DOM_SID **sids,
509 if (q_l == NULL) return;
511 DEBUG(5,("make_r_enum_trust_dom\n"));
513 memcpy(&(q_l->pol), hnd, sizeof(q_l->pol));
514 make_lsa_sid_enum(&(q_l->sids), num_sids, sids);
516 q_l->names.num_entries = 0;
517 q_l->names.ptr_trans_names = 0;
518 q_l->names.num_entries2 = 0;
520 q_l->level.value = level;
523 /*******************************************************************
524 reads or writes a LSA_Q_LOOKUP_SIDS structure.
525 ********************************************************************/
526 void lsa_io_q_lookup_sids(char *desc, LSA_Q_LOOKUP_SIDS *q_s, prs_struct *ps, int depth)
528 if (q_s == NULL) return;
530 prs_debug(ps, depth, desc, "lsa_io_q_lookup_sids");
535 smb_io_pol_hnd ("pol_hnd", &(q_s->pol), ps, depth); /* policy handle */
536 lsa_io_sid_enum ("sids ", &(q_s->sids ), ps, depth); /* sids to be looked up */
537 lsa_io_trans_names ("names ", &(q_s->names ), ps, depth); /* translated names */
538 smb_io_lookup_level("switch ", &(q_s->level ), ps, depth); /* lookup level */
540 prs_uint32("mapped_count", ps, depth, &(q_s->mapped_count));
543 /*******************************************************************
544 reads or writes a structure.
545 ********************************************************************/
546 static void lsa_io_trans_names(char *desc, LSA_TRANS_NAME_ENUM *trn,
547 prs_struct *ps, int depth)
552 if (trn == NULL) return;
554 prs_debug(ps, depth, desc, "lsa_io_trans_names");
559 prs_uint32("num_entries ", ps, depth, &(trn->num_entries));
560 prs_uint32("ptr_trans_names", ps, depth, &(trn->ptr_trans_names));
562 if (trn->ptr_trans_names != 0)
564 prs_uint32("num_entries2 ", ps, depth, &(trn->num_entries2));
566 SMB_ASSERT_ARRAY(trn->name, trn->num_entries);
568 for (i = 0, i2 = 0; i < trn->num_entries2; i++)
571 slprintf(t, sizeof(t) - 1, "name[%d] ", i);
573 lsa_io_trans_name(t, &(trn->name[i]), ps, depth); /* translated name */
575 if (trn->name[i].hdr_name.buffer != 0)
577 smb_io_unistr2(t, &(trn->uni_name[i2]), 1, ps, depth);
585 /*******************************************************************
586 reads or writes a structure.
587 ********************************************************************/
588 void lsa_io_r_lookup_sids(char *desc, LSA_R_LOOKUP_SIDS *r_s, prs_struct *ps, int depth)
590 if (r_s == NULL) return;
592 prs_debug(ps, depth, desc, "lsa_io_r_lookup_sids");
597 lsa_io_dom_r_ref ("dom_ref", r_s->dom_ref, ps, depth); /* domain reference info */
598 lsa_io_trans_names("names ", r_s->names , ps, depth); /* translated names */
602 prs_uint32("mapped_count", ps, depth, &(r_s->mapped_count));
604 prs_uint32("status ", ps, depth, &(r_s->status));
607 /*******************************************************************
608 reads or writes a structure.
609 ********************************************************************/
610 void lsa_io_q_lookup_rids(char *desc, LSA_Q_LOOKUP_RIDS *q_r, prs_struct *ps, int depth)
614 if (q_r == NULL) return;
616 prs_debug(ps, depth, desc, "lsa_io_q_lookup_rids");
621 smb_io_pol_hnd("", &(q_r->pol), ps, depth); /* policy handle */
623 prs_uint32("num_entries ", ps, depth, &(q_r->num_entries));
624 prs_uint32("num_entries2 ", ps, depth, &(q_r->num_entries2));
625 prs_uint32("buffer_dom_sid ", ps, depth, &(q_r->buffer_dom_sid)); /* undocumented domain SID buffer pointer */
626 prs_uint32("buffer_dom_name", ps, depth, &(q_r->buffer_dom_name)); /* undocumented domain name buffer pointer */
628 SMB_ASSERT_ARRAY(q_r->lookup_name, q_r->num_entries);
630 for (i = 0; i < q_r->num_entries; i++)
632 smb_io_dom_name("", &(q_r->lookup_name[i]), ps, depth); /* names to be looked up */
635 prs_uint8s (False, "undoc ", ps, depth, q_r->undoc, UNKNOWN_LEN);
638 /*******************************************************************
639 reads or writes a structure.
640 ********************************************************************/
641 void lsa_io_r_lookup_rids(char *desc, LSA_R_LOOKUP_RIDS *r_r, prs_struct *ps, int depth)
645 if (r_r == NULL) return;
647 prs_debug(ps, depth, desc, "lsa_io_r_lookup_rids");
652 lsa_io_dom_r_ref("", &(r_r->dom_ref), ps, depth); /* domain reference info */
654 prs_uint32("num_entries ", ps, depth, &(r_r->num_entries));
655 prs_uint32("undoc_buffer", ps, depth, &(r_r->undoc_buffer));
656 prs_uint32("num_entries2", ps, depth, &(r_r->num_entries2));
658 SMB_ASSERT_ARRAY(r_r->dom_rid, r_r->num_entries2);
660 for (i = 0; i < r_r->num_entries2; i++)
662 smb_io_dom_rid2("", &(r_r->dom_rid[i]), ps, depth); /* domain RIDs being looked up */
665 prs_uint32("num_entries3", ps, depth, &(r_r->num_entries3));
667 prs_uint32("status ", ps, depth, &(r_r->status));
671 /*******************************************************************
672 makes an LSA_Q_CLOSE structure.
673 ********************************************************************/
674 void make_lsa_q_close(LSA_Q_CLOSE *q_c, POLICY_HND *hnd)
676 if (q_c == NULL || hnd == NULL) return;
678 DEBUG(5,("make_lsa_q_close\n"));
680 memcpy(&(q_c->pol), hnd, sizeof(q_c->pol));
683 /*******************************************************************
684 reads or writes an LSA_Q_CLOSE structure.
685 ********************************************************************/
686 void lsa_io_q_close(char *desc, LSA_Q_CLOSE *q_c, prs_struct *ps, int depth)
688 if (q_c == NULL) return;
690 prs_debug(ps, depth, desc, "lsa_io_q_close");
693 smb_io_pol_hnd("", &(q_c->pol), ps, depth);
696 /*******************************************************************
697 reads or writes an LSA_R_CLOSE structure.
698 ********************************************************************/
699 void lsa_io_r_close(char *desc, LSA_R_CLOSE *r_c, prs_struct *ps, int depth)
701 if (r_c == NULL) return;
703 prs_debug(ps, depth, desc, "lsa_io_r_close");
706 smb_io_pol_hnd("", &(r_c->pol), ps, depth);
708 prs_uint32("status", ps, depth, &(r_c->status));