DWORD
NtlmCreateChallengeContext(
IN const NTLM_NEGOTIATE_MESSAGE_V1* pNtlmNegMsg,
IN NTLM_CRED_HANDLE hCred,
OUT PNTLM_CONTEXT *ppNtlmContext,
OUT PSecBuffer pOutput
)
{
DWORD dwError = LW_ERROR_SUCCESS;
PNTLM_CREDENTIALS pCred = (PNTLM_CREDENTIALS)hCred;
PNTLM_CONTEXT pNtlmContext = NULL;
DWORD dwMessageSize = 0;
PNTLM_CHALLENGE_MESSAGE pMessage = NULL;
PSTR pServerName = NULL;
PSTR pDomainName = NULL;
PSTR pDnsServerName = NULL;
PSTR pDnsDomainName = NULL;
BOOLEAN bInLock = FALSE;
*ppNtlmContext = NULL;
dwError = NtlmCreateContext(hCred, &pNtlmContext);
BAIL_ON_LSA_ERROR(dwError);
if (pCred)
{
NTLM_LOCK_MUTEX(bInLock, &pCred->Mutex);
dwError = NtlmGetNameInformation(
pCred->pszDomainName,
&pServerName,
&pDomainName,
&pDnsServerName,
&pDnsDomainName);
BAIL_ON_LSA_ERROR(dwError);
NTLM_UNLOCK_MUTEX(bInLock, &pCred->Mutex);
}
else
{
dwError = NtlmGetNameInformation(
NULL,
&pServerName,
&pDomainName,
&pDnsServerName,
&pDnsDomainName);
BAIL_ON_LSA_ERROR(dwError);
}
dwError = NtlmGetRandomBuffer(
pNtlmContext->Challenge,
NTLM_CHALLENGE_SIZE
);
BAIL_ON_LSA_ERROR(dwError);
dwError = NtlmCreateChallengeMessage(
pNtlmNegMsg,
pServerName,
pDomainName,
pDnsServerName,
pDnsDomainName,
(PBYTE)&gW2KSpoof,
pNtlmContext->Challenge,
&dwMessageSize,
&pMessage
);
BAIL_ON_LSA_ERROR(dwError);
pNtlmContext->NegotiatedFlags = LW_LTOH32(pMessage->NtlmFlags);
pOutput->cbBuffer = dwMessageSize;
pOutput->BufferType = SECBUFFER_TOKEN;
pOutput->pvBuffer = pMessage;
pNtlmContext->NtlmState = NtlmStateChallenge;
cleanup:
*ppNtlmContext = pNtlmContext;
LW_SAFE_FREE_STRING(pServerName);
LW_SAFE_FREE_STRING(pDomainName);
LW_SAFE_FREE_STRING(pDnsServerName);
LW_SAFE_FREE_STRING(pDnsDomainName);
if (pCred)
{
NTLM_UNLOCK_MUTEX(bInLock, &pCred->Mutex);
}
return dwError;
error:
LW_SAFE_FREE_MEMORY(pMessage);
if (pNtlmContext)
{
NtlmReleaseContext(&pNtlmContext);
*ppNtlmContext = NULL;
}
pOutput->cbBuffer = 0;
pOutput->BufferType = 0;
pOutput->pvBuffer = NULL;
goto cleanup;
}
DWORD
NtlmValidateResponse(
IN HANDLE Handle,
IN NTLM_CRED_HANDLE hCred,
IN PNTLM_RESPONSE_MESSAGE_V1 pRespMsg,
IN DWORD dwRespMsgSize,
IN PNTLM_CONTEXT pChlngCtxt,
OUT BYTE pSessionKey[NTLM_SESSION_KEY_SIZE]
)
{
DWORD dwError = LW_ERROR_SUCCESS;
PNTLM_CREDENTIALS pCred = (PNTLM_CREDENTIALS)hCred;
LSA_AUTH_USER_PARAMS Params;
PLSA_AUTH_USER_INFO pUserInfo = NULL;
PBYTE pLMRespBuffer = NULL;
PBYTE pNTRespBuffer = NULL;
LW_LSA_DATA_BLOB Challenge;
LW_LSA_DATA_BLOB LMResp;
LW_LSA_DATA_BLOB NTResp;
PSTR pUserName = NULL;
PSTR pDomainName = NULL;
PSTR pWorkstation = NULL;
PSTR pDomainInstance = NULL;
BYTE sessionNonce[MD5_DIGEST_LENGTH];
BYTE sessionHashUntrunc[MD5_DIGEST_LENGTH];
BOOLEAN bInLock = FALSE;
memset(&Params, 0, sizeof(Params));
memset(&Challenge, 0, sizeof(Challenge));
memset(&LMResp, 0, sizeof(LMResp));
memset(&NTResp, 0, sizeof(NTResp));
// sanity check
if (!pRespMsg || ! pChlngCtxt)
{
dwError = LW_ERROR_INVALID_PARAMETER;
BAIL_ON_LSA_ERROR(dwError);
}
if (dwRespMsgSize < sizeof(*pRespMsg))
{
dwError = ERROR_INVALID_PARAMETER;
BAIL_ON_LSA_ERROR(dwError);
}
dwError = LwAllocateMemory(
LW_LTOH16(pRespMsg->LmResponse.usLength),
OUT_PPVOID(&pLMRespBuffer));
BAIL_ON_LSA_ERROR(dwError);
dwError = LwAllocateMemory(
LW_LTOH16(pRespMsg->NtResponse.usLength),
OUT_PPVOID(&pNTRespBuffer));
BAIL_ON_LSA_ERROR(dwError);
// The username, domain, and workstation values might come back as Unicode.
// We could technically prevent this by not allowing NTLM_FLAG_UNICODE to be
// set during the negotiation phase, but that seems like an odd restriction
// for now.
dwError = NtlmGetUserNameFromResponse(
pRespMsg,
dwRespMsgSize,
pChlngCtxt->NegotiatedFlags & NTLM_FLAG_UNICODE,
&pUserName);
BAIL_ON_LSA_ERROR(dwError);
dwError = NtlmGetDomainNameFromResponse(
pRespMsg,
dwRespMsgSize,
pChlngCtxt->NegotiatedFlags & NTLM_FLAG_UNICODE,
&pDomainName);
BAIL_ON_LSA_ERROR(dwError);
if (pDomainName[0] == 0)
{
LW_SAFE_FREE_STRING(pDomainName);
}
dwError = NtlmGetWorkstationFromResponse(
pRespMsg,
dwRespMsgSize,
pChlngCtxt->NegotiatedFlags & NTLM_FLAG_UNICODE,
&pWorkstation);
BAIL_ON_LSA_ERROR(dwError);
if (LW_LTOH32(pRespMsg->LmResponse.dwOffset) + LW_LTOH16(pRespMsg->LmResponse.usLength) >
dwRespMsgSize)
{
dwError = ERROR_INVALID_PARAMETER;
BAIL_ON_LSA_ERROR(dwError);
}
memcpy(
pLMRespBuffer,
(PBYTE)pRespMsg + LW_LTOH32(pRespMsg->LmResponse.dwOffset),
LW_LTOH16(pRespMsg->LmResponse.usLength));
if (LW_LTOH32(pRespMsg->NtResponse.dwOffset) + LW_LTOH16(pRespMsg->NtResponse.usLength) >
dwRespMsgSize)
{
dwError = ERROR_INVALID_PARAMETER;
BAIL_ON_LSA_ERROR(dwError);
}
memcpy(
pNTRespBuffer,
(PBYTE)pRespMsg + LW_LTOH32(pRespMsg->NtResponse.dwOffset),
LW_LTOH16(pRespMsg->NtResponse.usLength));
if (LW_LTOH16(pRespMsg->NtResponse.usLength) == 24 &&
pChlngCtxt->NegotiatedFlags & NTLM_FLAG_NTLM2)
{
// The client sent an NTLM2 session response. That means we need to
// calculate the challenge the client used.
if (LW_LTOH16(pRespMsg->LmResponse.usLength) < 8)
{
dwError = LW_ERROR_INVALID_PARAMETER;
BAIL_ON_LSA_ERROR(dwError);
}
// Calculate the session nonce first
memcpy(sessionNonce + 0, pChlngCtxt->Challenge, 8);
memcpy(sessionNonce + 8, pLMRespBuffer, 8);
MD5(sessionNonce, 16, sessionHashUntrunc);
Challenge.dwLen = NTLM_CHALLENGE_SIZE;
Challenge.pData = sessionHashUntrunc;
}
else
{
Challenge.dwLen = NTLM_CHALLENGE_SIZE;
Challenge.pData = pChlngCtxt->Challenge;
}
LMResp.dwLen = LW_LTOH16(pRespMsg->LmResponse.usLength);
LMResp.pData = pLMRespBuffer;
NTResp.dwLen = LW_LTOH16(pRespMsg->NtResponse.usLength);
NTResp.pData = pNTRespBuffer;
Params.AuthType = LSA_AUTH_CHAP;
Params.pass.chap.pChallenge = &Challenge;
Params.pass.chap.pLM_resp = &LMResp;
Params.pass.chap.pNT_resp = &NTResp;
Params.pszAccountName = pUserName;
Params.pszDomain = pDomainName;
Params.pszWorkstation = pWorkstation;
if (pCred)
{
NTLM_LOCK_MUTEX(bInLock, &pCred->Mutex);
if (pCred->pszDomainName)
{
dwError = LwAllocateStringPrintf(
&pDomainInstance,
":%s",
pCred->pszDomainName);
BAIL_ON_LSA_ERROR(dwError);
}
NTLM_UNLOCK_MUTEX(bInLock, &pCred->Mutex);
}
dwError = LsaSrvAuthenticateUserEx(
Handle,
pDomainInstance,
&Params,
&pUserInfo
);
BAIL_ON_LSA_ERROR(dwError);
LW_ASSERT(pUserInfo->pSessionKey->dwLen == NTLM_SESSION_KEY_SIZE);
if (LW_LTOH16(pRespMsg->NtResponse.usLength) == 24 &&
pChlngCtxt->NegotiatedFlags & NTLM_FLAG_NTLM2)
{
HMAC(
EVP_md5(),
pUserInfo->pSessionKey->pData,
NTLM_SESSION_KEY_SIZE,
sessionNonce,
16,
pSessionKey,
NULL);
}
else
{
memcpy(pSessionKey, pUserInfo->pSessionKey->pData, NTLM_SESSION_KEY_SIZE);
}
pChlngCtxt->pUserInfo = pUserInfo;
pUserInfo = NULL;
cleanup:
if (pCred)
{
NTLM_UNLOCK_MUTEX(bInLock, &pCred->Mutex);
}
if (pUserInfo)
{
LsaFreeAuthUserInfo(&pUserInfo);
}
LW_SAFE_FREE_MEMORY(pLMRespBuffer);
LW_SAFE_FREE_MEMORY(pNTRespBuffer);
LW_SAFE_FREE_STRING(pUserName);
LW_SAFE_FREE_STRING(pDomainName);
LW_SAFE_FREE_STRING(pWorkstation);
LW_SAFE_FREE_STRING(pDomainInstance);
return dwError;
error:
goto cleanup;
}
DWORD
NtlmServerInitializeSecurityContext(
IN OPTIONAL NTLM_CRED_HANDLE hCredential,
IN OPTIONAL const NTLM_CONTEXT_HANDLE hContext,
IN OPTIONAL SEC_CHAR* pszTargetName,
IN DWORD fContextReq,
IN DWORD Reserved1,
IN DWORD TargetDataRep,
IN OPTIONAL const SecBuffer* pInput,
IN DWORD Reserved2,
IN OUT OPTIONAL PNTLM_CONTEXT_HANDLE phNewContext,
OUT PSecBuffer pOutput,
OUT PDWORD pfContextAttr,
OUT OPTIONAL PTimeStamp ptsExpiry
)
{
DWORD dwError = LW_ERROR_SUCCESS;
PNTLM_CREDENTIALS pCred = (PNTLM_CREDENTIALS)hCredential;
PNTLM_CONTEXT pNtlmContext = NULL;
PSTR pWorkstation = NULL;
PSTR pDomain = NULL;
PNTLM_CHALLENGE_MESSAGE pMessage = NULL;
DWORD dwMessageSize ATTRIBUTE_UNUSED = 0;
BOOLEAN bInLock = FALSE;
pOutput->pvBuffer = NULL;
if (hContext)
{
pNtlmContext = hContext;
}
if (!pNtlmContext)
{
if (pCred)
{
NTLM_LOCK_MUTEX(bInLock, &pCred->Mutex);
dwError = NtlmGetNameInformation(
pCred->pszDomainName,
&pWorkstation,
&pDomain,
NULL,
NULL);
BAIL_ON_LSA_ERROR(dwError);
NTLM_UNLOCK_MUTEX(bInLock, &pCred->Mutex);
}
else
{
dwError = NtlmGetNameInformation(
NULL,
&pWorkstation,
&pDomain,
NULL,
NULL);
BAIL_ON_LSA_ERROR(dwError);
}
// If we start with a NULL context, create a negotiate message
dwError = NtlmCreateNegotiateContext(
hCredential,
fContextReq,
pDomain,
pWorkstation,
(PBYTE)&gXpSpoof, //for now add OS ver info... config later
&pNtlmContext,
pOutput);
BAIL_ON_LSA_ERROR(dwError);
dwError = LW_WARNING_CONTINUE_NEEDED;
}
else
{
if (pInput->BufferType != SECBUFFER_TOKEN ||
pInput->cbBuffer == 0)
{
dwError = LW_ERROR_INVALID_PARAMETER;
BAIL_ON_LSA_ERROR(dwError);
}
pMessage = pInput->pvBuffer;
dwMessageSize = pInput->cbBuffer;
dwError = NtlmCreateResponseContext(
pMessage,
hCredential,
pNtlmContext->bDoAnonymous,
&pNtlmContext,
pOutput);
BAIL_ON_LSA_ERROR(dwError);
}
*phNewContext = pNtlmContext;
if (pfContextAttr)
{
NtlmGetContextInfo(
pNtlmContext,
NULL,
pfContextAttr,
NULL,
NULL,
NULL);
}
cleanup:
if (pCred)
{
NTLM_UNLOCK_MUTEX(bInLock, &pCred->Mutex);
}
LW_SAFE_FREE_STRING(pWorkstation);
LW_SAFE_FREE_STRING(pDomain);
return dwError;
error:
LW_SAFE_FREE_MEMORY(pOutput->pvBuffer);
pOutput->cbBuffer = 0;
pOutput->BufferType = 0;
// If this function has already succeed once, we MUST make sure phNewContext
// is set so the caller can cleanup whatever context is remaining. It
// could be the original negotiate context or a new response context but
// either way it is vital that the caller get a context they can actually
// cleanup ONCE they've received ANY context from this function.
//
// If hContext is NULL, that indicates this is the first time through this
// call and we can safely release our context.
if ( pNtlmContext && !hContext)
{
NtlmReleaseContext(&pNtlmContext);
phNewContext = NULL;
}
goto cleanup;
}
