[传奇技术]Legend登陆验证说明

源码资源网

[传奇技术]Legend登陆验证说明

1. 客户端  在各种闲置状态 发送
   
2. 
   
3. 执行QueryDynCode
   
4. 
   
5. 刚登陆场景就发送CM_QUERYDYNCODE
   
6. 
   
7. 并加密
   
8. 
   
9. cnsIntro 登陆场景
   
10. 
    
11.            dMsg := MakeDefaultMsg(CM_QUERYDYNCODE, 0, 0, 0, 0);
    
12. 
    
13.             DCP_mars.InitStr(('sWebSite'));//加密密码
    
14. 
    
15.             S := DCP_mars.DecryptString(g_pRcHeader.sWebSite);//sWebSite 用网站地址解密
    
16. 
    
17.             DCP_mars.InitStr(S);//解密后的地址用作加密密码
    
18. 
    
19.             S := DCP_mars.EncryptString(S);//加密
    
20. 
    
21.             SendSocket(EncodeMessage(dMsg) + EncodeString(S)); //发送给登陆网关
    
22. 
    
23. Format('#1%s!', [{Code, } sendstr])
    
24. 
    
25. 
    
26. 
    
27. 登陆网关解密 //DecodeBuf misc单元 其实和edcode单元的一样
    
28. 
    
29. nDeCodeLen := DecodeBuf(Addr, Len, nABuf);
    
30. 
    
31. 解密分析后 再加密2次
    
32. 
    
33. Randomize();
    
34. 
    
35.           nRand := Random(High(Word));//得到一个随机数
    
36. 
    
37.           g_DCP_mars.InitStr(IntToStr(nRand));//把这个随机数作为加密的Key
    
38. 
    
39.           g_DCP_mars.Reset;
    
40. 
    
41.           szKey1 := EncodeString(g_DCP_mars.EncryptString(g_pszDecodeKey^));
    
42. 
    
43. g_pszDecodeKey就是网址作为加密密匙 //配置工具写入的
    
44. 
    
45.           m_wRandKey := Random(High(Word));//再次取得一个随机数
    
46. 
    
47. 
    
48. 
    
49.    Cmd.ident := SM_QUERYDYNCODE;
    
50. 
    
51.           Cmd.Recog := g_pLTCrc^;//logintool CRC 长度
    
52. 
    
53.           Cmd.param := nRand;//这是用于加密和解密的Key，但是需要转成String
    
54. 
    
55.           Cmd.tag := m_wRandKey;
    
56. 
    
57.           Cmd.Series := Length(szKey1);
    
58. 
    
59. 
    
60. 
    
61.           EncodeBuf(Integer(@Cmd), SizeOf(TCmdPack), Integer(@pszBuf[0]));//把Cmd加密，保存到pszBuf中
    
62. 
    
63.           EncodeBuf(Integer(@g_pszEndeBuffer[0]), g_nEndeBufLen, nBBuf);
    
64. 
    
65.           szSend := '#' + StrPas(@pszBuf[0]) + szKey1 + StrPas(PChar(nBBuf)) + '!';
    
66. 
    
67. 返回客户端    m_tIOCPSender.SendData(m_pOverlapSend, @szSend[1], Length(szSend));
    
68. 
    
69. 
    
70. 
    
71. 客户端全局消息处理函数处理
    
72. 
    
73. SM_QUERYDYNCODE
    
74. 
    
75.           g_bLoginKey^ := False;
    
76. 
    
77.           Str := Copy(body, 1, msg.series);
    
78. 
    
79.           Str := DecodeString(Str);
    
80. 
    
81.           DCP_mars.InitStr(IntToStr(msg.param));
    
82. 
    
83.           Str := DCP_mars.DecryptString(Str);
    
84. 
    
85. DCP_mars.InitStr('');
    
86. 
    
87.           Str := DCP_mars.DecryptString(Str);
    
88. 
    
89. 
    
90. 
    
91.           DCP_mars.InitStr(('sWebSite'));//解密密码
    
92. 
    
93.           Str2 := DCP_mars.DecryptString(g_pRcHeader.sWebSite);
    
94. 
    
95. 
    
96. 
    
97.           if CompareText(Str, Str2) = 0 then begin
    
98. 
    
99.             g_bLoginKey^ := True;
    
100. 
     
101.             g_pkeywords := NewStr('');
     
102. 
     
103.             g_pkeywords^ := IntToHex(msg.tag, 8);
     
104. 
     
105. 
     
106. 
     
107.             rdstr := Copy(body, msg.series + 1, Length(body) - msg.series);
     
108. 
     
109.             edBuf := FEndeBuffer;
     
110. 
     
111.             FillChar(edBuf^, 16 * 1024, #0);
     
112. 
     
113.             len := DecodeBuf(Integer(@rdstr[1]), Length(rdstr), Integer(edBuf));
     
114. 
     
115.             nFuncPos := Integer(@FEndeBuffer);
     
116. 
     
117. 
     
118. 
     
119.             //asm pushad end;
     
120. 
     
121.             ptrGetFunc := LPGETDYNCODE(nFuncPos);
     
122. 
     
123. 
     
124. 
     
125. 
     
126. 
     
127. 
     
128. 
     
129. cnsSelChr, cnsReSelChr 选择人物场景
     
130. 
     
131.             dMsg := MakeDefaultMsg(CM_QUERYSELCHARCODE, 0, 0, 0, 0);
     
132. 
     
133.             SendSocket(EncodeMessage(dMsg));//直接发送给selgate

复制代码