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

Param:=TStringList.Create;//Парaметры запросов
                  Param.Add('auth[backurl]=http://mirtesen.ru/'); //Добавляем параметры для логина
                  Param.Add('auth[login]='+Nick);//.......
                  Param.Add('auth[password]='+Pswd);//........
                  Param.Add('auth[remember]=on');//......
Http:=TIdHttp.Create;//Создаем и инициализируем объект  ИдХттп
                  Http.Request.Host:='mirtesen.ru';
                  Http.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.1.2) Gecko/20090729 Firefox/3.5.2 (.NET CLR 3.5.30729)';
                  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.Connection:='Keep-alive';
                  Http.Request.Referer:='http://mirtesen.ru/';
                  http.ReadTimeout:=10000;
                  http.ConnectTimeout:=10000 ;
                  Http.AllowCookies:=True;
                  Cook:=TIdCookieManager.Create(Http);
                  Http.HandleRedirects:=False;

if UseProxy then//Если используем прокси, то берем рандомно
                begin
                  EnterCriticalSection(CS);
                      i2:=Random(Form6.sMemo3.Lines.Count);
                      Http.ProxyParams.ProxyServer:=Copy(Form6.sMemo3.lines[i2],1,pos(':',Form6.sMemo3.lines[i])-1);
                      Http.ProxyParams.ProxyPort:=StrToInt(Copy (Form6.sMemo3.Lines[i2],pos(':',Form6.sMemo3.Lines[i2])+1,Length(Form6.sMemo3.Lines[i2])-pos(':',Form6.sMemo3.Lines[i2])));
                  LeaveCriticalSection(CS);


Response.Text:=Http.Post('http://mirtesen.ru/login',Param);//Логинимся

on e : EIDHttpProtocolException do//Если редирект 302, то залогинились
                if e.ErrorCode = 302 then 
                  begin
                    if Length(response.Text)=0 then continue;
                    EnterCriticalSection(CS);
                    Form6.sMemo2.Lines.Add(Nick+' Зашел');
                    LeaveCriticalSection(CS);