<?xml version="1.0" encoding="koi8-r"?>
<rss version="0.91">
<channel>
    <title>OpenForum RSS: ActivePerl SSH W32Perl Проблема Подключения.</title>
    <link>https://www.opennet.ru/openforum/vsluhforumID9/6875.html</link>
    <description>Проблема такая&lt;br&gt;Код:&lt;br&gt;&lt;br&gt;use strict; use Net::SSH::W32Perl; &lt;br&gt;use Math::BigInt::Calc (); &lt;br&gt;use Net::SSH::Perl::Cipher; &lt;br&gt;my $host = &quot;xxxxxxxxxxxxxxxxx&quot;; &lt;br&gt;my $user = &quot;root&quot;; &lt;br&gt;my $pass = &quot;xxxxxxxxxxxxxxxxx&quot;; &lt;br&gt;my $cmd = &quot;ls -al&quot;; &lt;br&gt;my $ssh = new Net::SSH::W32Perl($host, protocol =&amp;gt; 2, debug=&amp;gt;1); &lt;br&gt;&lt;br&gt;my ($stdout, $stderr, $exit) = $ssh-&amp;gt;cmd($cmd,&quot;&#092;n&quot;); &lt;br&gt;print &quot;Error = $stderr &#092;n Out = $stdout &#092;n Error = $exit&quot;; exit 0;&lt;br&gt;&lt;br&gt;&lt;br&gt;Вот что выдает&lt;br&gt;&lt;br&gt;Slawka_Book: Remote protocol version 1.99, remote software version OpenSSH_3.9p1&lt;br&gt;Slawka_Book: Net::SSH::Perl Version 1.30, protocol version 2.0.&lt;br&gt;Slawka_Book: No compat match: OpenSSH_3.9p1.&lt;br&gt;Slawka_Book: Connection established.&lt;br&gt;Slawka_Book: Sent key-exchange init (KEXINIT), wait response.&lt;br&gt;Slawka_Book: Algorithms, c-&amp;gt;s: 3des-cbc hmac-sha1 none&lt;br&gt;Slawka_Book: Algorithms, s-&amp;gt;c: 3des-cbc hmac-sha1 none&lt;br&gt;Slawka_Book: Entering Diffie-Hellman Group 1 key exchange.&lt;br&gt;Slawka_Book: Sent DH public key, waiting for reply.&lt;br&gt;Slawka_Book: Received host key, type &apos;ssh-dss&apos;.&lt;br&gt;Slawka_Book</description>

<item>
    <title>ActivePerl SSH W32Perl Проблема Подключения. (Василий Алибабаевич)</title>
    <link>https://www.opennet.ru/openforum/vsluhforumID9/6875.html#5</link>
    <pubDate>Wed, 24 Nov 2010 10:25:24 GMT</pubDate>
    <description>&amp;gt;&amp;gt;Slawka_Book: Entering interactive session. &lt;br&gt;&amp;gt;&amp;gt;Slawka_Book: Sending command: cat &lt;br&gt;&amp;gt;&amp;gt;Slawka_Book: Requesting service exec on channel 1. &lt;br&gt;&amp;gt;&amp;gt;Slawka_Book: channel 1: send eof &lt;br&gt;&amp;gt;&amp;gt;Slawka_Book: channel 1: open confirm rwindow 131043 rmax 32768 &lt;br&gt;&amp;gt;&amp;gt;&lt;br&gt;&amp;gt;&amp;gt;Далее просто висит =( &lt;br&gt;&amp;gt;&amp;gt;&lt;br&gt;&amp;gt;&amp;gt;Что делать Помогните &lt;br&gt;&lt;br&gt;Чтобы не вис надо подправить библиотеку perl.pm в c:/perl/site/lib/Net/SSH&lt;br&gt;строку (&amp;#8470;50)  my $proto_class = join &apos;::&apos;, __PACKAGE__,($proto == PROTOCOL_SSH2 ? &quot;SSH2&quot; : &quot;SSH1&quot;); надо закоментить, и написать следующее:&lt;br&gt;my $proto_class = $ssh-&amp;gt;protocol_class($proto);&lt;br&gt;&lt;br&gt;НЕДЕЛЮ МУЧИЛСЯ!!!!&lt;br&gt;&lt;br&gt;&lt;br&gt;</description>
</item>

<item>
    <title>ActivePerl SSH W32Perl Проблема Подключения. (Сергей)</title>
    <link>https://www.opennet.ru/openforum/vsluhforumID9/6875.html#4</link>
    <pubDate>Thu, 14 Aug 2008 11:40:15 GMT</pubDate>
    <description>&amp;gt;&#091;оверквотинг удален&#093;&lt;br&gt;&amp;gt;&lt;br&gt;&amp;gt;my ($stdout, $stderr, $exit) = $ssh-&amp;gt;cmd($cmd,&quot;&#092;n&quot;); &lt;br&gt;&amp;gt;print &quot;Error = $stderr &#092;n Out = $stdout &#092;n Error = $exit&quot;; &lt;br&gt;&amp;gt;exit 0; &lt;br&gt;&amp;gt;&lt;br&gt;&amp;gt;&lt;br&gt;&amp;gt;Вот что выдает &lt;br&gt;&amp;gt;&lt;br&gt;&amp;gt;Slawka_Book: Remote protocol version 1.99, remote software version OpenSSH_3.9p1 &lt;br&gt;&amp;gt;Slawka_Book: Net::SSH::Perl Version 1.30, protocol version 2.0. &lt;br&gt;&lt;br&gt;...&lt;br&gt;&lt;br&gt;&amp;gt;Slawka_Book: Entering interactive session. &lt;br&gt;&amp;gt;Slawka_Book: Sending command: cat &lt;br&gt;&amp;gt;Slawka_Book: Requesting service exec on channel 1. &lt;br&gt;&amp;gt;Slawka_Book: channel 1: send eof &lt;br&gt;&amp;gt;Slawka_Book: channel 1: open confirm rwindow 131043 rmax 32768 &lt;br&gt;&amp;gt;&lt;br&gt;&amp;gt;Далее просто висит =( &lt;br&gt;&amp;gt;&lt;br&gt;&amp;gt;Что делать Помогните &lt;br&gt;&lt;br&gt;Аналогичная фигня.&lt;br&gt;опытным путём установлено, что при использовании SSH Protocol v1 такого нет.&lt;br&gt;&lt;br&gt;т.е.&lt;br&gt;my $ssh = new Net::SSH::W32Perl($host, protocol =&amp;gt; 1, debug=&amp;gt;1); &lt;br&gt;&lt;br&gt;должен решить проблему&lt;br&gt;</description>
</item>

<item>
    <title>ActivePerl SSH W32Perl Проблема Подключения. (Arifolth)</title>
    <link>https://www.opennet.ru/openforum/vsluhforumID9/6875.html#3</link>
    <pubDate>Thu, 01 Nov 2007 10:42:56 GMT</pubDate>
    <description>&amp;gt;&#091;оверквотинг удален&#093;&lt;br&gt;&amp;gt;Slawka_Book: Requesting channel_open for channel 1. &lt;br&gt;&amp;gt;Slawka_Book: Entering interactive session. &lt;br&gt;&amp;gt;Slawka_Book: Sending command: cat &lt;br&gt;&amp;gt;Slawka_Book: Requesting service exec on channel 1. &lt;br&gt;&amp;gt;Slawka_Book: channel 1: send eof &lt;br&gt;&amp;gt;Slawka_Book: channel 1: open confirm rwindow 131043 rmax 32768 &lt;br&gt;&amp;gt;&lt;br&gt;&amp;gt;Далее просто висит =( &lt;br&gt;&amp;gt;&lt;br&gt;&amp;gt;Что делать Помогните &lt;br&gt;&lt;br&gt;может не совсем в тему но:&lt;br&gt;была у меня некая проблема с запуском ssh клиента под виндоус из под сервиса. он висел (то ли ещё до коннекта то ли после). (правда был он скомпилён под cygwin, а выполнять он должен был программу после коннекта, аутентификация была по ключам)&lt;br&gt;там нужно было где то в настройках службы из под которой он запускался вроде поставить флажок доступ к десктопу или что то в этом роде. сча виндоуса под рукой нет точно сказать не могу. но я думаю рыть надо сюда.&lt;br&gt;&lt;br&gt;</description>
</item>

<item>
    <title>ActivePerl SSH W32Perl Проблема Подключения. (Kavkaz)</title>
    <link>https://www.opennet.ru/openforum/vsluhforumID9/6875.html#2</link>
    <pubDate>Wed, 24 Oct 2007 08:59:08 GMT</pubDate>
    <description>&amp;gt;&#091;оверквотинг удален&#093;&lt;br&gt;&amp;gt;Код: &lt;br&gt;&amp;gt;&lt;br&gt;&amp;gt;use strict; use Net::SSH::W32Perl; &lt;br&gt;&amp;gt;use Math::BigInt::Calc (); &lt;br&gt;&amp;gt;use Net::SSH::Perl::Cipher; &lt;br&gt;&amp;gt;my $host = &quot;xxxxxxxxxxxxxxxxx&quot;; &lt;br&gt;&amp;gt;my $user = &quot;root&quot;; &lt;br&gt;&amp;gt;my $pass = &quot;xxxxxxxxxxxxxxxxx&quot;; &lt;br&gt;&amp;gt;my $cmd = &quot;ls -al&quot;; &lt;br&gt;&amp;gt;my $ssh = new Net::SSH::W32Perl($host, protocol =&amp;gt; 2, debug=&amp;gt;1); &lt;br&gt;&lt;br&gt;сам не знаю, да и читать лень, но кое что вродь не сходится, логин/пасс объявили, а при создании объекта вроде не использовали...&lt;br&gt;&lt;br&gt;вы конечно можете ткнуть сюда:&lt;br&gt;&amp;gt;Slawka_Book: Trying password authentication.&lt;br&gt;&amp;gt;Slawka_Book: Login completed, opening dummy shell channel.&lt;br&gt;&amp;gt;Slawka_Book: channel 0: new &#091;client-session&#093; ...&lt;br&gt;&lt;br&gt;то бишь может доки к модулю перечитать..?&lt;br&gt;</description>
</item>

<item>
    <title>ActivePerl SSH W32Perl Проблема Подключения. (NuINu)</title>
    <link>https://www.opennet.ru/openforum/vsluhforumID9/6875.html#1</link>
    <pubDate>Mon, 22 Oct 2007 12:13:11 GMT</pubDate>
    <description>&lt;br&gt;&amp;gt;Далее просто висит =( &lt;br&gt;&amp;gt;&lt;br&gt;&amp;gt;Что делать Помогните &lt;br&gt;&lt;br&gt;Да и рад бы помочь, но где виндовс то взять?&lt;br&gt;&lt;br&gt;</description>
</item>

</channel>
</rss>
