(Lianja) SSL Client Certificate

Demonstrates how to connect to an SSL server using a client-side certificate, send a simple message, receive a simple response, and disconnect.

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

loSocket = createobject("CkSocket")

// Create an instance of a certificate store object, load a PFX file,
// locate the certificate we need, and use it for signing.
// (a PFX file may contain more than one certificate.)
loCertStore = createobject("CkCertStore")
// The 1st argument is the filename, the 2nd arg is the 
// PFX file's password:
llSuccess = loCertStore.LoadPfxFile("chilkat_secret.pfx","secret")
if (llSuccess <> .T.) then
    ? loCertStore.LastErrorText
    release loSocket
    release loCertStore
    return
endif

loCert = loCertStore.FindCertBySubjectCN("Chilkat Software, Inc.")
if (loCertStore.LastMethodSuccess = .F.) then
    ? loCertStore.LastErrorText
    release loSocket
    release loCertStore
    return
endif

llSuccess = loSocket.SetSslClientCert(loCert)

llSsl = .T.
lnMaxWaitMillisec = 20000

// The SSL server hostname may be an IP address, a domain name,
// or "localhost".  You'll need to change this:

lcSslServerHost = "123.123.88.88"
lnSslServerPort = 8123

// Connect to the SSL server:
llSuccess = loSocket.Connect(lcSslServerHost,lnSslServerPort,llSsl,lnMaxWaitMillisec)
if (llSuccess <> .T.) then
    ? loSocket.LastErrorText
    release loSocket
    release loCertStore
    return
endif

// Set maximum timeouts for reading an writing (in millisec)
loSocket.MaxReadIdleMs = 20000
loSocket.MaxSendIdleMs = 20000

// Send a "Hello Server! -EOM-" message:
llSuccess = loSocket.SendString("Hello Server! -EOM-")
if (llSuccess <> .T.) then
    ? loSocket.LastErrorText
    release loSocket
    release loCertStore
    return
endif

// The server (in this example) is going to send a "Hello Client! -EOM-" 
// message.  Read it:
lcReceivedMsg = loSocket.ReceiveUntilMatch("-EOM-")
if (loSocket.LastMethodSuccess <> .T.) then
    ? loSocket.LastErrorText
    release loSocket
    release loCertStore
    return
endif

// Close the connection with the server
// Wait a max of 20 seconds (20000 millsec)
llSuccess = loSocket.Close(20000)

? lcReceivedMsg


release loSocket
release loCertStore