perl - Perl 的 TOR 控制协议(protocol)

Question

我正在尝试制作一个 signal newnym调用Tor control protocol绑定(bind)到内部端口。只是为了测试，我目前正在尝试没有任何身份验证字段。

在 telnet 中，如果我只是调用 AUTHENTICATE我通过了身份验证，然后可以继续发出调用信号。

在 perl 中同时使用 IO::Socket , 和 Socket send我最终遇到此错误的方法:

551 Invalid quoted string. You need to put the password in double quotes.

我在 IO::Socket 中使用的示例调用大致如下所示:

print "SIG-TOR:Connecting...";

my $TORSOCK = new IO::Socket::INET(
    PeerAddr => $torcont,
    PeerPort => $torconp,
    Proto    => 'tcp'
);
$TORSOCK or die "no socket :$!";

print "OK!\n";

print "SIG-TOR:authenticating...";

print $TORSOCK $torauth;

while (<$TORSOCK>) {
    print $_;
}

print "OK!\n";
sleep(1);

Answer 1

从

551 Invalid quoted string. You need to put the password in double quotes.

我会推断需要

print $TORSOCK '"', $torauth, '"';

但是你需要是 某些 $torauth 中有什么。