Протокол управления TOR от Perl - PullRequest
Новая
       10

Протокол управления TOR от Perl

1 голос
/ 01 декабря 2010

Я пытаюсь сделать signal newnym вызов через Протокол управления Tor , привязанный к внутреннему порту. Просто для тестирования я пытаюсь без какого-либо поля авторизации в данный момент.

В telnet, если я просто позвоню AUTHENTICATE, я получу аутентификацию и затем смогу перейти к сигнальным вызовам.

В perl с использованием обоих IO :: Socket и Socket 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 Ответ

1 голос
/ 01 декабря 2010

С

551 Неверная строка в кавычках.Вам нужно поставить пароль в двойные кавычки.

Я бы сделал вывод о необходимости 

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

Но вы должны быть уверены , что в $torauth.

...