Was sind das für Daten? (gelöst) - #175912 (Allgemeines zu Perl)

GwenDragon

2014-06-04 18:13

User since
2005-01-17
14746 Artikel
Admin1

Bösartige Falle beim SSL-Protokoll.

Schau!

Code (perl): (dl )

$mech = WWW::Mechanize->new( 
    cookie_jar  => {},
        ssl_opts => { 
                SSL_version => 'SSLv2',
                #SSL_version => 'TLSv1',
                verify_hostname => 1, 
                SSL_ca_path     => '/etc/ssl/certs', 
        }
);
my $response = $mech->get('https://www.dab-bank.de');
say $response->status_line;

ergibt:
Error GETing https://www.dab-bank.de: Can't connect to www.dab-bank.de:443 at ssl-ba.pl line 17

und

Code (perl): (dl )

$mech = WWW::Mechanize->new( 
    cookie_jar  => {},
        ssl_opts => { 
                #SSL_version => 'SSLv2',
                SSL_version => 'TLSv1',
                verify_hostname => 1, 
                SSL_ca_path     => '/etc/ssl/certs', 
        }
);
my $response = $mech->get('https://www.dab-bank.de');
say $response->status_line;

ergibt
200 OK

Probiers mal.

//EDIT:
leider sagt
use IO::Socket::SSL qw(debug3);
mit für besseres Debuggen des SSL-Verbindung wenig aus für Nicht-Profis.

Zu den SSL_version siehe unter Methods bei CPAN:

IO::Socket::SSL

Editiert von GwenDragon: Inline-Code wg. Auto-URL vom Forum; Hinweis auf debug-Modus bei IO::Socket::SSL
Last edited: 2014-06-04 18:41:45 +0200 (CEST)

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten