Bablosoft

Внедрение Tor

Запросы функционала
  • M

    http://rgho.st/74xP8ZzxT

    S 1 Reply
    2
  • S

    @MAKAR Спасибо, буду разбираться

    M 1 Reply
    0
  • M

    @seedgg это конкретно тот, что я скачал, себе я переделал вбсник чтоб количество экземпляров передавалось в параметрах запуска. смена айпи для запущенного тора

    tor-NEWNYM.exe номер_порта
    V 2 Replies
    2
  • V

    @MAKAR спасибо, прекрасная вещь. А как его переделать под передачу параметров запуска?
    upd. Уже переделал

    1
  • V
    This post is deleted!
    0
  • V

    Столкнулся с проблемой использования. Юзаю связку tor-proxifier
    Так вот, ГЕТ-запрос не идет. Если включен один tor, то идет.
    Как бы подружить ГЕТ-запрос с proxifieroм?
    Немного почитал, оказывается это проблема.
    Или подскажите, через какой порт идут ГЕТ-запросы, я его открою и делу конец.

    M 1 Reply
    0
  • M

    @Viktor Помочь не могу, в своем проекте использую гет запросы только в момент смены ip для его проверки, все грузит нормально.

    V 2 Replies
    0
  • V

    @MAKAR проблема в proxifiere. Нда. Буду копать, что еще делать.

    0
  • V

    @MAKAR а есть варик заставлять уже запущенный ТОР прибавлять процессы и менять фал proxylist.txt? Маловато мне стало стандартного мультиТОРа, хочется сразу два скрипта запустить...

    M 1 Reply
    0
  • M

    @Viktor запускай сколько нужно, хоть тысячу, главное, чтоб железо тянуло с сетью. Прибавлять можно в БАСе, просто переделай скрипт, чтоб не количество экземпляров указывать в параметрах, а порт. И вызывай, когда нужен еще один.

    V 1 Reply
    0
  • V

    @MAKAR уточни пожалуйста, что именно туда нужно вставить. Пока добился только того, что он создает еще один экземпляр ТОРа, который тут же гибнет

    M 1 Reply
    0
  • M

    @Viktor без записи в файл. Порт должен быть больше 1001, логично в БАСе как-либо подбирать следующий за уже открытыми.

    Set objArgs = WScript.Arguments 
Port= objArgs(0) ' Количество запускаемых прокси
CPort= objArgs(0)-1000
countries = "" ' Например "{ru},{ua}". Пустое значение - любая страна

If Not (countries = "") Then
  countries = " -ExitNodes " & countries
End If

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "tor.exe -f torrc -SocksPort " & Port & " -ControlPort " & CPort & " -DataDirectory %temp%\tor" & i & countries, 0
WshShell = Null
    V 1 Reply
    0
  • GangG

    Очень давно пользовался этим решением http://zennolab.com/discussion/threads/tor-proxy-mnogopotochnyj.14958/ Можете открыть шаб в демке Зеннопостера и попробовать адаптировать в БАС

    M 1 Reply
    0
  • V

    @MAKAR получилась такая штука:

    proxycount = 1
countries = "" ' �������� "{ru},{ua}". ������ �������� - ����� ������
' �� ������������ ���� ���� �����
' DO NOT EDIT below this line
Set objArgs = WScript.Arguments 

For i=0 To proxycount-1 Step 1

Port= objArgs(0) ' Количество запускаемых прокси
CPort= objArgs(0)-1000
	
	If Not (countries = "") Then
            countries = " -ExitNodes " & countries
    End If
	
	Set WshShell = CreateObject("WScript.Shell")
	WshShell.Run "data\tor.exe -f data\torrc -SocksPort " & Port & " -ControlPort " & CPort & " -DataDirectory data\torf" & i & countries, 0
	WshShell = Null
	


Next

f.Close

    Ошибка в строке 9 символ 1 - выходит за пределы допустимого диапазона. Извини если чо, но я внатури дуб, в этом языке не шарю от слова никак.

    M 1 Reply
    0
  • M

    @Gang это оно и есть

    0
  • M

    @Viktor ошибка потому, что ты просто запустил скрипт двойным щелчком. а нужно из командной строки с параметром, в котором твой порт. например, скрипт tor.vbs, порт 8888

    tor 8888
    V 1 Reply
    0
  • V

    @MAKAR понял ошибку, запустил из командной строки, как ты сказал: ругается на f.close "требуется объект f"
    убирать f, или f.close не помогает. Ошибку не выдает, но и еще один процесс не делает

    M 1 Reply
    0
  • M

    @Viktor f.close можно убрать, это закрытие файла, в который должен был записаться список проксей, но его нет. если не запускается, проверь пути и имена файлов в этой строке

    WshShell.Run "data\tor.exe -f data\torrc -SocksPort " & Port & " -ControlPort " & CPort & " -DataDirectory data\torf" & i & countries, 0

    data\tor.exe data\torrc data\torf может быть нужно изменить
    V 3 Replies
    0
  • V

    @MAKAR все точно также, как и в исходнике. Создает процесс тор, очень маленький, до мегабайта, и тот тут же помирае

    0
  • V

    @MAKAR

    proxycount = 1
countries = "" ' �������� "{ru},{ua}". ������ �������� - ����� ������
' �� ������������ ���� ���� �����
' DO NOT EDIT below this line
Set objArgs = WScript.Arguments 
For i=0 To proxycount-1 Step 1
Port= objArgs(0) ' Количество запускаемых прокси
CPort= objArgs(0)-1000
	If Not (countries = "") Then
        countries = " -ExitNodes " & countries
    End If
	Set WshShell = CreateObject("WScript.Shell")
	WshShell.Run "data\tor.exe -f data\torrc -SocksPort " & Port & " -ControlPort " & CPort & " -DataDirectory data\torf" & i & countries, 0
	WshShell = Null
	Next
    0