websocket+iocp的實現

 websocket 實在tcp的基礎上增加了二次握手，所有其實websocket和之前的iocp流程其實是一樣的

1.CSingleton.h

#ifndef  CSINGLETON_H
#define  CSINGLETON_H
#pragma once
//互斥訪問鎖
class CThreadLockCs
{
public:
	//此函數初始化一個臨界區對象。
	CThreadLockCs() { InitializeCriticalSection(&m_cs); }
	//刪除臨界區對象
	~CThreadLockCs() { DeleteCriticalSection(&m_cs); }
	//加鎖接下來的代碼處理過程不允許其他線程同時操作
	void lock() { EnterCriticalSection(&m_cs); }
	//解鎖解鎖 到EnterCriticalSection之間代碼資源已經釋放了，其他線程可以進行操作  
	void unlock() { LeaveCriticalSection(&m_cs); }
private:
	//臨界區對象
	CRITICAL_SECTION m_cs;
};
/************************************************************************
singleton模式類模板
1:延遲創建類實例    2:double check    3:互斥訪問    4:模板
************************************************************************/


template<class T>
class CSingleton
{
private:
	static T* _instance;
	CSingleton(void);
	static CThreadLockCs lcs;
public:
	static T* Instance(void);
	static void Close(void);
};

//模板類static變量
template<class T>
T*  CSingleton<T>::_instance = NULL;

template<class T>
CThreadLockCs CSingleton<T>::lcs;

//模板類方法實現
template<class T>
CSingleton<T>::CSingleton(void)
{

}

template<class T>
T*  CSingleton<T>::Instance(void)
{
	//double-check
	//延遲創建，只有調用方訪問Instance纔會創建類實例
	if (_instance == NULL)
	{
		//互斥訪問鎖，用CriticalSection實現
		lcs.lock();
		if (_instance == NULL)
		{
			_instance = new T;
		}
		lcs.unlock();
	}
	return _instance;
}

template<class T>
void CSingleton<T>::Close(void)
{
	if (_instance)
	{
		delete _instance;
	}
}
#endif

2.CIOCP.h

#ifndef CIOCP_H
#define CIOCP_H
#include <winsock2.h>
#include <MSWSock.h>
/******************************************************************************
Module:  IOCP.h
Notices: Copyright (c) 2007 Jeffrey Richter & Christophe Nasarre
Purpose: This class wraps an I/O Completion Port.
Revise:    IOCP封裝類，由《windows核心編程》第10章示例程序源碼改編所得
******************************************************************************/
#pragma once   

class CIOCP
{

private:
	
	HANDLE                          m_hIOCP;                       //IOCP句柄
public:
	CIOCP(int nMaxConcurrency = -1);
	~CIOCP();
	//創建IOCP，nMaxConcurrency指定最大線程併發數量，0默認爲cpu數量
	bool CreateIOCP(int nMaxConcurrency = 0);

	//關閉IOCP
	bool CloseIOCP();

	//爲設備關聯一個IOCP
	bool AsscciateDevice(HANDLE hDevice, ULONG_PTR CompKey);

	//爲socket關聯一個IOCP
	bool AsscciateScoket(SOCKET hSocket, ULONG_PTR CompKey);
	//爲iocp傳遞事件通知
	bool PostStatus(ULONG_PTR CompKey, DWORD dwNumBytes = 0, OVERLAPPED* po = NULL);

	//從IO完成隊列中獲取事件通知。IO完成隊列無事件時，該函數將阻塞
	bool GetStatus(ULONG_PTR* pCompKey, PDWORD pdwNumBytes, OVERLAPPED** ppo, DWORD dwMilliseconds = INFINITE);

	//獲取IOCP對象
	const HANDLE  GetIOCP();

};
#endif // !CIOCP_H
///////////////////////////////// End of File /////////////////////////////////

3.CIOCP.cpp

#include "stdafx.h"
#include "CIOCP.h"

#ifdef _DEBUG
#define  ASSERT(T)        assert(T)
#else
#define  ASSERT(T)        (T)
#endif


CIOCP::CIOCP(int nMaxConcurrency)
{
	m_hIOCP = NULL;
	if (-1 != nMaxConcurrency)
	{
		CreateIOCP(nMaxConcurrency);
	}
}


CIOCP::~CIOCP()
{
	if (m_hIOCP != NULL)
		ASSERT(CloseHandle(m_hIOCP));
}
//創建IOCP，nMaxConcurrency指定最大線程併發數量，0默認爲cpu數量
bool CIOCP::CreateIOCP(int nMaxConcurrency )
{   
	//創建一個完成端口
	m_hIOCP = CreateIoCompletionPort(INVALID_HANDLE_VALUE, NULL, 0, nMaxConcurrency);
	//效驗
	ASSERT(m_hIOCP != NULL);

	return (m_hIOCP != NULL);
}

//關閉IOCP
bool CIOCP::CloseIOCP()
{   
	//關閉完成端口
	bool bResult = CloseHandle(m_hIOCP);
	m_hIOCP = NULL;
	return(bResult);
}

//爲設備關聯一個IOCP
bool CIOCP::AsscciateDevice(HANDLE hDevice, ULONG_PTR CompKey)
{   //關聯完成端口
	//1關聯的設備句柄2完成端口句柄3需要綁定的結構體
	bool fOk = (CreateIoCompletionPort(hDevice, m_hIOCP, CompKey, 0) == m_hIOCP);
	//效驗
	ASSERT(fOk);

	return(fOk);
}

//爲socket關聯一個IOCP
bool CIOCP::AsscciateScoket(SOCKET hSocket, ULONG_PTR CompKey)
{    
	return AsscciateDevice((HANDLE)hSocket, CompKey);
}
//爲iocp傳遞事件通知
bool CIOCP::PostStatus(ULONG_PTR CompKey, DWORD dwNumBytes , OVERLAPPED* po)
{   
    //手動添加一個完成端口io操作
	bool fOk = PostQueuedCompletionStatus(m_hIOCP, dwNumBytes, CompKey, po);
	ASSERT(fOk);
	return(fOk);

}

