/* 
 *  Unix SMB/Netbios implementation.
 *  Version 1.9.
 *  RPC Pipe client / server routines
 *  Copyright (C) Andrew Tridgell              1992-1998
 *  Copyright (C) Luke Kenneth Casson Leighton 1996-1998,
 *  Copyright (C) Paul Ashton                  1997-1998.
 *  
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2 of the License, or
 *  (at your option) any later version.
 *  
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *  
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 */

/*  this module apparently provides an implementation of DCE/RPC over a
 *  named pipe (IPC$ connection using SMBtrans).  details of DCE/RPC
 *  documentation are available (in on-line form) from the X-Open group.
 *
 *  this module should provide a level of abstraction between SMB
 *  and DCE/RPC, while minimising the amount of mallocs, unnecessary
 *  data copies, and network traffic.
 *
 *  in this version, which takes a "let's learn what's going on and
 *  get something running" approach, there is additional network
 *  traffic generated, but the code should be easier to understand...
 *
 *  ... if you read the docs.  or stare at packets for weeks on end.
 *
 */

#include "includes.h"
#include "nterr.h"

extern int DEBUGLEVEL;

static void NTLMSSPcalc_p( rpcsrv_struct *p, unsigned char *data, int len)
{
    unsigned char *hash = p->ntlmssp_hash;
    unsigned char index_i = hash[256];
    unsigned char index_j = hash[257];
    int ind;

    for( ind = 0; ind < len; ind++)
    {
        unsigned char tc;
        unsigned char t;

        index_i++;
        index_j += hash[index_i];

        tc = hash[index_i];
        hash[index_i] = hash[index_j];
        hash[index_j] = tc;

        t = hash[index_i] + hash[index_j];
        data[ind] = data[ind] ^ hash[t];
    }

    hash[256] = index_i;
    hash[257] = index_j;
}

/*******************************************************************
 frees all temporary data used in construction of pdu
 ********************************************************************/
void rpcsrv_free_temp(rpcsrv_struct *l)
{
	mem_free_data(l->rhdr .data);
	mem_free_data(l->rfault .data);
	mem_free_data(l->rdata_i.data);		
	mem_free_data(l->rauth  .data);
	mem_free_data(l->rverf  .data);
	mem_free_data(l->rntlm  .data);		
}

/*******************************************************************
 turns a DCE/RPC request into a DCE/RPC reply

 this is where the data really should be split up into an array of
 headers and data sections.

 ********************************************************************/
