PHP openssl эквиваленты для Perl? - PullRequest
Новая
       32

PHP openssl эквиваленты для Perl?

1 голос
/ 25 июня 2010

Каким будет эквивалентный пример в perl приведенного ниже кода для создания самоподписанного сертификата?

Все, что у меня есть, - это Crypt :: OpenSSL :: RSA (если есть другой модуль, дайте мне знать, чтобы я мог проверить его доступность или возможность установки, поскольку я не являюсь администратором / владельцем и не могу сделать это сам из-за вопрос прав), который я не нашел в документах о том, как реализовать такие ... Я хотел избегать команд командной строки, если это возможно, но не, если это последнее средство для создания этого ... 

<?php
// The certificate password
$passphrase = "some random password";

// Fill in data for the distinguished name to be used in the cert
// You must change the values of these keys to match your name and
// company, or more precisely, the name and company of the person/site
// that you are generating the certificate for.
// For SSL certificates, the commonName is usually the domain name of
// that will be using the certificate, but for S/MIME certificates,
// the commonName will be the name of the individual who will use the
// certificate.
$certificateInfo = array(
    "countryName" => "UK",
    "stateOrProvinceName" => "England",
    "localityName" => "London",
    "organizationName" => "blabla",
    "organizationalUnitName" => "Bla bla Developer's Team",
    "commonName" => "blabla.com",
    "emailAddress" => "support@blabla.com"
);

$configargs = array(
    'digest_alg' => 'sha1',
    'private_key_bits' => 1024,
    'private_key_type' => OPENSSL_KEYTYPE_RSA,
    'encrypt_key' => true
    );

// Generate a new private (and public) key pair
$privkey = null;

// Generate a certificate signing request
$csr = openssl_csr_new($certificateInfo, $privkey);

// You will usually want to create a self-signed certificate at this
// point until your CA fulfills your request.
// This creates a self-signed cert that is valid for 365 days
$sscert = openssl_csr_sign($csr, null, $privkey, 365, $configargs);//, $configArgs

// Now you will want to preserve your private key, CSR and self-signed
// cert so that they can be installed into your web server, mail server
// or mail client (depending on the intended use of the certificate).
// This example shows how to get those things into variables, but you
// can also store them directly into files.
// Typically, you will send the CSR on to your CA who will then issue
// you with the "real" certificate.
openssl_csr_export($csr, $csrout);
openssl_x509_export($sscert, $certout);
openssl_pkey_export($privkey, $pkeyout, $passphrase);
?>

Ответы [ 3 ]

0 голосов
/ 08 июля 2010

Попробуйте OpenCA :: OpenSSL .Я думаю, что это должно делать то, что вам нужно.

0 голосов
/ 08 июля 2010

Вы можете попробовать Crypt :: OpenSSL :: CA , начальный пример , кажется, делает более или менее то, что вы хотите.Возможно, вам сначала потребуется сгенерировать пару ключей другими способами, например, через Crypt :: OpenSSL :: RSA.

0 голосов
/ 02 июля 2010

Большинство модулей Perl, включая найденный вами общий Crypt :: OpenSSL :: RSA, являются просто оболочками вокруг команды openssl.

Итак, я бы посоветовал вам сначала подумать, какие данные вам нужны, и как это будет сделано в командной строке. Есть несколько замечательных примеров и учебных пособий .

Затем, если вы хотите сделать это из Perl, вы можете настроить пример кода из Crypt :: OpenSSL :: RSA или из OpenCA :: OpenSSL (еще один популярный модуль для интеграции OpenSSL команды) для включения желаемых значений и настроек.

В качестве альтернативы, существует Perl-скрипт с именем CA.pl , который включен в каждую установку OpenSSL: это также было бы хорошим местом, чтобы взять их примеры и настроить их в соответствии с вашими потребностями. (На моем сервере (ах) на основе Debian он установлен на /usr/lib/ssl/misc/CA.pl, но может отличаться.)

Удачи!

...