web-dev-qa-db-ja.com

Torをプロキシとして使用

Tor-ServerをHttpWebRequestのプロキシとして使用しようとしています。コードは次のようになります。

_HttpWebRequest request;
HttpWebResponse response;

request = (HttpWebRequest)WebRequest.Create("http://www.google.com");
request.Proxy = new WebProxy("127.0.0.1:9051");

response = (HttpWebResponse)request.GetResponse();
response.Close();
_

「通常の」プロキシで完璧に機能しますが、Torで呼び出し中に例外が発生します

GetResponse() with Status = ServerProtocolViolation. The message is (in German...):Message = "Der Server hat eine Protokollverletzung ausgeführt.. Section=ResponseStatusLine"

c#proxyhttpwebrequesttor
34
Lay

privoxy をインストールして実行している場合は、次のことができます

request.Proxy = new WebProxy("127.0.0.1:8118"); // default privoxy port

あなたはtorを使ってリクエストをすることができます

34
Christopher Tarquini

Torはnot HTTPプロキシです。これはSOCKSプロキシです。 SOCKS（Privoxyなど）での転送をサポートするHTTPプロキシを使用して、代わりにコード経由でそれに接続できます。

23
Mehrdad Afshari

はい、他のポスターが言ったように、靴下クライアントが必要です。一部のライブラリは Starksoft Proxy 、 ProxySocket および ComponentSpace Socks Proxy です。 sockscap はwinsock呼び出しをインターセプトして転送するツールであり、 privoxy はソックスを介してリクエストをトンネリングできるローカルプロキシです。いくつかの異なるソリューション。

8
jspcal

ライブラリ「SocksWebProxy」を使用してください。 WebClient＆WebRequestで使用できます（* .Proxy属性に新しいSocksWebProxyを割り当てるだけです）。 HTTPトラフィックをTorに変換するためのPrivoxyまたは同様のサービスは必要ありません。

https://github.com/Ogglas/SocksWebProxy

制御ポートを有効にすることで、いくつかの拡張も行いました。 Torブラウザバンドルを起動せずにバックグラウンドでTorを実行する方法を次に示します。Tornetを制御するか、Socketを介してプログラムでコマンドを送信できます。

Socket server = null;

//Authenticate using control password
IPEndPoint endPoint = new IPEndPoint(IPAddress.Parse("127.0.0.1"), 9151);
server = new Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp);
server.Connect(endPoint);
server.Send(Encoding.ASCII.GetBytes("AUTHENTICATE \"your_password\"" + Environment.NewLine));
byte[] data = new byte[1024];
int receivedDataLength = server.Receive(data);
string stringData = Encoding.ASCII.GetString(data, 0, receivedDataLength);

//Request a new Identity
server.Send(Encoding.ASCII.GetBytes("SIGNAL NEWNYM" + Environment.NewLine));
data = new byte[1024];
receivedDataLength = server.Receive(data);
stringData = Encoding.ASCII.GetString(data, 0, receivedDataLength);
if (!stringData.Contains("250"))
{
    Console.WriteLine("Unable to signal new user to server.");
    server.Shutdown(SocketShutdown.Both);
    server.Close();
}
else
{
    Console.WriteLine("SIGNAL NEWNYM sent successfully");
}

Torを設定する手順：

  1. Torrc-defaultsをtor.exeがあるディレクトリにコピーします。 Torブラウザを使用している場合のデフォルトのディレクトリは、「〜\ Tor Browser\Browser\TorBrowser\Data\Tor」です。
  2. コマンドプロンプトウィンドウを開く
  3. tor.exeがあるディレクトリにchdirします。 Torブラウザを使用している場合のデフォルトディレクトリは、「〜\ Tor Browser\Browser\TorBrowser\Tor \」です。
  4. Tor制御ポートアクセスのパスワードを生成します。 tor.exe --hash-password “your_password_without_hyphens” | more
  5. ControlPort 9151のtorrc-defaultsにパスワードpassword hashを追加します。次のようになります。hashedControlPassword 16:3B7DA467B1C0D550602211995AE8D9352BF942AB04110B2552324B2507。パスワードを「パスワード」として受け入れる場合は、上記の文字列をコピーできます。
  6. 起動すると、Tornetを介してTorコントロールにアクセスできるようになります。コードを実行できるようになりました。プログラムでTorファイルが配置されている場所へのパスを編集するだけです。 Telnetを介してTorを変更するテスト：
  7. 次のコマンドでtorを開始します：tor.exe -f .\torrc-defaults
  8. 別のcmdプロンプトを開き、次のように入力します：telnet localhost 9151
  9. すべてがうまくいくと、完全に黒い画面が表示されます。 「autenticate “your_password_with_hyphens” "すべてがうまくいけば、" 250 OK "と表示されるはずです。
  10. 「SIGNAL NEWNYM "すると、新しいルート、新しいIPが取得されます。問題がなければ、[250 OK]と表示されます。
  11. 「setevents circ "（回路イベント）でコンソール出力を有効にします
  12. 「getinfo circuit-status "現在の回路を表示するには