BOOL create_rpc_reply(rpcsrv_struct *l, uint32 data_start)
{
	char *data;
	BOOL auth_verify = IS_BITS_SET_ALL(l->ntlmssp_chal.neg_flags, NTLMSSP_NEGOTIATE_SIGN);
	BOOL auth_seal   = IS_BITS_SET_ALL(l->ntlmssp_chal.neg_flags, NTLMSSP_NEGOTIATE_SEAL);
	uint32 data_len;
	uint32 auth_len;
	uint32 data_end = l->rdata.offset + (l->ntlmssp_auth ? (8 + 16) : 0);

	DEBUG(5,("create_rpc_reply: data_start: %d data_end: %d max_tsize: %d\n",
	          data_start, data_end, l->hdr_ba.bba.max_tsize));

	auth_len = l->hdr.auth_len;

	if (l->ntlmssp_auth)
	{
		DEBUG(10,("create_rpc_reply: auth\n"));
		if (auth_len != 16)
		{
			return False;
		}
	}

	prs_init(&l->rhdr , 0x18, 4, 0, False);
	prs_init(&l->rauth, 1024, 4, 0, False);
	prs_init(&l->rverf, 0x10, 4, 0, False);

	l->hdr.pkt_type = RPC_RESPONSE; /* mark header as an rpc response */

	/* set up rpc header (fragmentation issues) */
	if (data_start == 0)
	{
		l->hdr.flags = RPC_FLG_FIRST;
	}
	else
	{
		l->hdr.flags = 0;
	}

	l->hdr_resp.alloc_hint = data_end - data_start; /* calculate remaining data to be sent */

	if (l->hdr_resp.alloc_hint + 0x18 <= l->hdr_ba.bba.max_tsize)
	{
		l->hdr.flags |= RPC_FLG_LAST;
		l->hdr.frag_len = l->hdr_resp.alloc_hint + 0x18;
	}
	else
	{
		l->hdr.frag_len = l->hdr_ba.bba.max_tsize;
	}

	if (l->ntlmssp_auth)
	{
		l->hdr_resp.alloc_hint -= auth_len + 8;
	}

	if (l->ntlmssp_auth)
	{
		data_len = l->hdr.frag_len - auth_len - (auth_verify ? 8 : 0) - 0x18;
	}
	else
	{
		data_len = l->hdr.frag_len - 0x18;
	}

	l->rhdr.data->offset.start = 0;
	l->rhdr.data->offset.end   = 0x18;

	/* store the header in the data stream */
	smb_io_rpc_hdr     ("hdr" , &(l->hdr     ), &(l->rhdr), 0);
	smb_io_rpc_hdr_resp("resp", &(l->hdr_resp), &(l->rhdr), 0);

	/* don't use rdata: use rdata_i instead, which moves... */
	/* make a pointer to the rdata data, NOT A COPY */

	l->rdata_i.data = NULL;
	prs_init(&l->rdata_i, 0, l->rdata.align, l->rdata.data->margin, l->rdata.io);
	data = mem_data(&(l->rdata.data), data_start);
	mem_create(l->rdata_i.data, data, 0, data_len, 0, False); 
	l->rdata_i.offset = data_len;

	if (auth_len > 0)
	{
		uint32 crc32 = 0;

		DEBUG(5,("create_rpc_reply: sign: %s seal: %s data %d auth %d\n",
			 BOOLSTR(auth_verify), BOOLSTR(auth_seal), data_len, auth_len));

		if (auth_seal)
		{
			crc32 = crc32_calc_buffer(data_len, data);
			NTLMSSPcalc_p(l, (uchar*)data, data_len);
		}

		if (auth_seal || auth_verify)
		{
			make_rpc_hdr_auth(&l->auth_info, 0x0a, 0x06, 0x08, (auth_verify ? 1 : 0));
			smb_io_rpc_hdr_auth("hdr_auth", &l->auth_info, &l->rauth, 0);
		}

		if (auth_verify)
		{
			char *auth_data;
			l->ntlmssp_seq_num++;
			make_rpc_auth_ntlmssp_chk(&l->ntlmssp_chk, NTLMSSP_SIGN_VERSION, crc32, l->ntlmssp_seq_num++);
			smb_io_rpc_auth_ntlmssp_chk("auth_sign", &(l->ntlmssp_chk), &l->rverf, 0);
			auth_data = mem_data(&l->rverf.data, 4);
			NTLMSSPcalc_p(l, (uchar*)auth_data, 12);
		}
	}

	/* set up the data chain */
	if (l->ntlmssp_auth)
	{
		prs_link(NULL       , &l->rhdr   , &l->rdata_i);
		prs_link(&l->rhdr   , &l->rdata_i, &l->rauth  );
		prs_link(&l->rdata_i, &l->rauth  , &l->rverf  );
		prs_link(&l->rauth  , &l->rverf  , NULL       );
	}
	else
	{
		prs_link(NULL    , &l->rhdr   , &l->rdata_i);
		prs_link(&l->rhdr, &l->rdata_i, NULL       );
	}

	return l->rhdr.data != NULL && l->rhdr.offset == 0x18;
}

