Home

Page 162
Page 162
background image

Простые приемы работы с сетью

155

try

except

end;

Если при выполнении кода между try и except (в данном случае попытки

соединения) произойдет ошибка, то программа не вылетит и не выведет ни-

каких сообщений, а выполнит код, который написан между except и end.

Что? У меня ничего там не написано? Значит, ничего не выполнит, а спо-

койно продолжит работу дальше.
Вот такая вещь называется защитой от исключительных ситуаций. С помо-

щью нее ваши программы становятся более защищенными от сбоев, и веро-
ятность появления синего экрана снижается. Вот если бы программисты MS
научились пользоваться исключительными ситуациями.... Ну ладно, не бу-

дем мечтать, давайте лучше вернемся к нашему коду, а про исключительные

ситуации можете подробней почитать на моем сайте или в моей книге
"Библия Delphi".

 паролей

Порт

Начать перебор

 4.12. Результат работы в Windows

Я протестировал программу под несколькими ОС, и везде она показала себя
очень даже хорошо. Единственное замечание — не запускайте ее из Delphi.
Для этого создайте исполняемый файл с помощью нажатия <Ctrl>+<F9>,

а потом выполните получившийся ехе-файл. Если вы запустите программу

из Delphi, то будете ловить все ошибки несмотря на то, что мы используем

обработку исключительных ситуаций.

Теперь все в ваших руках. Можете доработать этот пример по своему усмотре-

нию, добавив в него возможность паузы и продолжения. Можно вставить за-

держку между попытками соединения в пару секунд, что увеличит общее время

перебора, зато исключит вероятность прекращения работы из-за time-out.

На компакт-диске в директории \Примеры\Глава 4\Brute вы можете увидеть
пример этой программы.

6

 978


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.