Select Code to Download

use Crypt::OpenSSL::RSA; [v 0.22] OR Crypt::RSA [v 1.57]
use XML::XSLT;
use XML::LibXML;

$keyFile = shift;

$rsa_priv = Crypt::OpenSSL::RSA->new_private_key($keyFile);

$keyFile = shift;
     $key = new Crypt::RSA::Key::Private (
                 Filename => $keyFile 
}

$ openssl pkcs8 -inform DER -in aaqm610917qja_1011180955s.key
Enter Password:
...
jnWWihgi/bOKVEg1EQJACsF3shzuBETh5dyoqBJRP7EbzxB8SaeQapa9lJlkrOKD
HAwVS32OtPWCmU3isOjbqh+Mc3fNRe0Y9xq+nsingg==
-----END RSA PRIVATE KEY-----