static BOOL api_pipe_ntlmssp_verify(rpcsrv_struct *l)
{
	uchar *pwd = NULL;
	uchar null_pwd[16];
	uchar lm_owf[24];
	uchar nt_owf[128];
	size_t lm_owf_len;
	size_t nt_owf_len;
	size_t usr_len;
	size_t dom_len;
	size_t wks_len;
	BOOL anonymous = False;

	struct smb_passwd *smb_pass = NULL;
	
	memset(null_pwd, 0, sizeof(null_pwd));

	DEBUG(5,("api_pipe_ntlmssp_verify: checking user details\n"));

	lm_owf_len = l->ntlmssp_resp.hdr_lm_resp.str_str_len;
	nt_owf_len = l->ntlmssp_resp.hdr_nt_resp.str_str_len;
	usr_len    = l->ntlmssp_resp.hdr_usr    .str_str_len;
	dom_len    = l->ntlmssp_resp.hdr_domain .str_str_len;
	wks_len    = l->ntlmssp_resp.hdr_wks    .str_str_len;

	if (lm_owf_len == 0 && nt_owf_len == 0 &&
	    usr_len == 0 && dom_len == 0 && wks_len == 0)
	{
		anonymous = True;
	}
	else
	{
		if (lm_owf_len == 0) return False;
		if (nt_owf_len == 0) return False;
		if (l->ntlmssp_resp.hdr_usr    .str_str_len == 0) return False;
		if (l->ntlmssp_resp.hdr_domain .str_str_len == 0) return False;
		if (l->ntlmssp_resp.hdr_wks    .str_str_len == 0) return False;
	}

	if (lm_owf_len > sizeof(lm_owf)) return False;
	if (nt_owf_len > sizeof(nt_owf)) return False;

	memcpy(lm_owf, l->ntlmssp_resp.lm_resp, sizeof(lm_owf));
	memcpy(nt_owf, l->ntlmssp_resp.nt_resp, sizeof(nt_owf));

#ifdef DEBUG_PASSWORD
	DEBUG(100,("lm, nt owfs, chal\n"));
	dump_data(100, lm_owf, sizeof(lm_owf));
	dump_data(100, nt_owf, sizeof(nt_owf));
	dump_data(100, l->ntlmssp_chal.challenge, 8);
#endif

	memset(l->user_name, 0, sizeof(l->user_name));
	memset(l->domain   , 0, sizeof(l->domain   ));
	memset(l->wks      , 0, sizeof(l->wks      ));

	if (IS_BITS_SET_ALL(l->ntlmssp_chal.neg_flags, NTLMSSP_NEGOTIATE_UNICODE))
	{
		unibuf_to_ascii(l->user_name, l->ntlmssp_resp.user,
				MIN(l->ntlmssp_resp.hdr_usr   .str_str_len/2,
				    sizeof(l->user_name)-1));
		unibuf_to_ascii(l->domain   , l->ntlmssp_resp.domain,
				MIN(l->ntlmssp_resp.hdr_domain.str_str_len/2,
				    sizeof(l->domain   )-1));
		unibuf_to_ascii(l->wks      , l->ntlmssp_resp.wks,
				MIN(l->ntlmssp_resp.hdr_wks   .str_str_len/2,
				    sizeof(l->wks      )-1));
	}
	else
	{
		fstrcpy(l->user_name, l->ntlmssp_resp.user  );
		fstrcpy(l->domain   , l->ntlmssp_resp.domain);
		fstrcpy(l->wks      , l->ntlmssp_resp.wks   );
	}


	if (anonymous)
	{
		DEBUG(5,("anonymous user session\n"));
		mdfour(l->user_sess_key, null_pwd, 16);
		pwd = null_pwd;
		l->ntlmssp_validated = True;
	}
	else
	{
		DEBUG(5,("user: %s domain: %s wks: %s\n", l->user_name, l->domain, l->wks));
		become_root(True);
		smb_pass = getsmbpwnam(l->user_name);
		l->ntlmssp_validated = pass_check_smb(smb_pass, l->domain,
				      (uchar*)l->ntlmssp_chal.challenge,
				      lm_owf, lm_owf_len,
				      nt_owf, nt_owf_len,
				      NULL, l->user_sess_key);
		unbecome_root(True);

		if (smb_pass != NULL)
		{
			pwd = smb_pass->smb_passwd;
		}
	}

	if (l->ntlmssp_validated && pwd != NULL)
	{
		uchar p24[24];
		NTLMSSPOWFencrypt(pwd, lm_owf, p24);
		{
			unsigned char j = 0;
			int ind;

			unsigned char k2[8];

			memcpy(k2, p24, 5);
			k2[5] = 0xe5;
			k2[6] = 0x38;
			k2[7] = 0xb0;

			for (ind = 0; ind < 256; ind++)
			{
				l->ntlmssp_hash[ind] = (unsigned char)ind;
			}

			for( ind = 0; ind < 256; ind++)
			{
				unsigned char tc;

				j += (l->ntlmssp_hash[ind] + k2[ind%8]);

				tc = l->ntlmssp_hash[ind];
				l->ntlmssp_hash[ind] = l->ntlmssp_hash[j];
				l->ntlmssp_hash[j] = tc;
			}

			l->ntlmssp_hash[256] = 0;
			l->ntlmssp_hash[257] = 0;
		}
		l->ntlmssp_seq_num = 0;
	}
	else
	{
		l->ntlmssp_validated = False;
	}

	return l->ntlmssp_validated;
}

static BOOL api_pipe_ntlmssp(rpcsrv_struct *l, prs_struct *pd)
{
	/* receive a negotiate; send a challenge; receive a response */
	switch (l->auth_verifier.msg_type)
	{
		case NTLMSSP_NEGOTIATE:
		{
			smb_io_rpc_auth_ntlmssp_neg("", &l->ntlmssp_neg, pd, 0);
			break;
		}
		case NTLMSSP_AUTH:
		{
			smb_io_rpc_auth_ntlmssp_resp("", &l->ntlmssp_resp, pd, 0);
			if (!api_pipe_ntlmssp_verify(l))
			{
				pd->offset = 0;
			}
			break;
		}
		default:
		{
			/* NTLMSSP expected: unexpected message type */
			DEBUG(3,("unexpected message type in NTLMSSP %d\n",
			          l->auth_verifier.msg_type));
			return False;
		}
	}

	return (pd->offset != 0);
}

