Question

我正在尝试在Perl中生成带密码保护的公钥和私钥，但我没有找到任何有用的东西。

到目前为止，我发现此链接http://search.cpan.org/~vipul/Crypt-RSA-1.57/lib/Crypt/RSA.pm似乎很有希望。但是，我可以在没有任何密码的情况下解密我的消息，尽管我用密码创建了它们。

另一个链接是这个http://www.perlmonks.org/?node_id=903458但是当我创建我的密钥（为了将它们存储在数据库中）时，我仍然可以在不使用密码短语的情况下解密。

总之，我需要一个库，它允许我使用私钥加密文本，使用密码短语。

感谢您的帮助！

PD：请不要PGP加密。

更新

以下是一些代码无法按预期工作：

use strict;
use warnings;
use Data::Dumper;
use 5.010;
use Crypt::RSA;

my $rsa = new Crypt::RSA;

my ($master_public, $master_private) = $rsa->keygen(
   Identity => "Someone",
   Size     => 1024,
   Password => "this is a password or passphare",
) or die $rsa->errstr();

my $cyphertext = $rsa->encrypt (
   Message    => "My Message that I want to encrypt",
   Key        => $master_public,
   Armour     => 1,
) or die $rsa->errstr();

my $text = $rsa->decrypt (
    Cyphertext => $cyphertext,
    Key        => $master_private,
    Armour     => 1,
    # Here I expect to add the user's passphrase
) or die $rsa->errstr();

say $text;

Answer 1

RSA的密码仅用于保存或读取磁盘上的密钥。在您的操作中，您没有将私钥保存到磁盘，因此它已在内存中未加密。

从私钥文档中，您可以看到如何隐藏并将其保存到光盘（您拥有的$ master_private对象已经是该类型的对象）

https://metacpan.org/pod/Crypt::RSA::Key::Private

如何在Perl中生成密码短语保护的RSA密钥

1 个答案: