一段可以冒充ＱＱ上线，下线的源代码,支持最新版0710B

[njhhack]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, NMUDP;

type
TForm1 = class(TForm)
NMUDP1: TNMUDP;
Memo1: TMemo;
login: TButton;
exit: TButton;
procedure DataSend(num:integer);
procedure NMUDP1DataSend(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure loginClick(Sender: TObject);
procedure exitClick(Sender: TObject);
procedure NMUDP1DataReceived(Sender: TComponent; NumberBytes: Integer;
FromIP: String; Port: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
NBytes:integer;
C: String;
MyStream: TMemoryStream;
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.DataSend(num:integer);
begin
NBytes:=num;
MyStream := TMemoryStream.Create;
try
MyStream.Write(C[1],num);
NMUDP1.SendStream(MyStream);
finally
MyStream.Free;
end;
end;

procedure TForm1.NMUDP1DataSend(Sender: TObject);
begin
Memo1.Lines.Add('send '+IntToStr(NBytes)+' bytes on port '+IntToStr(NMUDP1.LocalPort));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
NMUDP1.RemoteHost := '202.104.129.253';
NMUDP1.ReportLevel := Status_Basic;
NMUDP1.RemotePort := 8000;
NMUDP1.LocalPort := 4020;
end;

procedure TForm1.loginClick(Sender: TObject);
begin
c:=#$02+#$06+#$06+#$00+#$15+#$00+#$03+#$00+#$a4+#$61+#$b7+#$9b+#$52+#$24+#$f9+#$0d
+#$ca+#$94+#$68+#$c4+#$da+#$0b+#$50+#$69+#$13+#$28+#$e2+#$92+#$d9+#$3f+#$0a+#$81
+#$13+#$a3+#$33+#$ab+#$1d+#$9e+#$51+#$c1+#$9a+#$c8+#$d7+#$d9+#$ff+#$5a+#$60+#$59
+#$7d+#$00+#$80+#$7a+#$aa+#$c2+#$5f+#$18+#$85+#$8a+#$54+#$86+#$cc+#$3a+#$92+#$8a
+#$04+#$b7+#$a2+#$21+#$96+#$79+#$7a+#$56+#$20+#$96+#$1a+#$c0+#$34+#$d5+#$a3+#$3b
+#$85+#$5f+#$87+#$7f+#$87+#$cd+#$e0+#$28+#$91+#$6d+#$7f+#$03;
DataSend(92);
end;

procedure TForm1.exitClick(Sender: TObject);
begin
c:=#$02+#$06+#$06+#$00+#$01+#$03+#$5c+#$00+#$a4+#$61+#$b7+#$57+#$b6+#$19+#$df+#$40
+#$12+#$21+#$de+#$5e+#$37+#$fb+#$0e+#$a8+#$d6+#$dd+#$34+#$6b+#$17+#$40+#$57+#$46
+#$4c+#$95+#$b4+#$03;
DataSend(36);
end;

procedure TForm1.NMUDP1DataReceived(Sender: TComponent;
NumberBytes: Integer; FromIP: String; Port: Integer);
begin
MyStream := TMemoryStream.Create;
try
NMUDP1.ReadStream(MyStream);
SetLength(C, NumberBytes);
MyStream.Read(C[1], NumberBytes);
Memo1.Lines.Add('received '+IntToStr(NumberBytes)+' bytes from '+FromIP+' on port '+IntToStr(Port));
finally
MyStream.Free;
end;
end;

end.
------

作者:njhhack

[cszhz]

能解释一下c的含义吗？

[Bellamy]

我的问题同上！

[VSaber]

呵呵,冒充发包!

[njhhack]

C是数据包啊

[qinghx]

qq号是多少?

[kevin_gao]

新版本的包结构不同了吧？

[日总是我哥]

to njhhack(剑影)　:好久不见啊！！呵呵 ^o^

[日总是我哥]

我找找你发表过的文章，呵呵 //只因为，我想有人帮我………

[Greenberet]

U^P

[dfan]

hao

[tuboo]

/

[lubing317]

好

[njhhack]

俄

[Nizvoo]

好，，看看先

[njhhack]

是啊,老兄高明

[suy]

可是内可是内

[bjwz]

QQ的包结构一般是不会变的，只要老版本的还能用，就说明应该可以兼容的

[bjwz]

由此想到，就算它再升级，如果老版本还能用，那不是珲是有很多的漏洞吗？

[Greenberet]

如何发消息给拒绝加为好友的人？？