ssh-sftp-perl-users — For users and developers of the Perl SSH and SFTP modules

[Fwd: [Ssh-sftp-perl-users] register_handler with shell ??]

[Michael G. <mic...@pa...>]

Hello,

    So is it possible to use register_handler with the shell ?

Michael

-------- Original Message --------
Subject: 	[Ssh-sftp-perl-users] register_handler with shell ??
Date: 	Thu, 06 Oct 2005 14:17:31 -0600
From: 	Michael Gale <mic...@pa...>
To: 	ssh...@li...



Hello,

   I am trying to write a scipt that will connect using SSH and be used 
interactively. I would also like to be able to use register_handler ?

My script below only works with $ssh->cmd and not $ssh->shell

$ssh->register_handler(SSH_SMSG_STDOUT_DATA, sub {
 my ($ssh,$packet) = @_;
 my $str = $packet->get_str;

 print "\nFOUND: ",$str;

});


##

eval "use Term::ReadKey;";
   ReadMode('raw');
   eval "END { ReadMode('restore') };";
   #$ssh->cmd('ls');
   $ssh->shell;

print "Connection to $host closed.\n";


Michael


-------------------------------------------------------
This SF.Net email is sponsored by:
Power Architecture Resource Center: Free content, downloads, discussions,
and more. http://solutions.newsforge.com/ibmarch.tmpl
_______________________________________________
Ssh-sftp-perl-users mailing list
Ssh...@li...
https://lists.sourceforge.net/lists/listinfo/ssh-sftp-perl-users

Re: [Ssh-sftp-perl-users] Slow Authentication Solved !!!!

[Rob V. <rob...@br...>]

Works for me 2.

Thanks for the tip.

Rob

Op wo, 12-10-2005 te 18:05 -0400, schreef David M. Funk:
> I got my Perl script authentication time down to 3 seconds!!!!
>=20
> Here's how=E2=80=A6.  (Hope it works for you)
>=20
> I installed IO::Handle
>=20
> Then installed Math::BigInt::GMP
>=20
> Tried my script and BAM 3 seconds to complete=E2=80=A6
>=20
> Good Luck,
>=20
> David M. Funk=20
> President/CEO=20
>  =20
> Tivoli Certified Enterprise Consultant=20
> Specializing in Network and Systems Management Solutions
>=20
> Trinity Solutions           =20
> 604 Cassandra Dr.        =20
> Cranberry Twp., PA 16066=20
>  =20
> Phone: 724-316-0721                    =20
> Fax:     724-772-7889 =20
> email: mf...@tr...=20
> http://www.trinitysol.net
>=20
>=20
>=20
>=20
> =20
>=20

[Ssh-sftp-perl-users] Can't locate object method "blocking" via package "IO::Handle"

[David M. F. <mf...@tr...>]

The old..

Can't locate object method "blocking" via package "IO::Handle"

has come back to haunt us=85

I upgraded to Net::SSH::Perl v 1.29  and get this error when I try to
connect to one of my servers.

All other servers work fine.

Now Cisco  hmm=85 that's another animal all together.

I get this error:

tcp_rs60001: Channel open failure: 1: reason 4:

Any one got ideas????

David M. Funk
President/CEO
=20
Tivoli Certified Enterprise Consultant
Specializing in Network and Systems Management Solutions

Trinity Solutions          =20
604 Cassandra Dr.       =20
Cranberry Twp., PA 16066
=20
Phone: 724-316-0721                   =20
Fax:     724-772-7889=20
email: mf...@tr...
http://www.trinitysol.net




=20

[Ssh-sftp-perl-users] Slow Authentication Solved !!!!

[David M. F. <mf...@tr...>]

I got my Perl script authentication time down to 3 seconds!!!!

Here's how=85.  (Hope it works for you)

I installed IO::Handle

Then installed Math::BigInt::GMP

Tried my script and BAM 3 seconds to complete=85

Good Luck,

David M. Funk
President/CEO
=20
Tivoli Certified Enterprise Consultant
Specializing in Network and Systems Management Solutions

Trinity Solutions          =20
604 Cassandra Dr.       =20
Cranberry Twp., PA 16066
=20
Phone: 724-316-0721                   =20
Fax:     724-772-7889=20
email: mf...@tr...
http://www.trinitysol.net




=20

[Ssh-sftp-perl-users] Net::SFTP dsa vs rsa

[David M. F. <mf...@tr...>]

If I change my config file to id_rsa all works great... no password,
etc... 
If I change my config file: to id_dsa I get permission denied.. 
$ /usr/tivoli/scripts/sftp.pl -l ./ -r / -f dmf.test -c put -d 0

