『壹』 魔域服務端源碼
弄得魔域私服多的數不清了~ 內部人員泄露了源代碼但是服務端還沒泄露所以現在的SF都是模擬器版的 很多功能不完善 有什麼游戲 就會出什麼私服 ..
『貳』 誰知道魔域登陸器注冊程序怎麼用易語言編寫
魔域登陸器注冊程序怎麼用易語言編寫
似乎很少人會
『叄』 魔域服務端源碼
發一段給你吧。這一段是關於Socket的,呵呵,多學學。
bool CSocketKernel::Create(IMessagePort* pPort)
{
m_idNpcSocket = SOCKET_NONE;
m_pMsgPort = pPort;
m_pMsgPort->Open();
// TODO: 請在此添加初始化代碼
m_pListen = m_cListen.GetInterface();
if(!ServerSocketInit())
return false;
if(!m_pListen->Listen(SERVER_LISTEN_PORT, SOCKET_SENDBUFSIZE))
return false;
return true; // return false : 創建失敗,程序關閉。
}
bool CSocketKernel::ProcessMsg(OBJID idPacket, void* buf, int nType, int nFrom)
{
// TODO: 請在此添加消息處理代碼
switch(idPacket)
{
case SOCKET_CLOSESOCKET:
{
SOCKET_ID idSocket = *(int*)buf;
if(idSocket >= m_setSocket.size())
break;
LOGDEBUG("DEBUG:通訊核心收到關閉網路消息,SOCKET_ID[%u]", idSocket);
if(m_setSocket[idSocket]) // readme.txt (1-7)
{
m_setSocket[idSocket]->Close(true);
m_setSocket[idSocket] = NULL;
CServerSocket::Destroy(m_setServerSocket[idSocket]);
m_setProcessID[idSocket] = PROCESS_NONE;
m_setNetBreakFlag[idSocket] = false;
if(m_idNpcSocket == idSocket)
{
LOGDUMP("m_idNpcSocket(%d) = SOCKET_NONE", m_idNpcSocket);
m_idNpcSocket = SOCKET_NONE;
char* pText = "NPC server broken connect.";
m_pMsgPort->Send(MSGPORT_SHELL, SHELL_PRINTTEXT, STRING_TYPE(pText), pText);
}
}
}
break;
case SOCKET_SETPROCESSID:
{
const CHANGE_USERDATA* pPack = (CHANGE_USERDATA*)buf;
if(pPack->idSocket >= 0 && pPack->idSocket < m_setSocket.size()
&& m_setSocket[pPack->idSocket]
&& !IsNetBreakFlag(pPack->idSocket) ) // 網路正常
m_setProcessID[pPack->idSocket] = pPack->nData;
else
m_pMsgPort->Send(nFrom, KERNEL_CLOSEKERNEL, VARTYPE_INT, &pPack->idSocket); // readme.txt (1-6)
}
break;
case SOCKET_SENDCLIENTMSG:
{
const SENDCLIENTMSG_PACKET0* pPack = (SENDCLIENTMSG_PACKET0*)buf;
if(pPack->idSocket >= m_setSocket.size())
break;
if(m_setSocket[pPack->idSocket])
{
char buf[MAX_PACKETSIZE];
int nNetPacketSize = UnitePacket(buf, MAX_PACKETSIZE, pPack->idPacket, pPack->buf, pPack->nSize);
ASSERT(nNetPacketSize);
if(nNetPacketSize)
{
#ifdef PALED_DEBUG
OBJID idPacket = *((unsigned short*)buf + 1);
『肆』 魔域的游戲源代碼怎麼會泄露出去啊
內部人員泄露了源代碼
但是服務端還沒泄露
所以現在的SF都是模擬器版的 很多功能不完善
『伍』 魔域登錄器製作方法
易語言源碼:
.版本 2
.子程序 _按鈕1_被單擊
寫配置項 (取運行目錄 () + 「\ini\oem.ini」, 「Oem」, 「Id」, 「2010」 + #換行符)
寫配置項 (取運行目錄 () + 「\ini\oem.ini」, 「AccountSetup」, 「Type」, 「1」 + #換行符)
寫配置項 (取運行目錄 () + 「\ini\oem.ini」, 「ServerInfo」, 「URL」, 「http://」 + IP地址 + 「:9527/server.txt」)
寫配置項 (取運行目錄 () + 「\ini\oem.ini」, 「ServerStatus」, 「Link」, 「http://」 + IP地址 + 「:9527/OnlineStatus_tx.txt」)
寫配置項 (取運行目錄 () + 「\ini\oem.ini」, 「ExitLink」, 「Address」, 官方網站 + #換行符)
寫配置項 (取運行目錄 () + 「\ini\oem.ini」, 「VipLink」, 「URL」, 「http://games.qq.com/tencent/moy/pay/」 + #換行符)
寫配置項 (取運行目錄 () + 「\ini\oem.ini」, 「Header」, 「GroupAmount」, 「1」)
寫配置項 (取運行目錄 () + 「\ini\oem.ini」, 「Header」, 「Group1」, 游戲名字)
寫配置項 (取運行目錄 () + 「\ini\oem.ini」, 「Group1」, 「ServerAmount」, 「1」 + #換行符)
寫配置項 (取運行目錄 () + 「\ini\oem.ini」, 「Group1」, 「Server1」, 游戲名字)
寫配置項 (取運行目錄 () + 「\ini\oem.ini」, 「Group1」, 「Ip1」, IP地址 + 「:」 + 登陸埠)
寫配置項 (取運行目錄 () + 「\ini\oem.ini」, 「Group1」, 「Pic1」, 「Server1」)
寫配置項 (取運行目錄 () + 「\ini\oem.ini」, 「Group1」, 「ServerName1」, 游戲名字)
寫配置項 (取運行目錄 () + 「\ini\oem.dat」, 「Oem」, 「Id」, 「2010」 + #換行符)
寫配置項 (取運行目錄 () + 「\ini\oem.dat」, 「AccountSetup」, 「Type」, 「1」 + #換行符)
寫配置項 (取運行目錄 () + 「\ini\oem.dat」, 「ServerInfo」, 「URL」, 「http://」 + IP地址 + 「:9527/server.txt」)
寫配置項 (取運行目錄 () + 「\ini\oem.dat」, 「ServerStatus」, 「Link」, 「http://」 + IP地址 + 「:9527/OnlineStatus_tx.txt」)
寫配置項 (取運行目錄 () + 「\ini\oem.dat」, 「ExitLink」, 「Address」, 官方網站 + #換行符)
寫配置項 (取運行目錄 () + 「\ini\oem.dat」, 「VipLink」, 「URL」, 「http://games.qq.com/tencent/moy/pay/」 + #換行符)
寫配置項 (取運行目錄 () + 「\ini\oem.dat」, 「Header」, 「GroupAmount」, 「1」)
寫配置項 (取運行目錄 () + 「\ini\oem.dat」, 「Header」, 「Group1」, 游戲名字)
寫配置項 (取運行目錄 () + 「\ini\oem.dat」, 「Group1」, 「ServerAmount」, 「1」 + #換行符)
寫配置項 (取運行目錄 () + 「\ini\oem.dat」, 「Group1」, 「Server1」, 游戲名字)
寫配置項 (取運行目錄 () + 「\ini\oem.dat」, 「Group1」, 「Ip1」, IP地址 + 「:」 + 登陸埠)
寫配置項 (取運行目錄 () + 「\ini\oem.dat」, 「Group1」, 「Pic1」, 「Server1」)
寫配置項 (取運行目錄 () + 「\ini\oem.dat」, 「Group1」, 「ServerName1」, 游戲名字)
寫配置項 (取運行目錄 () + 「\server.dat」, 「Header」, 「GroupAmount」, 「1」)
寫配置項 (取運行目錄 () + 「\server.dat」, 「Header」, 「Group1」, 游戲名字)
寫配置項 (取運行目錄 () + 「\server.dat」, 「Group1」, 「ServerAmount」, 「1」 + #換行符)
寫配置項 (取運行目錄 () + 「\server.dat」, 「Group1」, 「Server1」, 游戲名字)
寫配置項 (取運行目錄 () + 「\server.dat」, 「Group1」, 「Ip1」, IP地址 + 「:」 + 登陸埠)
寫配置項 (取運行目錄 () + 「\server.dat」, 「Group1」, 「Pic1」, 「Server1」)
寫配置項 (取運行目錄 () + 「\server.dat」, 「Group1」, 「ServerName1」, 游戲名字)
運行 (取運行目錄 () + 「\soul.exe blacknull」, 假, )
delphi源碼:
procere TForm1.Image8Click(Sender: TObject);
begin
myinifile:=Tinifile.Create('.\ini\Oem.ini');
myinifile.WriteString('Oem','Id','2010'+#13+#10);
myinifile.WriteString('AccountSetup','Type','1'+#13+#10);
myinifile.WriteString('ServerInfo','URL','http://91.my.com');
myinifile.WriteString('ServerStatus','Link','http://91.my.com');
myinifile.WriteString('ExitLink','Address',''+#13+#10);
myinifile.WriteString('VipLink','URL','http://91.my.com'+#13+#10);
myinifile.WriteString('Header','GroupAmount','1');
myinifile.WriteString('Header','Group1',ok.Strings[1]);
myinifile.WriteString('Group1','ServerAmount','1'+#13+#10);
myinifile.WriteString('Group1','Server1',ok.Strings[1]);
myinifile.WriteString('Group1','Ip1',ok.Strings[2]+':'+ok.Strings[3]);
myinifile.WriteString('Group1','Pic1','Server1');
myinifile.WriteString('Group1','ServerName1',ok.Strings[1]);
myinifile:=Tinifile.Create('.\ini\Oem.dat');
myinifile.WriteString('Oem','Id','2010'+#13+#10);
myinifile.WriteString('AccountSetup','Type','1'+#13+#10);
myinifile.WriteString('ServerInfo','URL','http://91.my.com');
myinifile.WriteString('ServerStatus','Link','http://91.my.com');
myinifile.WriteString('ExitLink','Address',''+#13+#10);
myinifile.WriteString('VipLink','URL','http://91.my.com'+#13+#10);
myinifile.WriteString('Header','GroupAmount','1');
myinifile.WriteString('Header','Group1',ok.Strings[1]);
myinifile.WriteString('Group1','ServerAmount','1'+#13+#10);
myinifile.WriteString('Group1','Server1',ok.Strings[1]);
myinifile.WriteString('Group1','Ip1',ok.Strings[2]+':'+ok.Strings[3]);
myinifile.WriteString('Group1','Pic1','Server1');
myinifile.WriteString('Group1','ServerName1',ok.Strings[1]);
shellexecute(handle,'open','.\soul.exe','blacknull',nil,sw_shownormal);
end;
上面的做個只登陸游戲足夠了。具體使用你自己在修改一下。
『陸』 如何架設魔域SF登錄器如何搞好IP
首先弄個網站,再弄個登陸器,然後把魔域裡面的一個IP改了