Práctica: Conexión ssh

Adapte el programa anterior para que trabaje con las máquinas de su red. Solicite la clave por teclado en caso de que no se haya especificado en el fichero de configuración. Para que no se produzca eco en pantalla puede usar el módulo Term::ReadKey :

sub read_password {
  my $password;

  ReadMode('noecho');
  print "Password: ";
  $password = ReadLine(0);
  ReadMode(0);
  return "$password";
}

La llamada sería algo parecido a esto:

$password = read_password() unless ($password);

Mejor aún es no reinventar la rueda. Programar en Perl es usar CPAN. El módulo Term::ReadPassword provee la función read_password:

$password = read_password('password: ') unless ($password);

Guarde cifrado el fichero de configuración. Use quintuple-agent para automatizar el proceso de descifrar el fichero.

Casiano Rodríguez León
2012-02-29