User-->mfunk Home-->/home/mfunk IDFile-->
Remote User-->sftptest Host-->tcpproject
Host->tcpproject Local Path-->./ Remote Path-->/ File-->dmf.test
CMD-->put RemFlag-->0
Starting SFTP Session at Mon Oct 10 17:03:20 EDT 2005 for
tcpproject..........................
************************************************
Attempting to log into tcpproject using user->sftptest
tcp_rs60001: Reading configuration data /home/mfunk/.ssh/config
tcp_rs60001: Reading configuration data /etc/ssh_config
tcp_rs60001: Connecting to tcpproject, port 22.
tcp_rs60001: Remote protocol version 2.0, remote software version 1.36
sshlib: GlobalScape
tcp_rs60001: Net::SSH::Perl Version 1.28, protocol version 2.0.
.cp_rs60001: No compat match: 1.36 sshlib: GlobalScape
tcp_rs60001: Connection established.
tcp_rs60001: Sent key-exchange init (KEXINIT), wait response.
tcp_rs60001: Algorithms, c->s: 3des-cbc hmac-sha1 zlib
tcp_rs60001: Algorithms, s->c: 3des-cbc hmac-sha1 zlib
tcp_rs60001: Entering Diffie-Hellman Group 1 key exchange.
tcp_rs60001: Sent DH public key, waiting for reply.
tcp_rs60001: Received host key, type 'ssh-dss'.
tcp_rs60001: Host 'tcpproject' is known and matches the host key.
tcp_rs60001: Computing shared secret key.
tcp_rs60001: Verifying server signature.
tcp_rs60001: Waiting for NEWKEYS message.
tcp_rs60001: Enabling incoming encryption/MAC/compression.
tcp_rs60001: Send NEWKEYS, enable outgoing encryption/MAC/compression.
tcp_rs60001: Sending request for user-authentication service.
tcp_rs60001: Service accepted: ssh-userauth.
tcp_rs60001: Trying empty user-authentication request.
tcp_rs60001: Authentication methods that can continue:
password,publickey.
tcp_rs60001: Next method to try is password.
tcp_rs60001: Trying password authentication.
tcp_rs60001: Will not query passphrase in batch mode.
tcp_rs60001: Authentication methods that can continue:
password,publickey.
tcp_rs60001: Next method to try is password.
tcp_rs60001: Trying password authentication.
tcp_rs60001: Will not query passphrase in batch mode.
tcp_rs60001: Authentication methods that can continue:
password,publickey.
tcp_rs60001: Next method to try is password.
tcp_rs60001: Trying password authentication.
tcp_rs60001: Will not query passphrase in batch mode.
tcp_rs60001: Authentication methods that can continue:
password,publickey.
tcp_rs60001: Next method to try is password.
tcp_rs60001: Next method to try is publickey.
tcp_rs60001: Trying pubkey authentication with key file 'id_dsa'
tcp_rs60001: Will not query passphrase for 'id_dsa' in batch mode.
tcp_rs60001: Loading private key failed.
tcp_rs60001: Trying pubkey authentication with key file
'/home/mfunk/.ssh/id_dsa'
tcp_rs60001: Will not query passphrase for '/home/mfunk/.ssh/id_dsa' in
batch mode.
tcp_rs60001: Loading private key failed.
Permission denied at /usr/local/lib/perl5/site_perl/5.8.7/Net/SFTP.pm
line 62
$
It shouldn't matter to the server I am trying to connect to should it? 
As long as it has both pub files? 
Any one have any idea?
Thanks, 

David M. Funk
President/CEO
 
Tivoli Certified Enterprise Consultant
Specializing in Network and Systems Management Solutions

Trinity Solutions           
604 Cassandra Dr.        
Cranberry Twp., PA 16066
 
Phone: 724-316-0721                    
Fax:     724-772-7889 
email: mf...@tr...
http://www.trinitysol.net




 

Re: [Ssh-sftp-perl-users] Net::Sftp

[Michael G. <mic...@pa...>]

Hey,

    How are you authenticating ? passwords or keys ?

Michael



David M. Funk wrote:

