ANTICHAT — форум по информационной безопасности, OSINT и технологиям

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdCookieManager, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP, ComCtrls;

type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    IdCookieManager1: TIdCookieManager;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Http  : TidHttp;
  CM    : TidCookieManager;
  Data, params  : TStringList;
  StrPage, UserID,  UserName  :  String;
  i : integer;
begin
  try
    Http := TIdHTTP.Create(Self);
    Data:= TStringList.Create;
    CM := TidCookieManager.Create(Http);
    Http.AllowCookies := true;
    Http.CookieManager := CM;
    Http.HandleRedirects := true;

    Http.Request.Host:=' testhtl.ucoz.ru';
    Http.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
    Http.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
    Http.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
    Http.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
    Http.Request.Referer:='http://testhtl.ucoz.ru/';

    Data.Add('user=qqq');
    Data.Add('password=123456');
    Data.Add('a=2');
    StrPage := Http.Post('http://testhtl.ucoz.ru/index/sub/', Data);

params:=TStringList.Create;
params.Add(AnsiToUTF8('uname=ывапыва'));
params.Add(AnsiToUTF8('message=ывпыва'));
params.Add(AnsiToUTF8('url=ваыпыва'));
params.Add('s=566012520275405242056');
params.Add('a=8');
IdHTTP1.Post('http://testhtl.ucoz.ru/mchat/', params);
  finally
    Data.Free;
    CM.Free;
    Http.Free;
  end;
 Memo1.Lines.Text := StrPage;
end;

end.

Http.Post('http://testhtl.ucoz.ru/mchat/', params);

pCover.Align := alClient;