求一小段C++翻译成VB.NET,该如何处理

求一小段C++翻译成VB.NET

typedef struct JJ_HEADER_tag
{
	DWORD time; //时间
	DWORD index; //序列号 从0开始 每次+1
	DWORD cmd; //类型1
	DWORD option; //类型2
	DWORD unk; //未知
	DWORD datalength; //数据长度(不包括包头)
}JJ_HEADER, *PJJ_HEADER;



int CJJNetwork::PacketData()
{
	BYTE Data[sizeof(JJ_HEADER)+8] = {0};
	PJJ_HEADER header = (PJJ_HEADER)Data;
	PBYTE Body = (PBYTE)(Data+sizeof(JJ_HEADER));
	header->time = time(0);
	header->index = m_PacketIndex++;
	header->cmd = 0x44C;
	header->option = 0x24800;
	header->datalength = 8;

	*(PDWORD)Body = 0x5045BA76;
	*(PDWORD)(Body+4) = 0x4E22;
	
	return XorEncrypt(Data, sizeof(Data));
}


int CJJNetwork::XorEncrypt(BYTE * Data, int Len)
{
	if (Len>0x14)
	{
		PJJ_HEADER header = (PJJ_HEADER)Data;
		if (header->datalength>0 && !(header->option&0x40000000))
		{
			header->option |= 0x40000000;
			BYTE * pData = Data+sizeof(JJ_HEADER);
			printPackets("pData", pData, Len);
			for (DWORD i=0; i<header->datalength; i++)
			{
				BYTE key = Data[(header->index^i)%4];
				pData[i] ^= key;
			}
		}
	}
	return 0;
}

------解决方案--------------------
加油阿
------解决方案--------------------
可惜C++不熟悉，有关网络数据包的
------解决方案--------------------
PJJ_HEADER header = (PJJ_HEADER)Data;
参考：
http://www.cr173.com/html/11930_1.html

我觉得你应该就是这个不会。