struct api_cmd
{
  char * pipe_clnt_name;
  char * pipe_srv_name;
  BOOL (*fn) (rpcsrv_struct *, prs_struct *);
};

static struct api_cmd **api_fd_commands = NULL;
uint32 num_cmds = 0;

static void api_cmd_free(struct api_cmd *item)
{
	if (item != NULL)
	{
		if (item->pipe_clnt_name != NULL)
		{
			free(item->pipe_clnt_name);
		}
		if (item->pipe_srv_name != NULL)
		{
			free(item->pipe_srv_name);
		}
		free(item);
	}
}

static struct api_cmd *api_cmd_dup(const struct api_cmd *from)
{
	struct api_cmd *copy = NULL;
	if (from == NULL)
	{
		return NULL;
	}
	copy = (struct api_cmd *) malloc(sizeof(struct api_cmd));
	if (copy != NULL)
	{
		ZERO_STRUCTP(copy);
		if (from->pipe_clnt_name != NULL)
		{
			copy->pipe_clnt_name  = strdup(from->pipe_clnt_name );
		}
		if (from->pipe_srv_name != NULL)
		{
			copy->pipe_srv_name = strdup(from->pipe_srv_name);
		}
		if (from->fn != NULL)
		{
			copy->fn    = from->fn;
		}
	}
	return copy;
}

static void free_api_cmd_array(uint32 num_entries, struct api_cmd **entries)
{
	void(*fn)(void*) = (void(*)(void*))&api_cmd_free;
	free_void_array(num_entries, (void**)entries, *fn);
}

static struct api_cmd* add_api_cmd_to_array(uint32 *len,
				struct api_cmd ***array,
				const struct api_cmd *name)
{
	void*(*fn)(const void*) = (void*(*)(const void*))&api_cmd_dup;
	return (struct api_cmd*)add_copy_to_array(len,
	                     (void***)array, (const void*)name, *fn, False);
				
}

#if 0
{
    { "lsarpc",   "lsass",   api_ntlsa_rpc },
    { "samr",     "lsass",   api_samr_rpc },
    { "srvsvc",   "ntsvcs",  api_srvsvc_rpc },
    { "wkssvc",   "ntsvcs",  api_wkssvc_rpc },
    { "browser",  "ntsvcs",  api_brs_rpc },
    { "svcctl",   "ntsvcs",  api_svcctl_rpc },
    { "NETLOGON", "lsass",   api_netlog_rpc },
    { "winreg",   "winreg",  api_reg_rpc },
    { "spoolss",  "spoolss", api_spoolss_rpc },
    { NULL,       NULL,      NULL }
};
#endif

void close_msrpc_command_processor(void)
{
	free_api_cmd_array(num_cmds, api_fd_commands);
}

void add_msrpc_command_processor(char* pipe_name,
				char* process_name,
				BOOL (*fn) (rpcsrv_struct *, prs_struct *))
{
	struct api_cmd cmd;
	cmd.pipe_clnt_name = pipe_name;
	cmd.pipe_srv_name = process_name;
	cmd.fn = fn;

	add_api_cmd_to_array(&num_cmds, &api_fd_commands, &cmd);
}

static BOOL api_pipe_bind_auth_resp(rpcsrv_struct *l, prs_struct *pd)
{
	DEBUG(5,("api_pipe_bind_auth_resp: decode request. %d\n", __LINE__));

	if (l->hdr.auth_len == 0) return False;

	/* decode the authentication verifier response */
	smb_io_rpc_hdr_autha("", &l->autha_info, pd, 0);
	if (pd->offset == 0) return False;

	if (!rpc_hdr_auth_chk(&(l->auth_info))) return False;

	smb_io_rpc_auth_ntlmssp_verifier("", &l->auth_verifier, pd, 0);
	if (pd->offset == 0) return False;

	if (!rpc_auth_ntlmssp_verifier_chk(&(l->auth_verifier), "NTLMSSP", NTLMSSP_AUTH)) return False;
	
	return api_pipe_ntlmssp(l, pd);
}

