Convert pem to ssh-rsa

jpsaraiva has asked for the wisdom of the Perl Monks concerning the following question:

Hello

On Windows, I'm using Crypt::PK::RSA to generate key pairs like this:

use Crypt::PK::RSA;
my $pk = Crypt::PK::RSA->new();
$pk->generate_key(256, 65537);
my $private_pem = $pk->export_key_pem('private');
my $public_pem = $pk->export_key_pem('public');
[download]

Private key format is fine. Public key is generated like this:

-----BEGIN RSA PUBLIC KEY-----
...
-----END RSA PUBLIC KEY-----
[download]

Since I need to add this key to authorized_keys files it needs to be in a ssh-rsa format.

Can easly be done using ssh-keygen to convert:

$ ssh-keygen -y -f privatekey > publickey
[download]

I found this thread explaining the process and having several solutions none perl based.

And all end up being dependent on ssh-keygen or open-ssl both not natively available on Windows

Does anyone know how to do this only in perl or if it is even possible?

Comment on Convert pem to ssh-rsa Select or Download Code

Replies are listed 'Best First'.
Re: Convert pem to ssh-rsa by hippo (Archbishop) on Aug 23, 2019 at 12:49 UTC
Since I need to add this key to authorized_keys files it needs to be in a ssh-rsa format I've not used it myself, but perhaps Net::SSH::Perl::Key->dump_public might do the trick? Just a suggestion.	[reply]
Re^2: Convert pem to ssh-rsa by jpsaraiva (Acolyte) on Aug 23, 2019 at 14:33 UTC
Hello hippo, That worked! Thanks a million. `use Crypt::PK::RSA; my $pk = Crypt::PK::RSA->new(); $pk->generate_key(256, 65537); my $private_pem = $pk->export_key_pem('private'); my $public_pem = $pk->export_key_pem('public'); use Net::SSH::Perl::Key; my $key = Net::SSH::Perl::Key->read_private('RSA', \$private_pem); say $key->dump_public;` [download] Output: `ssh-rsa AAAAB...` [download]	[reply] [d/l] [select]