//從IO完成隊列中獲取事件通知。IO完成隊列無事件時，該函數將阻塞
bool CIOCP::GetStatus(ULONG_PTR* pCompKey, PDWORD pdwNumBytes, OVERLAPPED** ppo, DWORD dwMilliseconds)
{
	//監控完成端口
	//1 我們創建的完成端口 2操作完成後返回的字節數 3需要綁定的結構體 
	//4重疊結構LPOVERLAPPED 5等待完成端口的超時時間 
	return(GetQueuedCompletionStatus(m_hIOCP, pdwNumBytes, pCompKey, ppo, dwMilliseconds));
}

//獲取IOCP對象
const HANDLE  CIOCP::GetIOCP()
{
	return m_hIOCP;
}

4.OverlappedIOInfo.h

#ifndef OVERLAPPEDIOINFO_H
#define OVERLAPPEDIOINFO_H

#pragma once
#include <WinSock2.h>
#include <MSWSock.h>
#define  MAXBUF               1024*8
/******************************************************************************
Module:  OverlappedIOInfo.h
Notices: Copyright (c) 20161201  whg
Purpose:
IOCP網絡編程模型中，需要用到GetQueuedCompletionStatus函數獲取已完成事件。
但該函數的返回參數無socket或buffer的描述信息。

一個簡單的解決辦法，創建一個新的結構，該結構第一個參數是OVERLAPPED。
由於AcceptEx、WSASend等重疊IO操作傳入的是Overlapped結構體的地址，調用AcceptEx等重疊IO操作，
在Overlapped結構體後面開闢新的空間，寫入socket或buffer的信息，即可將socket或buffer的信息由
GetQueuedCompletionStatus帶回。

參考《windows核心編程》和CSDN PiggyXP
******************************************************************************/
enum IOOperType {
	TYPE_ACP,            //accept事件到達，有新連接請求    
	TYPE_RECV,           //數據接收事件
	TYPE_SEND,           //數據發送事件
	TYPE_CLOSE,          //關閉事件
	TYPE_NO_OPER
};
class COverlappedIOInfo:public OVERLAPPED
{
public:
	
	SOCKET          m_sSocket;                 //套接字
	
	WSABUF          m_recvBuf;               //接收緩衝區，用於AcceptEx、WSARecv操作
	char            m_cRecvBuf[MAXBUF];        
	
	WSABUF          m_sendBuf;               //發送緩衝區，用於WSASend操作
	char            m_cSendBuf[MAXBUF];
	
	sockaddr_in     m_addr;                  //對端地址
public:
	COverlappedIOInfo();
	~COverlappedIOInfo();
	//復位Overlapped
	void ResetOverlapped();
	//復位RecvBuffer
	void ResetRecvBuffer();
	//復位SendBuffer
	void ResetSendBuffer();
};
#endif // !OVERLAPPEDIOINFO_H

5.OverlappedIOInfo.cpp

#include "stdafx.h"
#include "OverlappedIOInfo.h"


COverlappedIOInfo::COverlappedIOInfo()
{
	m_sSocket = INVALID_SOCKET;
	ResetOverlapped();
	ResetRecvBuffer();
	ResetSendBuffer();
}


COverlappedIOInfo::~COverlappedIOInfo()
{
	if (m_sSocket != INVALID_SOCKET)
	{
		closesocket(m_sSocket);
		m_sSocket = INVALID_SOCKET;
	}
}
void COverlappedIOInfo::ResetOverlapped()
{
	Internal = InternalHigh = 0;
	Offset = OffsetHigh = 0;
	hEvent = NULL;
}
void COverlappedIOInfo::ResetRecvBuffer()
{
	ZeroMemory(m_cRecvBuf, MAXBUF);
	m_recvBuf.buf = m_cRecvBuf;
	m_recvBuf.len = MAXBUF;
}
void COverlappedIOInfo::ResetSendBuffer()
{
	ZeroMemory(m_cSendBuf, MAXBUF);
	m_sendBuf.buf = m_cSendBuf;
	m_sendBuf.len = MAXBUF;
}

6.TaskService.h

#ifndef WHG_CTASKSVC
#define WHG_CTASKSVC
#include <vector>
#include <afxwin.h>
class CTaskService
{
public:
	//Activate用於激活一定數量的工作者線程，默認激活數量爲1。返回當前線程隊列大小
	UINT    Activate(int num = 1);
	//獲取線程隊列大小
	UINT    GetThreadsNum(void);

protected:
	//只有子類纔可以構造父類，拒絕外部訪問構造類實例
	CTaskService(void);
	~CTaskService(void);
	//子類應重定義工作線程細節
	virtual void svc();
	//Close用於等待線程結束並關閉線程，退出線程由子類控制
	void    Close();

private:
	//工作者線程訪問接口
	static UINT WorkThread(LPVOID param);
	//線程隊列
	std::vector<CWinThread*>    vec_threads;
};
#endif

7.TaskService.cpp

#include "stdafx.h"
#include "TaskService.h"

CTaskService::CTaskService(void)
{
}

CTaskService::~CTaskService(void)
{
	Close();
}

UINT CTaskService::Activate(int num)
{
	for (int i = 0; i < num; i++)
	{
		CWinThread* pwt = AfxBeginThread(WorkThread, this, THREAD_PRIORITY_NORMAL, 0, CREATE_SUSPENDED);
		if (pwt)
		{
			pwt->m_bAutoDelete = false;
			pwt->ResumeThread();
			vec_threads.push_back(pwt);
		}
	}
	return vec_threads.size();
}

UINT CTaskService::GetThreadsNum(void)
{
	return vec_threads.size();
}


UINT CTaskService::WorkThread(LPVOID param)
{
	CTaskService* pts = (CTaskService*)param;
	if (pts)
	{
		pts->svc();
	}
	return 0;
}

void CTaskService::svc()
{

}

void CTaskService::Close()
{
	int cnt = vec_threads.size();
	if (cnt > 0)
	{
		std::vector<CWinThread*>::iterator iter = vec_threads.begin();
		for (; iter != vec_threads.end(); iter++)
		{
			CWinThread* pwt = *iter;
			WaitForSingleObject(pwt->m_hThread, INFINITE);
			delete pwt;
		}
		vec_threads.clear();
	}
}

8.WebSocket.h

#pragma once

#define RESPONSELEN                     512                  //握手返回
#define ACCEPTKEYLEN                    512                  //連接密鑰
#define PACKDATALEN                     1024                 //封包數據
#define ACCEPTDATALEN                   1024                 //建立連接
#define UNPACKDATA                      1024                 //解包數據

typedef struct SHA1Context {

	unsigned Message_Digest[5];

	unsigned Length_Low;

	unsigned Length_High;

	unsigned char Message_Block[64];

	int Message_Block_Index;

	int Computed;

	int Corrupted;

} SHA1Context;

class WebSocket
{
private:
	char                             m_ResponseHeader[RESPONSELEN];        //握手返回
	char                             m_AcceptKey[ACCEPTKEYLEN];            //連接密鑰
	char                             m_PackData[PACKDATALEN];              //封包數據
	char                             m_AcceptData[ACCEPTDATALEN];          //建立連接
	char                             m_UnpackData[UNPACKDATA];             //解包數據
public:
	WebSocket();
	~WebSocket();
public:
	//建立連接
	bool WebAccept(int sock, char * buf, int len);
	//發送消息
	int WebSend(int sock, const char* buf, int bufLen);
	//接收消息
	int WebRecv(char* buf, int bufLen);

private:
	//連接密鑰
	bool  GetAcceptKey(int sock,char * buf, int len);
	//二次握手
	void  shakeHand(int connfd, char *serverKey);
	//數據封包
	char* packData(const char * message, unsigned long * len, unsigned long n);

private:
	//將大改小
	int  tolower(int c);
	//類型轉換
	int  htoi(const char s[], int start, int len);
private:
	//數據編碼
	char *base64_encode(const char* data, int data_len);
private:
	//初始化SHA1Context
	void SHA1Reset(SHA1Context *);
	//數據驗證
	int  SHA1Result(SHA1Context *);
	//提取數據
	void SHA1Input(SHA1Context *, const char *, unsigned int);
	//編碼算法
	void SHA1ProcessMessageBlock(SHA1Context *);
	//編碼算法
	void SHA1PadMessage(SHA1Context *);
	//算法入口
	char * sha1_hash(const char *source);

};

9.WebSocket.cpp

#include "stdafx.h"
#include "WebSocket.h"
#include <string.h>
#include <malloc.h>
#include <Windows.h>
#define SHA1CircularShift(bits,word) ((((word) << (bits)) & 0xFFFFFFFF) | ((word) >> (32-(bits))))