static BOOL api_pipe_fault_resp(rpcsrv_struct *l, prs_struct *pd, uint32 status)
{
	DEBUG(5,("api_pipe_fault_resp: make response\n"));

	prs_init(&(l->rhdr     ), 0x18, 4, 0, False);
	prs_init(&(l->rfault   ), 0x8 , 4, 0, False);

	/***/
	/*** set up the header, response header and fault status ***/
	/***/

	l->hdr_fault.status   = status;
	l->hdr_fault.reserved = 0x0;

	l->hdr_resp.alloc_hint   = 0x0;
	l->hdr_resp.cancel_count = 0x0;
	l->hdr_resp.reserved     = 0x0;

	make_rpc_hdr(&l->hdr, RPC_FAULT, RPC_FLG_NOCALL | RPC_FLG_FIRST | RPC_FLG_LAST,
	             l->hdr.call_id,
	             0x20,
	             0);

	smb_io_rpc_hdr      ("hdr"  , &(l->hdr      ), &(l->rhdr), 0);
	smb_io_rpc_hdr_resp ("resp" , &(l->hdr_resp ), &(l->rhdr), 0);
	smb_io_rpc_hdr_fault("fault", &(l->hdr_fault), &(l->rfault), 0);
	mem_realloc_data(l->rhdr.data, l->rhdr.offset);
	mem_realloc_data(l->rfault.data, l->rfault.offset);

	/***/
	/*** link rpc header and fault together ***/
	/***/

	prs_link(NULL    , &l->rhdr  , &l->rfault);
	prs_link(&l->rhdr, &l->rfault, NULL      );

	return True;
}

static BOOL srv_pipe_bind_and_alt_req(rpcsrv_struct *l, prs_struct *pd, 
				const char* ack_pipe_name,
				enum RPC_PKT_TYPE pkt_type)
{
	uint16 assoc_gid;

	l->ntlmssp_auth = False;

	/* decode the bind request */
	smb_io_rpc_hdr_rb("", &l->hdr_rb, pd, 0);

	if (pd->offset == 0) return False;

	if (l->hdr.auth_len != 0)
	{
		/* decode the authentication verifier */
		smb_io_rpc_hdr_auth    ("", &l->auth_info    , pd, 0);
		if (pd->offset == 0) return False;

		l->ntlmssp_auth = l->auth_info.auth_type = 0x0a;

		if (l->ntlmssp_auth)
		{
			smb_io_rpc_auth_ntlmssp_verifier("", &l->auth_verifier, pd, 0);
			if (pd->offset == 0) return False;

			l->ntlmssp_auth = strequal(l->auth_verifier.signature, "NTLMSSP");
		}

		if (l->ntlmssp_auth)
		{
			if (!api_pipe_ntlmssp(l, pd)) return False;
		}
	}

	DEBUG(5,("api_pipe_bind_req: make response. %d\n", __LINE__));

	prs_init(&(l->rdata), 1024, 4, 0, False);
	prs_init(&(l->rhdr ), 0x18, 4, 0, False);
	prs_init(&(l->rauth), 1024, 4, 0, False);
	prs_init(&(l->rverf), 0x08, 4, 0, False);
	prs_init(&(l->rntlm), 1024, 4, 0, False);

	/***/
	/*** do the bind ack first ***/
	/***/

	if (l->ntlmssp_auth)
	{
		assoc_gid = 0x7a77;
	}
	else
	{
		assoc_gid = l->hdr_rb.bba.assoc_gid;
	}

	make_rpc_hdr_ba(&l->hdr_ba,
	                l->hdr_rb.bba.max_tsize,
	                l->hdr_rb.bba.max_rsize,
	                assoc_gid,
	                ack_pipe_name,
	                0x1, 0x0, 0x0,
	                &(l->hdr_rb.transfer));

	smb_io_rpc_hdr_ba("", &l->hdr_ba, &l->rdata, 0);
	mem_realloc_data(l->rdata.data, l->rdata.offset);

	/***/
	/*** now the authentication ***/
	/***/

	if (l->ntlmssp_auth)
	{
		uint8 challenge[8];
		generate_random_buffer(challenge, 8, False);

		/*** authentication info ***/

		make_rpc_hdr_auth(&l->auth_info, 0x0a, 0x06, 0, 1);
		smb_io_rpc_hdr_auth("", &l->auth_info, &l->rverf, 0);
		mem_realloc_data(l->rverf.data, l->rverf.offset);

		/*** NTLMSSP verifier ***/

		make_rpc_auth_ntlmssp_verifier(&l->auth_verifier,
		                       "NTLMSSP", NTLMSSP_CHALLENGE);
		smb_io_rpc_auth_ntlmssp_verifier("", &l->auth_verifier, &l->rauth, 0);
		mem_realloc_data(l->rauth.data, l->rauth.offset);

		/* NTLMSSP challenge ***/

		make_rpc_auth_ntlmssp_chal(&l->ntlmssp_chal,
		                           0x000082b1, challenge);
		smb_io_rpc_auth_ntlmssp_chal("", &l->ntlmssp_chal, &l->rntlm, 0);
		mem_realloc_data(l->rntlm.data, l->rntlm.offset);
	}

	/***/
	/*** then do the header, now we know the length ***/
	/***/

