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

  • На форуме работает ручное одобрение пользователей. Это значит, что, если Ваша причина регистрации не соответствует тематике форума, а также Вы используете временную почту, Ваша учётная запись будет отклонена без возможности повторной регистрации. В дальнейшем - пожизненная блокировка обоих аккаунтов за создание мультиаккаунта.
  • Мы обновили Tor зеркало до v3!
    Для входа используйте следующий url: darkv3nw2...bzad.onion/
  • Мы вновь вернули telegram чат форуму, вступайте, общайтесь, задавайте любые вопросы как администрации, так и пользователям!
    Ссылка: https://t.me/chat_dark_time

[CM]Rafula

Участник

[CM]Rafula

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

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

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

AnGel

Администратор
Команда форума

AnGel

Администратор
Команда форума
27 Авг 2015
3,413
2,025
Смотри header до регистрации и после. Вообще методов проверки авторизации масса!
  • header
  • rezultcode
  • html
Все что сейчас пришло в голову
 

AnGel

Администратор
Команда форума

AnGel

Администратор
Команда форума
27 Авг 2015
3,413
2,025
@[CM]Rafula, нет
 

DeNIKE

Участник

DeNIKE

Участник
5 Окт 2016
1
1
Всем привет,я новичок в 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;
 
  • Лайк
Reactions: Боевой

imreadurmind

Участник

imreadurmind

Участник
6 Окт 2016
70
44
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
Функцией парса спарси то, что между " "{""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

VIP

K_NoW

VIP
3 Июн 2016
514
195
Пиздуй паскаль учи, в делфи есть функция Pos ищи то что есть на залогиненой странице и чего нету на гостевой, например кнопка выход, баланс, и т.д
и с помощю функции Pos дедектируй, предварительно преобразовав в ansi, Pos('текст для поиска',UTF8ToAnsi(HTML код)) если ничего не будет найдено функция вернет 0, а вобще наилучше использовать регулярки, но до этого тебе далеко
--- Пост обновлен ---
вот именно из за таких постов, паскалеров считают ничего не знающими идиотами
 
  • Лайк
Reactions: mr. robot

imreadurmind

Участник

imreadurmind

Участник
6 Окт 2016
70
44
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
Пиздуй паскаль учи, в делфи есть функция Pos ищи то что есть на залогиненой странице и чего нету на гостевой, например кнопка выход, баланс, и т.д
и с помощю функции Pos дедектируй, предварительно преобразовав в ansi, Pos('текст для поиска',UTF8ToAnsi(HTML код)) если ничего не будет найдено функция вернет 0, а вобще наилучше использовать регулярки, но до этого тебе далеко
выше я вон скинул ему функцию, как раз заменит регулярку, ну, по крайней мере, если есть мозги, то вытащит то, что нужно
 
  • Лайк
Reactions: K_NoW

Боевой

Участник

Боевой

Участник
8 Мар 2017
26
5
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
Функцией парса спарси то, что между " "{""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

Участник

bronnooo

Участник
3 Июл 2017
7
0
кто-то знает, как создать этот тип заголовка или знаете какой форум ????? 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

VIP

K_NoW

VIP
3 Июн 2016
514
195
кто-то знает, как создать этот тип заголовка или знаете какой форум ????? 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;
создай тему и нормально все опиши
 
21 Окт 2015
299
102
кто-то знает, как создать этот тип заголовка или знаете какой форум ????? 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

VIP

fenum

VIP
1 Фев 2016
534
239
Поналетели трукодеры..
Там чтобы определить GOOD,просит Location
Закрой этот курс, там хуева туча недочётов.
Гуд можно определить по кукам, можно по сообщению на странице.
Советую по кукам, ибо стр бывает с проксей не всегда прогружается правильно
 

K_NoW

VIP

K_NoW

VIP
3 Июн 2016
514
195
вроде бы все такие заголовки юзают
Код:
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, ''); можно юзать или я тебя не понял ?
это почта как я понял
 

О нас

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

    Dark-Time 2015 - 2024

    При поддержке: XenForo.Info

Быстрая навигация

Меню пользователя