Comments on: RSA with Perl, PHP and Python

By: tcnolan

Wed, 18 Aug 2010 23:43:41 +0000

Fancy seeing you here chad. :)

By: Chad Maron

Thu, 16 Jul 2009 14:34:26 +0000

Ah, almost exactly the same as what I’m doing. I’ll have to look elsewhere for my issue.

Thanks again!
Chad

By: cd34

Thu, 16 Jul 2009 13:35:35 +0000

#!/usr/bin/perl

use Crypt::OpenSSL::RSA;

  &generate_keys();

sub generate_keys {

  $rsa = Crypt::OpenSSL::RSA->generate_key(2048);

  chomp($hostname=`/bin/hostname -f`);

  if (!(-e "keys/$hostname.private.key")) {

    open PRIVATE,">keys/$hostname.private.key";
    print PRIVATE $rsa->get_private_key_string();
    close PRIVATE;

    open PUBLIC, ">keys/$hostname.public.key";
    print PUBLIC $rsa->get_public_key_x509_string();
    close PUBLIC;
  }

  return;
}

By: Chad Maron

Thu, 16 Jul 2009 12:04:09 +0000

I have found your post VERY helpful but I have one question: How did you generate your
public and private keys? Did you use the openssl command line app or did you let one of
the libraries generate them?

I am working on a Perl script that encrypts data to be decrypted by PHP and it appears
letting Perl generate the keys makes PHP sad.

Any thoughts?
Thanks!

Chad