Configure a Socket for Server-Side TLS

See more Socket/SSL/TLS Examples

Demonstrates Socket.InitSslServer, which configures the object for server-side TLS using a server certificate that has access to its private key, then listens for and accepts a TLS connection.

The file path is relative to the application's current working directory. An absolute path may also be used. Supply the path appropriate to your own environment.

use strict;
use warnings;
use Chilkat2;

my $socket = Chilkat2::Socket->new;

# The file path is relative to the application's current working directory.  An absolute path
# may also be used.  Supply the path appropriate to your own environment.
# The PFX password should come from a secure source rather than being hard-coded.
my $pfxPassword = 'myPfxPassword';
my $cert = Chilkat2::Cert->new;
my $success = $cert->LoadPfxFile('qa_data/server.pfx', $pfxPassword);
if (!$success) {
    print $cert->LastErrorText, "\n";
    exit;
}

# Configure this object for server-side TLS using the certificate.  The certificate must have
# access to its corresponding private key.
$success = $socket->InitSslServer($cert);
if (!$success) {
    print $socket->LastErrorText, "\n";
    exit;
}

# Listen for connections.  Accepted connections will use TLS.
$success = $socket->BindAndListen(5000, 25);
if (!$success) {
    print $socket->LastErrorText, "\n";
    exit;
}

my $connectedSock = Chilkat2::Socket->new;
$success = $socket->AcceptNext(20000, $connectedSock);
if (!$success) {
    print $socket->LastErrorText, "\n";
    exit;
}

print "Accepted a TLS client connection.\n";