Delphi - работа с TOR

 

Многие слышали о такой программе как TOR Browser, через неё можно анонимно сидеть в интернете. А кто не слышал - добро пожаловать на сайт.

В этой статье мы разберёмся как подключиться при помощи Delphi к сети TOR и загружать страницы через него.

1. Скачиваем и устанавливаем TOR

2. Запускаем TOR и TOR Browser

3. В браузере открываем настройки прокси:

... и копируем текущий прокси. (у меня он 127.0.0.1:9150)

Переходим к Delphi...

Я использую Synapse (но вы можете использовать любой другой компонент для работы с сетью), по этому добавляем в uses модули HTTPSend и SSL_OpenSSL.

Функция соединения с сетью:

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);
      result:=rez.Text;
      rez.Free;
    end;
    HTTP.Free;
  end;

Тут ничего сложного, но давайте разберём что происходит:

Sock.SocksIP:='127.0.0.1'; - устанавливаем наш прокси сервер
Sock.SocksPort:='9150'; - устанавливаем порт по которому подключатся

И самое главное:

Sock.SocksResolver:=true;

Этой строчкой мы говорим синапсу что бы запрашивал IP сайта через прокси, тем самым мы можем подключатся к *.onion доменам! Не верите? Пожалуйста:

Таким не сложным способом мы научили свою программу работать с TOR'ом! Что делать дальше с этими знаниями - решать вам, можно направить в доброе русло или же создать ботнет который будет брать задания с *.onion доменов.

Скачать исходники можно тут: pastebin.com/zBhJQJer

(С) VANS