Perl
Perl
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.
Background. A TLS listener presents the configured server certificate during the handshake. When client certificates are required, acceptable CA distinguished names are added before InitSslServer.
Chilkat Perl Downloads
use chilkat();
$success = 0;
$socket = chilkat::CkSocket->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.
$pfxPassword = "myPfxPassword";
$cert = chilkat::CkCert->new();
$success = $cert->LoadPfxFile("qa_data/server.pfx",$pfxPassword);
if ($success == 0) {
print $cert->lastErrorText() . "\r\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 == 0) {
print $socket->lastErrorText() . "\r\n";
exit;
}
# Listen for connections. Accepted connections will use TLS.
$success = $socket->BindAndListen(5000,25);
if ($success == 0) {
print $socket->lastErrorText() . "\r\n";
exit;
}
$connectedSock = chilkat::CkSocket->new();
$success = $socket->AcceptNext(20000,$connectedSock);
if ($success == 0) {
print $socket->lastErrorText() . "\r\n";
exit;
}
print "Accepted a TLS client connection." . "\r\n";