来自Perl的TOR控制协议

我基本上是通过绑定到内部端口来进行

signal newnym

调用。只是为了测试，我正在尝试没有任何身份验证字段的时刻

在telnet中，如果我只调用

AUTHENTICATE

，我将获得身份验证，然后可以继续发送呼叫信号

在同时使用和

send

方法的perl中，我最终出现以下错误：

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

打印“SIG-TOR:连接…”；
my$TORSOCK=新IO:：Socket:：INET(
PeerAddr=>$torcont，
PeerPort=>$torconp，
Proto=>“tcp”
);
$TORSOCK或die“无插座：$！”；
打印“确定！\n”；
打印“签名者：验证…”；
打印$TORSOCK$torauth；
而（）{
打印美元；
}
打印“确定！\n”；
睡眠（1）；

来自

551无效的带引号的字符串。您需要在双引号中输入密码

我可以推断出有必要

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

但是您需要确定$torauth中的内容。

来自

551无效的带引号的字符串。您需要在双引号中输入密码

我可以推断出有必要

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

---

但是您需要确定$torauth中的值是什么。

什么是

$torauth

？什么是

$torauth

？