Прием и отправка "сырых" пакетов в Ethernet

uses
  Classes, SysUtils, BaseUnix, Sockets, Unix;
  
  const
  // Протоколы и константы
  ETH_P_ALL = $0003; // Для приема всех пакетов Ethernet
  SIOCGIFINDEX = $8933; // Код для получения индекса интерфейса
  IFNAMSIZ = 16; // Максимальная длина имени интерфейса
  
  type
  sockaddr_ll = packed record
    sll_family: cuint16;       // Всегда AF_PACKET
    sll_protocol: cuint16;     // Протокол Ethernet (например, $0800 для IPv4)
    sll_ifindex: cint;         // Индекс интерфейса
    sll_hatype: cuint16;       // Аппаратный тип (необязательно)
    sll_pkttype: cuint8;       // Тип пакета (необязательно)
    sll_halen: cuint8;         // Длина аппаратного адреса
    sll_addr: array[0..7] of cuint8; // Аппаратный адрес (MAC)
  end;
  
    ifreq = record
    ifr_name: array[0..IFNAMSIZ-1] of char; // Имя интерфейса
    ifr_ifindex: cint;                      // Индекс интерфейса
    padding: array[0..15] of byte;          // Дополнительное место
  end;
 
var
  BSocket: Longint;
  BAddr: sockaddr_ll;
  BErr: Longint;
  InterfaceIndex: Integer;
  BArr: array [0..13] of byte; // Ethernet frame
  _IfReq: ifreq;
begin
  // Создание RAW-сокета
  BSocket := fpSocket(PF_PACKET, SOCK_RAW, htons($0800)); // $0800 = IPv4
  if BSocket < 0 then
  begin
    Writeln('Error socket: ' + IntToStr(fpgeterrno));
    Exit;
  end;
 
  // Получение индекса сетевого интерфейса (например, eth0)
  FillChar(_IfReq, SizeOf(IfReq), 0);
  StrPLCopy(_IfReq.ifr_name, 'eth0', IFNAMSIZ); // Укажите ваш интерфейс
  if fpIoctl(BSocket, SIOCGIFINDEX, @_IfReq) < 0 then
  begin
    Writeln('Error ioctl: ' + IntToStr(fpgeterrno));
    Exit;
  end;
  InterfaceIndex := _IfReq.ifr_ifindex;
 
  // Настройка адреса sockaddr_ll
  FillChar(BAddr, SizeOf(BAddr), 0);
  BAddr.sll_family := PF_PACKET;
  BAddr.sll_protocol := htons($0800); // Протокол (IPv4)
  BAddr.sll_ifindex := InterfaceIndex;
  BAddr.sll_halen := 6; // Длина MAC-адреса
 
  // Указываем MAC-адрес назначения (пример: FF:FF:FF:FF:FF:FF - широковещание)
  BAddr.sll_addr[0] := $FF;
  BAddr.sll_addr[1] := $FF;
  BAddr.sll_addr[2] := $FF;
  BAddr.sll_addr[3] := $FF;
  BAddr.sll_addr[4] := $FF;
  BAddr.sll_addr[5] := $FF;
 
  // Формирование Ethernet-кадра
  // MAC-адрес назначения (6 байт)
  BArr[0] := $FF; BArr[1] := $FF; BArr[2] := $FF;
  BArr[3] := $FF; BArr[4] := $FF; BArr[5] := $FF;
 
  // MAC-адрес источника (6 байт) – замените на MAC вашего интерфейса
  BArr[6] := $12; BArr[7] := $34; BArr[8] := $56;
  BArr[9] := $78; BArr[10] := $9A; BArr[11] := $BC;
  // Тип протокола (2 байта) – например, $0800 для IPv4
  BArr[12] := $08; BArr[13] := $00;
 
if fpbind(BSocket, @BAddr, SizeOf(BAddr)) <> 0 then begin
     Writeln('Error bind: ' + IntToStr(SocketError));
     Exit;
   end;
 
  // Отправка Ethernet-кадра
  BErr := fpSendTo(BSocket, @BArr, SizeOf(BArr), 0, @BAddr, SizeOf(BAddr));
  if BErr < 0 then
  begin
    WriteLn('Ошибка отправки пакета: ', fpGetErrNo);
    Exit;
  end;
 
  WriteLn('Пакет успешно отправлен!');
 
  // Закрытие сокета
  if fpClose(BSocket) < 0 then
  begin
    WriteLn('Ошибка закрытия сокета: ', fpGetErrNo);
  end;
  
  end.