Generate RSA keypair in perl efficently with custom PRNG

I would want to generate a public and private keypair, effciently (fast) in perl, and be able to input random data for myself. With inputting random data, I of course mean, that the function requires lets say X random bits to generate a public/private keypair of Y bits, and I should be able to supply these X bits to the function.

So idially, the function should look like:

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

and $private then contains:

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

and $public contains

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

$randomdata is then just a string of random bits from any random generator. If $randomdata is consistent between instance1 and instance2, instance1 and instance2 should return the same public and private keys.

If you want to know what the use of this is, is that I plan to make a password-based RSA key generation system, without any need to store any keys anywhere. So the key is generated straight out from the password, by using SHA512 chained in a specific way to create static random data.

Of course, the same public and private key must be returned everytime the same password is entered in the system, else the system w开发者_运维百科ould be useless.

Any ideas?

---

I would try Crypt::OpenSSL::RSA, it seems to bind directly to libssl