Внедрение Tor

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 да цикл вобщем то низачем:) Хотя можно воткнуть проверку и задавать нужно кол-во дополнительных потоков. Но щас этого не надо, и так более чем достаточно :)

Fox

Использование тора подразумевает лишь прокси? Отпечаток нужно дополнительно менять?

Viktor

@Fox tor, это только прокси. Точнее, цепочка прокси. Все сделано ради анонимности, в ущерб скорости. 9 из 10 выходных нод в черных списках. Но много где работает.

kain

Может мне кто-то как тупому объяснить как это использовать? Или пример проекта показать