	make_rpc_hdr(&l->hdr, pkt_type, RPC_FLG_FIRST | RPC_FLG_LAST,
	             l->hdr.call_id,
	             l->rdata.offset + l->rverf.offset + l->rauth.offset + l->rntlm.offset + 0x10,
	             l->rauth.offset + l->rntlm.offset);

	smb_io_rpc_hdr("", &l->hdr, &l->rhdr, 0);
	mem_realloc_data(l->rhdr.data, l->rdata.offset);

	/***/
	/*** link rpc header, bind acknowledgment and authentication responses ***/
	/***/

	if (l->ntlmssp_auth)
	{
		prs_link(NULL     , &l->rhdr , &l->rdata);
		prs_link(&l->rhdr , &l->rdata, &l->rverf);
		prs_link(&l->rdata, &l->rverf, &l->rauth);
		prs_link(&l->rverf, &l->rauth, &l->rntlm);
		prs_link(&l->rauth, &l->rntlm, NULL     );
	}
	else
	{
		prs_link(NULL    , &l->rhdr , &l->rdata);
		prs_link(&l->rhdr, &l->rdata, NULL     );
	}

	return True;
}

static BOOL api_pipe_bind_and_alt_req(rpcsrv_struct *l, prs_struct *pd,
				const char* name,
				enum RPC_PKT_TYPE pkt_type)
{
	fstring ack_pipe_name;
	fstring pipe_srv_name;
	int i = 0;

	DEBUG(5,("api_pipe_bind_req: decode request. %d\n", __LINE__));

	for (i = 0; i < num_cmds; i++)
	{
		if (strequal(api_fd_commands[i]->pipe_clnt_name, name) &&
		    api_fd_commands[i]->fn != NULL)
		{
			DEBUG(3,("api_pipe_bind_req: \\PIPE\\%s -> \\PIPE\\%s\n",
			           api_fd_commands[i]->pipe_clnt_name,
			           api_fd_commands[i]->pipe_srv_name));
			fstrcpy(pipe_srv_name, api_fd_commands[i]->pipe_srv_name);
			break;
		}
	}

	if (api_fd_commands[i]->fn == NULL) return False;

	switch (pkt_type)
	{
		case RPC_BINDACK:
		{
			/* name has to be \PIPE\xxxxx */
			fstrcpy(ack_pipe_name, "\\PIPE\\");
			fstrcat(ack_pipe_name, pipe_srv_name);
			break;
		}
		case RPC_ALTCONTRESP:
		{
			/* secondary address CAN be NULL
			 * as the specs says it's ignored.
			 * It MUST NULL to have the spoolss working.
			 */
			fstrcpy(ack_pipe_name, "");
			break;
		}
		default:
		{
			return False;
		}
	}
	return srv_pipe_bind_and_alt_req(l, pd, ack_pipe_name, pkt_type);
}

/*
 * The RPC Alter-Context call is used only by the spoolss pipe
 * simply because there is a bug (?) in the MS unmarshalling code
 * or in the marshalling code. If it's in the later, then Samba
 * have the same bug.
 */
static BOOL api_pipe_bind_req(rpcsrv_struct *l, prs_struct *pd,
				const char* name)
{
	return api_pipe_bind_and_alt_req(l, pd, name, RPC_BINDACK);
}

static BOOL api_pipe_alt_req(rpcsrv_struct *l, prs_struct *pd,
				const char* name)
{
	return api_pipe_bind_and_alt_req(l, pd, name, RPC_ALTCONTRESP);
}

static BOOL api_pipe_auth_process(rpcsrv_struct *l, prs_struct *pd)
{
	BOOL auth_verify = IS_BITS_SET_ALL(l->ntlmssp_chal.neg_flags, NTLMSSP_NEGOTIATE_SIGN);
	BOOL auth_seal   = IS_BITS_SET_ALL(l->ntlmssp_chal.neg_flags, NTLMSSP_NEGOTIATE_SEAL);
	int data_len;
	int auth_len;
	uint32 old_offset;
	uint32 crc32 = 0;

	auth_len = l->hdr.auth_len;

	if (auth_len != 16 && auth_verify)
	{
		return False;
	}

	data_len = l->hdr.frag_len - auth_len - (auth_verify ? 8 : 0) - 0x18;
	
	DEBUG(5,("api_pipe_auth_process: sign: %s seal: %s data %d auth %d\n",
	         BOOLSTR(auth_verify), BOOLSTR(auth_seal), data_len, auth_len));

	if (auth_seal)
	{
		char *data = mem_data(&pd->data, pd->offset);
		DEBUG(5,("api_pipe_auth_process: data %d\n", pd->offset));
		NTLMSSPcalc_p(l, (uchar*)data, data_len);
		crc32 = crc32_calc_buffer(data_len, data);
	}

	/*** skip the data, record the offset so we can restore it again */
	old_offset = pd->offset;

	if (auth_seal || auth_verify)
	{
		pd->offset += data_len;
		smb_io_rpc_hdr_auth("hdr_auth", &l->auth_info, pd, 0);
	}

	if (auth_verify)
	{
		char *req_data = mem_data(&pd->data, pd->offset + 4);
		DEBUG(5,("api_pipe_auth_process: auth %d\n", pd->offset + 4));
		NTLMSSPcalc_p(l, (uchar*)req_data, 12);
		smb_io_rpc_auth_ntlmssp_chk("auth_sign", &(l->ntlmssp_chk), pd, 0);

		if (!rpc_auth_ntlmssp_chk(&(l->ntlmssp_chk), crc32,
		                          l->ntlmssp_seq_num))
		{
			return False;
		}
	}

	pd->offset = old_offset;

	return True;
}

