Perl的TOR控制协议

时间:2010-12-01 01:41:41

标签: perl sockets controls tor

我试图通过绑定到内部端口的Tor control protocol进行signal newnym调用。仅仅是为了测试我现在正在尝试没有任何auth字段。

在telnet中,如果我只是致电AUTHENTICATE,我会通过身份验证,然后继续发出信号通话。

在perl中使用 IO::SocketSocket send方法我最终会遇到此错误:

  

551引用的字符串无效。您需要将密码用双引号括起来。

我在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);

1 个答案:

答案 0 :(得分:1)

  

551引用的字符串无效。您需要将密码用双引号括起来。

我推断需要

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

但你需要某些 $ torauth中的内容。