3 * Unix SMB/Netbios implementation.
5 * RPC Pipe client / server routines
6 * Copyright (C) Andrew Tridgell 1992-1998
7 * Copyright (C) Luke Kenneth Casson Leighton 1996-1998,
8 * Copyright (C) Paul Ashton 1997-1998.
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 2 of the License, or
13 * (at your option) any later version.
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.
20 * You should have received a copy of the GNU General Public License
21 * along with this program; if not, write to the Free Software
22 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
25 /* this module apparently provides an implementation of DCE/RPC over a
26 * named pipe (IPC$ connection using SMBtrans). details of DCE/RPC
27 * documentation are available (in on-line form) from the X-Open group.
29 * this module should provide a level of abstraction between SMB
30 * and DCE/RPC, while minimising the amount of mallocs, unnecessary
31 * data copies, and network traffic.
33 * in this version, which takes a "let's learn what's going on and
34 * get something running" approach, there is additional network
35 * traffic generated, but the code should be easier to understand...
37 * ... if you read the docs. or stare at packets for weeks on end.
44 extern int DEBUGLEVEL;
46 static void NTLMSSPcalc_p( pipes_struct *p, unsigned char *data, int len)
48 unsigned char *hash = p->ntlmssp_hash;
49 unsigned char index_i = hash[256];
50 unsigned char index_j = hash[257];
53 for( ind = 0; ind < len; ind++)
59 index_j += hash[index_i];
62 hash[index_i] = hash[index_j];
65 t = hash[index_i] + hash[index_j];
66 data[ind] = data[ind] ^ hash[t];
73 /*******************************************************************
74 turns a DCE/RPC request into a DCE/RPC reply
76 this is where the data really should be split up into an array of
77 headers and data sections.
79 ********************************************************************/
80 BOOL create_rpc_reply(pipes_struct *p,
81 uint32 data_start, uint32 data_end)
84 BOOL auth_verify = IS_BITS_SET_ALL(p->ntlmssp_chal.neg_flags, NTLMSSP_NEGOTIATE_SIGN);
85 BOOL auth_seal = IS_BITS_SET_ALL(p->ntlmssp_chal.neg_flags, NTLMSSP_NEGOTIATE_SEAL);
89 DEBUG(5,("create_rpc_reply: data_start: %d data_end: %d max_tsize: %d\n",
90 data_start, data_end, p->hdr_ba.bba.max_tsize));
92 auth_len = p->hdr.auth_len;
96 DEBUG(10,("create_rpc_reply: auth\n"));
103 prs_init(&p->rhdr , 0x18, 4, 0, False);
104 prs_init(&p->rauth, 1024, 4, 0, False);
105 prs_init(&p->rverf, 0x10, 4, 0, False);
107 p->hdr.pkt_type = RPC_RESPONSE; /* mark header as an rpc response */
109 /* set up rpc header (fragmentation issues) */
112 p->hdr.flags = RPC_FLG_FIRST;
119 p->hdr_resp.alloc_hint = data_end - data_start; /* calculate remaining data to be sent */
121 if (p->hdr_resp.alloc_hint + 0x18 <= p->hdr_ba.bba.max_tsize)
123 p->hdr.flags |= RPC_FLG_LAST;
124 p->hdr.frag_len = p->hdr_resp.alloc_hint + 0x18;
128 p->hdr.frag_len = p->hdr_ba.bba.max_tsize;
133 p->hdr_resp.alloc_hint -= auth_len + 8;
138 data_len = p->hdr.frag_len - auth_len - (auth_verify ? 8 : 0) - 0x18;
142 data_len = p->hdr.frag_len - 0x18;
145 p->rhdr.data->offset.start = 0;
146 p->rhdr.data->offset.end = 0x18;
148 /* store the header in the data stream */
149 smb_io_rpc_hdr ("hdr" , &(p->hdr ), &(p->rhdr), 0);
150 smb_io_rpc_hdr_resp("resp", &(p->hdr_resp), &(p->rhdr), 0);
152 /* don't use rdata: use rdata_i instead, which moves... */
153 /* make a pointer to the rdata data, NOT A COPY */
155 p->rdata_i.data = NULL;
156 prs_init(&p->rdata_i, 0, p->rdata.align, p->rdata.data->margin, p->rdata.io);
157 data = mem_data(&(p->rdata.data), data_start);
158 mem_create(p->rdata_i.data, data, 0, data_len, 0, False);
159 p->rdata_i.offset = data_len;
165 DEBUG(5,("create_rpc_reply: sign: %s seal: %s data %d auth %d\n",
166 BOOLSTR(auth_verify), BOOLSTR(auth_seal), data_len, auth_len));
170 crc32 = crc32_calc_buffer(data_len, data);
171 NTLMSSPcalc_p(p, (uchar*)data, data_len);
174 if (auth_seal || auth_verify)
176 make_rpc_hdr_auth(&p->auth_info, 0x0a, 0x06, 0x08, (auth_verify ? 1 : 0));
177 smb_io_rpc_hdr_auth("hdr_auth", &p->auth_info, &p->rauth, 0);
183 p->ntlmssp_seq_num++;
184 make_rpc_auth_ntlmssp_chk(&p->ntlmssp_chk, NTLMSSP_SIGN_VERSION, crc32, p->ntlmssp_seq_num++);
185 smb_io_rpc_auth_ntlmssp_chk("auth_sign", &(p->ntlmssp_chk), &p->rverf, 0);
186 auth_data = mem_data(&p->rverf.data, 4);
187 NTLMSSPcalc_p(p, (uchar*)auth_data, 12);
191 /* set up the data chain */
194 prs_link(NULL , &p->rhdr , &p->rdata_i);
195 prs_link(&p->rhdr , &p->rdata_i, &p->rauth );
196 prs_link(&p->rdata_i, &p->rauth , &p->rverf );
197 prs_link(&p->rauth , &p->rverf , NULL );
201 prs_link(NULL , &p->rhdr , &p->rdata_i);
202 prs_link(&p->rhdr, &p->rdata_i, NULL );
205 return p->rhdr.data != NULL && p->rhdr.offset == 0x18;
208 static BOOL api_pipe_ntlmssp_verify(pipes_struct *p)
214 struct smb_passwd *smb_pass = NULL;
216 user_struct *vuser = get_valid_user_struct(p->vuid);
218 DEBUG(5,("api_pipe_ntlmssp_verify: checking user details\n"));
222 DEBUG(0,("get user struct %d failed\n", p->vuid));
226 lm_owf_len = p->ntlmssp_resp.hdr_lm_resp.str_str_len;
227 nt_owf_len = p->ntlmssp_resp.hdr_nt_resp.str_str_len;
230 if (lm_owf_len == 0) return False;
231 if (nt_owf_len == 0) return False;
232 if (p->ntlmssp_resp.hdr_usr .str_str_len == 0) return False;
233 if (p->ntlmssp_resp.hdr_domain .str_str_len == 0) return False;
234 if (p->ntlmssp_resp.hdr_wks .str_str_len == 0) return False;
236 if (lm_owf_len > sizeof(lm_owf)) return False;
237 if (nt_owf_len > sizeof(nt_owf)) return False;
239 memcpy(lm_owf, p->ntlmssp_resp.lm_resp, sizeof(lm_owf));
240 memcpy(nt_owf, p->ntlmssp_resp.nt_resp, sizeof(nt_owf));
242 #ifdef DEBUG_PASSWORD
243 DEBUG(100,("lm, nt owfs, chal\n"));
244 dump_data(100, lm_owf, sizeof(lm_owf));
245 dump_data(100, nt_owf, sizeof(nt_owf));
246 dump_data(100, p->ntlmssp_chal.challenge, 8);
249 memset(p->user_name, 0, sizeof(p->user_name));
250 memset(p->domain , 0, sizeof(p->domain ));
251 memset(p->wks , 0, sizeof(p->wks ));
253 if (IS_BITS_SET_ALL(p->ntlmssp_chal.neg_flags, NTLMSSP_NEGOTIATE_UNICODE))
255 unibuf_to_ascii(p->user_name, p->ntlmssp_resp.user,
256 MIN(p->ntlmssp_resp.hdr_usr .str_str_len/2,
257 sizeof(p->user_name)-1));
258 unibuf_to_ascii(p->domain , p->ntlmssp_resp.domain,
259 MIN(p->ntlmssp_resp.hdr_domain.str_str_len/2,
260 sizeof(p->domain )-1));
261 unibuf_to_ascii(p->wks , p->ntlmssp_resp.wks,
262 MIN(p->ntlmssp_resp.hdr_wks .str_str_len/2,
267 fstrcpy(p->user_name, p->ntlmssp_resp.user );
268 fstrcpy(p->domain , p->ntlmssp_resp.domain);
269 fstrcpy(p->wks , p->ntlmssp_resp.wks );
272 DEBUG(5,("user: %s domain: %s wks: %s\n", p->user_name, p->domain, p->wks));
275 p->ntlmssp_validated = pass_check_smb(p->user_name, p->domain,
276 (uchar*)p->ntlmssp_chal.challenge,
279 NULL, vuser->dc.user_sess_key);
280 smb_pass = getsmbpwnam(p->user_name);
283 if (p->ntlmssp_validated && smb_pass != NULL && smb_pass->smb_passwd)
286 NTLMSSPOWFencrypt(smb_pass->smb_passwd, lm_owf, p24);
298 for (ind = 0; ind < 256; ind++)
300 p->ntlmssp_hash[ind] = (unsigned char)ind;
303 for( ind = 0; ind < 256; ind++)
307 j += (p->ntlmssp_hash[ind] + k2[ind%8]);
309 tc = p->ntlmssp_hash[ind];
310 p->ntlmssp_hash[ind] = p->ntlmssp_hash[j];
311 p->ntlmssp_hash[j] = tc;
314 p->ntlmssp_hash[256] = 0;
315 p->ntlmssp_hash[257] = 0;
317 /* NTLMSSPhash(p->ntlmssp_hash, p24); */
318 p->ntlmssp_seq_num = 0;
322 p->ntlmssp_validated = False;
325 return p->ntlmssp_validated;
328 static BOOL api_pipe_ntlmssp(pipes_struct *p, prs_struct *pd)
330 /* receive a negotiate; send a challenge; receive a response */
331 switch (p->auth_verifier.msg_type)
333 case NTLMSSP_NEGOTIATE:
335 smb_io_rpc_auth_ntlmssp_neg("", &p->ntlmssp_neg, pd, 0);
340 smb_io_rpc_auth_ntlmssp_resp("", &p->ntlmssp_resp, pd, 0);
341 if (!api_pipe_ntlmssp_verify(p))
349 /* NTLMSSP expected: unexpected message type */
350 DEBUG(3,("unexpected message type in NTLMSSP %d\n",
351 p->auth_verifier.msg_type));
356 return (pd->offset != 0);
361 char * pipe_clnt_name;
362 char * pipe_srv_name;
363 BOOL (*fn) (pipes_struct *, prs_struct *);
366 static struct api_cmd api_fd_commands[] =
368 { "lsarpc", "lsass", api_ntlsa_rpc },
369 { "samr", "lsass", api_samr_rpc },
370 { "srvsvc", "ntsvcs", api_srvsvc_rpc },
371 { "wkssvc", "ntsvcs", api_wkssvc_rpc },
372 { "svcctl", "ntsvcs", api_svcctl_rpc },
373 { "NETLOGON", "lsass", api_netlog_rpc },
374 { "winreg", "winreg", api_reg_rpc },
375 { "spoolss", "spoolss", api_spoolss_rpc },
379 static BOOL api_pipe_bind_auth_resp(pipes_struct *p, prs_struct *pd)
381 DEBUG(5,("api_pipe_bind_auth_resp: decode request. %d\n", __LINE__));
383 if (p->hdr.auth_len == 0) return False;
385 /* decode the authentication verifier response */
386 smb_io_rpc_hdr_autha("", &p->autha_info, pd, 0);
387 if (pd->offset == 0) return False;
389 if (!rpc_hdr_auth_chk(&(p->auth_info))) return False;
391 smb_io_rpc_auth_ntlmssp_verifier("", &p->auth_verifier, pd, 0);
392 if (pd->offset == 0) return False;
394 if (!rpc_auth_ntlmssp_verifier_chk(&(p->auth_verifier), "NTLMSSP", NTLMSSP_AUTH)) return False;
396 return api_pipe_ntlmssp(p, pd);
399 static BOOL api_pipe_bind_and_alt_req(pipes_struct *p, prs_struct *pd, enum RPC_PKT_TYPE pkt_type)
402 fstring ack_pipe_name;
405 p->ntlmssp_auth = False;
407 DEBUG(5,("api_pipe_bind_req: decode request. %d\n", __LINE__));
409 for (i = 0; api_fd_commands[i].pipe_clnt_name; i++)
411 if (strequal(api_fd_commands[i].pipe_clnt_name, p->name) &&
412 api_fd_commands[i].fn != NULL)
414 DEBUG(3,("api_pipe_bind_req: \\PIPE\\%s -> \\PIPE\\%s\n",
415 api_fd_commands[i].pipe_clnt_name,
416 api_fd_commands[i].pipe_srv_name));
417 fstrcpy(p->pipe_srv_name, api_fd_commands[i].pipe_srv_name);
422 if (api_fd_commands[i].fn == NULL) return False;
424 /* decode the bind request */
425 smb_io_rpc_hdr_rb("", &p->hdr_rb, pd, 0);
427 if (pd->offset == 0) return False;
429 if (p->hdr.auth_len != 0)
431 /* decode the authentication verifier */
432 smb_io_rpc_hdr_auth ("", &p->auth_info , pd, 0);
433 if (pd->offset == 0) return False;
435 p->ntlmssp_auth = p->auth_info.auth_type = 0x0a;
439 smb_io_rpc_auth_ntlmssp_verifier("", &p->auth_verifier, pd, 0);
440 if (pd->offset == 0) return False;
442 p->ntlmssp_auth = strequal(p->auth_verifier.signature, "NTLMSSP");
447 if (!api_pipe_ntlmssp(p, pd)) return False;
455 /* name has to be \PIPE\xxxxx */
456 fstrcpy(ack_pipe_name, "\\PIPE\\");
457 fstrcat(ack_pipe_name, p->pipe_srv_name);
460 case RPC_ALTCONTRESP:
462 /* secondary address CAN be NULL
463 * as the specs says it's ignored.
464 * It MUST NULL to have the spoolss working.
466 fstrcpy(ack_pipe_name, "");
475 DEBUG(5,("api_pipe_bind_req: make response. %d\n", __LINE__));
477 prs_init(&(p->rdata), 1024, 4, 0, False);
478 prs_init(&(p->rhdr ), 0x18, 4, 0, False);
479 prs_init(&(p->rauth), 1024, 4, 0, False);
480 prs_init(&(p->rverf), 0x08, 4, 0, False);
481 prs_init(&(p->rntlm), 1024, 4, 0, False);
484 /*** do the bind ack first ***/
493 assoc_gid = p->hdr_rb.bba.assoc_gid;
496 make_rpc_hdr_ba(&p->hdr_ba,
497 p->hdr_rb.bba.max_tsize,
498 p->hdr_rb.bba.max_rsize,
502 &(p->hdr_rb.transfer));
504 smb_io_rpc_hdr_ba("", &p->hdr_ba, &p->rdata, 0);
505 mem_realloc_data(p->rdata.data, p->rdata.offset);
508 /*** now the authentication ***/
514 generate_random_buffer(challenge, 8, False);
516 /*** authentication info ***/
518 make_rpc_hdr_auth(&p->auth_info, 0x0a, 0x06, 0, 1);
519 smb_io_rpc_hdr_auth("", &p->auth_info, &p->rverf, 0);
520 mem_realloc_data(p->rverf.data, p->rverf.offset);
522 /*** NTLMSSP verifier ***/
524 make_rpc_auth_ntlmssp_verifier(&p->auth_verifier,
525 "NTLMSSP", NTLMSSP_CHALLENGE);
526 smb_io_rpc_auth_ntlmssp_verifier("", &p->auth_verifier, &p->rauth, 0);
527 mem_realloc_data(p->rauth.data, p->rauth.offset);
529 /* NTLMSSP challenge ***/
531 make_rpc_auth_ntlmssp_chal(&p->ntlmssp_chal,
532 0x000082b1, challenge);
533 smb_io_rpc_auth_ntlmssp_chal("", &p->ntlmssp_chal, &p->rntlm, 0);
534 mem_realloc_data(p->rntlm.data, p->rntlm.offset);
538 /*** then do the header, now we know the length ***/
541 make_rpc_hdr(&p->hdr, pkt_type, RPC_FLG_FIRST | RPC_FLG_LAST,
543 p->rdata.offset + p->rverf.offset + p->rauth.offset + p->rntlm.offset + 0x10,
544 p->rauth.offset + p->rntlm.offset);
546 smb_io_rpc_hdr("", &p->hdr, &p->rhdr, 0);
547 mem_realloc_data(p->rhdr.data, p->rdata.offset);
550 /*** link rpc header, bind acknowledgment and authentication responses ***/
555 prs_link(NULL , &p->rhdr , &p->rdata);
556 prs_link(&p->rhdr , &p->rdata, &p->rverf);
557 prs_link(&p->rdata, &p->rverf, &p->rauth);
558 prs_link(&p->rverf, &p->rauth, &p->rntlm);
559 prs_link(&p->rauth, &p->rntlm, NULL );
563 prs_link(NULL , &p->rhdr , &p->rdata);
564 prs_link(&p->rhdr, &p->rdata, NULL );
571 * The RPC Alter-Context call is used only by the spoolss pipe
572 * simply because there is a bug (?) in the MS unmarshalling code
573 * or in the marshalling code. If it's in the later, then Samba
576 static BOOL api_pipe_bind_req(pipes_struct *p, prs_struct *pd)
578 return api_pipe_bind_and_alt_req(p, pd, RPC_BINDACK);
581 static BOOL api_pipe_alt_req(pipes_struct *p, prs_struct *pd)
583 return api_pipe_bind_and_alt_req(p, pd, RPC_ALTCONTRESP);
586 static BOOL api_pipe_auth_process(pipes_struct *p, prs_struct *pd)
588 BOOL auth_verify = IS_BITS_SET_ALL(p->ntlmssp_chal.neg_flags, NTLMSSP_NEGOTIATE_SIGN);
589 BOOL auth_seal = IS_BITS_SET_ALL(p->ntlmssp_chal.neg_flags, NTLMSSP_NEGOTIATE_SEAL);
595 auth_len = p->hdr.auth_len;
597 if (auth_len != 16 && auth_verify)
602 data_len = p->hdr.frag_len - auth_len - (auth_verify ? 8 : 0) - 0x18;
604 DEBUG(5,("api_pipe_auth_process: sign: %s seal: %s data %d auth %d\n",
605 BOOLSTR(auth_verify), BOOLSTR(auth_seal), data_len, auth_len));
609 char *data = mem_data(&pd->data, pd->offset);
610 DEBUG(5,("api_pipe_auth_process: data %d\n", pd->offset));
611 NTLMSSPcalc_p(p, (uchar*)data, data_len);
612 crc32 = crc32_calc_buffer(data_len, data);
615 /*** skip the data, record the offset so we can restore it again */
616 old_offset = pd->offset;
618 if (auth_seal || auth_verify)
620 pd->offset += data_len;
621 smb_io_rpc_hdr_auth("hdr_auth", &p->auth_info, pd, 0);
626 char *req_data = mem_data(&pd->data, pd->offset + 4);
627 DEBUG(5,("api_pipe_auth_process: auth %d\n", pd->offset + 4));
628 NTLMSSPcalc_p(p, (uchar*)req_data, 12);
629 smb_io_rpc_auth_ntlmssp_chk("auth_sign", &(p->ntlmssp_chk), pd, 0);
631 if (!rpc_auth_ntlmssp_chk(&(p->ntlmssp_chk), crc32,
638 pd->offset = old_offset;
643 static BOOL api_pipe_request(pipes_struct *p, prs_struct *pd)
647 if (p->ntlmssp_auth && p->ntlmssp_validated)
649 if (!api_pipe_auth_process(p, pd)) return False;
651 DEBUG(0,("api_pipe_request: **** MUST CALL become_user() HERE **** \n"));
657 for (i = 0; api_fd_commands[i].pipe_clnt_name; i++)
659 if (strequal(api_fd_commands[i].pipe_clnt_name, p->name) &&
660 api_fd_commands[i].fn != NULL)
662 DEBUG(3,("Doing \\PIPE\\%s\n", api_fd_commands[i].pipe_clnt_name));
663 return api_fd_commands[i].fn(p, pd);
669 BOOL rpc_command(pipes_struct *p, prs_struct *pd)
672 if (pd->data == NULL) return False;
674 /* process the rpc header */
675 smb_io_rpc_hdr("", &p->hdr, pd, 0);
677 if (pd->offset == 0) return False;
679 switch (p->hdr.pkt_type)
683 reply = api_pipe_bind_req(p, pd);
688 reply = api_pipe_alt_req(p, pd);
693 if (p->ntlmssp_auth && !p->ntlmssp_validated)
695 /* authentication _was_ requested
696 and it failed. sorry, no deal!
702 /* read the rpc header */
703 smb_io_rpc_hdr_req("req", &(p->hdr_req), pd, 0);
704 reply = api_pipe_request(p, pd);
708 case RPC_BINDRESP: /* not the real name! */
710 reply = api_pipe_bind_auth_resp(p, pd);
711 p->ntlmssp_auth = reply;
718 DEBUG(3,("rpc_command: DCE/RPC fault should be sent here\n"));
725 /*******************************************************************
726 receives a netlogon pipe and responds.
727 ********************************************************************/
728 static BOOL api_rpc_command(pipes_struct *p,
729 char *rpc_name, struct api_struct *api_rpc_cmds,
733 DEBUG(4,("api_rpc_command: %s op 0x%x - ", rpc_name, p->hdr_req.opnum));
735 for (fn_num = 0; api_rpc_cmds[fn_num].name; fn_num++)
737 if (api_rpc_cmds[fn_num].opnum == p->hdr_req.opnum && api_rpc_cmds[fn_num].fn != NULL)
739 DEBUG(3,("api_rpc_command: %s\n", api_rpc_cmds[fn_num].name));
744 if (api_rpc_cmds[fn_num].name == NULL)
746 DEBUG(4, ("unknown\n"));
750 /* start off with 1024 bytes, and a large safety margin too */
751 prs_init(&p->rdata, 1024, 4, SAFETY_MARGIN, False);
753 /* do the actual command */
754 api_rpc_cmds[fn_num].fn(p, data, &(p->rdata));
756 if (p->rdata.data == NULL || p->rdata.offset == 0)
758 mem_free_data(p->rdata.data);
762 mem_realloc_data(p->rdata.data, p->rdata.offset);
764 DEBUG(10,("called %s\n", rpc_name));
770 /*******************************************************************
771 receives a netlogon pipe and responds.
772 ********************************************************************/
773 BOOL api_rpcTNP(pipes_struct *p, char *rpc_name, struct api_struct *api_rpc_cmds,
776 if (data == NULL || data->data == NULL)
778 DEBUG(2,("%s: NULL data received\n", rpc_name));
782 /* interpret the command */
783 if (!api_rpc_command(p, rpc_name, api_rpc_cmds, data))
788 /* create the rpc header */
789 if (!create_rpc_reply(p, 0, p->rdata.offset + (p->ntlmssp_auth ? (16 + 8) : 0)))