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.

llSuccess = .F.

loSocket = createobject("CkSocket")

//  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.
lcPfxPassword = "myPfxPassword"
loCert = createobject("CkCert")
llSuccess = loCert.LoadPfxFile("qa_data/server.pfx",lcPfxPassword)
if (llSuccess = .F.) then
    ? loCert.LastErrorText
    release loSocket
    release loCert
    return
endif

//  Configure this object for server-side TLS using the certificate.  The certificate must have
//  access to its corresponding private key.
llSuccess = loSocket.InitSslServer(loCert)
if (llSuccess = .F.) then
    ? loSocket.LastErrorText
    release loSocket
    release loCert
    return
endif

//  Listen for connections.  Accepted connections will use TLS.
llSuccess = loSocket.BindAndListen(5000,25)
if (llSuccess = .F.) then
    ? loSocket.LastErrorText
    release loSocket
    release loCert
    return
endif

loConnectedSock = createobject("CkSocket")
llSuccess = loSocket.AcceptNext(20000,loConnectedSock)
if (llSuccess = .F.) then
    ? loSocket.LastErrorText
    release loSocket
    release loCert
    release loConnectedSock
    return
endif

? "Accepted a TLS client connection."


release loSocket
release loCert
release loConnectedSock