program Project1;

//Coded by VANS
//VANS-SOFT.RU

{$APPTYPE CONSOLE}

uses
  Windows,
  SysUtils,
  Classes,
  HTTPSend,
  SSL_OpenSSL;

  function PR(Const a : string) : string;
  begin
    SetLength(result, length(a));
    CharToOem(PChar(a), Pchar(result));
  end;

  function HTTPGet(url: string): string;
    var HTTP:THTTPSend; rez:TStringList;
  begin
    HTTP:=THTTPSend.Create;
    with HTTP do begin
      Protocol:='1.1';
      Sock.SocksIP:='127.0.0.1';
      Sock.SocksPort:='9150';
      Sock.SocksResolver:=true;
      HTTPMethod('GET', url);
      rez:=TStringList.Create;
      rez.LoadFromStream(Document);
      try
      result:=PR(UTF8Decode(rez[8]+' - '+rez[10]));
      except
      result:=rez.Text;
      end;
      rez.Free;
    end;
    HTTP.Free;
  end;

begin
  WriteLn(HTTPGet('http://internet.yandex.ru/get_full_info/'));
  WriteLn('');
  WriteLn(PR('À âîò òîò ñàìûé Silk Road êîòîðûé ñåé÷àñ çàêðûò:'));
  WriteLn('');
  WriteLn(HTTPGet('http://silkroadvb5piz3r.onion/'));
  Readln;
end.