Сервер на вне из сети

[Horus92]

Допустим в городской сети есть n компьютеров внешний ип у них одинаковый у всех пользователей сети запущен сервер на прослушивание для всех ip(внутреннего и внешнего) на одном порту например на 81. Возможно ли такое тоесть смогут ли они все запустить сервер на порт с внешним ip. И если да то при посылке на этот ip:81 дойдет ли всем информация или нет??

[p51x]

зависит от настроек провайдеровского ната и файервола

[Horus92]

Ну а если он не настроен есть какие-то варианты реализации такого кода?
Мне подсказали что это можно сделать через "броадкаст" но к сожалению я не сильно понял что это и как его реализовать

[p51x]

Ну а если он не настроен

Вы действительно в это верите?

Броадкаст помог бы, если вы изнутри рассылали...

[Horus92]

так а разве не будет конфликта что два компьютера сети пытаються занять внешний ип с одним портом.
Допустим даже два человека запустили у себя апач на внешний при попытке зайти на этот ip выдаст скорее всего один сайт а второй я думаю не запуститься.

[Пепел Феникса]

начнем с того что маршрутизатор просто не будет знать кому пакеты слать если они не направленны конкретному компу.(или по правилам)

[Квэнди]

дойдет ли всем информация или нет??

нет, не дойдет.

[Horus92]

Сообщение от Пепел Феникса

начнем с того что маршрутизатор просто не будет знать кому пакеты слать если они не направленны конкретному компу.(или по правилам)

А как можно их направить конкретно если внешний ip у всех один

[Квэнди]

А как можно их направить конкретно если внешний ip у всех один

разные порты...

[BARNEY]

может вам это нужно

procedure TMainForm.FormCreate(Sender: TObject);
var
  Init: TWSAData;
  SockOpt: BOOL;
  Sock: TSocket;
  Target: TSockAddrIn;
begin
  WSAStartup($101,Init);
  Sock:=Socket(PF_INET,SOCK_DGRAM,IPPROTO_UDP);
  SockOpt:=TRUE;
  SetSockOpt(Sock,SOL_SOCKET,SO_BROADCAST, PChar(@SockOpt),SizeOf(SockOpt)) ;
  Target.sin_port:=htons(8167); //номер порта
  Target.sin_addr.S_addr:=INADDR_BROADCAST;
  Target.sa_family:=AF_INET;
  SendTo(Sock,Data,DataBytes,0,Target,SizeOf(Target));
  WSACleanup;
end;