Autentificar con certificado digital
![Nota Nota](https://perlenespanol.com/foro/styles/prosilver/imageset/icon_post_target.gif)
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.
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
Resulta que tengo que autenticarme en una página y para ello necesito tener un certificado digital personal (.pfx).
Esto es lo que hago.
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.005 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