3f519ecfc94d4247368e0813fe9d65945fe82663
[samba.git] / source / nmbd / nmbd_processlogon.c
1 /* 
2    Unix SMB/Netbios implementation.
3    Version 1.9.
4    NBT netbios routines and daemon - version 2
5    Copyright (C) Andrew Tridgell 1994-1998
6    Copyright (C) Luke Kenneth Casson Leighton 1994-1998
7    Copyright (C) Jeremy Allison 1994-1998
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 2 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, write to the Free Software
21    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
22    
23    Revision History:
24
25 */
26
27 #include "includes.h"
28
29 extern int DEBUGLEVEL;
30
31 extern pstring global_myname;
32 extern fstring global_myworkgroup;
33
34 /****************************************************************************
35 Process a domain logon packet
36 **************************************************************************/
37
38 void process_logon_packet(struct packet_struct *p,char *buf,int len, 
39                           char *mailslot)
40 {
41   struct dgram_packet *dgram = &p->packet.dgram;
42   pstring my_name;
43   fstring reply_name;
44   pstring outbuf;
45   int code;
46   uint16 token = 0;
47
48   uint32 ntversion;
49   uint16 lmnttoken;
50   uint16 lm20token;
51   uint32 domainsidsize;
52   char *getdc;
53   char *uniuser; /* Unicode user name. */
54   pstring ascuser;
55   char *unicomp; /* Unicode computer name. */
56   struct smb_passwd *smb_pass; /* To check if machine account exists */
57
58   memset(outbuf, 0, sizeof(outbuf));
59
60   if (!lp_domain_logons())
61   {
62     DEBUG(3,("process_logon_packet: Logon packet received from IP %s and domain \
63 logons are not enabled.\n", inet_ntoa(p->ip) ));
64     return;
65   }
66
67   pstrcpy(my_name, global_myname);
68   strupper(my_name);
69
70   code = SVAL(buf,0);
71   DEBUG(1,("process_logon_packet: Logon from %s: code = %x\n", inet_ntoa(p->ip), code));
72
73   switch (code)
74   {
75     case 0:    
76     {
77       char *q = buf + 2;
78       char *machine = q;
79       char *user = skip_string(machine,1);
80
81       getdc = skip_string(user,1);
82       q = skip_string(getdc,1);
83       token = SVAL(q,3);
84
85       fstrcpy(reply_name,my_name); 
86
87       DEBUG(3,("process_logon_packet: Domain login request from %s at IP %s user=%s token=%x\n",
88              machine,inet_ntoa(p->ip),user,token));
89
90       q = outbuf;
91       SSVAL(q, 0, 6);
92       q += 2;
93
94       fstrcpy(reply_name, "\\\\");
95       fstrcat(reply_name, my_name);
96       fstrcpy(q, reply_name); q = skip_string(q, 1); /* PDC name */
97
98       SSVAL(q, 0, token);
99       q += 2;
100
101       dump_data(4, outbuf, PTR_DIFF(q, outbuf));
102
103       send_mailslot(True, getdc, 
104                     outbuf,PTR_DIFF(q,outbuf),
105                     dgram->dest_name.name,
106                     dgram->dest_name.name_type,
107                     dgram->source_name.name,
108                     dgram->source_name.name_type,
109                     p->ip, *iface_ip(p->ip), p->port);  
110       break;
111     }
112
113     case QUERYFORPDC:
114     {
115       char *q = buf + 2;
116       char *machine = q;
117
118       getdc = skip_string(machine,1);
119       unicomp = skip_string(getdc,1);
120
121       q = align2(unicomp, buf);
122
123       q = skip_unicode_string(q, 1);
124
125       ntversion = IVAL(q, 0);
126       q += 4;
127       lmnttoken = SVAL(q, 0);
128       q += 2;
129       lm20token = SVAL(q, 0);
130       q += 2;
131
132       /* Construct reply. */
133
134       q = outbuf;
135       SSVAL(q, 0, QUERYFORPDC_R);
136       q += 2;
137
138       fstrcpy(reply_name,my_name);
139       fstrcpy(q, reply_name);
140       q = skip_string(q, 1); /* PDC name */
141
142       if (strcmp(mailslot, NT_LOGON_MAILSLOT)==0) {
143         q = align2(q, buf);
144
145         PutUniCode(q, my_name); /* PDC name */
146         q = skip_unicode_string(q, 1); 
147         PutUniCode(q, global_myworkgroup); /* Domain name*/
148         q = skip_unicode_string(q, 1); 
149
150         SIVAL(q, 0, ntversion);
151         q += 4;
152         SSVAL(q, 0, lmnttoken);
153         q += 2;
154         SSVAL(q, 0, lm20token);
155         q += 2;
156       }
157
158       DEBUG(3,("process_logon_packet: GETDC request from %s at IP %s, \
159 reporting %s domain %s 0x%x ntversion=%x lm_nt token=%x lm_20 token=%x\n",
160             machine,inet_ntoa(p->ip), reply_name, lp_workgroup(),
161             QUERYFORPDC_R, (uint32)ntversion, (uint32)lmnttoken,
162             (uint32)lm20token ));
163
164       dump_data(4, outbuf, PTR_DIFF(q, outbuf));
165
166       send_mailslot(True, getdc,
167                   outbuf,PTR_DIFF(q,outbuf),
168                   dgram->dest_name.name,
169                   dgram->dest_name.name_type,
170                   dgram->source_name.name,
171                   dgram->source_name.name_type,
172                   p->ip, *iface_ip(p->ip), p->port);  
173       return;
174     }
175
176     case SAMLOGON:
177     {
178       char *q = buf + 2;
179
180       q += 2;
181       unicomp = q;
182       uniuser = skip_unicode_string(unicomp,1);
183       getdc = skip_unicode_string(uniuser,1);
184       q = skip_string(getdc,1);
185       q += 4;
186       domainsidsize = IVAL(q, 0);
187       q += 4;
188       q += domainsidsize + 3;
189       ntversion = IVAL(q, 0);
190       q += 4;
191       lmnttoken = SVAL(q, 0);
192       q += 2;
193       lm20token = SVAL(q, 0);
194       q += 2;
195
196       DEBUG(3,("process_logon_packet: SAMLOGON sidsize %d ntv %d\n", domainsidsize, ntversion));
197
198       /*
199        * If MACHINE$ is in our password database then respond, else ignore.
200        * Let's ignore the SID.
201        */
202
203       pstrcpy(ascuser, unistr(uniuser));
204       DEBUG(3,("process_logon_packet: SAMLOGON user %s\n", ascuser));
205
206       fstrcpy(reply_name,"\\\\"); /* Here it wants \\LOGONSERVER. */
207       fstrcpy(reply_name+2,my_name); 
208
209       smb_pass = getsmbpwnam(ascuser);
210
211       if(!smb_pass )
212       {
213         DEBUG(3,("process_logon_packet: SAMLOGON request from %s(%s) for %s, not in password file\n",
214            unistr(unicomp),inet_ntoa(p->ip), ascuser));
215         return;
216       }
217       else if(smb_pass->acct_ctrl & ACB_DISABLED)
218       {
219         DEBUG(3,("process_logon_packet: SAMLOGON request from %s(%s) for %s, accound disabled.\n",
220            unistr(unicomp),inet_ntoa(p->ip), ascuser));
221         return;
222       }
223       else
224       {
225         DEBUG(3,("process_logon_packet: SAMLOGON request from %s(%s) for %s, returning logon svr %s domain %s code %x token=%x\n",
226            unistr(unicomp),inet_ntoa(p->ip), ascuser, reply_name, global_myworkgroup,
227            SAMLOGON_R ,lmnttoken));
228       }
229
230       /* Construct reply. */
231
232       q = outbuf;
233       SSVAL(q, 0, SAMLOGON_R);
234       q += 2;
235
236       PutUniCode(q, reply_name);
237       q = skip_unicode_string(q, 1);
238       unistrcpy(q, uniuser);
239       q = skip_unicode_string(q, 1); /* User name (workstation trust account) */
240       PutUniCode(q, lp_workgroup());
241       q = skip_unicode_string(q, 1); /* Domain name. */
242
243       SIVAL(q, 0, ntversion);
244       q += 4;
245       SSVAL(q, 0, lmnttoken);
246       q += 2;
247       SSVAL(q, 0, lm20token);
248       q += 2;
249
250       dump_data(4, outbuf, PTR_DIFF(q, outbuf));
251
252       send_mailslot(True, getdc,
253                    outbuf,PTR_DIFF(q,outbuf),
254                    dgram->dest_name.name,
255                    dgram->dest_name.name_type,
256                    dgram->source_name.name,
257                    dgram->source_name.name_type,
258                    p->ip, *iface_ip(p->ip), p->port);  
259       break;
260     }
261
262     default:
263     {
264       DEBUG(3,("process_logon_packet: Unknown domain request %d\n",code));
265       return;
266     }
267   }
268 }