给滥用”信使服务“发广告者一个警告的软件

hzzh

大家都受到过”信使服务“广告的骚扰吧，滥发广告者自以为别人查不到他而有持无恐，什么东西都敢发，可恶之极。
    大部分人仅仅把本地的信使服务关闭了以求眼不见为净。
8 \2 Q/ e1 g* N/ D* t8 P    可是因为我其他有软件要用到信使服务，故经常要忍受广告的骚扰，郁闷。因此编了这个软件。
& B8 I' u) [$ U8 _      sniiff本身是一个网络IP数据包分析程序，用来记录分析网络数据，同时带有“信使服务”功能，可以自动给对方发送一条定制消息。
    利用本软件，侦听目标为135端口的DUP数据包 ，记录用“信使服务”滥发广告者的IP地址，有了IP地址，高兴了怎样玩他都行，也可以利用本软件自动给对方一个警告，吓唬吓唬他，出一口鸟气。
: g3 m' t6 k. {( S2 Z. p( `) `      
    本软件运行在中文2000、XP，要求有administrator身份运行。
       下载地址：http://www1.hzhh.cn:87/update/zh/sniff.exe
# X) C, E6 Y0 n8 j$ B9 @' C   
% O7 n) O6 n9 l8 ~. U2 i, Y

在这儿我提供“信使服务”的模块 '下面是用到的API函数 2 x& H5 T4 ?9 {+ c! B9 UPublic Declare Function NetMessageBufferSend Lib "NETAPI32.DLL" _ / c1 d6 k- `3 Y w( T* E (Server As Any, yToName As Byte, _ yFromName As Any, yMsg As Byte, ByVal lSize As Long) As Long 9 e6 S8 {/ E2 i7 S & G1 `3 [; L. T' M; ?! q/ Q'下面的那个模块就是用来发送信息的函数。 7 m7 K# s. P! t! ]& ~7 u'第一个参数是对方的IP或机器名，第二个参数是自已的签名，第三个是消息主体，可以带换行符。 , m1 C$ R9 F$ P+ aPublic Function NetSend(ByVal SendTo As String, ByVal SendFrom As String, ByVal SendMessage As String) As Boolean 4 H5 Q6 N) h! i' {( g Dim btTo() As Byte Dim btFrom() As Byte + a) M' L! i0 R0 @ Dim btMsg() As Byte ) d1 @' z* k0 \& Q$ x; n$ V# L btTo = SendTo & vbNullChar # h' k2 D1 x1 p2 h4 p% K/ w) p# R& s btFrom = SendFrom & vbNullChar btMsg = SendMessage & vbNullChar If SendFrom <> "" Then % `9 ? _" E# a( G9 h If NetMessageBufferSend(ByVal 0&, btTo(0), btFrom(0), btMsg(0), UBound(btMsg)) = 0 Then ( f* a) I" W5 w q NetSend = True Else " Z, q0 s+ Y0 B NetSend = False - ], P$ |# u. \0 Z2 s( t2 c' j. y End If Else If NetMessageBufferSend(ByVal 0&, btTo(0), ByVal 0&, btMsg(0), UBound(btMsg)) = 0 Then NetSend = True ) x) D0 H5 p4 J4 s/ c4 E+ f Else % c6 s4 s2 q. ?& V6 A2 U NetSend = False ' k0 w& w6 N# h' D, F6 }$ q+ o End If End If End Function 0 c# S9 j1 y9 u, v* h* e+ g! h

hzzh

呵呵，一样
我用的是
int  CSniffer::MyMessageSend(LPCSTR from,LPCSTR To,LPCSTR pMsg)
{
        LPWSTR forname = str2wstr(from);
1 p- I3 T& e) C) G/ y8 H1 v        LPWSTR msgname = str2wstr(To);
! v4 h' R, G8 L( M7 x0 T1 I        LPWSTR msg = str2wstr(pMsg);
5 B# e; H( |% p- Q4 U7 m        DWORD ret=NetMessageBufferSend(NULL,msgname,forname, (LPBYTE)msg,strlen(pMsg)*2);
        if(forname)delete forname;
) Y& r' `( H) T        if(msgname)delete msgname;
        if(msg ) delete msg;
/ y0 O2 T1 s0 ?0 |( Z        return (ret==NERR_Success)?1:0;
}

看起来用C++的简洁多了，我现在正在学C++，估计过几天就可用C++来编了。

hzzh

要编出好的工具软件，应该用C/C++的

hzzh

信使服务消息，好像第一次连入，用的都是UDP 135端口，但是同一个地址多次发送信使消息，以后的端口就不一定为135了。
& g  F0 c$ Y* R' o; U' q% H但粗粗分析了一下，好像不管用什么端口，信使消息其DUP的数据块部分开头的几个字节都为0x04,0x00,0x08,0x00（我没有去查书），因此只要过滤偏移0的04,00,08,00几个字节数据，不管用什么端口，都能查出信使广告来。
为此对sniff.exe程序添加了数据过滤功能，已经上传了。请重新下载试用

小鱼头

怎么又下不了啊

hater315

再好的东西也离不了.PPT

hzzh

到http://www.yepa.net/hzzh/download.htm 去下载吧，那里的链接可以保证能够得到及时的维护，省得由于文件位置变动什么的又不能下载了。

0 k9 T4 ~5 r3 _' n2 P# _0 [实际上这个软件是个不错的网络分析软件，用这个软件可以学到许多的网络协议和通讯的知识。我的NTGuard 的web服务认证部分、“信使服务”广告的数据、 TCS 是一个利用HTTP隧道穿过防火墙方法、SendMS 发送免费短信的网关通讯等等都是用这个软件分析数据包的。
8 K0 b; G8 }. c
7 v' ]) h: F, D' M" c

[此贴子已经被作者于2003-5-27 20:55:05编辑过]

说得对，要你是知道QQ数据的加密算法，哈哈……………