Авторизация UCOZ

var
  Form1: TForm1;
  Data:TStringList;
  Request, s, p,g :String;
 
implementation
 
{$R *.dfm}
 
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;
 
 
 
 
procedure TForm1.sButton2Click(Sender: TObject);
begin
s:=IdHTTP1.Post('http://cheat-master.ru/index/10',Data);
end;
 
procedure TForm1.sButton1Click(Sender: TObject);
begin
Data:=TStringList.Create;
s:=IdHTTP1.Post('http://cheat-master.ru',Data);
p:=pars('name="rnd" value="', s, '"' );
Data.Add('user='+sEdit1.Text);
Data.Add('password='+sEdit2.Text);
Data.Add('rem=1');
Data.Add('a=2');
Data.Add('ajax=1');
Data.Add('rnd='+p);
Data.Add('_tp_=xml');
 
 
IdHTTP1.Request.Host:='http://cheat-master.ru/';
idHTTP1.Request.UserAgent:= 'Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.22 (KHTML, like Gecko) Chrome/25.0.1364.172 Safari/537.22';
idHTTP1.Request.Accept := 'application/xml, text/xml, */*; q=0.01';
idHTTP1.Request.AcceptEncoding := 'gzip,deflate,sdch';
idHTTP1.Request.AcceptLanguage := 'ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4';
idHTTP1.Request.AcceptCharset := 'windows-1251,utf-8;q=0.7,*;q=0.3';
IdHTTP1.Request.Connection := 'keep-alive';
IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded; charset=Unicode';
IdHTTP1.Request.Referer :='http://cheat-master.ru';
idHTTP1.Request.Pragma:= 'no-cache';
idHTTP1.Request.CacheControl := 'no-cache';
try
Request:=idHTTP1.Post('http://cheat-master.ru/index/sub/',Data);
s:=IdHTTP1.Post('http://cheat-master.ru/tmpls/?a=fm;l=7;f=;file=obv.txt',Data);
g:=pars('<input type="hidden" name="ssid" value="', s, '">' );
finally
Data.Clear;
Request:='';
s:='';
g:='';
p:='';
end;
end;
procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
ProgressBar1.Position := AWorkCount;
end;
 
procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
ProgressBar1.Position := 0;
 ProgressBar1.Max := AWorkcountMax;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('about:blank');
end;
 
procedure TForm1.sButton3Click(Sender: TObject);
begin
webBrowser1.Navigate('http://cheat-master.ru/shop');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
a:variant;
begin
a:=webbrowser1.oleobject.document.getelementbyid('user');
a.value:='login';
a:=webbrowser1.oleobject.document.getelementbyid('password');
a.value:='пароль';
a:=webbrowser1.oleobject.document.getelementbyid('sbm');
a.click;
end;

webbrowser1.navigate('http://cheat-master.ru/');

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
cancel:=true;
if pos('shop',url)>0 then cancel:=false;
 
end;