Bablosoft

Внедрение Tor

Запросы функционала
  • 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
  • V

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

    M 1 Reply
    0
  • M

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

    V 1 Reply
    0
  • V

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

    0
  • FoxF

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

    V 1 Reply
    0
  • V

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

    0
  • kainK

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

    0
  • P

    Я можно ли сделать как в zenno запуск?
    Я вот подумал оформить через запустить процесс.
    Но вопрос как там прописать порт

    0
  • S
    This post is deleted!
    0