一段可以冒充ＱＱ上线，下线的源代码,支持最新版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

...全文