static BOOL api_pipe_request(rpcsrv_struct *l, prs_struct *pd, const char* name)
{
	int i = 0;

	if (l->ntlmssp_auth && l->ntlmssp_validated)
	{
		if (!api_pipe_auth_process(l, pd)) return False;

		DEBUG(0,("api_pipe_request: **** MUST CALL become_user() HERE **** \n"));
#if 0
		become_user();
#endif
	}

	for (i = 0; i < num_cmds; i++)
	{
		if (strequal(api_fd_commands[i]->pipe_clnt_name, name) &&
		    api_fd_commands[i]->fn != NULL)
		{
			DEBUG(3,("Doing \\PIPE\\%s\n", api_fd_commands[i]->pipe_clnt_name));
			return api_fd_commands[i]->fn(l, pd);
		}
	}
	return False;
}

BOOL rpc_add_to_pdu(prs_struct *ps, const char *data, int len)
{
	int prev_size;
	int new_size;
	char *to = NULL;

	ps->offset = 0;

	if (ps->data == NULL)
	{
		DEBUG(10,("rpc_add_to_pdu: new_size: %d\n", len));
		prs_init(ps, len, 4, 0, True);
		prev_size = 0;
		new_size  = len;
		if (ps->data == NULL)
		{
			return False;
		}
	}
	else
	{
		prev_size = ps->data->data_used;
		new_size  = prev_size + len;
		DEBUG(10,("rpc_add_to_pdu: prev_size: %d new_size: %d\n",
				prev_size, new_size));
		if (!mem_realloc_data(ps->data, new_size))
		{
			return False;
		}
	}

	DEBUG(10,("ps->data->start: %d\n", ps->data->offset.start));
	ps->data->offset.start = 0x0;

	to = mem_data(&ps->data, prev_size);
	if (to == NULL)
	{
		DEBUG(10,("rpc_add_to_pdu: data could not be found\n"));
		return False;
	}
	if (ps->data->data_used != new_size)
	{
		DEBUG(10,("rpc_add_to_pdu: ERROR: data used %d new_size %d\n",
				ps->data->data_used, new_size));
		return False;
	}
	memcpy(to, data, len);
	return True;
}

static BOOL rpc_redir_remote(pipes_struct *p, prs_struct *req, prs_struct *resp)
{
	DEBUG(10,("rpc_redirect\n"));

	if (!msrpc_send_prs(p->m, req))
	{
		DEBUG(2,("msrpc redirect send failed\n"));
		return False;
	}
	if (!msrpc_receive_prs(p->m, resp))
	{
		DEBUG(2,("msrpc redirect receive failed\n"));
		return False;
	}
	prs_link(NULL, resp, NULL);
	prs_debug_out(resp, "redirect", 100);
	return True;
}

static BOOL rpc_redir_local(rpcsrv_struct *l, prs_struct *req, prs_struct *resp,
				const char* name)
{
	BOOL reply = False;

	if (req->data == NULL) return False;

	/* lkclXXXX still assume that the first complete PDU is always
	   in a single request!!!
	 */
	/* process the rpc header */
	req->offset = 0x0;
	smb_io_rpc_hdr("", &l->hdr, req, 0);

	if (req->offset == 0) return False;

	switch (l->hdr.pkt_type)
	{
		case RPC_BIND   :
		{
			reply = api_pipe_bind_req(l, req, name);
			break;
		}
		case RPC_ALTCONT:
		{
			reply = api_pipe_alt_req(l, req, name);
 			break;
 		}
		case RPC_REQUEST:
		{
			if (l->ntlmssp_auth && !l->ntlmssp_validated)
			{
				/* authentication _was_ requested
				   and it failed.  sorry, no deal!
				 */
				reply = False;
			}
			else
			{
				/* read the rpc header */
				smb_io_rpc_hdr_req("req", &(l->hdr_req), req, 0);
				reply = api_pipe_request(l, req, name);
			}
			break;
		}
		case RPC_BINDRESP: /* not the real name! */
		{
			reply = api_pipe_bind_auth_resp(l, req);
			l->ntlmssp_auth = reply;
			break;
		}
	}

	if (!reply)
	{
		reply = api_pipe_fault_resp(l, req, 0x1c010002);
	}
	
	if (reply)
	{
		/* flatten the data into a single pdu */
		reply = prs_copy(resp, &l->rhdr);
	}

	/* delete intermediate data used to set up the pdu.  leave
	   rdata alone because that's got the rest of the data in it */
	rpcsrv_free_temp(l);

	return reply;
}

