[LoginAnd]

_Есть идея, но нет опыта программирования(можно сказать я ноль и пришел сюда за палочкой). Хочу создать программу, которая сканирует определенный сокет и шлет данные(пакеты) не на один сокет, как в стандартом случае, а на два тоже опеделяемых пользователем.
Здесь показано визуально примерно то чего хочу:



Вопрос возможно ли это? А дальше будет дальше. И не спрашивайте зачем мне это нужно- жулик я .

[VladOfMonster]

Может и получится послать пакет, но мой ESET SMART SECURITY будет блокировать всех, кто посмеет взломать мой компьютер!

[march]

будет блокировать всех, кто

оооо, так как же ты в инет то выходишь вообще?

шлет данные(пакеты) не на один сокет, как в стандартом случае, а на два тоже опеделяемых пользователем.

судя по всему у тебя уже есть пример, так в чем проблема вынести отсылку в отдельную процедуру, запуская её 2 раза с разными данными(в твоем случае: разные IP)

[VladOfMonster]

Сообщение от march

оооо, так как же ты в инет то выходишь вообще?

Вот так и выхожу

Сообщение от LoginAnd

Вопрос возможно ли это? А дальше будет дальше. И не спрашивайте зачем мне это нужно- жулик я .

А что касается программы сканирования портов, то это возможно реализовать в delphi.

[LoginAnd]

Спасибо VladOfMonster, march за ответы.

Сообщение от march

судя по всему у тебя уже есть пример, так в чем проблема вынести отсылку в отдельную процедуру, запуская её 2 раза с разными данными(в твоем случае: разные IP)

Нет никакой заготовки, только рисовать оболочку программы умею и то коряво Я не то что маленький программист- крохотный

march не совсем понимаю слово сканировать предпочитаю сниф(прослушка).
_Поставлю вопрос по другому есть сокет которые отсылает пакеты, есть принимающий который их принимает. Пакетов бесчисленное множество, будут они копироваться и передаваться еще в другой сокет летят ведь с бешеной скоростью или для компьютера это семечки? Возможна такая передача или нет(так и не понял)?

[march]

которые отсылает пакеты, есть принимающий который их принимает. Пакетов бесчисленное множество, будут они копироваться

если их действительно дое**не-фене, то ты получаешь DOS-атаку, на принимаемый компьютер

или для компьютера это семечки?

смотря какой комп, какая сеть

Возможна такая передача

конечно возможна, в исходниках здесь что-то подобное видел

[LoginAnd]

Мозг плавится информация в голову не лезет, а наоборот вылазит.
Помогите кто чем сможет(прям как нищий на паперти)
Первая прога Sniffer из ее кода мне нужно вырезать лишнее:
1) мне не нужно что бы пакеты отображались.
2) мне не нужны входящие пакеты, только исходящие.
Что нужно добавить:
1) выбор хоста вместо интерфейса.

Вторая прога TCP/IP Packet Generator не работает или что не правильно делаю? При нажатии на кнопку Generate TCP Packets выдает такую ошибку:

ERROR: SendDatagram error [SocketError 10004: Операция блокирования прервана вызовом WSACancelBlockingCall].

Поэтому, что из нее вырезать, а что вставлять думать пока рано.

Пытался написать простейший сокет-клиент примеры в интернете есть, но так и не дошло почему не работает. Показано так:

{... Здесь идет заголовок файла и определение формы TForm1 и ее экземпляра Form1}

{В форму нужно поместить кнопку TButton и два TEdit.
При нажатии на кнопку вызывается обработчик события OnClick - Button1Click.
Перед этим в первый из TEdit-ов нужно ввести хост-имя,
а во второй - порт удаленного компьютера.
НЕ ЗАБУДЬТЕ ПОМЕСТИТЬ В ФОРМУ КОМПОНЕНТ TClientSocket!}

procedure Button1Click(Sender: TObject);
begin
{Присваиваем свойствам Host и Port нужные значения}
ClientSocket1.Host := Edit1.Text;
ClientSocket1.Port := StrToInt(Edit2.Text);
{Пытаемся открыть сокет и установить соединение}
ClientSocket1.Open;
end;

procedure ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket);
begin
{Как только произошло соединение - закрываем сокет и прерываем связь}
ClientSocket1.Close;
end;

Делаю так:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ScktComp;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    ClientSocket1: TClientSocket;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure Button1Click(Sender: TObject);
begin
 ClientSocket1.Host := Edit1.Text;
 ClientSocket1.Port := StrToInt(Edit2.Text);
 ClientSocket1.Open;
end;

procedure ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket);
begin
 ClientSocket1.Close;
end;

Может там надо что прописать в properties и events?
Чувствую себя таким неумным .

[LoginAnd]

Прошел один год, а воз и ныне там(нет, я не целый год ломал себе голову - временами. Сейчас решил к этой задаче вернуться). Буду рад если поможете советом или делом . Советуйте Все и всё что угодно ссылки, программы, книги - буду изучать и анализировать. Нужен сниффер + фильтр + автоматическая рассылка отфильтрованных пакетов по нескольким IP-адрессам. Вот такая программа

И думаю пора рассказать зачем все таки мне это нужно, просто хочу стать multiboxer-ом.