• Publicidad

Abrir un certificado pfx

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Abrir un certificado pfx

Notapor audax » 2016-06-07 16:46 @740

Buenas a todos.

Tengo un tema el cual no lo he podido resolver, resulta que necesito crear un xml (lo estoy haciendo a mano), para consumir un web service, este xml debe tener varios datos de un certificado digital. Mi pregunta es: ¿qué librería podría ocupar para leer un certificado.pfx que tengo en mi poder? (usa contraseña), ya que necesito obtener del certificado: Exponent, Modulus, DigestValue, entre otros datos.


PD: por ahí leí que recomiendan usar la librería Crypt::OpenSSL::PKCS12 pero esta no aparece en Perl Package Manager.


De ante mano, muchas gracias.
audax
Perlero nuevo
Perlero nuevo
 
Mensajes: 56
Registrado: 2013-06-03 13:16 @594

Publicidad

Re: Abrir un certificado pfx

Notapor audax » 2016-06-08 11:21 @515

Me auto contesto:

No me aparecía la librería Crypt::OpenSSL::PKCS12 debido a que tenía la versión 5.18 de ActivePerl. Lo actualicé a la 5.22 y ahí sí apareció. La instalé y pude obtener todos los datos que quería del Certificado Digital.

Moraleja: siempre tener la última versión de Perl :D :D
audax
Perlero nuevo
Perlero nuevo
 
Mensajes: 56
Registrado: 2013-06-03 13:16 @594

Re: Abrir un certificado pfx

Notapor explorer » 2016-06-08 15:22 @682

Enhorabuena por encontrar la solución.

Hummm... esto es muy interesante. ¿Podrías publicar un ejemplo sencillo de cómo se puede hacer esto de leer un certificado digital?
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14486
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Abrir un certificado pfx

Notapor audax » 2016-06-12 19:37 @859

Sí, claro.

Aquí obtengo la llave privada y el certificado como tal, con la librería Crypt::OpenSSL::PKCS12 se hace todo más sencillo. :D

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. use Crypt::OpenSSL::PKCS12;
  2.  
  3. my $file   = 'certificado.pfx';
  4. my $pass   = 'password';
  5. my $pkcs12 = Crypt::OpenSSL::PKCS12->new_from_file($file);
  6.  
  7. print $pkcs12->certificate($pass);
  8. print $pkcs12->private_key($pass);
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
audax
Perlero nuevo
Perlero nuevo
 
Mensajes: 56
Registrado: 2013-06-03 13:16 @594


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados