Net :: SFTP perl rsa authentification

Question

我一直在尝试使用Net :: SFTP和RSA密钥进行sftp。 我可以手动sftp没有密码到我的sftp服务器，但使用该包它不起作用。 我已经没想完了。

my $ftp = Net::SFTP->new($HOST, user => $USER, ssh_args => { identity_files => [ "/Users/user/.ssh/id_rsa" ] }, debug => 3 );

它给了我以下错误：

尝试使用密钥文件'/Users/tom/.ssh/id_rsa'进行pubkey身份验证

致命：rsa导入失败：输入数据包无效。 在/Library/Perl/5.18//Crypt/PK/RSA.pm第123行。

任何帮助将不胜感激，谢谢！

Answer 1

我自己就碰到了这个。

问题是我的（和您的）私钥是加密的，正如您在评论中指出的那样。 加密的私钥要求您在使用之前输入密码，而perl模块似乎不支持此密码。

您声称使用此密钥时不需要密码，但也许这是因为sftp正在使用您的ssh代理？ 即，您输入密码一次，然后密钥保留在内存中供所有ssh系列工具使用？ 似乎perl模块也不支持代理，但是@ salva建议使用Net :: SFTP :: Foreign应该解决这个问题。

值得注意的是，我在运行过去在我的工作站上运行良好的代码时遇到了这个异常，但是在新安装的perl上运行。 我认为发生的事情是Net :: SSH :: Perl模块添加了对读取私钥的支持，或者将读取私钥的失败更改为致命错误而不是忽略密钥。 我的代码无论如何都没有使用密钥，但现在无法使用该密钥。 这是固定的：

my $sftp= Net::SFTP->new(
   ...
   ssh_args => [ identity_files => [] ]
);

当然，您可以添加要使用的特定（未加密）身份文件列表，而不是默认用户的RSA ID。

如果代码不易编辑，您还可以通过将环境变量$HOME设置为没有密钥的内容来避免此问题。