fs/cifs/sess.c - maze/linux - Git at Google

 /*
  *   fs/cifs/sess.c
  *
  *   SMB/CIFS session setup handling routines
  *
  *   Copyright (c) International Business Machines  Corp., 2006, 2007
  *   Author(s): Steve French (sfrench@us.ibm.com)
  *
  *   This library is free software; you can redistribute it and/or modify
  *   it under the terms of the GNU Lesser General Public License as published
  *   by the Free Software Foundation; either version 2.1 of the License, or
  *   (at your option) any later version.
  *
  *   This library 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 Lesser General Public License for more details.
  *
  *   You should have received a copy of the GNU Lesser General Public License
  *   along with this library; if not, write to the Free Software
  *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
  */

 #include "cifspdu.h"
 #include "cifsglob.h"
 #include "cifsproto.h"
 #include "cifs_unicode.h"
 #include "cifs_debug.h"
 #include "ntlmssp.h"
 #include "nterr.h"
 #include <linux/utsname.h>
 #include "cifs_spnego.h"

 extern void SMBNTencrypt(unsigned char *passwd, unsigned char *c8,
 			 unsigned char *p24);

 static __u32 cifs_ssetup_hdr(struct cifsSesInfo *ses, SESSION_SETUP_ANDX *pSMB)
 {
 	__u32 capabilities = 0;

 	/* init fields common to all four types of SessSetup */
 	/* note that header is initialized to zero in header_assemble */
 	pSMB->req.AndXCommand = 0xFF;
 	pSMB->req.MaxBufferSize = cpu_to_le16(ses->server->maxBuf);
 	pSMB->req.MaxMpxCount = cpu_to_le16(ses->server->maxReq);

 	/* Now no need to set SMBFLG_CASELESS or obsolete CANONICAL PATH */

 	/* BB verify whether signing required on neg or just on auth frame
 	   (and NTLM case) */

 	capabilities = CAP_LARGE_FILES | CAP_NT_SMBS | CAP_LEVEL_II_OPLOCKS |
 			CAP_LARGE_WRITE_X | CAP_LARGE_READ_X;

 	if (ses->server->secMode &
 	    (SECMODE_SIGN_REQUIRED | SECMODE_SIGN_ENABLED))
 		pSMB->req.hdr.Flags2 |= SMBFLG2_SECURITY_SIGNATURE;

 	if (ses->capabilities & CAP_UNICODE) {
 		pSMB->req.hdr.Flags2 |= SMBFLG2_UNICODE;
 		capabilities |= CAP_UNICODE;
 	}
 	if (ses->capabilities & CAP_STATUS32) {
 		pSMB->req.hdr.Flags2 |= SMBFLG2_ERR_STATUS;
 		capabilities |= CAP_STATUS32;
 	}
 	if (ses->capabilities & CAP_DFS) {
 		pSMB->req.hdr.Flags2 |= SMBFLG2_DFS;
 		capabilities |= CAP_DFS;
 	}
 	if (ses->capabilities & CAP_UNIX)
 		capabilities |= CAP_UNIX;

 	/* BB check whether to init vcnum BB */
 	return capabilities;
 }

 static void
 unicode_oslm_strings(char **pbcc_area, const struct nls_table *nls_cp)
 {
 	char *bcc_ptr = *pbcc_area;
 	int bytes_ret = 0;

 	/* Copy OS version */
 	bytes_ret = cifs_strtoUCS((__le16 *)bcc_ptr, "Linux version ", 32,
 				  nls_cp);
 	bcc_ptr += 2 * bytes_ret;
 	bytes_ret = cifs_strtoUCS((__le16 *) bcc_ptr, init_utsname()->release,
 				  32, nls_cp);
 	bcc_ptr += 2 * bytes_ret;
 	bcc_ptr += 2; /* trailing null */

 	bytes_ret = cifs_strtoUCS((__le16 *) bcc_ptr, CIFS_NETWORK_OPSYS,
 				  32, nls_cp);
 	bcc_ptr += 2 * bytes_ret;
 	bcc_ptr += 2; /* trailing null */

 	*pbcc_area = bcc_ptr;
 }

 static void unicode_domain_string(char **pbcc_area, struct cifsSesInfo *ses,
 				   const struct nls_table *nls_cp)
 {
 	char *bcc_ptr = *pbcc_area;
 	int bytes_ret = 0;

 	/* copy domain */
 	if (ses->domainName == NULL) {
 		/* Sending null domain better than using a bogus domain name (as
 		we did briefly in 2.6.18) since server will use its default */
 		*bcc_ptr = 0;
 		*(bcc_ptr+1) = 0;
 		bytes_ret = 0;
 	} else
 		bytes_ret = cifs_strtoUCS((__le16 *) bcc_ptr, ses->domainName,
 					  256, nls_cp);
 	bcc_ptr += 2 * bytes_ret;
 	bcc_ptr += 2;  /* account for null terminator */

 	*pbcc_area = bcc_ptr;
 }


 static void unicode_ssetup_strings(char **pbcc_area, struct cifsSesInfo *ses,
 				   const struct nls_table *nls_cp)
 {
 	char *bcc_ptr = *pbcc_area;
 	int bytes_ret = 0;

 	/* BB FIXME add check that strings total less
 	than 335 or will need to send them as arrays */

 	/* unicode strings, must be word aligned before the call */
 /*	if ((long) bcc_ptr % 2)	{
 		*bcc_ptr = 0;
 		bcc_ptr++;
 	} */
 	/* copy user */
 	if (ses->userName == NULL) {
 		/* null user mount */
 		*bcc_ptr = 0;
 		*(bcc_ptr+1) = 0;
 	} else { /* 300 should be long enough for any conceivable user name */
 		bytes_ret = cifs_strtoUCS((__le16 *) bcc_ptr, ses->userName,
 					  300, nls_cp);
 	}
 	bcc_ptr += 2 * bytes_ret;
 	bcc_ptr += 2; /* account for null termination */

 	unicode_domain_string(&bcc_ptr, ses, nls_cp);
 	unicode_oslm_strings(&bcc_ptr, nls_cp);

 	*pbcc_area = bcc_ptr;
 }

 static void ascii_ssetup_strings(char **pbcc_area, struct cifsSesInfo *ses,
 				 const struct nls_table *nls_cp)
 {
 	char *bcc_ptr = *pbcc_area;

 	/* copy user */
 	/* BB what about null user mounts - check that we do this BB */
 	/* copy user */
 	if (ses->userName == NULL) {
 		/* BB what about null user mounts - check that we do this BB */
 	} else { /* 300 should be long enough for any conceivable user name */
 		strncpy(bcc_ptr, ses->userName, 300);
 	}
 	/* BB improve check for overflow */
 	bcc_ptr += strnlen(ses->userName, 300);
 	*bcc_ptr = 0;
 	bcc_ptr++; /* account for null termination */

 	/* copy domain */

 	if (ses->domainName != NULL) {
 		strncpy(bcc_ptr, ses->domainName, 256);
 		bcc_ptr += strnlen(ses->domainName, 256);
 	} /* else we will send a null domain name
 	     so the server will default to its own domain */
 	*bcc_ptr = 0;
 	bcc_ptr++;

 	/* BB check for overflow here */

 	strcpy(bcc_ptr, "Linux version ");
 	bcc_ptr += strlen("Linux version ");
 	strcpy(bcc_ptr, init_utsname()->release);
 	bcc_ptr += strlen(init_utsname()->release) + 1;

 	strcpy(bcc_ptr, CIFS_NETWORK_OPSYS);
 	bcc_ptr += strlen(CIFS_NETWORK_OPSYS) + 1;

 	*pbcc_area = bcc_ptr;
 }

 static int decode_unicode_ssetup(char **pbcc_area, int bleft,
 				 struct cifsSesInfo *ses,
 				 const struct nls_table *nls_cp)
 {
 	int rc = 0;
 	int words_left, len;
 	char *data = *pbcc_area;


 	cFYI(1, ("bleft %d", bleft));


 	/* SMB header is unaligned, so cifs servers word align start of
 	   Unicode strings */
 	data++;
 	bleft--; /* Windows servers do not always double null terminate
 		    their final Unicode string - in which case we
 		    now will not attempt to decode the byte of junk
 		    which follows it */

 	words_left = bleft / 2;

 	/* save off server operating system */
 	len = UniStrnlen((wchar_t *) data, words_left);

 /* We look for obvious messed up bcc or strings in response so we do not go off
    the end since (at least) WIN2K and Windows XP have a major bug in not null
    terminating last Unicode string in response  */
 	if (len >= words_left)
 		return rc;

 	kfree(ses->serverOS);
 	/* UTF-8 string will not grow more than four times as big as UCS-16 */
 	ses->serverOS = kzalloc(4 * len, GFP_KERNEL);
 	if (ses->serverOS != NULL)
 		cifs_strfromUCS_le(ses->serverOS, (__le16 *)data, len, nls_cp);
 	data += 2 * (len + 1);
 	words_left -= len + 1;

 	/* save off server network operating system */
 	len = UniStrnlen((wchar_t *) data, words_left);

 	if (len >= words_left)
 		return rc;

 	kfree(ses->serverNOS);
 	ses->serverNOS = kzalloc(4 * len, GFP_KERNEL); /* BB this is wrong length FIXME BB */
 	if (ses->serverNOS != NULL) {
 		cifs_strfromUCS_le(ses->serverNOS, (__le16 *)data, len,
 				   nls_cp);
 		if (strncmp(ses->serverNOS, "NT LAN Manager 4", 16) == 0) {
 			cFYI(1, ("NT4 server"));
 			ses->flags |= CIFS_SES_NT4;
 		}
 	}
 	data += 2 * (len + 1);
 	words_left -= len + 1;

 	/* save off server domain */
 	len = UniStrnlen((wchar_t *) data, words_left);

 	if (len > words_left)
 		return rc;

 	kfree(ses->serverDomain);
 	ses->serverDomain = kzalloc(2 * (len + 1), GFP_KERNEL); /* BB FIXME wrong length */
 	if (ses->serverDomain != NULL) {
 		cifs_strfromUCS_le(ses->serverDomain, (__le16 *)data, len,
 				   nls_cp);
 		ses->serverDomain[2*len] = 0;
 		ses->serverDomain[(2*len) + 1] = 0;
 	}
 	data += 2 * (len + 1);
 	words_left -= len + 1;

 	cFYI(1, ("words left: %d", words_left));

 	return rc;
 }

 static int decode_ascii_ssetup(char **pbcc_area, int bleft,
 			       struct cifsSesInfo *ses,
 			       const struct nls_table *nls_cp)
 {
 	int rc = 0;
 	int len;
 	char *bcc_ptr = *pbcc_area;

 	cFYI(1, ("decode sessetup ascii. bleft %d", bleft));

 	len = strnlen(bcc_ptr, bleft);
 	if (len >= bleft)
 		return rc;

 	kfree(ses->serverOS);

 	ses->serverOS = kzalloc(len + 1, GFP_KERNEL);
 	if (ses->serverOS)
 		strncpy(ses->serverOS, bcc_ptr, len);
 	if (strncmp(ses->serverOS, "OS/2", 4) == 0) {
 			cFYI(1, ("OS/2 server"));
 			ses->flags |= CIFS_SES_OS2;
 	}

 	bcc_ptr += len + 1;
 	bleft -= len + 1;

 	len = strnlen(bcc_ptr, bleft);
 	if (len >= bleft)
 		return rc;

 	kfree(ses->serverNOS);

 	ses->serverNOS = kzalloc(len + 1, GFP_KERNEL);
 	if (ses->serverNOS)
 		strncpy(ses->serverNOS, bcc_ptr, len);

 	bcc_ptr += len + 1;
 	bleft -= len + 1;

 	len = strnlen(bcc_ptr, bleft);
 	if (len > bleft)
 		return rc;

 	/* No domain field in LANMAN case. Domain is
 	   returned by old servers in the SMB negprot response */
 	/* BB For newer servers which do not support Unicode,
 	   but thus do return domain here we could add parsing
 	   for it later, but it is not very important */
 	cFYI(1, ("ascii: bytes left %d", bleft));

 	return rc;
 }

 int
 CIFS_SessSetup(unsigned int xid, struct cifsSesInfo *ses, int first_time,
 		const struct nls_table *nls_cp)
 {
 	int rc = 0;
 	int wct;
 	struct smb_hdr *smb_buf;
 	char *bcc_ptr;
 	char *str_area;
 	SESSION_SETUP_ANDX *pSMB;
 	__u32 capabilities;
 	int count;
 	int resp_buf_type;
 	struct kvec iov[3];
 	enum securityEnum type;
 	__u16 action;
 	int bytes_remaining;
 	struct key *spnego_key = NULL;

 	if (ses == NULL)
 		return -EINVAL;

 	type = ses->server->secType;

 	cFYI(1, ("sess setup type %d", type));
 	if (type == LANMAN) {
 #ifndef CONFIG_CIFS_WEAK_PW_HASH
 		/* LANMAN and plaintext are less secure and off by default.
 		So we make this explicitly be turned on in kconfig (in the
 		build) and turned on at runtime (changed from the default)
 		in proc/fs/cifs or via mount parm.  Unfortunately this is
 		needed for old Win (e.g. Win95), some obscure NAS and OS/2 */
 		return -EOPNOTSUPP;
 #endif
 		wct = 10; /* lanman 2 style sessionsetup */
 	} else if ((type == NTLM) || (type == NTLMv2)) {
 		/* For NTLMv2 failures eventually may need to retry NTLM */
 		wct = 13; /* old style NTLM sessionsetup */
 	} else /* same size: negotiate or auth, NTLMSSP or extended security */
 		wct = 12;

 	rc = small_smb_init_no_tc(SMB_COM_SESSION_SETUP_ANDX, wct, ses,
 			    (void **)&smb_buf);
 	if (rc)
 		return rc;

 	pSMB = (SESSION_SETUP_ANDX *)smb_buf;

 	capabilities = cifs_ssetup_hdr(ses, pSMB);

 	/* we will send the SMB in three pieces:
 	a fixed length beginning part, an optional
 	SPNEGO blob (which can be zero length), and a
 	last part which will include the strings
 	and rest of bcc area. This allows us to avoid
 	a large buffer 17K allocation */
 	iov[0].iov_base = (char *)pSMB;
 	iov[0].iov_len = smb_buf->smb_buf_length + 4;

 	/* setting this here allows the code at the end of the function
 	   to free the request buffer if there's an error */
 	resp_buf_type = CIFS_SMALL_BUFFER;

 	/* 2000 big enough to fit max user, domain, NOS name etc. */
 	str_area = kmalloc(2000, GFP_KERNEL);
 	if (str_area == NULL) {
 		rc = -ENOMEM;
 		goto ssetup_exit;
 	}
 	bcc_ptr = str_area;

 	ses->flags &= ~CIFS_SES_LANMAN;

 	iov[1].iov_base = NULL;
 	iov[1].iov_len = 0;

 	if (type == LANMAN) {
 #ifdef CONFIG_CIFS_WEAK_PW_HASH
 		char lnm_session_key[CIFS_SESS_KEY_SIZE];

 		/* no capabilities flags in old lanman negotiation */

 		pSMB->old_req.PasswordLength = cpu_to_le16(CIFS_SESS_KEY_SIZE);
 		/* BB calculate hash with password */
 		/* and copy into bcc */

 		calc_lanman_hash(ses, lnm_session_key);
 		ses->flags |= CIFS_SES_LANMAN;
 		memcpy(bcc_ptr, (char *)lnm_session_key, CIFS_SESS_KEY_SIZE);
 		bcc_ptr += CIFS_SESS_KEY_SIZE;

 		/* can not sign if LANMAN negotiated so no need
 		to calculate signing key? but what if server
 		changed to do higher than lanman dialect and
 		we reconnected would we ever calc signing_key? */

 		cFYI(1, ("Negotiating LANMAN setting up strings"));
 		/* Unicode not allowed for LANMAN dialects */
 		ascii_ssetup_strings(&bcc_ptr, ses, nls_cp);
 #endif
 	} else if (type == NTLM) {
 		char ntlm_session_key[CIFS_SESS_KEY_SIZE];

 		pSMB->req_no_secext.Capabilities = cpu_to_le32(capabilities);
 		pSMB->req_no_secext.CaseInsensitivePasswordLength =
 			cpu_to_le16(CIFS_SESS_KEY_SIZE);
 		pSMB->req_no_secext.CaseSensitivePasswordLength =
 			cpu_to_le16(CIFS_SESS_KEY_SIZE);

 		/* calculate session key */
 		SMBNTencrypt(ses->password, ses->server->cryptKey,
 			     ntlm_session_key);

 		if (first_time) /* should this be moved into common code
 				  with similar ntlmv2 path? */
 			cifs_calculate_mac_key(&ses->server->mac_signing_key,
 				ntlm_session_key, ses->password);
 		/* copy session key */

 		memcpy(bcc_ptr, (char *)ntlm_session_key, CIFS_SESS_KEY_SIZE);
 		bcc_ptr += CIFS_SESS_KEY_SIZE;
 		memcpy(bcc_ptr, (char *)ntlm_session_key, CIFS_SESS_KEY_SIZE);
 		bcc_ptr += CIFS_SESS_KEY_SIZE;
 		if (ses->capabilities & CAP_UNICODE) {
 			/* unicode strings must be word aligned */
 			if (iov[0].iov_len % 2) {
 				*bcc_ptr = 0;
 				bcc_ptr++;
 			}
 			unicode_ssetup_strings(&bcc_ptr, ses, nls_cp);
 		} else
 			ascii_ssetup_strings(&bcc_ptr, ses, nls_cp);
 	} else if (type == NTLMv2) {
 		char *v2_sess_key =
 			kmalloc(sizeof(struct ntlmv2_resp), GFP_KERNEL);

 		/* BB FIXME change all users of v2_sess_key to
 		   struct ntlmv2_resp */

 		if (v2_sess_key == NULL) {
 			rc = -ENOMEM;
 			goto ssetup_exit;
 		}

 		pSMB->req_no_secext.Capabilities = cpu_to_le32(capabilities);

 		/* LM2 password would be here if we supported it */
 		pSMB->req_no_secext.CaseInsensitivePasswordLength = 0;
 		/*	cpu_to_le16(LM2_SESS_KEY_SIZE); */

 		pSMB->req_no_secext.CaseSensitivePasswordLength =
 			cpu_to_le16(sizeof(struct ntlmv2_resp));

 		/* calculate session key */
 		setup_ntlmv2_rsp(ses, v2_sess_key, nls_cp);
 		if (first_time) /* should this be moved into common code
 				   with similar ntlmv2 path? */
 		/*   cifs_calculate_ntlmv2_mac_key(ses->server->mac_signing_key,
 				response BB FIXME, v2_sess_key); */

 		/* copy session key */

 	/*	memcpy(bcc_ptr, (char *)ntlm_session_key,LM2_SESS_KEY_SIZE);
 		bcc_ptr += LM2_SESS_KEY_SIZE; */
 		memcpy(bcc_ptr, (char *)v2_sess_key,
 		       sizeof(struct ntlmv2_resp));
 		bcc_ptr += sizeof(struct ntlmv2_resp);
 		kfree(v2_sess_key);
 		if (ses->capabilities & CAP_UNICODE) {
 			if (iov[0].iov_len % 2) {
 				*bcc_ptr = 0;
 				bcc_ptr++;
 			}
 			unicode_ssetup_strings(&bcc_ptr, ses, nls_cp);
 		} else
 			ascii_ssetup_strings(&bcc_ptr, ses, nls_cp);
 	} else if (type == Kerberos || type == MSKerberos) {
 #ifdef CONFIG_CIFS_UPCALL
 		struct cifs_spnego_msg *msg;
 		spnego_key = cifs_get_spnego_key(ses);
 		if (IS_ERR(spnego_key)) {
 			rc = PTR_ERR(spnego_key);
 			spnego_key = NULL;
 			goto ssetup_exit;
 		}

 		msg = spnego_key->payload.data;
 		/* check version field to make sure that cifs.upcall is
 		   sending us a response in an expected form */
 		if (msg->version != CIFS_SPNEGO_UPCALL_VERSION) {
 			cERROR(1, ("incorrect version of cifs.upcall (expected"
 				   " %d but got %d)",
 				   CIFS_SPNEGO_UPCALL_VERSION, msg->version));
 			rc = -EKEYREJECTED;
 			goto ssetup_exit;
 		}
 		/* bail out if key is too long */
 		if (msg->sesskey_len >
 		    sizeof(ses->server->mac_signing_key.data.krb5)) {
 			cERROR(1, ("Kerberos signing key too long (%u bytes)",
 				msg->sesskey_len));
 			rc = -EOVERFLOW;
 			goto ssetup_exit;
 		}
 		if (first_time) {
 			ses->server->mac_signing_key.len = msg->sesskey_len;
 			memcpy(ses->server->mac_signing_key.data.krb5,
 				msg->data, msg->sesskey_len);
 		}
 		pSMB->req.hdr.Flags2 |= SMBFLG2_EXT_SEC;
 		capabilities |= CAP_EXTENDED_SECURITY;
 		pSMB->req.Capabilities = cpu_to_le32(capabilities);
 		iov[1].iov_base = msg->data + msg->sesskey_len;
 		iov[1].iov_len = msg->secblob_len;
 		pSMB->req.SecurityBlobLength = cpu_to_le16(iov[1].iov_len);

 		if (ses->capabilities & CAP_UNICODE) {
 			/* unicode strings must be word aligned */
 			if ((iov[0].iov_len + iov[1].iov_len) % 2) {
 				*bcc_ptr = 0;
 				bcc_ptr++;
 			}
 			unicode_oslm_strings(&bcc_ptr, nls_cp);
 			unicode_domain_string(&bcc_ptr, ses, nls_cp);
 		} else
 		/* BB: is this right? */
 			ascii_ssetup_strings(&bcc_ptr, ses, nls_cp);
 #else /* ! CONFIG_CIFS_UPCALL */
 		cERROR(1, ("Kerberos negotiated but upcall support disabled!"));
 		rc = -ENOSYS;
 		goto ssetup_exit;
 #endif /* CONFIG_CIFS_UPCALL */
 	} else {
 		cERROR(1, ("secType %d not supported!", type));
 		rc = -ENOSYS;
 		goto ssetup_exit;
 	}

 	iov[2].iov_base = str_area;
 	iov[2].iov_len = (long) bcc_ptr - (long) str_area;

 	count = iov[1].iov_len + iov[2].iov_len;
 	smb_buf->smb_buf_length += count;

 	BCC_LE(smb_buf) = cpu_to_le16(count);

 	rc = SendReceive2(xid, ses, iov, 3 /* num_iovecs */, &resp_buf_type,
 			  CIFS_STD_OP /* not long */ | CIFS_LOG_ERROR);
 	/* SMB request buf freed in SendReceive2 */

 	cFYI(1, ("ssetup rc from sendrecv2 is %d", rc));
 	if (rc)
 		goto ssetup_exit;

 	pSMB = (SESSION_SETUP_ANDX *)iov[0].iov_base;
 	smb_buf = (struct smb_hdr *)iov[0].iov_base;

 	if ((smb_buf->WordCount != 3) && (smb_buf->WordCount != 4)) {
 		rc = -EIO;
 		cERROR(1, ("bad word count %d", smb_buf->WordCount));
 		goto ssetup_exit;
 	}
 	action = le16_to_cpu(pSMB->resp.Action);
 	if (action & GUEST_LOGIN)
 		cFYI(1, ("Guest login")); /* BB mark SesInfo struct? */
 	ses->Suid = smb_buf->Uid;   /* UID left in wire format (le) */
 	cFYI(1, ("UID = %d ", ses->Suid));
 	/* response can have either 3 or 4 word count - Samba sends 3 */
 	/* and lanman response is 3 */
 	bytes_remaining = BCC(smb_buf);
 	bcc_ptr = pByteArea(smb_buf);

 	if (smb_buf->WordCount == 4) {
 		__u16 blob_len;
 		blob_len = le16_to_cpu(pSMB->resp.SecurityBlobLength);
 		bcc_ptr += blob_len;
 		if (blob_len > bytes_remaining) {
 			cERROR(1, ("bad security blob length %d", blob_len));
 			rc = -EINVAL;
 			goto ssetup_exit;
 		}
 		bytes_remaining -= blob_len;
 	}

 	/* BB check if Unicode and decode strings */
 	if (smb_buf->Flags2 & SMBFLG2_UNICODE)
 		rc = decode_unicode_ssetup(&bcc_ptr, bytes_remaining,
 						   ses, nls_cp);
 	else
 		rc = decode_ascii_ssetup(&bcc_ptr, bytes_remaining,
 					 ses, nls_cp);

 ssetup_exit:
 	if (spnego_key)
 		key_put(spnego_key);
 	kfree(str_area);
 	if (resp_buf_type == CIFS_SMALL_BUFFER) {
 		cFYI(1, ("ssetup freeing small buf %p", iov[0].iov_base));
 		cifs_small_buf_release(iov[0].iov_base);
 	} else if (resp_buf_type == CIFS_LARGE_BUFFER)
 		cifs_buf_release(iov[0].iov_base);

 	return rc;
 }
	/*
	* fs/cifs/sess.c
	*
	* SMB/CIFS session setup handling routines
	*
	* Copyright (c) International Business Machines Corp., 2006, 2007
	* Author(s): Steve French (sfrench@us.ibm.com)
	*
	* This library is free software; you can redistribute it and/or modify
	* it under the terms of the GNU Lesser General Public License as published
	* by the Free Software Foundation; either version 2.1 of the License, or
	* (at your option) any later version.
	*
	* This library 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 Lesser General Public License for more details.
	*
	* You should have received a copy of the GNU Lesser General Public License
	* along with this library; if not, write to the Free Software
	* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
	*/

	#include "cifspdu.h"
	#include "cifsglob.h"
	#include "cifsproto.h"
	#include "cifs_unicode.h"
	#include "cifs_debug.h"
	#include "ntlmssp.h"
	#include "nterr.h"
	#include <linux/utsname.h>
	#include "cifs_spnego.h"

	extern void SMBNTencrypt(unsigned char passwd, unsigned char c8,
	unsigned char *p24);

	static __u32 cifs_ssetup_hdr(struct cifsSesInfo ses, SESSION_SETUP_ANDX pSMB)
	{
	__u32 capabilities = 0;

	/* init fields common to all four types of SessSetup */
	/* note that header is initialized to zero in header_assemble */
	pSMB->req.AndXCommand = 0xFF;
	pSMB->req.MaxBufferSize = cpu_to_le16(ses->server->maxBuf);
	pSMB->req.MaxMpxCount = cpu_to_le16(ses->server->maxReq);

	/* Now no need to set SMBFLG_CASELESS or obsolete CANONICAL PATH */

	/* BB verify whether signing required on neg or just on auth frame
	(and NTLM case) */

	capabilities = CAP_LARGE_FILES \| CAP_NT_SMBS \| CAP_LEVEL_II_OPLOCKS \|
	CAP_LARGE_WRITE_X \| CAP_LARGE_READ_X;

	if (ses->server->secMode &
	(SECMODE_SIGN_REQUIRED \| SECMODE_SIGN_ENABLED))
	pSMB->req.hdr.Flags2 \|= SMBFLG2_SECURITY_SIGNATURE;

	if (ses->capabilities & CAP_UNICODE) {
	pSMB->req.hdr.Flags2 \|= SMBFLG2_UNICODE;
	capabilities \|= CAP_UNICODE;
	}
	if (ses->capabilities & CAP_STATUS32) {
	pSMB->req.hdr.Flags2 \|= SMBFLG2_ERR_STATUS;
	capabilities \|= CAP_STATUS32;
	}
	if (ses->capabilities & CAP_DFS) {
	pSMB->req.hdr.Flags2 \|= SMBFLG2_DFS;
	capabilities \|= CAP_DFS;
	}
	if (ses->capabilities & CAP_UNIX)
	capabilities \|= CAP_UNIX;

	/* BB check whether to init vcnum BB */
	return capabilities;
	}

	static void
	unicode_oslm_strings(char *pbcc_area, const struct nls_table nls_cp)
	{
	char bcc_ptr = pbcc_area;
	int bytes_ret = 0;

	/* Copy OS version */
	bytes_ret = cifs_strtoUCS((__le16 *)bcc_ptr, "Linux version ", 32,
	nls_cp);
	bcc_ptr += 2 * bytes_ret;
	bytes_ret = cifs_strtoUCS((__le16 *) bcc_ptr, init_utsname()->release,
	32, nls_cp);
	bcc_ptr += 2 * bytes_ret;
	bcc_ptr += 2; /* trailing null */

	bytes_ret = cifs_strtoUCS((__le16 *) bcc_ptr, CIFS_NETWORK_OPSYS,
	32, nls_cp);
	bcc_ptr += 2 * bytes_ret;
	bcc_ptr += 2; /* trailing null */

	*pbcc_area = bcc_ptr;
	}

	static void unicode_domain_string(char *pbcc_area, struct cifsSesInfo ses,
	const struct nls_table *nls_cp)
	{
	char bcc_ptr = pbcc_area;
	int bytes_ret = 0;

	/* copy domain */
	if (ses->domainName == NULL) {
	/* Sending null domain better than using a bogus domain name (as
	we did briefly in 2.6.18) since server will use its default */
	*bcc_ptr = 0;
	*(bcc_ptr+1) = 0;
	bytes_ret = 0;
	} else
	bytes_ret = cifs_strtoUCS((__le16 *) bcc_ptr, ses->domainName,
	256, nls_cp);
	bcc_ptr += 2 * bytes_ret;
	bcc_ptr += 2; /* account for null terminator */

	*pbcc_area = bcc_ptr;
	}


	static void unicode_ssetup_strings(char *pbcc_area, struct cifsSesInfo ses,
	const struct nls_table *nls_cp)
	{
	char bcc_ptr = pbcc_area;
	int bytes_ret = 0;

	/* BB FIXME add check that strings total less
	than 335 or will need to send them as arrays */

	/* unicode strings, must be word aligned before the call */
	/* if ((long) bcc_ptr % 2) {
	*bcc_ptr = 0;
	bcc_ptr++;
	} */
	/* copy user */
	if (ses->userName == NULL) {
	/* null user mount */
	*bcc_ptr = 0;
	*(bcc_ptr+1) = 0;
	} else { /* 300 should be long enough for any conceivable user name */
	bytes_ret = cifs_strtoUCS((__le16 *) bcc_ptr, ses->userName,
	300, nls_cp);
	}
	bcc_ptr += 2 * bytes_ret;
	bcc_ptr += 2; /* account for null termination */

	unicode_domain_string(&bcc_ptr, ses, nls_cp);
	unicode_oslm_strings(&bcc_ptr, nls_cp);

	*pbcc_area = bcc_ptr;
	}

	static void ascii_ssetup_strings(char *pbcc_area, struct cifsSesInfo ses,
	const struct nls_table *nls_cp)
	{
	char bcc_ptr = pbcc_area;

	/* copy user */
	/* BB what about null user mounts - check that we do this BB */
	/* copy user */
	if (ses->userName == NULL) {
	/* BB what about null user mounts - check that we do this BB */
	} else { /* 300 should be long enough for any conceivable user name */
	strncpy(bcc_ptr, ses->userName, 300);
	}
	/* BB improve check for overflow */
	bcc_ptr += strnlen(ses->userName, 300);
	*bcc_ptr = 0;
	bcc_ptr++; /* account for null termination */

	/* copy domain */

	if (ses->domainName != NULL) {
	strncpy(bcc_ptr, ses->domainName, 256);
	bcc_ptr += strnlen(ses->domainName, 256);
	} /* else we will send a null domain name
	so the server will default to its own domain */
	*bcc_ptr = 0;
	bcc_ptr++;

	/* BB check for overflow here */

	strcpy(bcc_ptr, "Linux version ");
	bcc_ptr += strlen("Linux version ");
	strcpy(bcc_ptr, init_utsname()->release);
	bcc_ptr += strlen(init_utsname()->release) + 1;

	strcpy(bcc_ptr, CIFS_NETWORK_OPSYS);
	bcc_ptr += strlen(CIFS_NETWORK_OPSYS) + 1;

	*pbcc_area = bcc_ptr;
	}

	static int decode_unicode_ssetup(char **pbcc_area, int bleft,
	struct cifsSesInfo *ses,
	const struct nls_table *nls_cp)
	{
	int rc = 0;
	int words_left, len;
	char data = pbcc_area;



	cFYI(1, ("bleft %d", bleft));


	/* SMB header is unaligned, so cifs servers word align start of
	Unicode strings */
	data++;
	bleft--; /* Windows servers do not always double null terminate
	their final Unicode string - in which case we
	now will not attempt to decode the byte of junk
	which follows it */

	words_left = bleft / 2;

	/* save off server operating system */
	len = UniStrnlen((wchar_t *) data, words_left);

	/* We look for obvious messed up bcc or strings in response so we do not go off
	the end since (at least) WIN2K and Windows XP have a major bug in not null
	terminating last Unicode string in response */
	if (len >= words_left)
	return rc;

	kfree(ses->serverOS);
	/* UTF-8 string will not grow more than four times as big as UCS-16 */
	ses->serverOS = kzalloc(4 * len, GFP_KERNEL);
	if (ses->serverOS != NULL)
	cifs_strfromUCS_le(ses->serverOS, (__le16 *)data, len, nls_cp);
	data += 2 * (len + 1);
	words_left -= len + 1;

	/* save off server network operating system */
	len = UniStrnlen((wchar_t *) data, words_left);

	if (len >= words_left)
	return rc;

	kfree(ses->serverNOS);
	ses->serverNOS = kzalloc(4 * len, GFP_KERNEL); /* BB this is wrong length FIXME BB */
	if (ses->serverNOS != NULL) {
	cifs_strfromUCS_le(ses->serverNOS, (__le16 *)data, len,
	nls_cp);
	if (strncmp(ses->serverNOS, "NT LAN Manager 4", 16) == 0) {
	cFYI(1, ("NT4 server"));
	ses->flags \|= CIFS_SES_NT4;
	}
	}
	data += 2 * (len + 1);
	words_left -= len + 1;

	/* save off server domain */
	len = UniStrnlen((wchar_t *) data, words_left);

	if (len > words_left)
	return rc;

	kfree(ses->serverDomain);
	ses->serverDomain = kzalloc(2 * (len + 1), GFP_KERNEL); /* BB FIXME wrong length */
	if (ses->serverDomain != NULL) {
	cifs_strfromUCS_le(ses->serverDomain, (__le16 *)data, len,
	nls_cp);
	ses->serverDomain[2*len] = 0;
	ses->serverDomain[(2*len) + 1] = 0;
	}
	data += 2 * (len + 1);
	words_left -= len + 1;

	cFYI(1, ("words left: %d", words_left));

	return rc;
	}

	static int decode_ascii_ssetup(char **pbcc_area, int bleft,
	struct cifsSesInfo *ses,
	const struct nls_table *nls_cp)
	{
	int rc = 0;
	int len;
	char bcc_ptr = pbcc_area;

	cFYI(1, ("decode sessetup ascii. bleft %d", bleft));

	len = strnlen(bcc_ptr, bleft);
	if (len >= bleft)
	return rc;

	kfree(ses->serverOS);

	ses->serverOS = kzalloc(len + 1, GFP_KERNEL);
	if (ses->serverOS)
	strncpy(ses->serverOS, bcc_ptr, len);
	if (strncmp(ses->serverOS, "OS/2", 4) == 0) {
	cFYI(1, ("OS/2 server"));
	ses->flags \|= CIFS_SES_OS2;
	}

	bcc_ptr += len + 1;
	bleft -= len + 1;

	len = strnlen(bcc_ptr, bleft);
	if (len >= bleft)
	return rc;

	kfree(ses->serverNOS);

	ses->serverNOS = kzalloc(len + 1, GFP_KERNEL);
	if (ses->serverNOS)
	strncpy(ses->serverNOS, bcc_ptr, len);

	bcc_ptr += len + 1;
	bleft -= len + 1;

	len = strnlen(bcc_ptr, bleft);
	if (len > bleft)
	return rc;

	/* No domain field in LANMAN case. Domain is
	returned by old servers in the SMB negprot response */
	/* BB For newer servers which do not support Unicode,
	but thus do return domain here we could add parsing
	for it later, but it is not very important */
	cFYI(1, ("ascii: bytes left %d", bleft));

	return rc;
	}

	int
	CIFS_SessSetup(unsigned int xid, struct cifsSesInfo *ses, int first_time,
	const struct nls_table *nls_cp)
	{
	int rc = 0;
	int wct;
	struct smb_hdr *smb_buf;
	char *bcc_ptr;
	char *str_area;
	SESSION_SETUP_ANDX *pSMB;
	__u32 capabilities;
	int count;
	int resp_buf_type;
	struct kvec iov[3];
	enum securityEnum type;
	__u16 action;
	int bytes_remaining;
	struct key *spnego_key = NULL;

	if (ses == NULL)
	return -EINVAL;

	type = ses->server->secType;

	cFYI(1, ("sess setup type %d", type));
	if (type == LANMAN) {
	#ifndef CONFIG_CIFS_WEAK_PW_HASH
	/* LANMAN and plaintext are less secure and off by default.
	So we make this explicitly be turned on in kconfig (in the
	build) and turned on at runtime (changed from the default)
	in proc/fs/cifs or via mount parm. Unfortunately this is
	needed for old Win (e.g. Win95), some obscure NAS and OS/2 */
	return -EOPNOTSUPP;
	#endif
	wct = 10; /* lanman 2 style sessionsetup */
	} else if ((type == NTLM) \|\| (type == NTLMv2)) {
	/* For NTLMv2 failures eventually may need to retry NTLM */
	wct = 13; /* old style NTLM sessionsetup */
	} else /* same size: negotiate or auth, NTLMSSP or extended security */
	wct = 12;

	rc = small_smb_init_no_tc(SMB_COM_SESSION_SETUP_ANDX, wct, ses,
	(void **)&smb_buf);
	if (rc)
	return rc;

	pSMB = (SESSION_SETUP_ANDX *)smb_buf;

	capabilities = cifs_ssetup_hdr(ses, pSMB);

	/* we will send the SMB in three pieces:
	a fixed length beginning part, an optional
	SPNEGO blob (which can be zero length), and a
	last part which will include the strings
	and rest of bcc area. This allows us to avoid
	a large buffer 17K allocation */
	iov[0].iov_base = (char *)pSMB;
	iov[0].iov_len = smb_buf->smb_buf_length + 4;

	/* setting this here allows the code at the end of the function
	to free the request buffer if there's an error */
	resp_buf_type = CIFS_SMALL_BUFFER;

	/* 2000 big enough to fit max user, domain, NOS name etc. */
	str_area = kmalloc(2000, GFP_KERNEL);
	if (str_area == NULL) {
	rc = -ENOMEM;
	goto ssetup_exit;
	}
	bcc_ptr = str_area;

	ses->flags &= ~CIFS_SES_LANMAN;

	iov[1].iov_base = NULL;
	iov[1].iov_len = 0;

	if (type == LANMAN) {
	#ifdef CONFIG_CIFS_WEAK_PW_HASH
	char lnm_session_key[CIFS_SESS_KEY_SIZE];

	/* no capabilities flags in old lanman negotiation */

	pSMB->old_req.PasswordLength = cpu_to_le16(CIFS_SESS_KEY_SIZE);
	/* BB calculate hash with password */
	/* and copy into bcc */

	calc_lanman_hash(ses, lnm_session_key);
	ses->flags \|= CIFS_SES_LANMAN;
	memcpy(bcc_ptr, (char *)lnm_session_key, CIFS_SESS_KEY_SIZE);
	bcc_ptr += CIFS_SESS_KEY_SIZE;

	/* can not sign if LANMAN negotiated so no need
	to calculate signing key? but what if server
	changed to do higher than lanman dialect and
	we reconnected would we ever calc signing_key? */

	cFYI(1, ("Negotiating LANMAN setting up strings"));
	/* Unicode not allowed for LANMAN dialects */
	ascii_ssetup_strings(&bcc_ptr, ses, nls_cp);
	#endif
	} else if (type == NTLM) {
	char ntlm_session_key[CIFS_SESS_KEY_SIZE];

	pSMB->req_no_secext.Capabilities = cpu_to_le32(capabilities);
	pSMB->req_no_secext.CaseInsensitivePasswordLength =
	cpu_to_le16(CIFS_SESS_KEY_SIZE);
	pSMB->req_no_secext.CaseSensitivePasswordLength =
	cpu_to_le16(CIFS_SESS_KEY_SIZE);

	/* calculate session key */
	SMBNTencrypt(ses->password, ses->server->cryptKey,
	ntlm_session_key);

	if (first_time) /* should this be moved into common code
	with similar ntlmv2 path? */
	cifs_calculate_mac_key(&ses->server->mac_signing_key,
	ntlm_session_key, ses->password);
	/* copy session key */

	memcpy(bcc_ptr, (char *)ntlm_session_key, CIFS_SESS_KEY_SIZE);
	bcc_ptr += CIFS_SESS_KEY_SIZE;
	memcpy(bcc_ptr, (char *)ntlm_session_key, CIFS_SESS_KEY_SIZE);
	bcc_ptr += CIFS_SESS_KEY_SIZE;
	if (ses->capabilities & CAP_UNICODE) {
	/* unicode strings must be word aligned */
	if (iov[0].iov_len % 2) {
	*bcc_ptr = 0;
	bcc_ptr++;
	}
	unicode_ssetup_strings(&bcc_ptr, ses, nls_cp);
	} else
	ascii_ssetup_strings(&bcc_ptr, ses, nls_cp);
	} else if (type == NTLMv2) {
	char *v2_sess_key =
	kmalloc(sizeof(struct ntlmv2_resp), GFP_KERNEL);

	/* BB FIXME change all users of v2_sess_key to
	struct ntlmv2_resp */

	if (v2_sess_key == NULL) {
	rc = -ENOMEM;
	goto ssetup_exit;
	}

	pSMB->req_no_secext.Capabilities = cpu_to_le32(capabilities);

	/* LM2 password would be here if we supported it */
	pSMB->req_no_secext.CaseInsensitivePasswordLength = 0;
	/* cpu_to_le16(LM2_SESS_KEY_SIZE); */

	pSMB->req_no_secext.CaseSensitivePasswordLength =
	cpu_to_le16(sizeof(struct ntlmv2_resp));

	/* calculate session key */
	setup_ntlmv2_rsp(ses, v2_sess_key, nls_cp);
	if (first_time) /* should this be moved into common code
	with similar ntlmv2 path? */
	/* cifs_calculate_ntlmv2_mac_key(ses->server->mac_signing_key,
	response BB FIXME, v2_sess_key); */

	/* copy session key */

	/* memcpy(bcc_ptr, (char *)ntlm_session_key,LM2_SESS_KEY_SIZE);
	bcc_ptr += LM2_SESS_KEY_SIZE; */
	memcpy(bcc_ptr, (char *)v2_sess_key,
	sizeof(struct ntlmv2_resp));
	bcc_ptr += sizeof(struct ntlmv2_resp);
	kfree(v2_sess_key);
	if (ses->capabilities & CAP_UNICODE) {
	if (iov[0].iov_len % 2) {
	*bcc_ptr = 0;
	bcc_ptr++;
	}
	unicode_ssetup_strings(&bcc_ptr, ses, nls_cp);
	} else
	ascii_ssetup_strings(&bcc_ptr, ses, nls_cp);
	} else if (type == Kerberos \|\| type == MSKerberos) {
	#ifdef CONFIG_CIFS_UPCALL
	struct cifs_spnego_msg *msg;
	spnego_key = cifs_get_spnego_key(ses);
	if (IS_ERR(spnego_key)) {
	rc = PTR_ERR(spnego_key);
	spnego_key = NULL;
	goto ssetup_exit;
	}

	msg = spnego_key->payload.data;
	/* check version field to make sure that cifs.upcall is
	sending us a response in an expected form */
	if (msg->version != CIFS_SPNEGO_UPCALL_VERSION) {
	cERROR(1, ("incorrect version of cifs.upcall (expected"
	" %d but got %d)",
	CIFS_SPNEGO_UPCALL_VERSION, msg->version));
	rc = -EKEYREJECTED;
	goto ssetup_exit;
	}
	/* bail out if key is too long */
	if (msg->sesskey_len >
	sizeof(ses->server->mac_signing_key.data.krb5)) {
	cERROR(1, ("Kerberos signing key too long (%u bytes)",
	msg->sesskey_len));
	rc = -EOVERFLOW;
	goto ssetup_exit;
	}
	if (first_time) {
	ses->server->mac_signing_key.len = msg->sesskey_len;
	memcpy(ses->server->mac_signing_key.data.krb5,
	msg->data, msg->sesskey_len);
	}
	pSMB->req.hdr.Flags2 \|= SMBFLG2_EXT_SEC;
	capabilities \|= CAP_EXTENDED_SECURITY;
	pSMB->req.Capabilities = cpu_to_le32(capabilities);
	iov[1].iov_base = msg->data + msg->sesskey_len;
	iov[1].iov_len = msg->secblob_len;
	pSMB->req.SecurityBlobLength = cpu_to_le16(iov[1].iov_len);

	if (ses->capabilities & CAP_UNICODE) {
	/* unicode strings must be word aligned */
	if ((iov[0].iov_len + iov[1].iov_len) % 2) {
	*bcc_ptr = 0;
	bcc_ptr++;
	}
	unicode_oslm_strings(&bcc_ptr, nls_cp);
	unicode_domain_string(&bcc_ptr, ses, nls_cp);
	} else
	/* BB: is this right? */
	ascii_ssetup_strings(&bcc_ptr, ses, nls_cp);
	#else /* ! CONFIG_CIFS_UPCALL */
	cERROR(1, ("Kerberos negotiated but upcall support disabled!"));
	rc = -ENOSYS;
	goto ssetup_exit;
	#endif /* CONFIG_CIFS_UPCALL */
	} else {
	cERROR(1, ("secType %d not supported!", type));
	rc = -ENOSYS;
	goto ssetup_exit;
	}

	iov[2].iov_base = str_area;
	iov[2].iov_len = (long) bcc_ptr - (long) str_area;

	count = iov[1].iov_len + iov[2].iov_len;
	smb_buf->smb_buf_length += count;

	BCC_LE(smb_buf) = cpu_to_le16(count);

	rc = SendReceive2(xid, ses, iov, 3 /* num_iovecs */, &resp_buf_type,
	CIFS_STD_OP /* not long */ \| CIFS_LOG_ERROR);
	/* SMB request buf freed in SendReceive2 */

	cFYI(1, ("ssetup rc from sendrecv2 is %d", rc));
	if (rc)
	goto ssetup_exit;

	pSMB = (SESSION_SETUP_ANDX *)iov[0].iov_base;
	smb_buf = (struct smb_hdr *)iov[0].iov_base;

	if ((smb_buf->WordCount != 3) && (smb_buf->WordCount != 4)) {
	rc = -EIO;
	cERROR(1, ("bad word count %d", smb_buf->WordCount));
	goto ssetup_exit;
	}
	action = le16_to_cpu(pSMB->resp.Action);
	if (action & GUEST_LOGIN)
	cFYI(1, ("Guest login")); /* BB mark SesInfo struct? */
	ses->Suid = smb_buf->Uid; /* UID left in wire format (le) */
	cFYI(1, ("UID = %d ", ses->Suid));
	/* response can have either 3 or 4 word count - Samba sends 3 */
	/* and lanman response is 3 */
	bytes_remaining = BCC(smb_buf);
	bcc_ptr = pByteArea(smb_buf);

	if (smb_buf->WordCount == 4) {
	__u16 blob_len;
	blob_len = le16_to_cpu(pSMB->resp.SecurityBlobLength);
	bcc_ptr += blob_len;
	if (blob_len > bytes_remaining) {
	cERROR(1, ("bad security blob length %d", blob_len));
	rc = -EINVAL;
	goto ssetup_exit;
	}
	bytes_remaining -= blob_len;
	}

	/* BB check if Unicode and decode strings */
	if (smb_buf->Flags2 & SMBFLG2_UNICODE)
	rc = decode_unicode_ssetup(&bcc_ptr, bytes_remaining,
	ses, nls_cp);
	else
	rc = decode_ascii_ssetup(&bcc_ptr, bytes_remaining,
	ses, nls_cp);

	ssetup_exit:
	if (spnego_key)
	key_put(spnego_key);
	kfree(str_area);
	if (resp_buf_type == CIFS_SMALL_BUFFER) {
	cFYI(1, ("ssetup freeing small buf %p", iov[0].iov_base));
	cifs_small_buf_release(iov[0].iov_base);
	} else if (resp_buf_type == CIFS_LARGE_BUFFER)
	cifs_buf_release(iov[0].iov_base);

	return rc;
	}