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

guest 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'