Foro - Perl en Español

por **audax** » 2017-09-21 10:51 @493

Buenas, gente. Tengo un tema que no puedo resolver, a ver si alguien lo ha visto.

Resulta que tengo que autenticarme en una página y para ello necesito tener un certificado digital personal (.pfx).
Esto es lo que hago.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use warnings;
use Data::Dumper;
use IO::File;
use strict;
use WWW::Mechanize;
use IO::Socket::SSL qw(debug4);
 
my $sslPassword = 'PASSCERTIFICADO';
my $mech = WWW::Mechanize->new(autocheck => 0);
$mech->ssl_opts(  SSL_use_cert => 1,
                  verify_hostname => 1,
                  SSL_cert_file => "certificado.pfx",
                  SSL_passwd_cb => sub { $sslPassword }
               );
 
my $url = "https://zeusr.sii.cl/AUT2000/InicioAutenticacion/IngresoCertificado.html?https://palena.sii.cl/cgi_dte/consultaDTE/wsDTEConsRecContHtml.cgi";
$mech->agent_alias('Windows Mozilla');  
$mech->get($url);
$mech->submit();
my $content = $mech->content;
print $content;
my $fh2 = new IO::File(">data.html");
print $fh2 $content;
print $content;
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

El sitio me responde con un código interno el cual significa "Se recomienda cerrar el browser (página de navegación) e intentarlo de nuevo".

De antemano, muchas gracias.
Salu2

Yo creo que no puedes usar el formato pfx de forma directa, sino que debes usar la herramienta openssl para extraer los certificados que vas a usar en formato PEM:

openssl pkcs12 -in certificado.pfx -out micertificados.crt -nokeys -clcerts

Si en vez de formato PEM lo necesitas en formato DEM, hay que ejecutar además esta línea para obtenerlos:

openssl x509 -inform pem -in micertificados.crt -outform der -out mycertificados.cer

Aquí tienes otros métodos para extraer los certificados.

por **audax** » 2017-09-21 12:11 @549

Gracias, explorer siempre tan amable.

Pues lo que tu dices ya lo había probado:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$mech->ssl_opts(  SSL_use_cert => 1,
        verify_hostname => 0,
        SSL_cert_file => 'my.pem',
        SSL_key_file => 'mykey.pem',
        SSL_passwd_cb => sub { $sslPassword }
        );
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y me da exactamente el mismo problema. Ya confirmé que el certificado está vigente, porque lo tengo instalado en mi equipo y puedo acceder al sitio vía web, por Firefox, Chrome o Internet Explorer.

Salu2

por **audax** » 2017-09-21 15:57 @706

Me autorespondo. ¡¡¡Lo pude resolver!!!

Resulta que sí estaba bien configurado el certificado .pfx, lo que pasaba era que el enlace de la página no era exactamente donde se aceptaba el certificado. Además le faltaba un parámetro en el mismo enlace el cual redireccionaba la navegación a una página dentro del sitio ya autenticado.

Hay que tener mucho ojo con qué página uno se autentica con un certificado digital, ya que yo estaba probando con una directamente anterior a la que necesitaba.

Saludos y gracias, explorer, por tu ayuda.

Foro - Perl en Español

Autentificar con certificado digital

Autentificar con certificado digital

Publicidad

Re: Autentificar con certificado digital

Re: Autentificar con certificado digital

Re: Autentificar con certificado digital

¿Quién está conectado?