使用自定义PRNG有效地在perl中生成RSA密钥对

Question

我想在perl中生成公共和私有密钥对，高效（快速），并能够为自己输入随机数据。 通过输入随机数据，我当然意味着，该函数需要让X个随机位生成Y位的公钥/私钥对，我应该能够将这些X位提供给函数。

如此空闲，该函数应如下所示：

($private, $public) = genRSAkeypair($randomdata, 1024);

然后

和$ private包含：

----BEGIN RSA PRIVATE KEY-----
....
----END ....

和$ public包含

----BEGIN RSA PUBLIC and so on...

$ randomdata只是来自任何随机生成器的随机位串。如果$ randomdata在instance1和instance2之间是一致的，则instance1和instance2应该返回相同的公钥和私钥。

如果您想知道这是什么用途，我打算制作一个基于密码的RSA密钥生成系统，无需任何密钥存储。因此密钥是直接从密码生成的，使用SHA512以特定方式链接创建静态随机数据。

当然，每次在系统中输入相同的密码时，必须返回相同的公钥和私钥，否则系统将无用。

有什么想法吗？

Answer 1

我会尝试Crypt :: OpenSSL :: RSA，它似乎绑定 直接到libssl