BOOL rpc_send_and_rcv_pdu(pipes_struct *p)
{
	DEBUG(10,("rpc_send_and_rcv_pdu\n"));

	if (p->m != NULL)
	{
		return rpc_redir_remote(p, &p->smb_pdu, &p->rsmb_pdu);
	}
	else if (p->l != NULL)
	{
		return rpc_redir_local(p->l, &p->smb_pdu, &p->rsmb_pdu,
					p->name);
	}
	return False;
}

/*******************************************************************
 entry point from msrpc to smb.  adds data received to pdu; checks
 pdu; hands pdu off to msrpc, which gets a pdu back (except in the
 case of the RPC_BINDCONT pdu).
 ********************************************************************/
BOOL rpc_to_smb(pipes_struct *p, char *data, int len)
{
	BOOL reply = rpc_add_to_pdu(&p->smb_pdu, data, len);

	if (reply && is_complete_pdu(&p->smb_pdu))
	{
		p->smb_pdu.offset = p->smb_pdu.data->data_size;
		prs_link(NULL, &p->smb_pdu, NULL);
		reply = rpc_send_and_rcv_pdu(p);
		mem_free_data(p->smb_pdu.data);
		prs_init(&p->smb_pdu, 0, 4, 0, True);

	}
	return reply;
}

/*******************************************************************
 receives a netlogon pipe and responds.
 ********************************************************************/
static BOOL api_rpc_command(rpcsrv_struct *l, 
				char *rpc_name, struct api_struct *api_rpc_cmds,
				prs_struct *data)
{
	int fn_num;
	DEBUG(4,("api_rpc_command: %s op 0x%x - ", rpc_name, l->hdr_req.opnum));

	for (fn_num = 0; api_rpc_cmds[fn_num].name; fn_num++)
	{
		if (api_rpc_cmds[fn_num].opnum == l->hdr_req.opnum && api_rpc_cmds[fn_num].fn != NULL)
		{
			DEBUG(3,("api_rpc_command: %s\n", api_rpc_cmds[fn_num].name));
			break;
		}
	}

	if (api_rpc_cmds[fn_num].name == NULL)
	{
		DEBUG(4, ("unknown\n"));
		return False;
	}

	/* start off with 1024 bytes, and a large safety margin too */
	prs_init(&l->rdata, 1024, 4, SAFETY_MARGIN, False);

	/* do the actual command */
	api_rpc_cmds[fn_num].fn(l, data, &(l->rdata));

	if (l->rdata.data == NULL || l->rdata.offset == 0)
	{
		mem_free_data(l->rdata.data);
		return False;
	}

	mem_realloc_data(l->rdata.data, l->rdata.offset);

	DEBUG(10,("called %s\n", rpc_name));

	return True;
}


/*******************************************************************
 receives a netlogon pipe and responds.
 ********************************************************************/
BOOL api_rpcTNP(rpcsrv_struct *l, char *rpc_name, struct api_struct *api_rpc_cmds,
				prs_struct *data)
{
	if (data == NULL || data->data == NULL)
	{
		DEBUG(2,("%s: NULL data received\n", rpc_name));
		return False;
	}

	/* interpret the command */
	if (!api_rpc_command(l, rpc_name, api_rpc_cmds, data))
	{
		return False;
	}

	/* create the rpc header */
	if (!create_rpc_reply(l, 0))
	{
		return False;
	}

	return True;
}

BOOL is_complete_pdu(prs_struct *ps)
{
	RPC_HDR hdr;
	int len = ps->data->data_size;

	DEBUG(10,("is_complete_pdu - len %d\n", len));
	ps->offset = 0x0;

	if (!ps->io)
	{
		/* writing.  oops!! */
		DEBUG(4,("is_complete_pdu: write set, not read!\n"));
		return False;
	}
		
	if (!smb_io_rpc_hdr("hdr", &hdr, ps, 0))
	{
		return False;
	}
	/* check that the fragment length is equal to the data length so far */
	return hdr.frag_len == len;
}