Помогите Авторизоваться, В Игровом Приложении Вконтакте С Помощью Id, Auth_key, Ip Приложения.

Андрей · 16 Янв 2016

Мне нужно авторизоваться в приложении, с использованием стандартных компонентов IDHTTP Cookie & Socket
Я делал через Synaps, но это так... Не уверен что работает.
Мне нужна авторизация в приложении тюряга, и пример вывода информации (Валюта, уровень, достижения) Что нибудь из этого, далее мне интересно самому повторить тоже самое.
И проверка авторизации, удалась (Не удалась).
Вот мой код, но это так чтобы вы посмеялись)

Код:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, httpsend, lib, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    response, auth, uid: string;
  end;

var
  Form1: TForm1;
  HTTP:thttpsend;
  response:string;
  STRTime:string;
  Work:boolean;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
temp, id, auth_key: string;
begin
id:=Edit1.Text;
  auth_key:=Edit2.Text;
response:=send('GET', 'http://109.234.156.253/prison/universal.php?getInfo&user='+id+'&key='+auth_key);
end;

end.

Андрей · 21 Янв 2016

Проверьте пожалуйста почему у меня не получается войти в игровое приложение Вконтакте.

Код:

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, sButton, sCheckBox, sEdit,
  sLabel, sSkinManager, IdCookieManager, IdIOHandler, IdIOHandlerSocket,
  IdIOHandlerStack, IdSSL, IdSSLOpenSSL, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP, IdAuthentication;

type
  TForm2 = class(TForm)
    sLabel1: TsLabel;
    sLabel2: TsLabel;
    sLabel3: TsLabel;
    sEdit1: TsEdit;
    sEdit2: TsEdit;
    sEdit3: TsEdit;
    sCheckBox1: TsCheckBox;
    sButton1: TsButton;
    sSkinManager1: TsSkinManager;
    IdHTTP1: TIdHTTP;
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
    IdCookieManager1: TIdCookieManager;
    procedure sButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}
uses Unit3;

procedure TForm2.sButton1Click(Sender: TObject);
var StrPage, TextLog, LogPole, WinMessage:string;
Pole: TStringList;
begin
// Форма входа на сайте
Form2.IdHTTP1.Create(nil);
Pole:=TStringList.Create;
// Формируем запрос на авторизацию
Pole.Add('user='+sEdit1.Text);
Pole.Add('key='+sEdit2.Text);
Pole.Add('ip='+sEdit3.Text);
Try TextLog:=(Form2.IdHTTP1.Post('http://'+sEdit3.text+'/prison/universal.php?user'+sEdit1.Text+'key'+sEdit2.Text+'getInfo', name));except on E: Exception do
ShowMessage('Сменили auth_key или проверь еще раз');
End;
Try StrPage:=Form2.IdHTTP1.Get('http://'+sEdit3.text+'/prison/universal.php?getInfo'); except on E: Exception do End;
if Pos('milk', StrPage)>0 then
begin
// Успешная Авторизация
Try LogPole:=(idHttp1.Get('http://'+sEdit3.text+'/prison/universal.php?'));
Form3.Show;
Form2.Visible:=false;
except on E: Exception do End;
end;
end;

end.

Lomanu4 · 21 Янв 2016

Андрей сказал(а):

Проверьте пожалуйста почему у меня не получается войти в игровое приложение Вконтакте.

Код:

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, sButton, sCheckBox, sEdit,
  sLabel, sSkinManager, IdCookieManager, IdIOHandler, IdIOHandlerSocket,
  IdIOHandlerStack, IdSSL, IdSSLOpenSSL, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP, IdAuthentication;

type
  TForm2 = class(TForm)
    sLabel1: TsLabel;
    sLabel2: TsLabel;
    sLabel3: TsLabel;
    sEdit1: TsEdit;
    sEdit2: TsEdit;
    sEdit3: TsEdit;
    sCheckBox1: TsCheckBox;
    sButton1: TsButton;
    sSkinManager1: TsSkinManager;
    IdHTTP1: TIdHTTP;
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
    IdCookieManager1: TIdCookieManager;
    procedure sButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}
uses Unit3;

