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

njhhack 2001-11-18 05:29:09
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
...全文
251 19 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
19 条回复
切换为时间正序
请发表友善的回复…
发表回复
Greenberet 2002-01-28
  • 打赏
  • 举报
回复
如何发消息给拒绝加为好友的人??
bjwz 2002-01-17
  • 打赏
  • 举报
回复
由此想到,就算它再升级,如果老版本还能用,那不是珲是有很多的漏洞吗?
bjwz 2002-01-17
  • 打赏
  • 举报
回复
QQ的包结构一般是不会变的,只要老版本的还能用,就说明应该可以兼容的
suy 2002-01-17
  • 打赏
  • 举报
回复
可是内可是内
njhhack 2002-01-17
  • 打赏
  • 举报
回复
是啊,老兄高明
Nizvoo 2001-12-26
  • 打赏
  • 举报
回复
好,,看看先
njhhack 2001-12-26
  • 打赏
  • 举报
回复
lubing317 2001-12-23
  • 打赏
  • 举报
回复
tuboo 2001-12-23
  • 打赏
  • 举报
回复
/
dfan 2001-12-23
  • 打赏
  • 举报
回复
hao
Greenberet 2001-12-23
  • 打赏
  • 举报
回复
U^P
日总是我哥 2001-12-23
  • 打赏
  • 举报
回复
我找找你发表过的文章,呵呵 //只因为,我想有人帮我………
日总是我哥 2001-12-23
  • 打赏
  • 举报
回复
to njhhack(剑影) :好久不见啊!!呵呵 ^o^
kevin_gao 2001-12-23
  • 打赏
  • 举报
回复
新版本的包结构不同了吧?
qinghx 2001-12-23
  • 打赏
  • 举报
回复
qq号是多少?
njhhack 2001-11-19
  • 打赏
  • 举报
回复
C是数据包啊
VSaber 2001-11-18
  • 打赏
  • 举报
回复
呵呵,冒充发包!
Bellamy 2001-11-18
  • 打赏
  • 举报
回复
我的问题同上!
cszhz 2001-11-18
  • 打赏
  • 举报
回复
能解释一下c的含义吗?

830

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 非技术区
社区管理员
  • 非技术区社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