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

procedure TForm1.Button1Click(Sender: TObject);
const
  fact:shortString = 'http://torrents.ru/forum/login.php';
var
  fGet,fPost:TStringList;
begin
  fGet:=TStringList.Create;
  fPost:=TStringList.Create;
  IdHTTP1.AllowCookies:=true;
  IdHTTP1.CookieManager:=IdCookieManager1;
  IdHTTP1.HandleRedirects:=true;
  With fPost do
  begin //with
    Add('redirect=index.php');
    Add('cookie_test='); 
    Add('login_username=MyUser');
    Add('login_password=MyPass');
    Add('autologin=on');
    Add('login=Âõîä');
  end; //with
  fGet.Text:=IdHTTP1.Post(fact,fPost);
  If fGet.IndexOf('Âû çàøëè êàê') <> - 1 then
    MessageBOX(Application.Handle,'Connected!','  OK!',mb_OK)
  else
    MessageBOX(Application,Handle,'unsucsess',':(', mb_OK);
  IdHTTP1.Free;
  IdCookieManager1.Free;
  fGet.Free;
  fPost.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
infs,outfs: tfilestream;
begin
infs := tfilestream.create( edit1.text, fmopenread );
outfs := tfilestream.create( edit2.text, fmcreate );
infs.free;
outfs.free;
end;