Thread IO::Socket::SSL liefert Fehlermeldung 'no shared cipher' (40 answers)
Opened by Sascha at 2017-08-04 11:05

Gast Sascha
 2017-08-04 18:44
#187107 #187107
Hallo,

Webseite möchte ich noch nicht bekanntgeben.

Perl Version:

This is perl, v5.10.1 (*) built for x86_64-linux-thread-multi

Das ganze läuft auf einem Webspaceanbieter im Netz.
Nein, klappt nicht mit dem Cipher den ich bekommen habe.

Code Client:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
sub create_new_ssl_client {
   my $client = IO::Socket::INET->new(PeerAddr=>$config{server},PeerPort=>$config{port},Proto=>'tcp')  or errorMsg($!);
   IO::Socket::SSL->start_SSL($client,
                              PeerAddr => $config{server},
                              SSL_hostname => $config{server},
                              SSL_VERSION => 'SSLv23:!SSLv2',
                              verify_hostname => 1,
                              SSL_port     => $config{port},
                              SSL_verify_mode => SSL_VERIFY_PEER,
 		              SSL_verifycn_name => '', # habe ich angegeben möchte ich aber nicht preisgeben :-)
                              SSL_verifycn_scheme => 'https',
                              SSL_ca_file => $config{ca_file},
                              SSL_ca_path => $config{ca_path},
                              SSL_cert_file => $config{cert_file},
                              SSL_key_file => $config{key_file},
                              SSL_cipher_list => $config{cipher_list}
                             );#or errorMsg($!);
   return $client;
}


Server Code:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
sub loop {
       foreach our $key( $select->can_read() ) {  # foreach
          if($key eq $server) {  # if $bay eq $server
                 next if $key eq "";
                 our $bay = $server->accept or next;
                 defined( my $pid = fork()) or die "fork failed: $!";
                 $pid and next; # Master
                 close($server);
                 IO::Socket::SSL->start_SSL($bay,
                                      PeerAddr => $config{server},
                                      SSL_version => 'SSLv23:!SSLv2',
                                      SSL_verify_mode => SSL_VERIFY_PEER,
                                      verify_hostname => 1,
                                      SSL_hostname => $config{server},
                                      SSL_port     => $PORT,
                                      SSL_server => 1,
                       	              SSL_ca_file => $config{ca_file},
                              	      SSL_ca_path => $config{ca_path},
                                      SSL_verifycn_name => '', # Möchte ich nicht preisgeben :-)
                                      SSL_verifycn_scheme => 'https',
                                      SSL_cert_file => $config{cert_file},
                                      SSL_key_file => $config{key_file},
                                      SSL_cipher_list => $config{cipher_list}
                                     ) or die "SSL accept failed: $SSL_ERROR";
our $buffer = "";
my $buffer = <$bay>;


Port ist auf 22222 eingestellt... ist das egal?

lg
Last edited: 2017-08-04 18:50:43 +0200 (CEST)

View full thread IO::Socket::SSL liefert Fehlermeldung 'no shared cipher'