const char base[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=";

WebSocket::WebSocket()
{
}


WebSocket::~WebSocket()
{
}
//建立連接
bool WebSocket::WebAccept(int sock,char * buf,int len)
{  
	if (!GetAcceptKey(sock,buf, len))
		return false;
	return true;
}

//獲取密鑰
bool WebSocket::GetAcceptKey( int sock,char * buf,int len)
{   
	char *flag = "Sec-WebSocket-Key: ";

	const char * GUID = "258EAFA5-E914-47DA-95CA-C5AB0DC85B11";

	if (!buf||!len)
		return false;
	memset(m_AcceptKey, 0, sizeof(m_AcceptKey));
	char * keyBegin = strstr((char *)buf, flag);
	keyBegin += strlen(flag);
	int bufLen = strlen(buf);
	for (int i = 0; i<bufLen; i++)
	{
		if (keyBegin[i] == 0x0A || keyBegin[i] == 0x0D)
		{
			break;
		}
		m_AcceptKey[i] = keyBegin[i];
	}
	
	strcat(m_AcceptKey, GUID);
	char* sha1DataTemp= sha1_hash(m_AcceptKey);

	int sha1Datalen = strlen(sha1DataTemp);
	for (int i = 0; i<256; i++)
	{
		m_AcceptKey[i] = 0;
	}
	for (int i = 0; i<sha1Datalen; i += 2)
	{
		m_AcceptKey[i / 2] = htoi(sha1DataTemp, i, 2);
	}
	char * serverKey =base64_encode(m_AcceptKey, sha1Datalen / 2);
	//二次握手
	shakeHand(sock, serverKey);
	return true;
}
//二次握手
void  WebSocket::shakeHand(int connfd, char *serverKey)
{
	memset(m_ResponseHeader, 0, sizeof(m_ResponseHeader));
	if (!connfd|| !serverKey)
		return;

	sprintf(m_ResponseHeader, "HTTP/1.1 101 Switching Protocols\r\n");
	sprintf(m_ResponseHeader, "%sUpgrade: websocket\r\n", m_ResponseHeader);
	sprintf(m_ResponseHeader, "%sConnection: Upgrade\r\n", m_ResponseHeader);
	sprintf(m_ResponseHeader, "%sSec-WebSocket-Accept: %s\r\n\r\n", m_ResponseHeader, serverKey);

	send(connfd, m_ResponseHeader, strlen(m_ResponseHeader),0);
}
//接收數據
int WebSocket::WebRecv(char* buf, int bufLen)
{   
	//接收數據
	memset(m_UnpackData, 0, sizeof(m_UnpackData));
	memcpy(m_UnpackData, buf, bufLen);
	memset(buf, 0, bufLen);
	// 1bit，1表示最後一幀
	char fin = (m_UnpackData[0] & 0x80) == 0x80;
	// 超過一幀暫不處理
	if (!fin|| bufLen < 2|| bufLen <=0||(m_UnpackData[0]&0xF) == 8)
	{
		return 0;
	}
	// 是否包含掩碼
	char maskFlag = (m_UnpackData[1] & 0x80) == 0x80;
	// 不包含掩碼的暫不處理
	if (!maskFlag)
	{
		return NULL;
	}
	char * payloadData=NULL;
	// 數據長度
	unsigned int payloadLen = m_UnpackData[1] & 0x7F;
	char masks[4] = { 0 };
	if (payloadLen == 126)
	{
		memcpy(masks, m_UnpackData + 4, 4);
		payloadLen = (m_UnpackData[2] & 0xFF) << 8 | (m_UnpackData[3] & 0xFF);
		payloadLen = bufLen > payloadLen ? payloadLen : bufLen;
		memset(buf, 0, payloadLen);
		memcpy(buf, m_UnpackData + 8, payloadLen);
	}
	else if (payloadLen == 127)
	{
		char temp[8] = {0};
		memcpy(masks, m_UnpackData + 10, 4);
		for (int i = 0; i < 8; i++)
		{
			temp[i] = m_UnpackData[9 - i];
		}
		unsigned long n = 0;
		memcpy(&n, temp, 8);
		payloadLen = bufLen > n ? n : bufLen;
		memset(buf, 0, payloadLen);
		memcpy(buf, m_UnpackData + 14, payloadLen);//toggle error(core dumped) if data is too long.
	}
	else
	{
		memcpy(masks, m_UnpackData + 2, 4);
		payloadLen = bufLen > payloadLen ? payloadLen : bufLen;
		memset(buf, 0, payloadLen);
		memcpy(buf, m_UnpackData + 6, payloadLen);
	}

	for (int i = 0; i < payloadLen; i++)
	{
		buf[i] = (char)(buf[i] ^ masks[i % 4]);
	}
	return strlen(buf);
}

//數據封包
char* WebSocket::packData(const char * message, unsigned long * len, unsigned long n)
{   
	memset(m_PackData, 0, sizeof(m_PackData));
	if (n < 126)
	{
		m_PackData[0] = 0x82;
		m_PackData[1] = n;
		memcpy(m_PackData + 2, message, n);
		*len = n + 2;
	}
	else if (n < PACKDATALEN)
	{
		m_PackData[0] = 0x82;
		m_PackData[1] = 126;
		m_PackData[2] = (n >> 8 & 0xFF);
		m_PackData[3] = (n & 0xFF);
		memcpy(m_PackData + 4, message, n);
		*len = n + 4;
	}
	else
	{
		// 暫不處理超長內容
		*len = 0;
	}
	return m_PackData;
}
//發送消息
int WebSocket::WebSend(int sock, const char* buf, int bufLen)
{
	if (!sock)
		return 0;

	unsigned long n = 0;
	char * data = packData(buf, &n, bufLen);
	if (!data || n <= 0)
		return 0;
	return send(sock, data, n,0);
}
//將大改小
int  WebSocket::tolower(int c)
{
	if (c >= 'A' && c <= 'Z')
	{
		return c + 'a' - 'A';
	}
	return c;
}
//類型轉換
int  WebSocket::htoi(const char s[], int start, int len)
{
	int i;
	int n = 0;
	if (s[0] == '0' && (s[1] == 'x' || s[1] == 'X')) //判斷是否有前導0x或者0X
		i = 2;
	else
		i = 0;

	i += start;
	
	for (int j = 0; (s[i] >= '0' && s[i] <= '9')
		|| (s[i] >= 'a' && s[i] <= 'f') || (s[i] >= 'A' && s[i] <= 'F'); ++i)
	{
		if (j >= len)
		{
			break;
		}
		if (tolower(s[i]) > '9')
		{
			n = 16 * n + (10 + tolower(s[i]) - 'a');
		}
		else
		{
			n = 16 * n + (tolower(s[i]) - '0');
		}
		j++;
	}
	return n;
}
//數據編碼
char *WebSocket::base64_encode(const char* data, int data_len)
{
	int RetLen = data_len / 3;
	int temp = data_len % 3;
	if (temp > 0)
	{
		RetLen += 1;
	}
	RetLen = RetLen * 4 + 1;
	char *RetData = (char *)malloc(RetLen);
	if (RetData == NULL)
	{
		printf("No enough memory.\n");
		exit(0);
	}
	memset(RetData, 0, RetLen);
	char *RetTemp = RetData;
	int tmp = 0;
	while (tmp < data_len)
	{
		temp = 0;
		int prepare = 0;
		char changed[4] = {0};
		while (temp < 3)
		{
			//printf("tmp = %d\n", tmp);
			if (tmp >= data_len)
			{
				break;
			}
			prepare = ((prepare << 8) | (data[tmp] & 0xFF));
			tmp++;
			temp++;
		}
		prepare = (prepare << ((3 - temp) * 8));
		//printf("before for : temp = %d, prepare = %d\n", temp, prepare);
		for (int i = 0; i < 4; i++)
		{
			if (temp < i)
			{
				changed[i] = 0x40;
			}
			else
			{
				changed[i] = (prepare >> ((3 - i) * 6)) & 0x3F;
			}
			*RetTemp = base[changed[i]];
			//printf("%.2X", changed[i]);
			RetTemp++;
		}
	}
	*RetTemp = '\0';

	return RetData;
}

void WebSocket::SHA1Reset(SHA1Context * context)
{
	context->Length_Low = 0;
	context->Length_High = 0;
	context->Message_Block_Index = 0;

	context->Message_Digest[0] = 0x67452301;
	context->Message_Digest[1] = 0xEFCDAB89;
	context->Message_Digest[2] = 0x98BADCFE;
	context->Message_Digest[3] = 0x10325476;
	context->Message_Digest[4] = 0xC3D2E1F0;

	context->Computed = 0;
	context->Corrupted = 0;
}

int WebSocket::SHA1Result(SHA1Context * context)
{
	if (context->Corrupted) 
		return 0;

	if (!context->Computed) {
		SHA1PadMessage(context);
		context->Computed = 1;
	}
	return 1;
}

void WebSocket::SHA1Input(SHA1Context * context, const char *message_array, unsigned int length)
{
	if (!length) return;

	if (context->Computed || context->Corrupted) {
		context->Corrupted = 1;
		return;
	}

	while (length-- && !context->Corrupted) {
		context->Message_Block[context->Message_Block_Index++] = (*message_array & 0xFF);

		context->Length_Low += 8;

		context->Length_Low &= 0xFFFFFFFF;
		if (context->Length_Low == 0) {
			context->Length_High++;
			context->Length_High &= 0xFFFFFFFF;
			if (context->Length_High == 0) context->Corrupted = 1;
		}

		if (context->Message_Block_Index == 64) {
			SHA1ProcessMessageBlock(context);
		}
		message_array++;
	}
}

void WebSocket::SHA1ProcessMessageBlock(SHA1Context * context)
{
	const unsigned K[] = { 0x5A827999, 0x6ED9EBA1, 0x8F1BBCDC, 0xCA62C1D6 };
	int         t;
	unsigned    temp;
	unsigned    W[80];
	unsigned    A, B, C, D, E;

	for (t = 0; t < 16; t++) {
		W[t] = ((unsigned)context->Message_Block[t * 4]) << 24;
		W[t] |= ((unsigned)context->Message_Block[t * 4 + 1]) << 16;
		W[t] |= ((unsigned)context->Message_Block[t * 4 + 2]) << 8;
		W[t] |= ((unsigned)context->Message_Block[t * 4 + 3]);
	}

	for (t = 16; t < 80; t++)  W[t] = SHA1CircularShift(1, W[t - 3] ^ W[t - 8] ^ W[t - 14] ^ W[t - 16]);

	A = context->Message_Digest[0];
	B = context->Message_Digest[1];
	C = context->Message_Digest[2];
	D = context->Message_Digest[3];
	E = context->Message_Digest[4];

	for (t = 0; t < 20; t++) {
		temp = SHA1CircularShift(5, A) + ((B & C) | ((~B) & D)) + E + W[t] + K[0];
		temp &= 0xFFFFFFFF;
		E = D;
		D = C;
		C = SHA1CircularShift(30, B);
		B = A;
		A = temp;
	}
	for (t = 20; t < 40; t++) {
		temp = SHA1CircularShift(5, A) + (B ^ C ^ D) + E + W[t] + K[1];
		temp &= 0xFFFFFFFF;
		E = D;
		D = C;
		C = SHA1CircularShift(30, B);
		B = A;
		A = temp;
	}
	for (t = 40; t < 60; t++) {
		temp = SHA1CircularShift(5, A) + ((B & C) | (B & D) | (C & D)) + E + W[t] + K[2];
		temp &= 0xFFFFFFFF;
		E = D;
		D = C;
		C = SHA1CircularShift(30, B);
		B = A;
		A = temp;
	}
	for (t = 60; t < 80; t++) {
		temp = SHA1CircularShift(5, A) + (B ^ C ^ D) + E + W[t] + K[3];
		temp &= 0xFFFFFFFF;
		E = D;
		D = C;
		C = SHA1CircularShift(30, B);
		B = A;
		A = temp;
	}
	context->Message_Digest[0] = (context->Message_Digest[0] + A) & 0xFFFFFFFF;
	context->Message_Digest[1] = (context->Message_Digest[1] + B) & 0xFFFFFFFF;
	context->Message_Digest[2] = (context->Message_Digest[2] + C) & 0xFFFFFFFF;
	context->Message_Digest[3] = (context->Message_Digest[3] + D) & 0xFFFFFFFF;
	context->Message_Digest[4] = (context->Message_Digest[4] + E) & 0xFFFFFFFF;
	context->Message_Block_Index = 0;
}

void WebSocket::SHA1PadMessage(SHA1Context * context)
{
	if (context->Message_Block_Index > 55) {
		context->Message_Block[context->Message_Block_Index++] = 0x80;
		while (context->Message_Block_Index < 64)  context->Message_Block[context->Message_Block_Index++] = 0;
		SHA1ProcessMessageBlock(context);
		while (context->Message_Block_Index < 56) context->Message_Block[context->Message_Block_Index++] = 0;
	}
	else {
		context->Message_Block[context->Message_Block_Index++] = 0x80;
		while (context->Message_Block_Index < 56) context->Message_Block[context->Message_Block_Index++] = 0;
	}
	context->Message_Block[56] = (context->Length_High >> 24) & 0xFF;
	context->Message_Block[57] = (context->Length_High >> 16) & 0xFF;
	context->Message_Block[58] = (context->Length_High >> 8) & 0xFF;
	context->Message_Block[59] = (context->Length_High) & 0xFF;
	context->Message_Block[60] = (context->Length_Low >> 24) & 0xFF;
	context->Message_Block[61] = (context->Length_Low >> 16) & 0xFF;
	context->Message_Block[62] = (context->Length_Low >> 8) & 0xFF;
	context->Message_Block[63] = (context->Length_Low) & 0xFF;

	SHA1ProcessMessageBlock(context);
}

char * WebSocket::sha1_hash(const char *source)
{
	SHA1Context sha;
	char *buf;//[128];

	SHA1Reset(&sha);
	SHA1Input(&sha, source, strlen(source));

	if (!SHA1Result(&sha))
	{
		printf("SHA1 ERROR: Could not compute message digest");
		return NULL;
	}
	else 
	{
		buf = (char *)malloc(128);
		memset(buf, 0, sizeof(buf));
		sprintf(buf, "%08X%08X%08X%08X%08X", sha.Message_Digest[0], sha.Message_Digest[1],
			sha.Message_Digest[2], sha.Message_Digest[3], sha.Message_Digest[4]);
		return buf;
	}
	return NULL;
}

10.Server.h

#ifndef SERVER_H
#define SERVER_H
#pragma once
#include "TaskService.h"
#include "OverlappedIOInfo.h"
#include "CSingleton.h"
#include "CIOCP.h"
#include "WebSocket.h"
class CServer :public CTaskService
{
#define ACCEPT_SOCKET_NUM  10
private:
	
	WSAData                        m_wsaData;                   //winsock版本類型
	
	SOCKET                         m_sListen;                   //端口監聽套接字
	
	std::vector<SOCKET>            m_vecAcps;                   //等待accept的套接字

	WebSocket                      m_WebSocket;                 //網頁長連接

	//已建立連接的信息，每個結構含有一個套接字、發送緩衝和接收緩衝，以及對端地址
	std::vector<COverlappedIOInfo*>    m_vecContInfo;
	//操作vector的互斥訪問鎖
	CThreadLockCs                m_lsc;
	//IOCP封裝類
	CIOCP                        m_iocp;
	//AcceptEx函數指針
	LPFN_ACCEPTEX                m_lpfnAcceptEx;
	//GetAcceptSockAddrs函數指針
	LPFN_GETACCEPTEXSOCKADDRS    m_lpfnGetAcceptSockAddrs;
public:
	CServer(void);
	~CServer(void);
	bool    StartListen(unsigned short port, std::string ip);

protected:
	virtual void svc();

private:
	//啓動CPU*2個線程，返回已啓動線程個數
	UINT    StartThreadPull();
	//獲取AcceptEx和GetAcceptExSockaddrs函數指針
	bool    GetLPFNAcceptEXAndGetAcceptSockAddrs();
	//利用AcceptEx監聽accept請求
	bool    PostAccept(COverlappedIOInfo* ol);
	//處理accept請求,NumberOfBytes=0表示沒有收到第一幀數據，>0表示收到第一幀數據
	bool    DoAccept(COverlappedIOInfo* ol, DWORD NumberOfBytes = 0);
	//投遞recv請求
	bool    PostRecv(COverlappedIOInfo* ol);
	//處理recv請求
	bool    DoRecv(COverlappedIOInfo* ol);
	//從已連接socket列表中移除socket及釋放空間
	bool    DeleteLink(SOCKET s);
	//釋放3個部分步驟：
	//1：清空IOCP線程隊列，退出線程
	//2: 清空等待accept的套接字m_vecAcps
	//3: 清空已連接的套接字m_vecContInfo並清空緩存
	void    CloseServer();

};

typedef CSingleton<CServer> SERVER;
#endif

11.Server.cpp

#include "stdafx.h"
#include "Server.h"


CServer::CServer()
{
	m_lpfnAcceptEx = NULL;
	m_lpfnGetAcceptSockAddrs = NULL;
	WSAStartup(MAKEWORD(2, 2), &m_wsaData);
	printf("%d\n", m_wsaData.iMaxSockets);
}


CServer::~CServer()
{
	CloseServer();
	WSACleanup();
}
bool CServer::StartListen(unsigned short port, std::string ip)
{   
	//listen socket需要將accept操作投遞到完成端口，因此，listen socket屬性必須有重疊IO
	m_sListen = WSASocket(AF_INET, SOCK_STREAM, IPPROTO_TCP, NULL, 0, WSA_FLAG_OVERLAPPED);
	if (m_sListen == INVALID_SOCKET)
	{
		cout << "WSASocket create socket error" << endl;
		return false;
	}
	//創建並設置IOCP併發線程數量
	if (m_iocp.CreateIOCP() == FALSE)
	{
		cout << "IOCP create error,error code " << WSAGetLastError() << endl;
		return false;
	}
	//將listen socket綁定至iocp
	if (!m_iocp.AsscciateScoket(m_sListen, TYPE_ACP))
	{
		cout << "iocp Associate listen Socket error" << endl;
		return false;
	}
	sockaddr_in service;
	service.sin_family = AF_INET;
	service.sin_port = htons(port);
	if (ip.empty())
	{
		service.sin_addr.s_addr = INADDR_ANY;
	}
	else
	{
		service.sin_addr.s_addr = inet_addr(ip.c_str());
	}

	if (bind(m_sListen, (sockaddr*)&service, sizeof(service)) == SOCKET_ERROR)
	{
		cout << "bind() error,error code " << WSAGetLastError() << endl;
		return false;
	}
	cout << "bind ok!" << endl;

	if (listen(m_sListen, SOMAXCONN) == SOCKET_ERROR)
	{
		cout << "listen() error,error code " << WSAGetLastError() << endl;
		return false;
	}
	cout << "listen ok!" << endl;
	//啓動工作者線程
	int threadnum = StartThreadPull();
	cout << "啓動工作者線程,num=" << threadnum << endl;
	//獲取AcceptEx和GetAcceptSockAddrs函數指針
	if (!GetLPFNAcceptEXAndGetAcceptSockAddrs())
	{
		return false;
	}
	//創建10個acceptex
	for (int i = 0; i < ACCEPT_SOCKET_NUM; i++)
	{
		//用accept
		COverlappedIOInfo* ol = new COverlappedIOInfo;
		if (!PostAccept(ol))
		{
			delete ol;
			return false;
		}
	}

}
void CServer::svc()
{
	while (true)
	{
		DWORD  NumberOfBytes = 0;
		unsigned long CompletionKey = 0;
		OVERLAPPED*    ol = NULL;
		if (FALSE != GetQueuedCompletionStatus(m_iocp.GetIOCP(), &NumberOfBytes, &CompletionKey, &ol, WSA_INFINITE))
		{
			COverlappedIOInfo* olinfo = (COverlappedIOInfo*)ol;

			if (CompletionKey == TYPE_CLOSE)
			{
				break;
			}
			if (NumberOfBytes == 0 && (CompletionKey == TYPE_RECV || CompletionKey == TYPE_SEND))
			{
				//客戶端斷開連接
				cout << "客戶端斷開連接,ip=" << inet_ntoa(olinfo->m_addr.sin_addr) << ",port=" << olinfo->m_addr.sin_port << endl;
				DeleteLink(olinfo->m_sSocket);
				continue;
			}
			
			switch (CompletionKey)
			{
			case TYPE_ACP:
			{
				DoAccept(olinfo, NumberOfBytes);
				PostAccept(olinfo);
			}
			break;
			case TYPE_RECV:
			{
				DoRecv(olinfo);
				PostRecv(olinfo);
			}
			break;
			case TYPE_SEND:
			{
			}
			break;
			default:
				break;
			}
		}
		else
		{
			int res = WSAGetLastError();
			switch (res)
			{
			case ERROR_NETNAME_DELETED:
			{
				COverlappedIOInfo* olinfo = (COverlappedIOInfo*)ol;
				if (olinfo)
				{
					cout << "客戶端異常退出,ip=" << inet_ntoa(olinfo->m_addr.sin_addr) << ",port=" << olinfo->m_addr.sin_port << endl;
					DeleteLink(olinfo->m_sSocket);
				}
			}
			break;
			default:
				cout << "workthread GetQueuedCompletionStatus error,error code " << WSAGetLastError() << endl;
				break;
			}
			continue;
		}
	}
	cout << "workthread stop" << endl;
}
//啓動CPU*2個線程，返回已啓動線程個數
UINT   CServer::StartThreadPull()
{   
	//獲取系統cpu個數啓動線程
	SYSTEM_INFO si;
	GetSystemInfo(&si);
	//啓動cpu數量*2個線程
	return Activate(si.dwNumberOfProcessors * 2);

}
//獲取AcceptEx和GetAcceptExSockaddrs函數指針
bool   CServer::GetLPFNAcceptEXAndGetAcceptSockAddrs()
{
	DWORD BytesReturned = 0;
	//獲取AcceptEx函數指針
	GUID GuidAcceptEx = WSAID_ACCEPTEX;
	if (SOCKET_ERROR == WSAIoctl(
		m_sListen,
		SIO_GET_EXTENSION_FUNCTION_POINTER,
		&GuidAcceptEx,
		sizeof(GuidAcceptEx),
		&m_lpfnAcceptEx,
		sizeof(m_lpfnAcceptEx),
		&BytesReturned,
		NULL, NULL))
	{
		cout << "WSAIoctl get AcceptEx function error,error code " << WSAGetLastError() << endl;
		return false;
	}

	//獲取GetAcceptexSockAddrs函數指針
	GUID GuidGetAcceptexSockAddrs = WSAID_GETACCEPTEXSOCKADDRS;
	if (SOCKET_ERROR == WSAIoctl(
		m_sListen,
		SIO_GET_EXTENSION_FUNCTION_POINTER,
		&GuidGetAcceptexSockAddrs,
		sizeof(GuidGetAcceptexSockAddrs),
		&m_lpfnGetAcceptSockAddrs,
		sizeof(m_lpfnGetAcceptSockAddrs),
		&BytesReturned,
		NULL, NULL))
	{
		cout << "WSAIoctl get GetAcceptexSockAddrs function error,error code " << WSAGetLastError() << endl;
		return false;
	}

	return true;
}
//利用AcceptEx監聽accept請求
bool   CServer::PostAccept(COverlappedIOInfo* ol)
{
	if (m_lpfnAcceptEx == NULL)
	{
		cout << "m_lpfnAcceptEx is NULL" << endl;
		return false;
	}
	SOCKET s = ol->m_sSocket;
	ol->ResetRecvBuffer();
	ol->ResetOverlapped();
	ol->ResetSendBuffer();
	ol->m_sSocket = WSASocket(AF_INET, SOCK_STREAM, IPPROTO_TCP, NULL, 0, WSA_FLAG_OVERLAPPED);
	if (ol->m_sSocket == INVALID_SOCKET)
	{
		cout << "WSASocket error ,error code " << WSAGetLastError() << endl;
		return false;
	}
	//這裏建立的socket用來和對端建立連接，終會加入m_vecContInfo列表
	//調用acceptex將accept socket綁定至完成端口，並開始進行事件監聽
	//這裏需要傳遞Overlapped，new一個COverlappedIOInfo
	//AcceptEx是m_listen的監聽事件，m_listen已經綁定了完成端口；雖然ol->m_sSock已經創建，
	//但未使用，現在不必爲ol->m_sSock綁定完成端口。在AcceptEx事件發生後，再爲ol->m_sSock綁定IOCP
	DWORD byteReceived = 0;
	if (FALSE == m_lpfnAcceptEx(
		m_sListen,
		ol->m_sSocket,
		ol->m_recvBuf.buf,
		ol->m_recvBuf.len - (sizeof(SOCKADDR_IN) + 16) * 2,
		sizeof(SOCKADDR_IN) + 16,
		sizeof(SOCKADDR_IN) + 16,
		&byteReceived,
		ol))
	{
		DWORD res = WSAGetLastError();
		if (ERROR_IO_PENDING != res)
		{
			cout << "AcceptEx error , error code " << res << endl;
			return false;
		}
	}
	std::vector<SOCKET>::iterator iter = m_vecAcps.begin();
	for (; iter != m_vecAcps.end(); iter++)
	{
		if (*iter == s)
		{
			*iter = ol->m_sSocket;
		}
	}
	if (iter == m_vecAcps.end())
	{
		m_vecAcps.push_back(ol->m_sSocket);
	}
	return true;
}
//處理accept請求,NumberOfBytes=0表示沒有收到第一幀數據，>0表示收到第一幀數據
bool   CServer::DoAccept(COverlappedIOInfo* ol, DWORD NumberOfBytes )
{
	//分支用於獲取遠端地址。
	//如果接收TYPE_ACP同時收到第一幀數據，則第一幀數據內包含遠端地址。
	//如果沒有收到第一幀數據，則通過getpeername獲取遠端地址
	SOCKADDR_IN* ClientAddr = NULL;
	int remoteLen = sizeof(SOCKADDR_IN);
	if (NumberOfBytes > 0)
	{
		//接受的數據分成3部分，第1部分是客戶端發來的數據，第2部分是本地地址，第3部分是遠端地址。
		if (m_lpfnGetAcceptSockAddrs)
		{
			SOCKADDR_IN* LocalAddr = NULL;
			int localLen = sizeof(SOCKADDR_IN);
			m_lpfnGetAcceptSockAddrs(
				ol->m_recvBuf.buf,
				ol->m_recvBuf.len - (sizeof(SOCKADDR_IN) + 16) * 2,
				sizeof(SOCKADDR_IN) + 16,
				sizeof(SOCKADDR_IN) + 16,
				(LPSOCKADDR*)&LocalAddr,
				&localLen,
				(LPSOCKADDR*)&ClientAddr,
				&remoteLen);
			cout << "收到新的連接請求,ip=" << inet_ntoa(ClientAddr->sin_addr) << ",port=" << ClientAddr->sin_port <<
				"數據爲：" << ol->m_recvBuf.buf << endl;
			if (!m_WebSocket.WebAccept(ol->m_sSocket, ol->m_recvBuf.buf, ol->m_recvBuf.len))
			{
				cout <<"websockt連接失敗"<< endl;
				return false;
			}
		}
	}
	else if (NumberOfBytes == 0)
	{
		//未收到第一幀數據
		if (SOCKET_ERROR == getpeername(ol->m_sSocket, (sockaddr*)ClientAddr, &remoteLen))
		{
			cout << "getpeername error,error code " << WSAGetLastError() << endl;
		}
		else
		{
			cout << "收到新的連接請求,ip=" << inet_ntoa(ClientAddr->sin_addr) << ",port=" << ClientAddr->sin_port << endl;
		}
	}

	COverlappedIOInfo* pol = new COverlappedIOInfo;
	pol->m_sSocket = ol->m_sSocket;
	pol->m_addr = *ClientAddr;
	//服務端只收取recv，同時監聽recv和send可用設計位偏移，用或運算實現
	if (m_iocp.AsscciateScoket(pol->m_sSocket, TYPE_RECV))
	{
		PostRecv(pol);

		m_vecContInfo.push_back(pol);
	}
	else
	{
		delete pol;
		return false;
	}

	return true;

}
//投遞recv請求
bool   CServer::PostRecv(COverlappedIOInfo* ol)
{
	DWORD BytesRecvd = 0;
	DWORD dwFlags = 0;
	ol->ResetOverlapped();
	ol->ResetRecvBuffer();
	int recvnum = WSARecv(ol->m_sSocket, &ol->m_recvBuf, 1, &BytesRecvd, &dwFlags, (OVERLAPPED*)ol, NULL);
	if (recvnum != 0)
	{
		int res = WSAGetLastError();
		if (WSA_IO_PENDING != res)
		{
			cout << "WSARecv error,error code " << res << endl;
		}
	}
	return true;

}
//處理recv請求
bool   CServer::DoRecv(COverlappedIOInfo* ol)
{   

	int ret= m_WebSocket.WebRecv(ol->m_recvBuf.buf, strlen(ol->m_recvBuf.buf));
	cout << "收到客戶端數據：ip=" << inet_ntoa(ol->m_addr.sin_addr) << ",port=" << ol->m_addr.sin_port <<
		"；內容=" << ol->m_recvBuf.buf << endl;

	struct data
	{
		int a;
		char b[20] = {0};
		long c;
	};
	data aa;
	aa.a = 5;
	strcat(aa.b, "hello Websocket");
	aa.c = 314159;
	memcpy(ol->m_cSendBuf, &aa,sizeof(data));
	m_WebSocket.WebSend(ol->m_sSocket, ol->m_cSendBuf, sizeof(data));
	return true;


}
//從已連接socket列表中移除socket及釋放空間
bool   CServer::DeleteLink(SOCKET s)
{
	m_lsc.lock();
	std::vector<COverlappedIOInfo*>::iterator iter = m_vecContInfo.begin();
	for (; iter != m_vecContInfo.end(); iter++)
	{
		if (s == (*iter)->m_sSocket)
		{
			COverlappedIOInfo* ol = *iter;
			closesocket(s);
			m_vecContInfo.erase(iter);
			delete ol;
			break;
		}
	}
	m_lsc.unlock();
	return true;
}
//釋放3個部分步驟：
//1：清空IOCP線程隊列，退出線程
//2: 清空等待accept的套接字m_vecAcps
//3: 清空已連接的套接字m_vecContInfo並清空緩存
void  CServer::CloseServer()
{
	//1：清空IOCP線程隊列，退出線程,有多少個線程發送多少個PostQueuedCompletionStatus信息
	int threadnum = GetThreadsNum();
	for (int i = 0; i < threadnum; i++)
	{
		if (FALSE == m_iocp.PostStatus(TYPE_CLOSE))
		{
			cout << "PostQueuedCompletionStatus error,error code " << WSAGetLastError() << endl;
		}
	}
	//2:清空等待accept的套接字m_vecAcps
	std::vector<SOCKET>::iterator iter = m_vecAcps.begin();
	for (; iter != m_vecAcps.end(); iter++)
	{
		SOCKET s = *iter;
		closesocket(s);
	}
	m_vecAcps.clear();
	//3:清空已連接的套接字m_vecContInfo並清空緩存
	std::vector<COverlappedIOInfo*>::iterator iter2 = m_vecContInfo.begin();
	for (; iter2 != m_vecContInfo.end(); iter2++)
	{
		COverlappedIOInfo* ol = *iter2;
		closesocket(ol->m_sSocket);
		iter2 = m_vecContInfo.erase(iter2);
		delete ol;
	}
	m_vecContInfo.clear();
}