Update: the winning combination was

SSL_verify_mode => SSL_VERIFY_PEER | SSL_VERIFY_FAIL_IF_NO_PEER_CERT,

[download]

Thanks to all who replied and offered the correct answer.

Hi,

I'm a beginner perl programmer. I need a very simple "daemon" that when queried over tcp would return a very simple string. It needs to use SSL to verify the client and refuse to send the string, or anything else for that matter, of the client does not properly authenticate itself.

I've cobbled together a very simple script:

#!/usr/bin/perl

use strict;
use IO::Socket::SSL qw(debug0);
use Sys::Hostname;
use Socket;

my $ip_address = inet_ntoa((gethostbyname(hostname))[4]);
my ( $output, $client );

$output = "ok";

my $server = IO::Socket::SSL->new(
 LocalAddr       => $ip_address,
 LocalPort       => q[6666],
 Listen          => q[10],
 SSL_verify_mode => SSL_VERIFY_FAIL_IF_NO_PEER_CERT,
 SSL_cert_file   => q[/etc/httpd/certs/crt.pem],
 SSL_key_file    => q[/etc/httpd/certs/key.pem],
 SSL_ca_file     => q[/etc/httpd/certs/ca-chain.crt.pem],
) or die;

while(1) {
 # accept client
 my $status = $client = $server->accept;

 if ($status) {
  print $client $output;
  shutdown($client,1);
 }
}

[download]

And this is a simple client script:

#!/usr/bin/perl

use strict;
use IO::Socket::SSL qw(debug0);

my $client = IO::Socket::SSL->new(
    # where to connect
    PeerHost        => q[192.168.0.1],
    PeerPort        => q[6666],
    SSL_verify_mode => SSL_VERIFY_PEER,
    SSL_cert_file   => q[./client.crt.pem],
) or die "failed connect or ssl handshake: $!,$SSL_ERROR";

# receive string over SSL connection
my $string = <$client>;
print "Output = $string\n";

[download]

This works as expected. Opening the server in chrome and authentication with the client certificate also works.

However, the folowing also works even though it shouldn't:

wget -q --no-check-cert https://192.168.0.1:6666 -O -

[download]

It shouldn't work because I'm not supplying the client certificate.

How can I force IO::Socket::SSL refuse to send the string without a client certificate?

Thanks, IvanK.

In reply to [SOLVED] Make IO::Socket:SSL refuse connections without client certificate by chepati

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.