Home

Page 159
Page 159
background image

152 Глава 4

Добавим на форму еще один компонент — кнопку TButton, после нажатия

которой будет начинаться перебор паролей по словарю. Ну и, наконец,

 с закладки

 — компонент для работы по протоколу РОРЗ.

Для большей СОЛИДНОСТИ МОЖНО брОСИТЬ

 И IdAntiFreeze

с закладки Indy Misc. Это компонент, который следит за тем, чтобы про-
грамма не зависла в ожидании ответа от сервера при работе с портом.
Я советую вам постоянно использовать антифриз, когда работаете с библио-
текой Indy. Хотя лично я проблем пока не встречал, но приложения с до-
садными ошибками вряд ли кого-то устроят.
Теперь давайте создадим обработчик события onclick кнопки и напишем

в нем следующее (листинг 4.2).

 HI Л 2

procedure
var

i,

begin

//Создаем массивы строк

//Загружаем варианты — справочники имен и паролей

 ;

//Устанавливаем адрес и порт сервера

IdPOP.Host
IdPOP.Port
//Начинаем перебор

for i:=0 to

 do

for j:=0 to

 do

begin

//Передаем имя и пароль компоненту

//Для Delphi 7 предыдущая строка должна быть такой:

 :=

//Попытка соединения.

try


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

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