来自Perl的TOR控制协议

Question

我试图基本上通过Tor control protocol呼叫signal newnym呼叫绑定到一个内部端口。为了测试，我现在尝试没有任何授权字段。

在telnet中，如果我只是拨打AUTHENTICATE，我会得到身份验证，然后可以继续进行信号调用。

在Perl中使用都IO::Socket和Socketsend方法，我结束了这个错误：

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

我正在使用IO ::插座示例调用看起来大约是这样的：

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。