procedure TForm2.sButton1Click(Sender: TObject);
var StrPage, TextLog, LogPole, WinMessage:string;
Pole: TStringList;
begin
// Форма входа на сайте
Form2.IdHTTP1.Create(nil);
Pole:=TStringList.Create;
// Формируем запрос на авторизацию
Pole.Add('user='+sEdit1.Text);
Pole.Add('key='+sEdit2.Text);
Pole.Add('ip='+sEdit3.Text);
Try TextLog:=(Form2.IdHTTP1.Post('http://'+sEdit3.text+'/prison/universal.php?user'+sEdit1.Text+'key'+sEdit2.Text+'getInfo', name));except on E: Exception do
ShowMessage('Сменили auth_key или проверь еще раз');
End;
Try StrPage:=Form2.IdHTTP1.Get('http://'+sEdit3.text+'/prison/universal.php?getInfo'); except on E: Exception do End;
if Pos('milk', StrPage)>0 then
begin
// Успешная Авторизация
Try LogPole:=(idHttp1.Get('http://'+sEdit3.text+'/prison/universal.php?'));
Form3.Show;
Form2.Visible:=false;
except on E: Exception do End;
end;
end;

end.

дай мне все ссылки куда ты кидаешь запросы так же дай ссылку на приложение
щас сделаем!

Андрей · 21 Янв 2016

Lomanu4 сказал(а):
дай мне все ссылки куда ты кидаешь запросы так же дай ссылку на приложение
щас сделаем!

Ссылка а приложение

Пожалуйста Авторизируйтесь или Зарегистрируйтесь для просмотра скрытого текста.

Запрос

Пожалуйста Авторизируйтесь или Зарегистрируйтесь для просмотра скрытого текста.

Я использовал метод getInfo чтобы проверить валюту, то есть авторизовался или нет
А вообще самые первые два запроса были методом initGame он загружает приложение и получает список друзей, после идет метод getData

Андрей · 23 Янв 2016

Вот немного исправил код, после компиляции пытаюсь авторизоваться. Видно что запрос пошел, но работает авторизация или нет я не знаю. Попытался вывести валюту с игры, выбрал сгущенку.
Label1.Caption :=Copy(Pos('<milk>' '</milk>')+7, 16); Если делать таким способом то код не компилируется
подчеркнут красным, то есть не правильно что-то делаю. Подскажите как вывести информацию "данные".

Код:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, IdIOHandler,
  IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL, IdServerIOHandler,
  IdCookieManager, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Label1: TLabel;
    IdHTTP1: TIdHTTP;
    IdCookieManager1: TIdCookieManager;
    IdServerIOHandlerSSLOpenSSL1: TIdServerIOHandlerSSLOpenSSL;
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var StrPage, TextLog, LogPole, WinMessage:string;
Pole: TStringList;
begin
  Form1.IdHTTP1.Create(nil);
Pole:=TStringList.Create;
Pole.Add('user='+Edit1.Text);
Pole.Add('key='+Edit2.Text);
Pole.Add('ip'+Edit3.Text);
Try StrPage:=Form1.IdHTTP1.Get('http://'+Edit3.Text+'/prison/universal.php?user'+Edit1.Text+'&key'+Edit2.Text+'getInfo'); except on E: Exception do End;
if Pos('/index/10', StrPage)>0 then

begin
Try LogPole:=(idHttp1.Get('http://'+ Edit3.Text +'/prison/universal.php?getInfo'));
except on E: Exception do End;
end;
end;

end.

Андрей · 24 Янв 2016

Решил проверить авторизацию в приложении. Сделал запрос нападение на босса, но что то идет не так. Кнопка нападения на босса работает так же как без кода. Вот весь проект

Пожалуйста Авторизируйтесь или Зарегистрируйтесь для просмотра скрытого текста.

Код:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, IdIOHandler,
  IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL, IdServerIOHandler,
  IdCookieManager, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, RegExpr;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Label1: TLabel;
    IdHTTP1: TIdHTTP;
    IdCookieManager1: TIdCookieManager;
    IdServerIOHandlerSSLOpenSSL1: TIdServerIOHandlerSSLOpenSSL;
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var StrPage, TextLog, LogPole, WinMessage:string;
Pole: TStringList;
reg: TregExpr;
begin
  Form1.IdHTTP1.Create(nil);
Pole:=TStringList.Create;
Pole.Add('user='+Edit1.Text);
Pole.Add('key='+Edit2.Text);
Pole.Add('ip'+Edit3.Text);
Try StrPage:=Form1.IdHTTP1.Get('http://'+Edit3.Text+'/prison/universal.php?user'+Edit1.Text+'&key'+Edit2.Text+'getInfo'); except on E: Exception do End;
if Pos('/index/10', StrPage)<>0 then
begin
Try LogPole:=(idHttp1.Get('http://'+ Edit3.Text +'/prison/universal.php?getInfo'));
except on E: Exception do End;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//Запрос нападения на босса
IdHTTP1.Get('http://'+ Edit3.Text +'/prison/universal.php?&method=startBattle&key'+Edit2.Text+'&mode=simple&buff=0&user'+Edit1.Text+'&boss_id=1');
end;

end.