Внедрение Tor

Viktor

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

Viktor

This post is deleted!

Viktor

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

MAKAR

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

Viktor

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

Viktor

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

MAKAR

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

Viktor

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

MAKAR

@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

Gang

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

Viktor

@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 - выходит за пределы допустимого диапазона. Извини если чо, но я внатури дуб, в этом языке не шарю от слова никак.

MAKAR

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

MAKAR

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

tor 8888

Viktor

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

MAKAR

@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 может быть нужно изменить

Viktor

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

Viktor

@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

Viktor

@MAKAR спасибо бро, я допер что делать. Вместо i вставил Port, и все запахало, спасибо

MAKAR

@Viktor а ну да, тогда зачем цикл?) просто в том, что я кинул, пути свои можно указать и все.

Viktor

@MAKAR да цикл вобщем то низачем:) Хотя можно воткнуть проверку и задавать нужно кол-во дополнительных потоков. Но щас этого не надо, и так более чем достаточно :)