4
Ogglas

靴下からストリームを「抽出」する必要があります...

Imports System.IO
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports System.Runtime.CompilerServices

Public Class Form1

    Sub Form1_Load() Handles Me.Load

        Dim Host As String = "google.com"

        Dim P As New SocksProxy("localhost", 64129) 'Set your socks proxy here
        Dim Stream As NetworkStream = P.GetStream(Host, 80)
        Dim buffer As Byte() = Download(Stream, Host, "")

        My.Computer.FileSystem.WriteAllBytes("C:\webpage.html", buffer, False)

        MsgBox("ok")
    End Sub

    Function Download(Stream As NetworkStream, Host As String, Resource As String) As Byte()

        Using writer = New StreamWriter(Stream)
            writer.Write(String.Format("GET /{2} HTTP/1.1{0}Host: {1}{0}{0}", vbCrLf, Host, Resource))
            writer.Flush()

            Dim byteList As New List(Of Byte)
            Dim bufferSize As Integer = 4096
            Dim buffer(bufferSize - 1) As Byte

            Do
                Dim bytesRead As Integer = Stream.Read(buffer, 0, bufferSize)
                byteList.AddRange(buffer.Take(bytesRead))
            Loop While Stream.DataAvailable

            Return byteList.ToArray
        End Using

    End Function
End Class


Public Class SocksProxy

    Private _SocksHost As String
    Private _SocksPort As Integer

    Sub New(SocksHost As String, SocksPort As Integer)
        _SocksHost = SocksHost
        _SocksPort = SocksPort
    End Sub

    Function GetStream(HostDest As String, PortDest As Short) As NetworkStream

        Dim client As TcpClient = New TcpClient()
        client.Connect(_SocksHost, _SocksPort)

        Dim stream As NetworkStream = client.GetStream()
        'Auth
        Dim buf = New Byte(299) {}
        buf(0) = &H5
        buf(1) = &H1
        buf(2) = &H0
        stream.Write(buf, 0, 3)

        ReadExactSize(stream, buf, 0, 2)
        If buf(0) <> &H5 Then
            Throw New IOException("Invalid Socks Version")
        End If
        If buf(1) = &HFF Then
            Throw New IOException("Socks Server does not support no-auth")
        End If
        If buf(1) <> &H0 Then
            Throw New Exception("Socks Server did choose bogus auth")
        End If

        buf(0) = &H5
        buf(1) = &H1
        buf(2) = &H0
        buf(3) = &H3
        Dim domain = Encoding.ASCII.GetBytes(HostDest)
        buf(4) = CByte(domain.Length)
        Array.Copy(domain, 0, buf, 5, domain.Length)
        Dim port = BitConverter.GetBytes(IPAddress.HostToNetworkOrder(CShort(PortDest)))
        buf(5 + domain.Length) = port(0)
        buf(6 + domain.Length) = port(1)
        stream.Write(buf, 0, domain.Length + 7)


        ' Reply
        ReadExactSize(stream, buf, 0, 4)
        If buf(0) <> &H5 Then
            Throw New IOException("Invalid Socks Version")
        End If
        If buf(1) <> &H0 Then
            Throw New IOException(String.Format("Socks Error {0:X}", buf(1)))
        End If
        Dim rdest = String.Empty
        Select Case buf(3)
            Case &H1
                ' IPv4
                ReadExactSize(stream, buf, 0, 4)
                Dim v4 = BitConverter.ToUInt32(buf, 0)
                rdest = New IPAddress(v4).ToString()
                Exit Select
            Case &H3
                ' Domain name
                ReadExactSize(stream, buf, 0, 1)
                If buf(0) = &HFF Then
                    Throw New IOException("Invalid Domain Name")
                End If
                ReadExactSize(stream, buf, 1, buf(0))
                rdest = Encoding.ASCII.GetString(buf, 1, buf(0))
                Exit Select
            Case &H4
                ' IPv6
                Dim octets = New Byte(15) {}
                ReadExactSize(stream, octets, 0, 16)
                rdest = New IPAddress(octets).ToString()
                Exit Select
            Case Else
                Throw New IOException("Invalid Address type")
        End Select
        ReadExactSize(stream, buf, 0, 2)
        Dim rport = CUShort(IPAddress.NetworkToHostOrder(CShort(BitConverter.ToUInt16(buf, 0))))

        Return stream
    End Function

    Private Sub ReadExactSize(stream As NetworkStream, buffer As Byte(), offset As Integer, size As Integer)
        While size <> 0
            Dim read = stream.Read(buffer, offset, size)
            If read < 0 Then
                Throw New IOException("Premature end")
            End If
            size -= read
            offset += read
        End While
    End Sub

End Class
0
Fernando Reis Guimaraes