/* Unix SMB/CIFS implementation. NBT netbios routines and daemon - version 2 Copyright (C) Andrew Tridgell 1994-1998 Copyright (C) Luke Kenneth Casson Leighton 1994-1998 Copyright (C) Jeremy Allison 1994-2003 Copyright (C) Jim McDonough <jmcd@us.ibm.com> 2002 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. Revision History: */ #include "includes.h" struct sam_database_info { uint32 index; uint32 serial_lo, serial_hi; uint32 date_lo, date_hi; }; /**************************************************************************** Send a message to smbd to do a sam delta sync **************************************************************************/ static void send_repl_message(uint32 low_serial) { TDB_CONTEXT *tdb; tdb = tdb_open_log(lock_path("connections.tdb"), 0, TDB_DEFAULT, O_RDONLY, 0); if (!tdb) { DEBUG(3, ("send_repl_message(): failed to open connections " "database\n")); return; } DEBUG(3, ("sending replication message, serial = 0x%04x\n", low_serial)); message_send_all(tdb, MSG_SMB_SAM_REPL, &low_serial, sizeof(low_serial), False, NULL); tdb_close(tdb); } /**************************************************************************** Process a domain logon packet **************************************************************************/ void process_logon_packet(struct packet_struct *p, char *buf,int len, const char *mailslot) { struct dgram_packet *dgram = &p->packet.dgram; pstring my_name; fstring reply_name; pstring outbuf; int code; uint16 token = 0; uint32 ntversion = 0; uint16 lmnttoken = 0; uint16 lm20token = 0; uint32 domainsidsize; BOOL short_request = False; char *getdc; char *uniuser; /* Unicode user name. */ pstring ascuser; char *unicomp; /* Unicode computer name. */ memset(outbuf, 0, sizeof(outbuf)); if (!lp_domain_logons()) { DEBUG(5,("process_logon_packet: Logon packet received from IP %s and domain \ logons are not enabled.\n", inet_ntoa(p->ip) )); return; } pstrcpy(my_name, global_myname()); code = SVAL(buf,0); DEBUG(4,("process_logon_packet: Logon from %s: code = 0x%x\n", inet_ntoa(p->ip), code)); switch (code) { case 0: { fstring mach_str, user_str, getdc_str; char *q = buf + 2; char *machine = q; char *user = skip_string(machine,1); if (PTR_DIFF(user, buf) >= len) { DEBUG(0,("process_logon_packet: bad packet\n")); return; } getdc = skip_string(user,1); if (PTR_DIFF(getdc, buf) >= len) { DEBUG(0,("process_logon_packet: bad packet\n")); return; } q = skip_string(getdc,1); if (PTR_DIFF(q + 5, buf) > len) { DEBUG(0,("process_logon_packet: bad packet\n")); return; } token = SVAL(q,3); fstrcpy(reply_name,my_name); pull_ascii_fstring(mach_str, machine); pull_ascii_fstring(user_str, user); pull_ascii_fstring(getdc_str, getdc); DEBUG(5,("process_logon_packet: Domain login request from %s at IP %s user=%s token=%x\n", mach_str,inet_ntoa(p->ip),user_str,token)); q = outbuf; SSVAL(q, 0, 6); q += 2; fstrcpy(reply_name, "\\\\"); fstrcat(reply_name, my_name); push_ascii_fstring(q, reply_name); q = skip_string(q, 1); /* PDC name */ SSVAL(q, 0, token); q += 2; dump_data(4, outbuf, PTR_DIFF(q, outbuf)); send_mailslot(True, getdc_str, outbuf,PTR_DIFF(q,outbuf), global_myname(), 0x0, mach_str, dgram->source_name.name_type, p->ip, *iface_ip(p->ip), p->port); break; } case QUERYFORPDC: { fstring mach_str, getdc_str; fstring source_name; char *q = buf + 2; char *machine = q; if (!lp_domain_master()) { /* We're not Primary Domain Controller -- ignore this */ return; } getdc = skip_string(machine,1); if (PTR_DIFF(getdc, buf) >= len) { DEBUG(0,("process_logon_packet: bad packet\n")); return; } q = skip_string(getdc,1); if (PTR_DIFF(q, buf) >= len) { DEBUG(0,("process_logon_packet: bad packet\n")); return; } q = ALIGN2(q, buf); /* At this point we can work out if this is a W9X or NT style request. Experiments show that the difference is wether the packet ends here. For a W9X request we now end with a pair of bytes (usually 0xFE 0xFF) whereas with NT we have two further strings - the following is a simple way of detecting this */ if (len - PTR_DIFF(q, buf) <= 3) { short_request = True; } else { unicomp = q; if (PTR_DIFF(q, buf) >= len) { DEBUG(0,("process_logon_packet: bad packet\n")); return; } /* A full length (NT style) request */ q = skip_unibuf(unicomp, PTR_DIFF(buf + len, unicomp)); if (PTR_DIFF(q, buf) >= len) { DEBUG(0,("process_logon_packet: bad packet\n")); return; } if (len - PTR_DIFF(q, buf) > 8) { /* with NT5 clients we can sometimes get additional data - a length specificed string containing the domain name, then 16 bytes of data (no idea what it is) */ int dom_len = CVAL(q, 0); q++; if (dom_len != 0) { q += dom_len + 1; } q += 16; } if (PTR_DIFF(q + 8, buf) > len) { DEBUG(0,("process_logon_packet: bad packet\n")); return; } ntversion = IVAL(q, 0); lmnttoken = SVAL(q, 4); lm20token = SVAL(q, 6); } /* Construct reply. */ q = outbuf; SSVAL(q, 0, QUERYFORPDC_R); q += 2; fstrcpy(reply_name,my_name); push_ascii_fstring(q, reply_name); q = skip_string(q, 1); /* PDC name */ /* PDC and domain name */ if (!short_request) { /* Make a full reply */ q = ALIGN2(q, outbuf); q += dos_PutUniCode(q, my_name, sizeof(pstring), True); /* PDC name */ q += dos_PutUniCode(q, lp_workgroup(),sizeof(pstring), True); /* Domain name*/ SIVAL(q, 0, 1); /* our nt version */ SSVAL(q, 4, 0xffff); /* our lmnttoken */ SSVAL(q, 6, 0xffff); /* our lm20token */ q += 8; } /* RJS, 21-Feb-2000, we send a short reply if the request was short */ pull_ascii_fstring(mach_str, machine); DEBUG(5,("process_logon_packet: GETDC request from %s at IP %s, \ reporting %s domain %s 0x%x ntversion=%x lm_nt token=%x lm_20 token=%x\n", mach_str,inet_ntoa(p->ip), reply_name, lp_workgroup(), QUERYFORPDC_R, (uint32)ntversion, (uint32)lmnttoken, (uint32)lm20token )); dump_data(4, outbuf, PTR_DIFF(q, outbuf)); pull_ascii_fstring(getdc_str, getdc); pull_ascii_nstring(source_name, sizeof(source_name), dgram->source_name.name); send_mailslot(True, getdc_str, outbuf,PTR_DIFF(q,outbuf), global_myname(), 0x0, source_name, dgram->source_name.name_type, p->ip, *iface_ip(p->ip), p->port); return; } case SAMLOGON: { fstring getdc_str; fstring source_name; char *q = buf + 2; fstring asccomp; q += 2; if (PTR_DIFF(q, buf) >= len) { DEBUG(0,("process_logon_packet: bad packet\n")); return; } unicomp = q; uniuser = skip_unibuf(unicomp, PTR_DIFF(buf+len, unicomp)); if (PTR_DIFF(uniuser, buf) >= len) { DEBUG(0,("process_logon_packet: bad packet\n")); return; } getdc = skip_unibuf(uniuser,PTR_DIFF(buf+len, uniuser)); if (PTR_DIFF(getdc, buf) >= len) { DEBUG(0,("process_logon_packet: bad packet\n")); return; } q = skip_string(getdc,1); if (PTR_DIFF(q + 8, buf) >= len) { DEBUG(0,("process_logon_packet: bad packet\n")); return; } q += 4; /* Account Control Bits - indicating username type */ domainsidsize = IVAL(q, 0); q += 4; DEBUG(5,("process_logon_packet: SAMLOGON sidsize %d, len = %d\n", domainsidsize, len)); if (domainsidsize < (len - PTR_DIFF(q, buf)) && (domainsidsize != 0)) { q += domainsidsize; q = ALIGN4(q, buf); } DEBUG(5,("process_logon_packet: len = %d PTR_DIFF(q, buf) = %ld\n", len, (unsigned long)PTR_DIFF(q, buf) )); if (len - PTR_DIFF(q, buf) > 8) { /* with NT5 clients we can sometimes get additional data - a length specificed string containing the domain name, then 16 bytes of data (no idea what it is) */ int dom_len = CVAL(q, 0); q++; if (dom_len < (len - PTR_DIFF(q, buf)) && (dom_len != 0)) { q += dom_len + 1; } q += 16; } if (PTR_DIFF(q + 8, buf) > len) { DEBUG(0,("process_logon_packet: bad packet\n")); return; } ntversion = IVAL(q, 0); lmnttoken = SVAL(q, 4); lm20token = SVAL(q, 6); q += 8; DEBUG(3,("process_logon_packet: SAMLOGON sidsize %d ntv %d\n", domainsidsize, ntversion)); /* * we respond regadless of whether the machine is in our password * database. If it isn't then we let smbd send an appropriate error. * Let's ignore the SID. */ pull_ucs2_pstring(ascuser, uniuser); pull_ucs2_fstring(asccomp, unicomp); DEBUG(5,("process_logon_packet: SAMLOGON user %s\n", ascuser)); fstrcpy(reply_name, "\\\\"); /* Here it wants \\LOGONSERVER. */ fstrcat(reply_name, my_name); DEBUG(5,("process_logon_packet: SAMLOGON request from %s(%s) for %s, returning logon svr %s domain %s code %x token=%x\n", asccomp,inet_ntoa(p->ip), ascuser, reply_name, lp_workgroup(), SAMLOGON_R ,lmnttoken)); /* Construct reply. */ q = outbuf; /* we want the simple version unless we are an ADS PDC..which means */ /* never, at least for now */ if ((ntversion < 11) || (SEC_ADS != lp_security()) || (ROLE_DOMAIN_PDC != lp_server_role())) { if (SVAL(uniuser, 0) == 0) { SSVAL(q, 0, SAMLOGON_UNK_R); /* user unknown */ } else { SSVAL(q, 0, SAMLOGON_R); } q += 2; q += dos_PutUniCode(q, reply_name,sizeof(pstring), True); q += dos_PutUniCode(q, ascuser, sizeof(pstring), True); q += dos_PutUniCode(q, lp_workgroup(),sizeof(pstring), True); } #ifdef HAVE_ADS else { struct GUID domain_guid; UUID_FLAT flat_guid; pstring domain; pstring hostname; char *component, *dc, *q1; uint8 size; char *q_orig = q; int str_offset; get_mydnsdomname(domain); get_myname(hostname); if (SVAL(uniuser, 0) == 0) { SIVAL(q, 0, SAMLOGON_AD_UNK_R); /* user unknown */ } else { SIVAL(q, 0, SAMLOGON_AD_R); } q += 4; SIVAL(q, 0, ADS_PDC|ADS_GC|ADS_LDAP|ADS_DS| ADS_KDC|ADS_TIMESERV|ADS_CLOSEST|ADS_WRITABLE); q += 4; /* Push Domain GUID */ if (False == secrets_fetch_domain_guid(domain, &domain_guid)) { DEBUG(2, ("Could not fetch DomainGUID for %s\n", domain)); return; } smb_uuid_pack(domain_guid, &flat_guid); memcpy(q, &flat_guid.info, UUID_FLAT_SIZE); q += UUID_FLAT_SIZE; /* Forest */ str_offset = q - q_orig; dc = domain; q1 = q; while ((component = strtok(dc, "."))) { dc = NULL; size = push_ascii(&q[1], component, -1, 0); SCVAL(q, 0, size); q += (size + 1); } /* Unk0 */ SCVAL(q, 0, 0); q++; /* Domain */ SCVAL(q, 0, 0xc0 | ((str_offset >> 8) & 0x3F)); SCVAL(q, 1, str_offset & 0xFF); q += 2; /* Hostname */ size = push_ascii(&q[1], hostname, -1, 0); SCVAL(q, 0, size); q += (size + 1); SCVAL(q, 0, 0xc0 | ((str_offset >> 8) & 0x3F)); SCVAL(q, 1, str_offset & 0xFF); q += 2; /* NETBIOS of domain */ size = push_ascii(&q[1], lp_workgroup(), -1, STR_UPPER); SCVAL(q, 0, size); q += (size + 1); /* Unk1 */ SCVAL(q, 0, 0); q++; /* NETBIOS of hostname */ size = push_ascii(&q[1], my_name, -1, 0); SCVAL(q, 0, size); q += (size + 1); /* Unk2 */ SCVAL(q, 0, 0); q++; /* User name */ if (SVAL(uniuser, 0) != 0) { size = push_ascii(&q[1], ascuser, -1, 0); SCVAL(q, 0, size); q += (size + 1); } q_orig = q; /* Site name */ size = push_ascii(&q[1], "Default-First-Site-Name", -1, 0); SCVAL(q, 0, size); q += (size + 1); /* Site name (2) */ str_offset = q - q_orig; SCVAL(q, 0, 0xc0 | ((str_offset >> 8) & 0x3F)); SCVAL(q, 1, str_offset & 0xFF); q += 2; SCVAL(q, 0, PTR_DIFF(q,q1)); SCVAL(q, 1, 0x10); /* unknown */ SIVAL(q, 0, 0x00000002); q += 4; /* unknown */ SIVAL(q, 0, (iface_ip(p->ip))->s_addr); q += 4; SIVAL(q, 0, 0x00000000); q += 4; /* unknown */ SIVAL(q, 0, 0x00000000); q += 4; /* unknown */ } #endif /* tell the client what version we are */ SIVAL(q, 0, ((ntversion < 11) || (SEC_ADS != lp_security())) ? 1 : 13); /* our ntversion */ SSVAL(q, 4, 0xffff); /* our lmnttoken */ SSVAL(q, 6, 0xffff); /* our lm20token */ q += 8; dump_data(4, outbuf, PTR_DIFF(q, outbuf)); pull_ascii_fstring(getdc_str, getdc); pull_ascii_nstring(source_name, sizeof(source_name), dgram->source_name.name); send_mailslot(True, getdc, outbuf,PTR_DIFF(q,outbuf), global_myname(), 0x0, source_name, dgram->source_name.name_type, p->ip, *iface_ip(p->ip), p->port); break; } /* Announce change to UAS or SAM. Send by the domain controller when a replication event is required. */ case SAM_UAS_CHANGE: { struct sam_database_info *db_info; char *q = buf + 2; int i, db_count; uint32 low_serial; /* Header */ if (PTR_DIFF(q + 16, buf) >= len) { DEBUG(0,("process_logon_packet: bad packet\n")); return; } low_serial = IVAL(q, 0); q += 4; /* Low serial number */ q += 4; /* Date/time */ q += 4; /* Pulse */ q += 4; /* Random */ /* Domain info */ q = skip_string(q, 1); /* PDC name */ if (PTR_DIFF(q, buf) >= len) { DEBUG(0,("process_logon_packet: bad packet\n")); return; } q = skip_string(q, 1); /* Domain name */ if (PTR_DIFF(q, buf) >= len) { DEBUG(0,("process_logon_packet: bad packet\n")); return; } q = skip_unibuf(q, PTR_DIFF(buf + len, q)); /* Unicode PDC name */ if (PTR_DIFF(q, buf) >= len) { DEBUG(0,("process_logon_packet: bad packet\n")); return; } q = skip_unibuf(q, PTR_DIFF(buf + len, q)); /* Unicode domain name */ /* Database info */ if (PTR_DIFF(q + 2, buf) >= len) { DEBUG(0,("process_logon_packet: bad packet\n")); return; } db_count = SVAL(q, 0); q += 2; if (PTR_DIFF(q + (db_count*20), buf) >= len) { DEBUG(0,("process_logon_packet: bad packet\n")); return; } db_info = SMB_MALLOC_ARRAY(struct sam_database_info, db_count); if (db_info == NULL) { DEBUG(3, ("out of memory allocating info for %d databases\n", db_count)); return; } for (i = 0; i < db_count; i++) { db_info[i].index = IVAL(q, 0); db_info[i].serial_lo = IVAL(q, 4); db_info[i].serial_hi = IVAL(q, 8); db_info[i].date_lo = IVAL(q, 12); db_info[i].date_hi = IVAL(q, 16); q += 20; } /* Domain SID */ #if 0 /* We must range check this. */ q += IVAL(q, 0) + 4; /* 4 byte length plus data */ q += 2; /* Alignment? */ /* Misc other info */ q += 4; /* NT version (0x1) */ q += 2; /* LMNT token (0xff) */ q += 2; /* LM20 token (0xff) */ #endif SAFE_FREE(db_info); /* Not sure whether we need to do anything useful with these */ /* Send message to smbd */ send_repl_message(low_serial); break; } default: DEBUG(3,("process_logon_packet: Unknown domain request %d\n",code)); return; } }