perl - 在 IO::Socket::SOCKS 代理上使用 IO::Socket::SSL

Question

我想混合使用 SSL 和 SOCKS 套接字。换句话说，我想通过 SOCKS 代理发送 TLS 加密数据，我想使用 IO::Socket::SSL 和 IO::Socket::Socks

我能想到的唯一选择是将 IO::Socket::SSL 复制到继承自 IO::Socket::Socks 的 IO::Socket::SocksSSL 类中。这是获得正确订单(例如发送)的唯一方法。我首先需要调用 SSL 方法，然后它将调用父 (IO::Socket::Socks) 发送。对于连接，SSL 连接将调用 Socks 连接，然后开始 TLS 协商。

不幸的是，IO::Socket::SSL 没有 $SOCKET_CLASS var 允许子类轻松决定它继承自什么，所以我更改了 SSL.pm 中的那一行并复制所有代码

我可能在这里遗漏了一些东西

Answer 1

为 TCP(以及 SSL)使用 SOCKS 代理本质上意味着首先创建一个 TCP 套接字，进行一些初始 SOCKS 握手，然后像使用普通 TCP 套接字一样继续使用该套接字。 IO::Socket::Socks->new(...) 执行初始 SOCKS 握手并返回正常的 TCP 套接字。 IO::Socket::SSL->start_SSL($socket,...) 然后在此套接字上执行 TLS 握手。将两者结合起来本质上与 IO::Socket::SSL->new(...) 相同，只是使用 SOCKS 代理而不是直接连接。

因此代码可能看起来像这样:

use strict;
use warnings;
use IO::Socket::Socks;
use IO::Socket::SSL;

# establish TCP connection to target via SOCKS proxy
my $cl = IO::Socket::Socks->new(
    ProxyAddr => '127.0.0.1',
    ProxyPort => 1234,
    ConnectAddr => 'whatsmyip.net',
    ConnectPort => 443
) or die $!;

# upgrade the TCP socket to TLS
IO::Socket::SSL->start_SSL($cl,
    # hostname is needed for SNI and certificate validation
    SSL_hostname => 'whatsmyip.net'
) or die $SSL_ERROR;

# do a simple HTTP request on it
print $cl "GET / HTTP/1.0\r\nHost: whatsmyip.net\r\n\r\n";
print <$cl>;