如何使用 perl 中的私钥和密码通过 sftp 连接？

Question

我一直在尝试使用 perl 连接到 sftp 服务器，我尝试了几个模块和 putty，但我没有成功。

use Net::SFTP::Foreign;
use Net::SFTP::Foreign::Backend::Net_SSH2;
use Net::SSH2;

my ($host) = 'xxx.xxxx.xxx';
my ($user) = "user";
my ($pass) = "password"; 
my $ppk_filepath = 'private_file.ppk'

my $ssh2 = Net::SSH2->new();
$ssh2->connect($host) or die "connect failed";
$ssh2->debug(1);
$ssh2->auth_publickey($user, undef, $ppk_filepath, $pass) or $ssh2-> die_with_error;
my $sftp = Net::SFTP::Foreign->new(ssh2 => $ssh2, backend => 'Net_SSH2');
$sftp->error and die "Unable to stablish SFTP connection: ". $sftp->error;`

我经常遇到这个错误：

Unable to extract public key from private key file: Wrong passphrase or invalid/unrecognized private key file format (-16 LIBSSH2_ERROR_FILE)

我哪里做错了？有没有另一种方法可以通过 sftp 连接，使用 perl 中的私钥、用户名和密码作为身份验证？提前致谢

Answer 1

密钥采用 PuTTY 格式 (*.ppk)。您需要 OpenSSH 的格式 (id_rsa)。使用 PuTTYgen 通过加载 .ppk 文件并从 Conversions 菜单中选择 Export OpenSSH key 来转换它。

如何使用 perl 中的私钥和密码通过 sftp 连接？

How can I connect via sftp using private key and password in perl?

perl

sftp

putty