unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, sSkinManager, StdCtrls, Buttons, sBitBtn, ExtCtrls, sPanel,
  acArcControls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, IdAntiFreezeBase, IdAntiFreeze, IniFiles, ShellAPI,
  ComCtrls, sStatusBar;

type
  TNetConnect = class(TForm)
    sPanel1: TsPanel;
    sBitBtn1: TsBitBtn;
    sSkinManager1: TsSkinManager;
    sBitBtn2: TsBitBtn;
    sArcPreloader1: TsArcPreloader;
    IdAntiFreeze1: TIdAntiFreeze;
    sPanel2: TsPanel;
    sBitBtn3: TsBitBtn;
    sBitBtn4: TsBitBtn;
    sStatusBar1: TsStatusBar;
    procedure FormCreate(Sender: TObject);
    procedure sBitBtn1Click(Sender: TObject);
    procedure sBitBtn2Click(Sender: TObject);
    procedure sBitBtn4Click(Sender: TObject);
    procedure sBitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  NetConfigs = record
    Client: Array [0..1] of string;
    Router: Array [0..1] of string;
    OldClient: Array[0..1] of string;
    MAC: Array [0..1] of string;
    URL_Clone: string;
    URL_Settings: string;
    URL_RestoreMAC: string;
    URL_Restore_Old: string;
  end;

var
  NetConnect: TNetConnect;
  Configs: NetConfigs;
  HTTP: TIdHttp;
  Ini: TIniFile;

implementation

{$R *.dfm}

Procedure SetConfigs;
begin
{Configurações de dados}

  Configs.URL_Clone := 'http://192.168.1.1/userRpm/MacCloneCfgRpm.htm?mac1='+Configs.MAC[0]+'&wan=1&Save=Salvar';
  Configs.URL_Settings := 'http://192.168.1.1/userRpm/PPPoECfgRpm.htm?'+
'wan=0&wantype=2&acc='+Configs.Client[0]+'&psw='+Configs.Client[1]+'&SecType=0&sta_ip=0.0.0.0&sta_mask=0.0.0.0&linktype=1&'+
'waittime=0&Save=Salvar';
  Configs.URL_RestoreMAC := 'http://192.168.1.1/userRpm/MacCloneCfgRpm.htm?mac1='+Configs.MAC[1]+'&wan=1&Save=Salvar';
  Configs.URL_Restore_Old := 'http://192.168.1.1/userRpm/PPPoECfgRpm.htm?'+
'wan=0&wantype=2&acc='+Configs.OldClient[0]+'&psw='+Configs.OldClient[1]+'&SecType=0&sta_ip=0.0.0.0&sta_mask=0.0.0.0&linktype=1&'+
'waittime=0&Save=Salvar';

{Configurações de Request}
  HTTP := TIDHTTP.Create(nil);
  HTTP.Request.Accept := 'application/json';
  HTTP.Request.ContentType := 'application/json';
  HTTP.Request.BasicAuthentication := true;
  HTTP.Request.Username := 'admin';
  HTTP.Request.Password := 'admin';
  HTTP.Request.Connection  := 'keep-alive';
  HTTP.Request.UserAgent   := 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/58.0.3029.96 Safari/537.36';
  HTTP.Request.AcceptEncoding := 'gzip, deflate';
  HTTP.Request.AcceptLanguage := 'pt-BR,pt;q=0.8,en-US;q=0.6,en;q=0.4';
  HTTP.Request.CacheControl := 'no-cache';
end;

procedure LoadIni;
begin
  Ini := TIniFile.Create(GetCurrentDir + '\Configurations.ini');
  Configs.Client[0] := Ini.ReadString('Parametros','Username', '');
  Configs.Client[1] := Ini.ReadString('Parametros','Password', '');
  Configs.Router[0] := Ini.ReadString('Parametros','User Router', '');
  Configs.Router[1] := Ini.ReadString('Parametros','Pass Router', '');
  Configs.MAC[0] := Ini.ReadString('Parametros','Mac Clone', '');
  Configs.MAC[1] := Ini.ReadString('Parametros','Mac Restore', '');
  Configs.OldClient[0] := Ini.ReadString('Parametros','Old Username', '');
  Configs.OldClient[1] := Ini.ReadString('Parametros','Old Password', '');
  Ini.Free;
end;

procedure TNetConnect.FormCreate(Sender: TObject);
begin
  LoadIni;
  SetConfigs;
end;

procedure TNetConnect.sBitBtn1Click(Sender: TObject);
begin
  sBitBtn2.Enabled := True;
  sArcPreloader1.Animated := True;
  HTTP.Get(Configs.URL_Clone);
  sArcPreloader1.Text := 'Status: Cloned';
  sArcPreloader1.Animated := False;
end;

procedure TNetConnect.sBitBtn2Click(Sender: TObject);
begin
  sArcPreloader1.Animated := True;
  HTTP.Get(Configs.URL_Settings);
  sArcPreloader1.Text := 'Status: Success';
  sArcPreloader1.Animated := False;
end;

procedure TNetConnect.sBitBtn4Click(Sender: TObject);
begin
sArcPreloader1.Animated := True;
HTTP.Get(Configs.URL_RestoreMAC);
HTTP.Get(Configs.URL_Restore_Old);
sArcPreloader1.Text := 'Status: Restored';
sArcPreloader1.Animated := False;
end;

procedure TNetConnect.sBitBtn3Click(Sender: TObject);
begin
  ShellExecute(Handle, nil, 'Configurations.ini' , nil, nil, SW_SHOWNORMAL);
end;

end.