Kylix. Сканер портов заказывали?

Xakep, номер #034, стр. 034-073-3

В принципе, сканер рабочий, и его вполне реально юзать даже в боевых условиях. Тем более, что сканировать большое количество портов сразу очень опасно. Такие массовые сканы очень легко вычисляются. Желательно еще сканировать не все порты подряд, а в рассыпную. Например: 1, 150, 76, 1654, 756 и так далее. А это уже все в твоих руках.

На этом на сегодня все. Примеры, как всегда, можно забрать с моего сайта www.x-c-r.com.

Обработчик события OnClick

procedure TForm1.Button1Click(Sender: TObject);

var

i:Integer;

ipstr:String;

begin

ipstr:='127.0.0.1';

//Запрашиваю адрес компа.

if not InputQuery('Atention', 'Enter IP Address', ipstr) then exit;

//Запускаю цикл

for i:=StrToInt(Edit1.Text) to StrToInt(Edit2.Text) do

begin

//Устанавливаю порт

TcpClient1.RemotePort:=IntToStr(i);

//Пытаюсь его открыть

TcpClient1.Open;

//Если удалось, то сообщаю об этом

if TcpClient1.Connected then

Memo1.Lines.Add(IntToStr(i)+' open');

//Закрываю порт.

TcpClient1.Close;

end;

end;