Как определить GOOD аккаунт?

[[CM]Rafula]

Всем привет,я новичок в Delphi.
В прочем, по урокам сижу,пробую брут сделать,для 1 сервиса.
Там чтобы определить GOOD,просит Location прописать из HTTP Analyzer, но его там нет.

Есть ли возможность сделать примерно проверку по вкладке "Response Content"
У меня там когда аккаунт не валидный пишет " {"ACTION":false} " , а когда валид " {"ACTION":true} "

Сама строка " if Pos('Location: ', HTTP.Headers.Text)<>0 then begin "
Если что,могу оплатить!

 

[AnGel]

Смотри header до регистрации и после. Вообще методов проверки авторизации масса!

• header
• rezultcode
• html

Все что сейчас пришло в голову

 

[[CM]Rafula]

Смотри header до регистрации и после. Вообще методов проверки авторизации масса!

• header
• rezultcode
• html

Все что сейчас пришло в голову

С тобой в вк есть возможность списаться? готов заплатить

 

[AnGel]

@[CM]Rafula, нет

 

[[CM]Rafula]

Ищу еще решения , не понял что выше

 

[[CM]Rafula]

Да

Что да? лови жалобу за набив

 

[MrSmitix]

E

Что да? лови жалобу за набив

У самого то 7 сообщений gverergnerjgn678

 

[DeNIKE]

Всем привет,я новичок в Delphi.
В прочем, по урокам сижу,пробую брут сделать,для 1 сервиса.
Там чтобы определить GOOD,просит Location прописать из HTTP Analyzer, но его там нет.

Есть ли возможность сделать примерно проверку по вкладке "Response Content"
У меня там когда аккаунт не валидный пишет " {"ACTION":false} " , а когда валид " {"ACTION":true} "

Сама строка " if Pos('Location: ', HTTP.Headers.Text)<>0 then begin "
Если что,могу оплатить!

Ну смотри, если ты хочешь определить 'Гудовый аккаунт' через HTML, то тебе нужно после выполнения, записывать html код страницы, в какую нибудь переменную.

