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

// ---- Обрабатываем перенаправление ----
procedure THTTPCli.Redirect(const AData, AHost: string);
var
   Location : string;
begin
   Location := AData;
   Location := Copy(Location, Pos('Location:', Location) +10, Length(Location));
   Delete(Location, Pos(#13, Location), Length(Location));

  // Проверка локаций и исправление
   If Location[1] = '/' Then Get(AHost + Location);

   If (Location[1] <> '/') And (Pos('http://', location) = 0) Then
   begin
    Location := '/' + Location;
    Get('http://' + AHost + Location);
   end;

   If Pos('http://', Location) <> 0 then
   begin
    Location := Copy(Location, Length(GetHost(Location)) +8, Length(Location));
    Get(Location);
   end;

end;

// ---- Отправка GET-запроса ---- ;overload
function THTTPCli.Get(const AURL: string): string;
var
  Head   : string;
  Host   : string;
  urlObj : string;
begin
 { Парсим url }
  urlObj := AURL;
  urlObj := Copy(urlObj, Length(GetHost(urlObj)) +8, Length(urlObj));
  Host   := GetHost(AURL);

 // Составляем заголовок без куков
  Head := 'GET ' + urlObj + ' HTTP/1.1' + crlf +
          'User-Agent: Mozilla/4.8 [en](Windows NT 5.0; U)' + crlf +
          'Connection: close' + crlf +
          'Host: ' + Host + crlf + crlf;

 // А если таковые имеются, прибавляем их к заголовку
 If Length(_cookie) <> 0 Then
 begin
   Head := 'GET ' + urlObj + ' HTTP/1.1' + crlf +
           'User-Agent: Mozilla/4.8 [en](Windows NT 5.0; U)' + crlf +
           'Connection: close' + crlf +
           'Cookie: ' + _cookie + crlf +
           'Host: ' + Host + crlf + crlf;
 end;
 // Отсылаем запрос
  SendRequest(Host, 80, Head, Result);

 // Если сервер сказал 302, переходим по сказанной локации
  If Pos('302', Result) <> 0 then
  begin
     Redirect(Result, Host);
  end;
end;