Ping

[fossil]

Написал тут програмульку, которая пингует другие компы. Подскажите как можно добиться эффекта, просто если вводить в edit2.text сильно большое число выводятся ошибки, а с малым числом мало толку.

Edit1.text - ввожу ИП адрес
edit2.text - количество пакетов


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if edit1.Text='' then MessageDlg('Все поля обязательны к заполнению!',mtError,[mbOK],0) else
begin
if (edit2.Text='') or (edit2.Text='0') then edit2.Text:='1';
cmd:='cmd /C ping '+edit1.Text+' -l 65500';
for i:=1 to strtoint(edit2.Text) do
*begin
*Winexec(pchar(cmd),sw_hide);
*end;
end;
end;


Исправлено: fossil, 19:32 29-06-2004

Добавлено:

Или может быть кто предложит другой вариант написания программы?

[DAnG]

ping /?
-n число * * * * Число отправляемых запросов.

тогда можно цикл по размножению пингов выкинуть.

Или я не понял вопроса и целью является не просто отправка заданного числа ICMP-пакетов, а одновременная отправка?


Исправлено: DAnG, 0:18 30-06-2004

[fossil]

да-да, ты совершенно прав :)
спасибо, сейчас попробую

Добавлено:

Странно как-то получилось. Я думаю что она не одновременно их отправляет, а поочереди. Т.к. фаервол удаленного компа, ничего не обнаруживает. А цикл который был, он как раз и наделывал независимых циклов кучу. И получалось что они одновременно пинговали комп. Есть еще варианты? :)


Исправлено: fossil, 8:59 30-06-2004

[hasherfrog]

fossil
Судя по тексту, edit2.Text отвечает за количество процессов ping-а. Я не думаю, что Вы именно этого хотели. Зафлудить (правильно применил термин?) машину ICMP-пакетами у Вас не получится. Скорее всего, DAnG правильно Вас понял :) Или нет?

[fossil]

hasherfrog
Хе-хе.. да-да все правильно.. но только то варианит который предложил он не подходит, число n это не количество одновременно отправленных пакетов, а сколько все раз подряд вести пинг, так машину не закидать пакетами...

[hasherfrog]

Не понял, кто правильно Вас понял.
По поводу пингов и злодеяний, с ним связанных, см. здесь (http://www.ping127001.com/pingpage.htm) под заголовком The Ping of Death
Ещё где-то должно быть, на каких-нибудь сайтах типа security.ляляля.

[JCooper]

Помойму стандартным ping.exe dos атака не выйдет. Так что fossil сам пиши 8-). Протокол ICMP.

[fossil]

hasherfrog
Вы оба правы :)
Kuper
хм, ну смотря как составить прогу, на выше написанный код фаервол матерится, но комп не вешается всеравно..

[hasherfrog]

fossil
На мой взгляд, подобная прога скорее повесит Вашу машину, нежели таргет.
Грамотный файерволл не отвечает на пинг, поэтому процесс пинга подвиснет в ожидании. Т.е. все эти 100-200 psexec не вернут управления. Смекаете?
Кстати, ICMP пакеты в линуксе рассматриваются на уровне ядра, поэтому там очень пристально относятся к безопасности относительно ICMP.
ПС. Проверьте почту.

[RIKO]

ping и dos атака это немножко разные вещи.
ping ом чужой комп не завесишь

[BeerMan]

...смотря под какой ОСью... 98 Винду очень просто вешали избыточным пингом из под Линукса...

[hasherfrog]

BeerMan
И всё-таки дело не в количестве пингов, а в их качестве (http://www.insecure.org/sploits/ping-o-death.html)