>
> When I try my Perl script as a user other than root, I get permission 
> denied at logon every time.
>
> Is there something I have to do in Perl or is this a key issue?
>
> Thanks,
>
> David M. Funk
> */President/CEO/*
>  
> /Tivoli Certified Enterprise Consultant/
> /Specializing in Network and Systems Management Solutions/
>
> Trinity Solutions          
> 604 Cassandra Dr.       
> Cranberry Twp., PA 16066
>  
> *Phone:* 724-316-0721                   
> *Fax:    * 724-772-7889
> *email:* mf...@tr...
> _http://www.trinitysol.net_
>
>
>
>
>  
>

[Ssh-sftp-perl-users] Net::Sftp

[David M. F. <mf...@tr...>]

When I try my Perl script as a user other than root, I get permission
denied at logon every time.

Is there something I have to do in Perl or is this a key issue?

Thanks,

David M. Funk
President/CEO
 
Tivoli Certified Enterprise Consultant
Specializing in Network and Systems Management Solutions

Trinity Solutions           
604 Cassandra Dr.        
Cranberry Twp., PA 16066
 
Phone: 724-316-0721                    
Fax:     724-772-7889 
email: mf...@tr...
http://www.trinitysol.net




 

RE: [Ssh-sftp-perl-users] Math::GMP

[Thompson, M. <Mar...@uk...>]

 
David,
 
I've had another think and the Math::BigInt and Math::BigFloat modules were
also related. I was getting long delays during the authentication phase of
SSH connections, until I replaced some the Math modules with faster or
native versions. I believe the delay is due to the key encryption maths
being done in Perl rather native library code.
 
Mark

  _____  

From: David M. Funk [mailto:mf...@tr...] 
Sent: 06 October 2005 23:42
To: ssh...@li...
Subject: [Ssh-sftp-perl-users] Math::GMP



Ok, 

I have everything working fairly well. 
I can now authenticate without a password (Thanks to Rob and Eric) 
Do puts and gets etc...... 
Now I am determined to get this authentication slow down fixed. (thanks to
the chocolate my client keeps throwing at me)

First off let me ask -->does Math::GMP  have anything to do with this? 
I installed gmp-4.1.4 then attempted to install Math-GMP-2.04 

Got as far as make test 

# make test 
        PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e"
"test_harness(0, 'blib/lib', 'blib/arch')" t/*.t 
t/gmppm....dubious 
        Test returned status -1 (wstat 139, 0x8b) 
DIED. FAILED tests 21-350 
        Failed 330/350 tests, 5.71% okay 
Failed Test Stat Wstat Total Fail  Failed  List of Failed 
----------------------------------------------------------------------------
--- 
t/gmppm.t     -1   139   350  660 188.57%  21-350 
Failed 1/1 test scripts, 0.00% okay. 330/350 subtests failed, 5.71% okay. 
make: 1254-004 The error code from the last command is 255. 


Stop. 

# 

Any thoughts? 

David M. Funk 
President/CEO 
  
Tivoli Certified Enterprise Consultant 
Specializing in Network and Systems Management Solutions 

Trinity Solutions           
604 Cassandra Dr.        
Cranberry Twp., PA 16066 
  
Phone: 724-316-0721                    
Fax:     724-772-7889 
email: mf...@tr... 
 <http://www.trinitysol.net> http://www.trinitysol.net 





Find out about The Experian Conference 2005 at www.experian.co.uk/conference2005


==========================================================================
Information in this e-mail and any attachments are confidential, and may not be copied or used by anyone other than the addressee, nor disclosed to any third party without our permission. There is no intention to create any legally binding contract or other binding commitment through the use of this electronic communication unless it is issued in accordance with the Experian Limited standard terms and conditions of purchase or other express written agreement between Experian Limited and the recipient Experian Limited (registration number 653331) Registered office: Talbot House, Talbot Street, Nottingham NG80 1TH

Although Experian has taken reasonable steps to ensure that this communication and any attachments are free from computer virus, you are advised to take your own steps to ensure that they are actually virus free.

[Ssh-sftp-perl-users] Math::GMP

[David M. F. <mf...@tr...>]

Ok,

I have everything working fairly well.
I can now authenticate without a password (Thanks to Rob and Eric)
Do puts and gets etc=85...
Now I am determined to get this authentication slow down fixed. (thanks
to the chocolate my client keeps throwing at me)

First off let me ask -->does Math::GMP  have anything to do with this?
I installed gmp-4.1.4 then attempted to install Math-GMP-2.04

Got as far as make test

# make test
        PERL_DL_NONLAZY=3D1 /usr/bin/perl "-MExtUtils::Command::MM" "-e"
"test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/gmppm....dubious
        Test returned status -1 (wstat 139, 0x8b)
DIED. FAILED tests 21-350
        Failed 330/350 tests, 5.71% okay
Failed Test Stat Wstat Total Fail  Failed  List of Failed
------------------------------------------------------------------------
-------
t/gmppm.t     -1   139   350  660 188.57%  21-350
Failed 1/1 test scripts, 0.00% okay. 330/350 subtests failed, 5.71%
okay.
make: 1254-004 The error code from the last command is 255.


Stop.

#

Any thoughts?

David M. Funk
President/CEO
=20
Tivoli Certified Enterprise Consultant
Specializing in Network and Systems Management Solutions

Trinity Solutions          =20
604 Cassandra Dr.       =20
Cranberry Twp., PA 16066
=20
Phone: 724-316-0721                   =20
Fax:     724-772-7889=20
email: mf...@tr...
http://www.trinitysol.net




=20

[Ssh-sftp-perl-users] register_handler with shell ??

[Michael G. <mic...@pa...>]

Hello,

    I am trying to write a scipt that will connect using SSH and be used 
interactively. I would also like to be able to use register_handler ?

My script below only works with $ssh->cmd and not $ssh->shell

$ssh->register_handler(SSH_SMSG_STDOUT_DATA, sub {
  my ($ssh,$packet) = @_;
  my $str = $packet->get_str;

  print "\nFOUND: ",$str;

});


##

 eval "use Term::ReadKey;";
    ReadMode('raw');
    eval "END { ReadMode('restore') };";
    #$ssh->cmd('ls');
    $ssh->shell;

print "Connection to $host closed.\n";


Michael

RE: [Ssh-sftp-perl-users] Net::SFTP

[Thompson, M. <Mar...@uk...>]

 
David,
 
I seem to remember I has a similar issue with very slow authentications with
SSH. I believe it was something to do with the Math::GMP module but I cannot
remember what exactly I'm afraid
 
Regards,
 
Mark

  _____  

From: David M. Funk [mailto:mf...@tr...] 
Sent: 06 October 2005 14:37
To: ssh...@li...
Subject: [Ssh-sftp-perl-users] Net::SFTP



Thanks Rob for the nice example! 

I have a working sftp Perl script now, just takes over 4 minutes to
authenticate. 

I'll live with that since this will run at night when nobody cares. 

I have the public/private keys login setup with ssh already.  I can do this
through the command line today. 

Doesn't seem to work through Perl.  In your example you point to a
"iddsafile" 

Can you explain what this is? 

Is it the public key from the destination or the local private key? 

Kinda confused with what the identity_files option points to. 

Thanks, 
David M. Funk 
President/CEO 
  
Tivoli Certified Enterprise Consultant 
Specializing in Network and Systems Management Solutions 

Trinity Solutions           
604 Cassandra Dr.        
Cranberry Twp., PA 16066 
  
Phone: 724-316-0721                    
Fax:     724-772-7889 
email: mf...@tr... 
 <http://www.trinitysol.net> http://www.trinitysol.net 





Find out about The Experian Conference 2005 at www.experian.co.uk/conference2005


==========================================================================
Information in this e-mail and any attachments are confidential, and may not be copied or used by anyone other than the addressee, nor disclosed to any third party without our permission. There is no intention to create any legally binding contract or other binding commitment through the use of this electronic communication unless it is issued in accordance with the Experian Limited standard terms and conditions of purchase or other express written agreement between Experian Limited and the recipient Experian Limited (registration number 653331) Registered office: Talbot House, Talbot Street, Nottingham NG80 1TH

Although Experian has taken reasonable steps to ensure that this communication and any attachments are free from computer virus, you are advised to take your own steps to ensure that they are actually virus free.

Re: [Ssh-sftp-perl-users] Net::SFTP

[Rob V. <rob...@br...>]

The iddsafile should point to the private keyfile.
These are usually found in ~/.ssh/

So the identity files option should point to your local private key.
( or even better the local private key you want the script to use)

Regards
Rob





I use keys without a password, since I want the ssh script to work
unattended :P

Op do, 06-10-2005 te 09:37 -0400, schreef David M. Funk:
> Thanks Rob for the nice example!
> 
> I have a working sftp Perl script now, just takes over 4 minutes to
> authenticate.
> 
> I'll live with that since this will run at night when nobody cares.
> 
> I have the public/private keys login setup with ssh already.  I can do
> this through the command line today.
> 
> Doesn't seem to work through Perl.  In your example you point to a
> "iddsafile"
> 
> Can you explain what this is?
> 
> Is it the public key from the destination or the local private key?
> 
> Kinda confused with what the identity_files option points to.
> 
> Thanks, 
> David M. Funk 
> President/CEO 
>   
> Tivoli Certified Enterprise Consultant 
> Specializing in Network and Systems Management Solutions
> 
> Trinity Solutions            
> 604 Cassandra Dr.         
> Cranberry Twp., PA 16066 
>   
> Phone: 724-316-0721                     
> Fax:     724-772-7889  
> email: mf...@tr... 
> http://www.trinitysol.net
> 
> 
> 
> 
>  
> 

[Ssh-sftp-perl-users] Net::SFTP

[David M. F. <mf...@tr...>]

Thanks Rob for the nice example!

I have a working sftp Perl script now, just takes over 4 minutes to
authenticate.

I'll live with that since this will run at night when nobody cares.

I have the public/private keys login setup with ssh already.  I can do
this through the command line today.

Doesn't seem to work through Perl.  In your example you point to a
"iddsafile"

Can you explain what this is?

Is it the public key from the destination or the local private key?

Kinda confused with what the identity_files option points to.

Thanks,
David M. Funk
President/CEO
 
Tivoli Certified Enterprise Consultant
Specializing in Network and Systems Management Solutions

Trinity Solutions           
604 Cassandra Dr.        
Cranberry Twp., PA 16066
 
Phone: 724-316-0721                    
Fax:     724-772-7889 
email: mf...@tr...
http://www.trinitysol.net




 

Re: [Ssh-sftp-perl-users] Net::sftp

[Rob V. <rob...@br...>]

Here's something I use to set u connections,

I assume you are capable of using public/private key logins with ssh on
the command line, make sure iddsa points to the private key you use for
the user to log in remotly.

#!/usr/bin/perl

# my default enforce neat code blok
use warnings;
use strict;
use diagnostics;
# ok diagnostics does not enforce neat code but
# it does assist me to figure out where I made my stupid typo that
# breaks the code and explains what kind of stupid typo I made
# and the fact that I'm to lazy to think about it myself

use Net::SSH::Perl;
use Net::SFTP;

# 0 =3D debug off 1 =3D debug on
my $debug=3D=C2=A81";
my $host=3D"myhost.something.com";
my $out;
my $err;
my $exit;

my %ssh_args =3D (
                protocol =3D> "2",
                identity_file =3D> "$iddsafile",
                compression =3D> "1",
                debug =3D> $debug,
                interactive =3D> "false",
               );


my %sftp_args =3D (
                user =3D> "mylogin",
                debug =3D> $debug,
                ssh_args =3D> \%ssh_args,  #<-magic line for key-exchange
                );

# the line with the reference to the %ssh_args imports the settings you
# need to point sftp to the keys needed for key authentication

# set up ssh connection
my $ssh =3D Net::SSH::Perl->new($host, %ssh_args);

# set up sftp connection
my $sftp =3D Net::SFTP->new($host, %sftp_args);

# sending a command to $ssh session
($out, $err, $exit) =3D $ssh->cmd("ls");

# print any output if any
print "STDOUT $out\n" if ($out);
print "STDERR $err\n" if ($err);
print "EXIT $exit\n" if ($exit);

# sending a file with $sftp
($out, $err, $exit) =3D sftp->put("filesource", "filedestination");

# print any output if any
print "STDOUT $out\n" if ($out);
print "STDERR $err\n" if ($err);
print "EXIT $exit\n" if ($exit);

# end of code

Ofcourse this barely covers it, but it should get you started

Oh btw .... It takes Net::SSH::Perl so long to set up a connection
overhere that I sometimes get timeouts from the other machine cause it's
tired of waiting.

Regards
Rob

Op wo, 05-10-2005 te 20:07 -0400, schreef David M. Funk:
> Folks,
>=20
>=20
> I guess I'll live with the 4+ minute wait for key-exchanges.
>=20
> How do I authenticate without sending a password using Net::sftp
>=20
> Any one have some sample code and good explanations that would be
> great.
>=20
> Thanks,=20
> David M. Funk=20
> President/CEO=20
>  =20
> Tivoli Certified Enterprise Consultant=20
> Specializing in Network and Systems Management Solutions
>=20
> Trinity Solutions           =20
> 604 Cassandra Dr.        =20
> Cranberry Twp., PA 16066=20
>  =20
> Phone: 724-316-0721                    =20
> Fax:     724-772-7889 =20
> email: mf...@tr...=20
> http://www.trinitysol.net
>=20
>=20
>=20
>=20
> =20
>=20

[Ssh-sftp-perl-users] Net::sftp

[David M. F. <mf...@tr...>]

Folks,


I guess I'll live with the 4+ minute wait for key-exchanges.

How do I authenticate without sending a password using Net::sftp

Any one have some sample code and good explanations that would be great.

Thanks,
David M. Funk
President/CEO
 
Tivoli Certified Enterprise Consultant
Specializing in Network and Systems Management Solutions

Trinity Solutions           
604 Cassandra Dr.        
Cranberry Twp., PA 16066
 
Phone: 724-316-0721                    
Fax:     724-772-7889 
email: mf...@tr...
http://www.trinitysol.net




 

[Ssh-sftp-perl-users] Net::SSH::Perl on AIX

[David M. F. <mf...@tr...>]

I guess I'll jump on the band wagon too.  Authentication time takes me
~4 minutes to connect to my Linux server to do one simple command!
I'm running:  This is Perl, v5.8.7 built for AIX

I do have one question though,

Starting SFTP Session at Mon Oct  3 16:40:58 EDT 2005 for
tcpsyslog..........................
tcp_rs60001: Reading configuration data //.ssh/config
tcp_rs60001: Reading configuration data /etc/ssh_config
tcp_rs60001: Allocated local port 1023.
tcp_rs60001: Connecting to tcpsyslog, port 22.
tcp_rs60001: Remote protocol version 1.99, remote software version
OpenSSH_3.4p1
tcp_rs60001: Net::SSH::Perl Version 1.28, protocol version 2.0.
tcp_rs60001: No compat match: OpenSSH_3.4p1.
tcp_rs60001: Connection established.
tcp_rs60001: Sent key-exchange init (KEXINIT), wait response.
tcp_rs60001: Algorithms, c->s: 3des-cbc hmac-sha1 none
tcp_rs60001: Algorithms, s->c: 3des-cbc hmac-sha1 none

What is stored in the //.ssh/config file?   How do you point it to
another location?

I don't seem to have this or the /etc/ssh_config file on my AIX server.

Where do these files go?
On the source server or the target?

And what the heck goes in them???

Thanks,

David M. Funk
President/CEO
 
Tivoli Certified Enterprise Consultant
Specializing in Network and Systems Management Solutions

Trinity Solutions           
604 Cassandra Dr.        
Cranberry Twp., PA 16066
 
Phone: 724-316-0721                    
Fax:     724-772-7889 
email: mf...@tr...
http://www.trinitysol.net




 

[Ssh-sftp-perl-users] CHANGES for Net::SSH::Perl 1.29/Net::SFTP 0.10

[David R. <dbr...@cp...>]

Please let me know if I missed anything, and thanks very much to contributors.  
If I don't get any more patches/updates by the end of the week I'll make a 
release (and then maybe start Net::SSH2).

Net::SSH::Perl:
1.29  2005.10.03
    - Require Digest::SHA1 2.10 or greater (fixed problem with BSD connection)
      (Adam Callis).
    - Add suppress_shell SSH2 option for SFTP (Sean McMillan).
    - Use effective (not real) user-id to detect root (David Wheeler,
      rt.cpan.org #13373).
    - Make "ChallengeResponseAuthentication" configuration item boolean rather
      than string (mark AT blackmans.org, rt.cpan.org #14549).

Net::SFTP:
0.10  2005.10.03
    - Add example for ssh_args option (rt.cpan.org #5899, Mark Fuller).
    - Fix from Jim Herring: don't treat legal "0" handle from server as error
      (rt.cpan.org #14405).
    - Suppress shell in SSH2 invocation (if Net::SSH::Perl 1.29+ available)
      (Sean McMillan).

Thanks,

-- 
Dave
Isa. 40:31

[Ssh-sftp-perl-users] Net::SFTP: problem connecting to windows server

[Paul T. <pau...@te...>]

I am running the test code at the bottom on a linux machine.=20

It works correctly when connecting to another linux machine.=20

When connecting to a windows machine. The connection succeeded from what =
I can see=20
in the debug output but the 'ls' returns an empty list. When I do the =
sftp from the linux command
line: % sftp user@somehost. That sends me to the right directory and =
'ls' returns the content.

A few lines from the debug output that differ from those connecting to a =
linux server are enclosed too.

Can anyone help?

Paul.

Debug output when connecting to windows server:
-------
pims-dev: Remote protocol version 2.0, remote software version 1.30 =
sshlib: WinSSHD 3.08
pims-dev: Net::SSH::Perl Version 1.28, protocol version 2.0.
pims-dev: No compat match: 1.30 sshlib: WinSSHD 3.08
...
pims-dev: sftp: Sending SSH2_FXP_INIT
pims-dev: sftp: Remote version: 2
Mon Oct  3 14:18:46 2005
SFTP connection : 0
pims-dev: sftp: Sent message T:16 I:0
Real path: /
pims-dev: sftp: Sent message T:11 I:1
ls status: 0
Size: 0
Files:
---------

Debug output when connecting to linux server:
--------
pims-dev: Remote protocol version 1.99, remote software version =
OpenSSH_3.9p1
pims-dev: Net::SSH::Perl Version 1.28, protocol version 2.0.
pims-dev: No compat match: OpenSSH_3.9p1.
......
pims-dev: sftp: Sending SSH2_FXP_INIT
pims-dev: sftp: Remote version: 3
Mon Oct  3 14:03:33 2005
SFTP connection : 0
pims-dev: sftp: Sent message T:16 I:0
Real path: /home/xxxx
pims-dev: sftp: Sent message T:11 I:1
pims-dev: sftp: Sent message T:12 I:2
pims-dev: sftp: Received reply T:104 I:2
pims-dev: sftp: Received 100 SSH2_FXP_NAME responses
pims-dev: sftp: Sent message T:12 I:3
pims-dev: sftp: Received reply T:104 I:3
pims-dev: sftp: Received 27 SSH2_FXP_NAME responses
pims-dev: sftp: Sent message T:12 I:4
pims-dev: sftp: Received reply T:101 I:4
pims-dev: sftp: Received SSH2_FXP_STATUS 1
pims-dev: sftp: Sent message T:4 I:5
ls status: 0
Size: 127
Files: < long list >
-----------------

#!/usr/bin/perl -w
use strict;
use Net::SFTP;

my $host =3D "somehost";
my %args =3D (
                user     =3D> 'USER',
                password =3D> 'PASSWORD',
                debug =3D> 'true'
           );
print localtime()."\n";
my $sftp =3D Net::SFTP->new($host, %args);
print localtime()."\n";
print "SFTP connection : " . $sftp->status . "\n";
my $realpath =3D $sftp->do_realpath(".");
defined $realpath && print "Real path: $realpath\n" or die "do_realpath =
failed\n";
my @files =3D $sftp->ls($realpath);
print "ls status: " . $sftp->status . "\n";
print "Size: " . @files . "\n";
print "Files:  ";
foreach my $rec (@files) {
print ${rec}->{filename}." ";
}
print "\n";

[Ssh-sftp-perl-users] SFTP::Problem

[Cali <cit...@in...>]

Hi everyone i´ve having a problem witg my script, im trying to send a 
file from one PC to another. this is my code:
$sftp = 
Net::SFTP->new($host,user=>'yyy',password=>'xx',debug=>1,\&callback);
$sftp->put('/home/xml.pm','/home/' );
and this is what i got on the screen:
Desarollo: Reading configuration data /home/cguerrero/.ssh/config
Desarollo: Reading configuration data /etc/ssh_config
Desarollo: Connecting to 10.22.3.86, port 22.
Desarollo: Remote protocol version 2.0, remote software version 
OpenSSH_3.9p1
Desarollo: Net::SSH::Perl Version 1.25, protocol version 2.0.
Desarollo: No compat match: OpenSSH_3.9p1.
Desarollo: Connection established.
Desarollo: Sent key-exchange init (KEXINIT), wait response.
Desarollo: Algorithms, c->s: 3des-cbc hmac-sha1 none
Desarollo: Algorithms, s->c: 3des-cbc hmac-sha1 none
Desarollo: Entering Diffie-Hellman Group 1 key exchange.
Desarollo: Sent DH public key, waiting for reply.
Desarollo: Received host key, type 'ssh-dss'.
Desarollo: Host '10.22.3.86' is known and matches the host key.
Desarollo: Computing shared secret key.
Desarollo: Verifying server signature.
Desarollo: Waiting for NEWKEYS message.
Desarollo: Enabling incoming encryption/MAC/compression.
Desarollo: Send NEWKEYS, enable outgoing encryption/MAC/compression.
Desarollo: Sending request for user-authentication service.
Desarollo: Service accepted: ssh-userauth.
Desarollo: Trying empty user-authentication request.
Desarollo: Authentication methods that can continue: 
publickey,password,keyboard-interactive.
Desarollo: Next method to try is publickey.
Desarollo: Next method to try is password.
Desarollo: Trying password authentication.
Desarollo: Login completed, opening dummy shell channel.
Desarollo: channel 0: new [client-session]
Desarollo: Requesting channel_open for channel 0.
Desarollo: channel 0: open confirm rwindow 0 rmax 32768
Desarollo: Got channel open confirmation, requesting shell.
Desarollo: Requesting service shell on channel 0.
Desarollo: channel 1: new [client-session]
Desarollo: Requesting channel_open for channel 1.
Desarollo: Sending subsystem: sftp
Desarollo: Requesting service subsystem on channel 1.
Desarollo: channel 1: open confirm rwindow 0 rmax 32768
Desarollo: sftp: Sending SSH2_FXP_INIT
Desarollo: sftp: Remote version: 3
Desarollo: sftp: Sent SSH2_FXP_OPEN I:0 P:/home/cguerrero/citlali/
Couldn't get handle: Failure at 
/usr/lib/perl5/vendor_perl/5.8.6/Net/SFTP.pm line 166.
Desarollo: sftp: Sent message SSH2_FXP_WRITE I:1 O:0
Couldn't write to remote file: Failure at 
/usr/lib/perl5/vendor_perl/5.8.6/Net/SFTP.pm line 261.
Desarollo: sftp: Sent message T:4 I:2
Couldn't close file: No such file or directory at 
/usr/lib/perl5/vendor_perl/5.8.6/Net/SFTP.pm line 201.

Does anyone knows what is this?? or what it means??

[Ssh-sftp-perl-users] FW: Net::SSH::Perl

[<edw...@we...>]

> I am trying to run this module with "perl, v5.8.6 built for
> PA-RISC2.0" on a HPUX box.  After building all the dependencies, I
> wrote my script
>=20
> #!/path/to/perl -w
>=20
> use Net::SSH::Perl;
>=20
> my $JRhost=3D'fqdn';
> my $JRuser=3D'myusername';
> my $JRpasswd=3D'mypass';
> my $JRHOME=3D"$ENV{HOME}";
> my $JRKnownHostsFile=3D"$JRHOME/.ssh/known_hosts";
> my $JRIdentityFile=3D"$JRHOME/.ssh/id_rsa";
>=20
> my $JRcmd=3D'/bin/ps -ef';
>=20
> my $ssh =3D Net::SSH::Perl->new($JRhost,debug=3D>1,
>                               options=3D>["BatchMode yes","interactive
> yes",
>                                         "UserKnownHostsFile
> $JRKnownHostsFile",
>                                         "IdentityFile
> $JRIdentityFile"],
>                               protocol=3D>'2,1');
> $ssh->login($JRuser, $JRpasswd);
>=20
> my ($stdout, $stderr, $exit) =3D $ssh->cmd("$JRcmd");
> print "$stdout\n";
> print "$stderr\n";
> =
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D
>=20
> But my output is:
>=20
> =
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D
>=20
> hostname % ./ssh_test.pl
> hostname: Reading configuration data /path/to/myusername/.ssh/config
> hostname: Reading configuration data /etc/ssh_config
> hostname: Connecting to fqdn, port 22.
> hostname: Remote protocol version 2.0, remote software version
> OpenSSH_3.8p1
> hostname: Net::SSH::Perl Version 1.28, protocol version 2.0.
> hostname: No compat match: OpenSSH_3.8p1.
> hostname: Connection established.
> hostname: Sent key-exchange init (KEXINIT), wait response.
> hostname: Algorithms, c->s: 3des-cbc hmac-sha1 none
> hostname: Algorithms, s->c: 3des-cbc hmac-sha1 none
>=20
> ---------------------------long pause right
> here-------------------------------------------
>=20
> hostname: Entering Diffie-Hellman Group 1 key exchange.
> hostname: Sent DH public key, waiting for reply.
> Connection closed by remote host. at
> /path/to/lib/perl5/site_perl/5.8.6/Net/SSH/Perl/Kex/DH1.pm line 41
>=20
> =
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
>=20
> Any Ideas why this is the case??
>=20
>=20
> I've been at this for some time now
>=20
> ::JR Edwards::
> Security Architecture & Application Development
> Wells Fargo Corporate Information Security
>=20

[Ssh-sftp-perl-users] Net::SSH::Perl Performance

[Wojtak, G. <Gre...@qu...>]

Hi,

=20

I have installed Net::SSH::Perl and wrote a little test program that
simply ssh's to another host and runs hostname.  The only problem is, it
takes ~5 minutes to do this.  Here is the script I am testing:

=20

#!/usr/bin/perl

#

# A test of Net::SSH::Perl

#

=20

use Net::SSH::Perl;

=20

%args =3D ( 'debug'=3D> 1 );

=20

my $ssh =3D Net::SSH::Perl->new( 'somehost', %args );

$ssh->login( 'someuser', 'somepass' );

=20

my( $out, $err, $exit ) =3D $ssh->cmd( '/usr/bin/hostname' );

=20

print "$out";

print "$err";

=20

It hangs doing the login() method, specifically after this debug line:

=20

ql1mgt1: Algorithms, s->c: 3des-cbc hmac-sha1 none

=20

and after this debug line:

=20

ql1mgt1: Computing shared secret key

=20

about 2 minutes each.

=20

Does anyone have any idea what it is doing?

=20

The command eventually comes back properly, but 5 minutes is way too
long to ssh to another server and run /usr/bin/hostname.

=20

OS is Solaris 10, Perl 5.8.4, Net::SSH::Perl was built with gcc 3.4.3

=20

Thanks!

=20

Greg

[Ssh-sftp-perl-users] Net::SSH2 - library?

[David R. <dbr...@cp...>]

I posted a little while ago about a proposed Net::SSH2 module that would le=
ave=20
SSH1 behind, and allow access to SSH2 features such as channels. =A0(This d=
oes=20
not imply that I plan to stop fixing/supporting Net::SSH::Perl.)

I'm considering rather than doing everything from scratch in perl (as=20
Net::SSH::Perl does), having it use either libssh or libssh2. =A0I've looke=
d at=20
and installed both libraries and there are pros/cons to each:

* libssh - http://0xbadc0de.be/wiki/doku.php?id=3Dlibssh:libssh (API:=20
http://0xbadc0de.be/wiki/doku.php?id=3Dlibssh:documentation)
* libssh2 - http://www.libssh2.org/ (API: http://www.libssh2.org/doc)

libssh has been around longer, but libssh2 has cleaner code (IMO), and alre=
ady=20
has PHP and Python bindings.

Naturally this introduces a dependency, but as anyone that's installed=20
Net::SSH::Perl can tell you, one dependency is probably better than the ten=
s=20
that exist now (Math::PARI, Crypt::*, etc.), and it can probably be mitigat=
ed=20
by including a fallback version of the library with the distribution (libss=
h=20
is LGPL, libssh2 is BSD licensed). =A0Both libraries classify themselves as=
=20
'beta' on freshmeat.net, both have a good list of features (and some missin=
g=20
features can probably be back-ported from Net::SSH::Perl), including SFTP=20
support "for free".

I'm looking for opinions as to which library should be used for Net::SSH2, =
or,=20
opinions against using a library at all and keeping it as purely perl as=20
possible, or any other advice people see fit to post.

Other note: I haven't had that many fixes/patches to Net::SSH::Perl/Net::SF=
TP=20
lately, but there have been a couple, so I'm considering another release; i=
f=20
anyone has any particular concerns or patches lying around, please send the=
m=20
in.

Thanks,

=2D-=20
Dave
Isa. 40:31

Re: [Ssh-sftp-perl-users] Very slow auth.

[Yishay W. <yis...@ho...>]

I had the same problem on Linux with perl 5.8.7. I switched back to perl 
5.8.0 and now authentication is fast. Of course if there was a fix I would 
switch back to 5.8.7.

Yishay


>From: Rob Verduijn <rob...@br...>
>To: ssh...@li...
>Subject: Re: [Ssh-sftp-perl-users] Very slow auth.
>Date: Tue, 13 Sep 2005 15:47:21 +0200
>
>Hi everyone,
>
>I've got a incredebly slow authentication when I am using
>Net::SSH::Perl.
>I have found other posts with the same problem, did anyone receive a fix
>or a hint on where to look?
>
>The authentication is so slow the other side gives a timeout and
>disconnects.
>
>I do not have this problem when using a manual ssh login.
>
>Any help anyone?
>
>Regards
>Rob
>
>
>
>Op vr, 15-07-2005 te 07:38 -0600, schreef Eric Langheinrich:
> > This could go back to the problem I posted about a week or so ago with 
>slow
> > authentication with Net::SSH::Perl. It's been confirmed by a couple of
> > people on the list that they can reproduce the problem, but as of yet, I
> > don't believe there have been any suggestions on how to fix it.
> >
> > I know it's with Net::SSH::Perl since if I do the same commands either
> > through a shell script or using Net::SSH I don't have the same problem.
> >
> >
> > ----- Original Message -----
> > From: "Jim Lane" <Jim...@rc...>
> > To: "Kalin Evtimov" <Ev...@we...>;
> > <ssh...@li...>
> > Sent: Friday, July 15, 2005 5:46 AM
> > Subject: RE: [Ssh-sftp-perl-users] Very slow auth.
> >
> >
> > Kalin: at the risk of belabouring the obvious are you sure the fault is 
>with
> > Net::SSH::Perl? How fast or slow is it if you type out the equivalent
> > commands from a shell prompt? Are you connecting to more than one 
>system? If
> > so, are they all equally slow? And equally so at all times?
> > Perhaps the problem is with the underlying network.
> > HTH
> >
> > Jim Lane          Amateurs built the Ark,
> > Capacity Planner  Professionals built the Titanic.
> >
> >
> > -----Original Message-----
> > From: ssh...@li...
> > [mailto:ssh...@li...] On Behalf Of 
>Kalin
> > Evtimov
> > Sent: Friday, July 15, 2005 6:18 AM
> > To: ssh...@li...
> > Subject: [Ssh-sftp-perl-users] Very slow auth.
> >
> >
> >
> > Hi!
> > I am using Net::SSH::Perl on HP-UX 11.23 (IA46), and it works, but it is
> > extremely slow while athenticating. Somebody already had this problem, 
>but
> > as I could read there was no solution. Changing PERL on my machine is 
>not
> > posssible, because I need exactly this version for another apps. (Perl
> > 5.8.6) Does anybody know anything?
> >
> > Greetz!
> >
> >
> > Kalin
> > 
>_________________________________________________________________________
> > Mit der Gruppen-SMS von WEB.DE FreeMail können Sie eine SMS an alle
> > Freunde gleichzeitig schicken: 
>http://freemail.web.de/features/?mc=021179
> >
> >
> >
> >
> >
> > -------------------------------------------------------
> > SF.Net email is sponsored by: Discover Easy Linux Migration Strategies 
>from
> > IBM. Find simple to follow Roadmaps, straightforward articles, 
>informative
> > Webcasts and more! Get everything you need to get up to speed, fast.
> > http://ads.osdn.com/?ad_idt77&alloc_id492&op=ick
> > _______________________________________________
> > Ssh-sftp-perl-users mailing list 
>Ssh...@li...
> > https://lists.sourceforge.net/lists/listinfo/ssh-sftp-perl-users
> >
> >
> > -------------------------------------------------------
> > SF.Net email is sponsored by: Discover Easy Linux Migration Strategies
> > from IBM. Find simple to follow Roadmaps, straightforward articles,
> > informative Webcasts and more! Get everything you need to get up to
> > speed, fast. http://ads.osdn.com/?ad_idt77&alloc_id492&op=ick
> > _______________________________________________
> > Ssh-sftp-perl-users mailing list
> > Ssh...@li...
> > https://lists.sourceforge.net/lists/listinfo/ssh-sftp-perl-users
> >
> >
> >
> > -------------------------------------------------------
> > SF.Net email is sponsored by: Discover Easy Linux Migration Strategies
> > from IBM. Find simple to follow Roadmaps, straightforward articles,
> > informative Webcasts and more! Get everything you need to get up to
> > speed, fast. http://ads.osdn.com/?ad_id=7477&alloc_id=16492&op=click
> > _______________________________________________
> > Ssh-sftp-perl-users mailing list
> > Ssh...@li...
> > https://lists.sourceforge.net/lists/listinfo/ssh-sftp-perl-users
>
>
>
>-------------------------------------------------------
>SF.Net email is Sponsored by the Better Software Conference & EXPO
>September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
>Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
>Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
>_______________________________________________
>Ssh-sftp-perl-users mailing list
>Ssh...@li...
>https://lists.sourceforge.net/lists/listinfo/ssh-sftp-perl-users

Re: [Ssh-sftp-perl-users] Very slow auth.

[Rob V. <rob...@br...>]

Hi everyone,

I've got a incredebly slow authentication when I am using
Net::SSH::Perl.
I have found other posts with the same problem, did anyone receive a fix
or a hint on where to look?

The authentication is so slow the other side gives a timeout and
disconnects.

I do not have this problem when using a manual ssh login.

Any help anyone?

Regards
Rob



Op vr, 15-07-2005 te 07:38 -0600, schreef Eric Langheinrich:
> This could go back to the problem I posted about a week or so ago with =
slow=20
> authentication with Net::SSH::Perl. It's been confirmed by a couple of=20
> people on the list that they can reproduce the problem, but as of yet, =
I=20
> don't believe there have been any suggestions on how to fix it.
>=20
> I know it's with Net::SSH::Perl since if I do the same commands either=20
> through a shell script or using Net::SSH I don't have the same problem.
>=20
>=20
> ----- Original Message -----=20
> From: "Jim Lane" <Jim...@rc...>
> To: "Kalin Evtimov" <Ev...@we...>;=20
> <ssh...@li...>
> Sent: Friday, July 15, 2005 5:46 AM
> Subject: RE: [Ssh-sftp-perl-users] Very slow auth.
>=20
>=20
> Kalin: at the risk of belabouring the obvious are you sure the fault is=
 with=20
> Net::SSH::Perl? How fast or slow is it if you type out the equivalent=20
> commands from a shell prompt? Are you connecting to more than one syste=
m? If=20
> so, are they all equally slow? And equally so at all times?
> Perhaps the problem is with the underlying network.
> HTH
>=20
> Jim Lane          Amateurs built the Ark,
> Capacity Planner  Professionals built the Titanic.
>=20
>=20
> -----Original Message-----
> From: ssh...@li...=20
> [mailto:ssh...@li...] On Behalf Of K=
alin=20
> Evtimov
> Sent: Friday, July 15, 2005 6:18 AM
> To: ssh...@li...
> Subject: [Ssh-sftp-perl-users] Very slow auth.
>=20
>=20
>=20
> Hi!
> I am using Net::SSH::Perl on HP-UX 11.23 (IA46), and it works, but it i=
s=20
> extremely slow while athenticating. Somebody already had this problem, =
but=20
> as I could read there was no solution. Changing PERL on my machine is n=
ot=20
> posssible, because I need exactly this version for another apps. (Perl=20
> 5.8.6) Does anybody know anything?
>=20
> Greetz!
>=20
>=20
> Kalin=20
> _______________________________________________________________________=
__
> Mit der Gruppen-SMS von WEB.DE FreeMail k=C3=B6nnen Sie eine SMS an all=
e
> Freunde gleichzeitig schicken: http://freemail.web.de/features/?mc=3D02=
1179
>=20
>=20
>=20
>=20
>=20
> -------------------------------------------------------
> SF.Net email is sponsored by: Discover Easy Linux Migration Strategies =
from=20
> IBM. Find simple to follow Roadmaps, straightforward articles, informat=
ive=20
> Webcasts and more! Get everything you need to get up to speed, fast.=20
> http://ads.osdn.com/?ad_idt77&alloc_id=16492&op=3Dick
> _______________________________________________
> Ssh-sftp-perl-users mailing list Ssh...@li...urceforge.=
net
> https://lists.sourceforge.net/lists/listinfo/ssh-sftp-perl-users
>=20
>=20
> -------------------------------------------------------
> SF.Net email is sponsored by: Discover Easy Linux Migration Strategies
> from IBM. Find simple to follow Roadmaps, straightforward articles,
> informative Webcasts and more! Get everything you need to get up to
> speed, fast. http://ads.osdn.com/?ad_idt77&alloc_id=16492&op=3Dick
> _______________________________________________
> Ssh-sftp-perl-users mailing list
> Ssh...@li...
> https://lists.sourceforge.net/lists/listinfo/ssh-sftp-perl-users
>=20
>=20
>=20
> -------------------------------------------------------
> SF.Net email is sponsored by: Discover Easy Linux Migration Strategies
> from IBM. Find simple to follow Roadmaps, straightforward articles,
> informative Webcasts and more! Get everything you need to get up to
> speed, fast. http://ads.osdn.com/?ad_id=3D7477&alloc_id=3D16492&op=3Dcl=
ick
> _______________________________________________
> Ssh-sftp-perl-users mailing list
> Ssh...@li...
> https://lists.sourceforge.net/lists/listinfo/ssh-sftp-perl-users

[Ssh-sftp-perl-users] NET::Perl::SSH Can't established a connection

[Roman B. <bru...@gm...>]

Hi. I'm new in this list.

I have tried to make a  SSH-Connection in my perl-Skript with the Net::SSH::Perl - Module.

use Net::SSH::Perl;

my $ssh = Net::SSH::Perl->new('host',debug => 1,options=>[ "BatchMode yes", "interactive yes"], protocol=>'2');
$ssh->login("user', 'password');

The output is:

paris: Reading configuration data /home/roman/.ssh/config
paris: Reading configuration data /etc/ssh_config
paris: Connecting to host, port 22.
paris: Remote protocol version 2.0, remote software version OpenSSH_4.1
paris: Net::SSH::Perl Version 1.28, protocol version 2.0.
paris: No compat match: OpenSSH_4.1.
paris: Connection established.
paris: Sent key-exchange init (KEXINIT), wait response.
paris: Algorithms, c->s: 3des-cbc hmac-sha1 none
paris: Algorithms, s->c: 3des-cbc hmac-sha1 none
paris: Entering Diffie-Hellman Group 1 key exchange.
paris: Sent DH public key, waiting for reply.
paris: Received host key, type 'ssh-dss'.
paris: Host 'marge.cs.uni-potsdam.de' is known and matches the host key.
paris: Computing shared secret key.
paris: Verifying server signature.
paris: Waiting for NEWKEYS message.
paris: Enabling incoming encryption/MAC/compression.
paris: Send NEWKEYS, enable outgoing encryption/MAC/compression.
paris: Sending request for user-authentication service.
Connection closed by remote host. at /usr/local/share/perl/5.8.7/Net/SSH/Perl/AuthMgr.pm line 43

paris is my host. But maybe anyone can help me, why i can't establish a connection. It takes nearly 3 Minutes from the first till the last line of the output. It hangs mostly after 

paris: Algorithms, s->c: 3des-cbc hmac-sha1 none

and 

paris: Computing shared secret key.

is this normal? I don't think so. Thanks for your help.

Roman Brunnemann