Hey.
I am getting
Corrupted check bytes on input at /usr/lib/perl5/site_perl/5.8.0/Net/SSH/Perl/Packet.pm line 135
on some code i have implemented.
I am trying to run through a list of servers, and basically i want to know if the password fails or not, if it doesn't then to initiate the command successfully and continue, however, if it does i want to make a list of the servers which have failed.
I tried a very basic setup of:
perl -le 'use Net::SSH::Perl; $ssh = Net::SSH::Perl->new("lon-gs1lnxsh.mistral.net", port => 22, debug => 1, interactive => 0); $ssh->login("username", "pass123"); $ssh->cmd("uname");
these are the lines in Packet.pm which is a CRC.
my $stored_crc = unpack "N", $buffer->bytes(-4, 4);
$ssh->fatal_disconnect("Corrupted check bytes on input")
unless $crc == $stored_crc;
I'm unsure however, how i can prevent it prompted for the password, despite me setting the Interactive to 0 , and also why i am getting this error.
Regards
Jon