Пример:
HTTPMethod('GET','

Пожалуйста, Вход или Регистрация для просмотра содержимого URL-адресов!

HTML := TStringList.create;
try
HTML.loadFromFile(HTTP.Document);

if Pos('ACTION":true', html.text) <> 0 then
ShowMessage('Аккаунт валидный')
else
ShowMessage('Аккаунт не валидный')

finally
freeandnil(HTML)
end;

 

[imreadurmind]

Функцией парса спарси то, что между " "{""ACTION": и "}"

да и всё тут, а то что выше описано - тупо бред
--- Пост обновлен ---

Спойлер: Сама функция

function TForm1.Pars(T_, ForS, _T: string): string;
var a, b:integer;
begin
Result := '';
if (T_='') or (ForS='') or (_T='') then Exit;
a:=Pos(T_, ForS);
if a=0 then Exit else a:=a+Length(T_);
ForS:=Copy(ForS, a, Length(ForS)-a+1);
b:=Pos(_T, ForS);
if b>0 then
Result:=Copy(ForS, 1, b - 1);
end;

var
akk,action:string;
begin
action:=pars('{""ACTION":','}');
if action = 'true' then begin
тут записываешь гуд
end;

 

[K_NoW]

Пиздуй паскаль учи, в делфи есть функция Pos ищи то что есть на залогиненой странице и чего нету на гостевой, например кнопка выход, баланс, и т.д
и с помощю функции Pos дедектируй, предварительно преобразовав в ansi, Pos('текст для поиска',UTF8ToAnsi(HTML код)) если ничего не будет найдено функция вернет 0, а вобще наилучше использовать регулярки, но до этого тебе далеко
--- Пост обновлен ---
вот именно из за таких постов, паскалеров считают ничего не знающими идиотами

 

[imreadurmind]

Пиздуй паскаль учи, в делфи есть функция Pos ищи то что есть на залогиненой странице и чего нету на гостевой, например кнопка выход, баланс, и т.д
и с помощю функции Pos дедектируй, предварительно преобразовав в ansi, Pos('текст для поиска',UTF8ToAnsi(HTML код)) если ничего не будет найдено функция вернет 0, а вобще наилучше использовать регулярки, но до этого тебе далеко

выше я вон скинул ему функцию, как раз заменит регулярку, ну, по крайней мере, если есть мозги, то вытащит то, что нужно

 

[Боевой]

Функцией парса спарси то, что между " "{""ACTION": и "}"

да и всё тут, а то что выше описано - тупо бред
--- Пост обновлен ---

Спойлер: Сама функция

function TForm1.Pars(T_, ForS, _T: string): string;
var a, b:integer;
begin
Result := '';
if (T_='') or (ForS='') or (_T='') then Exit;
a:=Pos(T_, ForS);
if a=0 then Exit else a:=a+Length(T_);
ForS:=Copy(ForS, a, Length(ForS)-a+1);
b:=Pos(_T, ForS);
if b>0 then
Result:=Copy(ForS, 1, b - 1);
end;

var
akk,action:string;
begin
action:=pars('{""ACTION":','}');
if action = 'true' then begin
тут записываешь гуд
end;

Что за бред ты написал? Ало определение гуда можно сделать по заголовку и по редиректу , в его случае по заголовку
то есть HTML.LoadFormStream(HTTP.Document)
if Pos(' {"ACTION":true} ',HTML.Text)<>0 then
begin
Rez := 1; //Типо гуд
end else
begin
Rez := 2; //Типо бэд
end;

 

[bronnooo]

кто-то знает, как создать этот тип заголовка или знаете какой форум ????? plz


09:13:59 -0500 (envelope-from <[email protected]>)
From: "USF Alumni Association" <[email protected]>
To: "[email protected]" <[email protected]>
Reply-To: [email protected]
Date: Tue, 4 Jul 2017 14:14:07 +0000
Subject: AlumNews: All the Cool Alum Want It; Rock the Block; Marketing Magic
Content-Type: multipart/alternative;

 

[K_NoW]

кто-то знает, как создать этот тип заголовка или знаете какой форум ????? plz


09:13:59 -0500 (envelope-from <[email protected]>)
From: "USF Alumni Association" <[email protected]>
To: "[email protected]" <[email protected]>
Reply-To: [email protected]
Date: Tue, 4 Jul 2017 14:14:07 +0000
Subject: AlumNews: All the Cool Alum Want It; Rock the Block; Marketing Magic
Content-Type: multipart/alternative;

создай тему и нормально все опиши

 

[Каратель12]

кто-то знает, как создать этот тип заголовка или знаете какой форум ????? plz


09:13:59 -0500 (envelope-from <[email protected]>)
From: "USF Alumni Association" <[email protected]>
To: "[email protected]" <[email protected]>
Reply-To: [email protected]
Date: Tue, 4 Jul 2017 14:14:07 +0000
Subject: AlumNews: All the Cool Alum Want It; Rock the Block; Marketing Magic
Content-Type: multipart/alternative;

вроде бы все такие заголовки юзают

Host: сайт
Origin: сайт
User-Agent: Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/58.0.3029.110 YaBrowser/17.6.1.749 Yowser/2.5 Safari/537.36
Content-Type: application/x-www-form-urlencoded
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
Referer: сайт
Accept-Encoding: gzip, deflate, br
Accept-Language: ru,en;q=0.8

а у тебя типа ты из кода страниц выдрал их
через http.Headers.Insert(0, ''); можно юзать или я тебя не понял ?

 

[fenum]

Поналетели трукодеры..

Там чтобы определить GOOD,просит Location

Закрой этот курс, там хуева туча недочётов.
Гуд можно определить по кукам, можно по сообщению на странице.
Советую по кукам, ибо стр бывает с проксей не всегда прогружается правильно

 

[K_NoW]

вроде бы все такие заголовки юзают

Host: сайт
Origin: сайт
User-Agent: Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/58.0.3029.110 YaBrowser/17.6.1.749 Yowser/2.5 Safari/537.36
Content-Type: application/x-www-form-urlencoded
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
Referer: сайт
Accept-Encoding: gzip, deflate, br
Accept-Language: ru,en;q=0.8

а у тебя типа ты из кода страниц выдрал их
через http.Headers.Insert(0, ''); можно юзать или я тебя не понял ?

это почта как я понял

 

[Каратель12]

это почта как я понял

delikateska.ru

 

[K_NoW]

delikateska.ru

не понял

 

[Каратель12]

не понял

ты про мой заголовки или его пишешь ? который заголовки я кинул это от того сервиса
а его хз от куда первый раз такие вижу