Perl Requires Chilkat v11.0.0+

SSL Server Example

See more Socket/SSL/TLS Examples

Demonstrates how to create an SSL socket for accepting connections. This example is *very* simple in that it will create an SSL socket for accepting a single connection. It will read a message from the client, send a reply, and exit. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

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

# An SSL server needs a digital certificate.  This example loads it from a PFX file.

# Create an instance of a certificate store object, load a PFX file,
# locate the certificate we need, and use it.
# (a PFX file may contain more than one certificate.)
my $certStore = Chilkat2::CertStore->new;
# The 1st argument is the filename, the 2nd arg is the
# PFX file's password:
my $success = $certStore->LoadPfxFile('chilkat.pfx', 'test');
if (!$success) {
    print $certStore->LastErrorText, "\n";
    exit;
}

# Find the certificate to be used for SSL:
my $jsonCN = Chilkat2::JsonObject->new;
$jsonCN->UpdateString('CN', 'example.com');

my $cert = Chilkat2::Cert->new;
$success = $certStore->FindCert($jsonCN, $cert);
if (!$success) {
    print $certStore->LastErrorText, "\n";
    exit;
}

# Use the certificate:
$success = $listenSslSocket->InitSslServer($cert);
if (!$success) {
    print $listenSslSocket->LastErrorText, "\n";
    exit;
}

# Bind and listen on a port:
my $myPort = 8123;
# Allow for a max of 5 queued connect requests.
my $backLog = 5;
$success = $listenSslSocket->BindAndListen($myPort, $backLog);
if (!$success) {
    print $listenSslSocket->LastErrorText, "\n";
    exit;
}

# If accepting an SSL/TLS connection, the SSL handshake is part of the connection
# establishment process. This involves a few back-and-forth messages between the
# client and server to establish algorithms and a shared key to create the secure
# channel. The sending and receiving of these messages are governed by the
# MaxReadIdleMs and MaxSendIdleMs properties. If these properties are set to 0
# (and this is the default unless changed by your application), then the
# AcceptNext can hang indefinitely during the SSL handshake process.
# Make sure these properties are set to appropriate values before calling AcceptNext.

# Set a 10 second max for waiting to read/write.  This is for the SSL/TLS handshake establishment.
$listenSslSocket->MaxReadIdleMs(10000);
$listenSslSocket->MaxSendIdleMs(10000);

# Accept a single client connection and establish the secure SSL/TLS channel:
my $maxWaitMillisec = 20000;
my $clientSock = Chilkat2::Socket->new;
$success = $listenSslSocket->AcceptNext($maxWaitMillisec, $clientSock);
if (!$success) {
    print $listenSslSocket->LastErrorText, "\n";
    exit;
}

# The client (in this example) is going to send a "Hello Server! -EOM-"
# message.  Read it:
my $receivedMsg = $clientSock->ReceiveUntilMatch('-EOM-');
if (!$clientSock->LastMethodSuccess) {
    print $clientSock->LastErrorText, "\n";
    exit;
}

print $receivedMsg, "\n";

# Send a "Hello Client! -EOM-" message:
$success = $clientSock->SendString('Hello Client! -EOM-');
if (!$success) {
    print $clientSock->LastErrorText, "\n";
    exit;
}

# Close the connection with the client
# Wait a max of 20 seconds (20000 millsec)
$success = $clientSock->Close(20000);