Patch from metze to add what he feels is the correct semantics for a Domain
[kai/samba.git] / source / auth / auth_sam.c
1 /* 
2    Unix SMB/CIFS implementation.
3    Password and authentication handling
4    Copyright (C) Andrew Tridgell              1992-2000
5    Copyright (C) Luke Kenneth Casson Leighton 1996-2000
6    Copyright (C) Andrew Bartlett              2001
7    
8    This program is free software; you can redistribute it and/or modify
9    it under the terms of the GNU General Public License as published by
10    the Free Software Foundation; either version 2 of the License, or
11    (at your option) any later version.
12    
13    This program is distributed in the hope that it will be useful,
14    but WITHOUT ANY WARRANTY; without even the implied warranty of
15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16    GNU General Public License for more details.
17    
18    You should have received a copy of the GNU General Public License
19    along with this program; if not, write to the Free Software
20    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
21 */
22
23 #include "includes.h"
24
25 #undef DBGC_CLASS
26 #define DBGC_CLASS DBGC_AUTH
27
28 /****************************************************************************
29 core of smb password checking routine.
30 ****************************************************************************/
31 static BOOL smb_pwd_check_ntlmv1(DATA_BLOB nt_response,
32                                  const uchar *part_passwd,
33                                  DATA_BLOB sec_blob,
34                                  uint8 user_sess_key[16])
35 {
36         /* Finish the encryption of part_passwd. */
37         uchar p24[24];
38         
39         if (part_passwd == NULL) {
40                 DEBUG(10,("No password set - DISALLOWING access\n"));
41                 /* No password set - always false ! */
42                 return False;
43         }
44         
45         if (sec_blob.length != 8) {
46                 DEBUG(0, ("smb_pwd_check_ntlmv1: incorrect challenge size (%d)\n", sec_blob.length));
47                 return False;
48         }
49         
50         if (nt_response.length != 24) {
51                 DEBUG(0, ("smb_pwd_check_ntlmv1: incorrect password length (%d)\n", nt_response.length));
52                 return False;
53         }
54
55         SMBOWFencrypt(part_passwd, sec_blob.data, p24);
56         if (user_sess_key != NULL)
57         {
58                 SMBsesskeygen_ntv1(part_passwd, NULL, user_sess_key);
59         }
60         
61         
62         
63 #if DEBUG_PASSWORD
64         DEBUG(100,("Part password (P16) was |"));
65         dump_data(100, part_passwd, 16);
66         DEBUG(100,("Password from client was |"));
67         dump_data(100, nt_response.data, nt_response.length);
68         DEBUG(100,("Given challenge was |"));
69         dump_data(100, sec_blob.data, sec_blob.length);
70         DEBUG(100,("Value from encryption was |"));
71         dump_data(100, p24, 24);
72 #endif
73   return (memcmp(p24, nt_response.data, 24) == 0);
74 }
75
76
77 /****************************************************************************
78 core of smb password checking routine. (NTLMv2, LMv2)
79
80 Note:  The same code works with both NTLMv2 and LMv2.
81 ****************************************************************************/
82 static BOOL smb_pwd_check_ntlmv2(const DATA_BLOB ntv2_response,
83                                  const uchar *part_passwd,
84                                  const DATA_BLOB sec_blob,
85                                  const char *user, const char *domain,
86                                  uint8 user_sess_key[16])
87 {
88         /* Finish the encryption of part_passwd. */
89         uchar kr[16];
90         uchar value_from_encryption[16];
91         uchar client_response[16];
92         DATA_BLOB client_key_data;
93
94         if (part_passwd == NULL)
95         {
96                 DEBUG(10,("No password set - DISALLOWING access\n"));
97                 /* No password set - always False */
98                 return False;
99         }
100
101         if (ntv2_response.length < 16) {
102                 /* We MUST have more than 16 bytes, or the stuff below will go
103                    crazy... */
104                 DEBUG(0, ("smb_pwd_check_ntlmv2: incorrect password length (%d)\n", 
105                           ntv2_response.length));
106                 return False;
107         }
108
109         client_key_data = data_blob(ntv2_response.data+16, ntv2_response.length-16);
110         /* 
111            todo:  should we be checking this for anything?  We can't for LMv2, 
112            but for NTLMv2 it is meant to contain the current time etc.
113         */
114
115         memcpy(client_response, ntv2_response.data, sizeof(client_response));
116
117         if (!ntv2_owf_gen(part_passwd, user, domain, kr)) {
118                 return False;
119         }
120
121         SMBOWFencrypt_ntv2(kr, sec_blob, client_key_data, value_from_encryption);
122         if (user_sess_key != NULL)
123         {
124                 SMBsesskeygen_ntv2(kr, value_from_encryption, user_sess_key);
125         }
126
127 #if DEBUG_PASSWORD
128         DEBUG(100,("Part password (P16) was |"));
129         dump_data(100, part_passwd, 16);
130         DEBUG(100,("Password from client was |"));
131         dump_data(100, ntv2_response.data, ntv2_response.length);
132         DEBUG(100,("Variable data from client was |"));
133         dump_data(100, client_key_data.data, client_key_data.length);
134         DEBUG(100,("Given challenge was |"));
135         dump_data(100, sec_blob.data, sec_blob.length);
136         DEBUG(100,("Value from encryption was |"));
137         dump_data(100, value_from_encryption, 16);
138 #endif
139         data_blob_clear_free(&client_key_data);
140         return (memcmp(value_from_encryption, client_response, 16) == 0);
141 }
142
143
144 /****************************************************************************
145  Do a specific test for an smb password being correct, given a smb_password and
146  the lanman and NT responses.
147 ****************************************************************************/
148 static NTSTATUS sam_password_ok(const struct auth_context *auth_context,
149                                 TALLOC_CTX *mem_ctx,
150                                 SAM_ACCOUNT *sampass, 
151                                 const auth_usersupplied_info *user_info, 
152                                 uint8 user_sess_key[16])
153 {
154         uint16 acct_ctrl;
155         const uint8 *nt_pw, *lm_pw;
156         uint32 auth_flags;
157
158         acct_ctrl = pdb_get_acct_ctrl(sampass);
159         if (acct_ctrl & ACB_PWNOTREQ) 
160         {
161                 if (lp_null_passwords()) 
162                 {
163                         DEBUG(3,("Account for user '%s' has no password and null passwords are allowed.\n", pdb_get_username(sampass)));
164                         return(NT_STATUS_OK);
165                 } 
166                 else 
167                 {
168                         DEBUG(3,("Account for user '%s' has no password and null passwords are NOT allowed.\n", pdb_get_username(sampass)));
169                         return(NT_STATUS_LOGON_FAILURE);
170                 }               
171         }
172
173         auth_flags = user_info->auth_flags;
174
175         if (IS_SAM_DEFAULT(sampass, PDB_NTPASSWD)) {
176                 DEBUG(3,("sam_password_ok: NO NT password stored for user %s.\n", 
177                          pdb_get_username(sampass)));
178                 /* No return, we want to check the LM hash below in this case */
179                 auth_flags &= (~(AUTH_FLAG_NTLMv2_RESP |  AUTH_FLAG_NTLM_RESP));
180         }
181         
182         if (auth_flags & AUTH_FLAG_NTLMv2_RESP) {
183                 nt_pw = pdb_get_nt_passwd(sampass);
184                 /* We have the NT MD4 hash challenge available - see if we can
185                    use it (ie. does it exist in the smbpasswd file).
186                 */
187                 DEBUG(4,("sam_password_ok: Checking NTLMv2 password\n"));
188                 if (smb_pwd_check_ntlmv2( user_info->nt_resp, 
189                                           nt_pw, auth_context->challenge, 
190                                           user_info->smb_name.str, 
191                                           user_info->client_domain.str,
192                                           user_sess_key))
193                 {
194                         return NT_STATUS_OK;
195                 } else {
196                         DEBUG(3,("sam_password_ok: NTLMv2 password check failed\n"));
197                         return NT_STATUS_WRONG_PASSWORD;
198                 }
199         } else if (auth_flags & AUTH_FLAG_NTLM_RESP) {
200                 if (lp_ntlm_auth()) {           
201                         nt_pw = pdb_get_nt_passwd(sampass);
202                         /* We have the NT MD4 hash challenge available - see if we can
203                            use it (ie. does it exist in the smbpasswd file).
204                         */
205                         DEBUG(4,("sam_password_ok: Checking NT MD4 password\n"));
206                         if (smb_pwd_check_ntlmv1(user_info->nt_resp, 
207                                                  nt_pw, auth_context->challenge,
208                                                  user_sess_key)) 
209                         {
210                                 return NT_STATUS_OK;
211                         } else {
212                                 DEBUG(3,("sam_password_ok: NT MD4 password check failed for user %s\n",pdb_get_username(sampass)));
213                                 return NT_STATUS_WRONG_PASSWORD;
214                         }
215                 } else {
216                         DEBUG(2,("sam_password_ok: NTLMv1 passwords NOT PERMITTED for user %s\n",pdb_get_username(sampass)));                   
217                         /* no return, becouse we might pick up LMv2 in the LM feild */
218                 }
219         }
220         
221         if (auth_flags & AUTH_FLAG_LM_RESP) {
222                 if (user_info->lm_resp.length != 24) {
223                         DEBUG(2,("sam_password_ok: invalid LanMan password length (%d) for user %s\n", 
224                                  user_info->nt_resp.length, pdb_get_username(sampass)));                
225                 }
226                 
227                 if (!lp_lanman_auth()) {
228                         DEBUG(3,("sam_password_ok: Lanman passwords NOT PERMITTED for user %s\n",pdb_get_username(sampass)));
229                 } else if (IS_SAM_DEFAULT(sampass, PDB_LMPASSWD)) {
230                         DEBUG(3,("sam_password_ok: NO LanMan password set for user %s (and no NT password supplied)\n",pdb_get_username(sampass)));
231                 } else {
232                         lm_pw = pdb_get_lanman_passwd(sampass);
233                         
234                         DEBUG(4,("sam_password_ok: Checking LM password\n"));
235                         if (smb_pwd_check_ntlmv1(user_info->lm_resp, 
236                                                  lm_pw, auth_context->challenge,
237                                                  user_sess_key)) 
238                         {
239                                 return NT_STATUS_OK;
240                         }
241                 }
242
243                 if (IS_SAM_DEFAULT(sampass, PDB_NTPASSWD)) {
244                         DEBUG(4,("sam_password_ok: LM password check failed for user, no NT password %s\n",pdb_get_username(sampass)));
245                         return NT_STATUS_WRONG_PASSWORD;
246                 } 
247                 
248                 nt_pw = pdb_get_nt_passwd(sampass);
249
250                 /* This is for 'LMv2' authentication.  almost NTLMv2 but limited to 24 bytes.
251                    - related to Win9X, legacy NAS pass-though authentication
252                 */
253                 DEBUG(4,("sam_password_ok: Checking LMv2 password\n"));
254                 if (smb_pwd_check_ntlmv2( user_info->lm_resp, 
255                                           nt_pw, auth_context->challenge, 
256                                           user_info->smb_name.str, 
257                                           user_info->client_domain.str,
258                                           user_sess_key))
259                 {
260                         return NT_STATUS_OK;
261                 }
262
263                 /* Apparently NT accepts NT responses in the LM field
264                    - I think this is related to Win9X pass-though authentication
265                 */
266                 DEBUG(4,("sam_password_ok: Checking NT MD4 password in LM field\n"));
267                 if (lp_ntlm_auth()) 
268                 {
269                         if (smb_pwd_check_ntlmv1(user_info->lm_resp, 
270                                                  nt_pw, auth_context->challenge,
271                                                  user_sess_key)) 
272                         {
273                                 return NT_STATUS_OK;
274                         }
275                         DEBUG(3,("sam_password_ok: LM password, NT MD4 password in LM field and LMv2 failed for user %s\n",pdb_get_username(sampass)));
276                         return NT_STATUS_WRONG_PASSWORD;
277                 } else {
278                         DEBUG(3,("sam_password_ok: LM password and LMv2 failed for user %s, and NT MD4 password in LM field not permitted\n",pdb_get_username(sampass)));
279                         return NT_STATUS_WRONG_PASSWORD;
280                 }
281                         
282         }
283                 
284         /* Should not be reached, but if they send nothing... */
285         DEBUG(3,("sam_password_ok: NEITHER LanMan nor NT password supplied for user %s\n",pdb_get_username(sampass)));
286         return NT_STATUS_WRONG_PASSWORD;
287 }
288
289 /****************************************************************************
290  Do a specific test for a SAM_ACCOUNT being vaild for this connection 
291  (ie not disabled, expired and the like).
292 ****************************************************************************/
293 static NTSTATUS sam_account_ok(TALLOC_CTX *mem_ctx,
294                                SAM_ACCOUNT *sampass, 
295                                const auth_usersupplied_info *user_info)
296 {
297         uint16  acct_ctrl = pdb_get_acct_ctrl(sampass);
298         char *workstation_list;
299         time_t kickoff_time;
300         
301         DEBUG(4,("sam_account_ok: Checking SMB password for user %s\n",pdb_get_username(sampass)));
302
303         /* Quit if the account was disabled. */
304         if (acct_ctrl & ACB_DISABLED) {
305                 DEBUG(1,("Account for user '%s' was disabled.\n", pdb_get_username(sampass)));
306                 return NT_STATUS_ACCOUNT_DISABLED;
307         }
308
309         /* Test account expire time */
310         
311         kickoff_time = pdb_get_kickoff_time(sampass);
312         if (kickoff_time != 0 && time(NULL) > kickoff_time) {
313                 DEBUG(1,("Account for user '%s' has expried.\n", pdb_get_username(sampass)));
314                 DEBUG(3,("Account expired at '%ld' unix time.\n", (long)kickoff_time));
315                 return NT_STATUS_ACCOUNT_EXPIRED;
316         }
317
318         if (!(pdb_get_acct_ctrl(sampass) & ACB_PWNOEXP)) {
319                 time_t must_change_time = pdb_get_pass_must_change_time(sampass);
320                 time_t last_set_time = pdb_get_pass_last_set_time(sampass);
321
322                 /* check for immediate expiry "must change at next logon" */
323                 if (must_change_time == 0 && last_set_time != 0) {
324                         DEBUG(1,("Account for user '%s' password must change!.\n", pdb_get_username(sampass)));
325                         return NT_STATUS_PASSWORD_MUST_CHANGE;
326                 }
327
328                 /* check for expired password */
329                 if (must_change_time < time(NULL) && must_change_time != 0) {
330                         DEBUG(1,("Account for user '%s' password expired!.\n", pdb_get_username(sampass)));
331                         DEBUG(1,("Password expired at '%s' (%ld) unix time.\n", http_timestring(must_change_time), (long)must_change_time));
332                         return NT_STATUS_PASSWORD_EXPIRED;
333                 }
334         }
335
336         /* Test workstation. Workstation list is comma separated. */
337
338         workstation_list = talloc_strdup(mem_ctx, pdb_get_workstations(sampass));
339
340         if (!workstation_list) return NT_STATUS_NO_MEMORY;
341
342         if (*workstation_list) {
343                 BOOL invalid_ws = True;
344                 const char *s = workstation_list;
345                         
346                 fstring tok;
347                         
348                 while (next_token(&s, tok, ",", sizeof(tok))) {
349                         DEBUG(10,("checking for workstation match %s and %s (len=%d)\n",
350                                   tok, user_info->wksta_name.str, user_info->wksta_name.len));
351                         if(strequal(tok, user_info->wksta_name.str)) {
352                                 invalid_ws = False;
353                                 break;
354                         }
355                 }
356                 
357                 if (invalid_ws) 
358                         return NT_STATUS_INVALID_WORKSTATION;
359         }
360
361         if (acct_ctrl & ACB_DOMTRUST) {
362                 DEBUG(2,("sam_account_ok: Domain trust account %s denied by server\n", pdb_get_username(sampass)));
363                 return NT_STATUS_NOLOGON_INTERDOMAIN_TRUST_ACCOUNT;
364         }
365         
366         if (acct_ctrl & ACB_SVRTRUST) {
367                 DEBUG(2,("sam_account_ok: Server trust account %s denied by server\n", pdb_get_username(sampass)));
368                 return NT_STATUS_NOLOGON_SERVER_TRUST_ACCOUNT;
369         }
370         
371         if (acct_ctrl & ACB_WSTRUST) {
372                 DEBUG(4,("sam_account_ok: Wksta trust account %s denied by server\n", pdb_get_username(sampass)));
373                 return NT_STATUS_NOLOGON_WORKSTATION_TRUST_ACCOUNT;
374         }
375         
376         return NT_STATUS_OK;
377 }
378
379
380 /****************************************************************************
381 check if a username/password is OK assuming the password is a 24 byte
382 SMB hash supplied in the user_info structure
383 return an NT_STATUS constant.
384 ****************************************************************************/
385
386 static NTSTATUS check_sam_security(const struct auth_context *auth_context,
387                                    void *my_private_data, 
388                                    TALLOC_CTX *mem_ctx,
389                                    const auth_usersupplied_info *user_info, 
390                                    auth_serversupplied_info **server_info)
391 {
392         SAM_ACCOUNT *sampass=NULL;
393         BOOL ret;
394         NTSTATUS nt_status;
395         uint8 user_sess_key[16];
396         const uint8* lm_hash;
397
398         if (!user_info || !auth_context) {
399                 return NT_STATUS_UNSUCCESSFUL;
400         }
401
402         /* Can't use the talloc version here, becouse the returned struct gets
403            kept on the server_info */
404         if (!NT_STATUS_IS_OK(nt_status = pdb_init_sam(&sampass))) {
405                 return nt_status;
406         }
407
408         /* get the account information */
409
410         become_root();
411         ret = pdb_getsampwnam(sampass, user_info->internal_username.str);
412         unbecome_root();
413
414         if (ret == False)
415         {
416                 DEBUG(3,("Couldn't find user '%s' in passdb file.\n", user_info->internal_username.str));
417                 pdb_free_sam(&sampass);
418                 return NT_STATUS_NO_SUCH_USER;
419         }
420
421         nt_status = sam_account_ok(mem_ctx, sampass, user_info);
422         
423         nt_status = sam_password_ok(auth_context, mem_ctx, sampass, user_info, user_sess_key);
424
425         if (!NT_STATUS_IS_OK(nt_status)) {
426                 pdb_free_sam(&sampass);
427                 return nt_status;
428         }
429
430         if (!NT_STATUS_IS_OK(nt_status)) {
431                 pdb_free_sam(&sampass);
432                 return nt_status;
433         }
434
435         if (!NT_STATUS_IS_OK(nt_status = make_server_info_sam(server_info, sampass))) {         
436                 DEBUG(0,("check_sam_security: make_server_info_sam() failed with '%s'\n", nt_errstr(nt_status)));
437                 return nt_status;
438         }
439
440         lm_hash = pdb_get_lanman_passwd((*server_info)->sam_account);
441         if (lm_hash) {
442                 memcpy((*server_info)->first_8_lm_hash, lm_hash, 8);
443         }
444         
445         memcpy((*server_info)->session_key, user_sess_key, sizeof(user_sess_key));
446
447         return nt_status;
448 }
449
450 /* module initialisation */
451 NTSTATUS auth_init_sam(struct auth_context *auth_context, const char *param, auth_methods **auth_method) 
452 {
453         if (!make_auth_methods(auth_context, auth_method)) {
454                 return NT_STATUS_NO_MEMORY;
455         }
456
457         (*auth_method)->auth = check_sam_security;      
458         (*auth_method)->name = "sam";
459         return NT_STATUS_OK;
460 }
461
462
463 /****************************************************************************
464 Check SAM security (above) but with a few extra checks.
465 ****************************************************************************/
466
467 static NTSTATUS check_samstrict_security(const struct auth_context *auth_context,
468                                          void *my_private_data, 
469                                          TALLOC_CTX *mem_ctx,
470                                          const auth_usersupplied_info *user_info, 
471                                          auth_serversupplied_info **server_info)
472 {
473
474         if (!user_info || !auth_context) {
475                 return NT_STATUS_LOGON_FAILURE;
476         }
477
478         /* If we are a domain member, we must not 
479            attempt to check the password locally,
480            unless it is one of our aliases. */
481         
482         if (!is_myname(user_info->domain.str)) {
483                 DEBUG(7,("The requested user domain is not the local server name. [%s]\\[%s]\n",
484                         user_info->domain.str,user_info->internal_username.str));
485                 return NT_STATUS_NO_SUCH_USER;
486         }
487         
488         return check_sam_security(auth_context, my_private_data, mem_ctx, user_info, server_info);
489 }
490
491 /* module initialisation */
492 NTSTATUS auth_init_samstrict(struct auth_context *auth_context, const char *param, auth_methods **auth_method) 
493 {
494         if (!make_auth_methods(auth_context, auth_method)) {
495                 return NT_STATUS_NO_MEMORY;
496         }
497
498         (*auth_method)->auth = check_samstrict_security;
499         (*auth_method)->name = "samstrict";
500         return NT_STATUS_OK;
501 }
502
503 /****************************************************************************
504 Check SAM security (above) but with a few extra checks if we're a DC.
505 ****************************************************************************/
506
507 static NTSTATUS check_samstrict_dc_security(const struct auth_context *auth_context,
508                                          void *my_private_data, 
509                                          TALLOC_CTX *mem_ctx,
510                                          const auth_usersupplied_info *user_info, 
511                                          auth_serversupplied_info **server_info)
512 {
513
514         if (!user_info || !auth_context) {
515                 return NT_STATUS_LOGON_FAILURE;
516         }
517
518         /* If we are a domain member, we must not 
519            attempt to check the password locally,
520            unless it is one of our aliases, empty
521            or our domain if we are a logon server.*/
522         
523
524         if ((!is_myworkgroup(user_info->domain.str))&&
525                 (!is_myname(user_info->domain.str))) {
526                 DEBUG(7,("The requested user domain is not the local server name or our domain. [%s]\\[%s]\n",
527                         user_info->domain.str,user_info->internal_username.str));
528                 return NT_STATUS_NO_SUCH_USER;
529         }               
530
531         return check_sam_security(auth_context, my_private_data, mem_ctx, user_info, server_info);
532 }
533
534 /* module initialisation */
535 NTSTATUS auth_init_samstrict_dc(struct auth_context *auth_context, const char *param, auth_methods **auth_method) 
536 {
537         if (!make_auth_methods(auth_context, auth_method)) {
538                 return NT_STATUS_NO_MEMORY;
539         }
540
541         (*auth_method)->auth = check_samstrict_dc_security;
542         (*auth_method)->name = "samstrict_dc";
543         return NT_STATUS_OK;
544 }