0

我正在尝试在 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;
4

1 回答 1

2

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

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

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

于 2016-06-29T14:44:34.780 回答