PowerBuilder

Socket Convert Existing TCP Connection to SSL/TLS

Demonstrates the Chilkat Socket ConvertToSsl method. PowerBuilder

integer li_rc
long li_Success
oleobject loo_Sock
long li_UseTls
long li_Port
long li_MaxWaitMs

li_Success = 0

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

loo_Sock = create oleobject
li_rc = loo_Sock.ConnectToNewObject("Chilkat.Socket")
if li_rc < 0 then
    destroy loo_Sock
    MessageBox("Error","Connecting to COM object failed")
    return
end if

//  --------------------------------------------------------------------
//  This example uses the public TCP/TLS echo service at https://tcpbin.com/
//  --------------------------------------------------------------------

//  The echo server at tcpbin.com expects to receive TCP connections on port 4242, and TLS connections on port 4243.
//  We could simply connect to port 4243 using TLS like this.
//  However, further below, this example shows how to initially make a TCP connection, and then convert the connection to TLS.
li_UseTls = 1
li_Port = 4243
li_MaxWaitMs = 5000
li_Success = loo_Sock.Connect("tcpbin.com",li_Port,li_UseTls,li_MaxWaitMs)
if li_Success = 0 then
    Write-Debug loo_Sock.LastErrorText
    destroy loo_Sock
    return
end if

//  OK, we have a TLS connection.
//  Note: The server chooses the TLS protocol version. 
//  We can see the version of the TLS connection that was established:
Write-Debug "TLS version: " + loo_Sock.TlsVersion

loo_Sock.Close(li_MaxWaitMs)

//  ---------------------------------------------------------------------
//  Now we'll do the same, except first we connect to port 4243 using TCP,
//  and then convert the connection to TLS.
//  
//  This may seem pointless, and it is for the case w/ this server.  However, there could be situations
//  where you're interacting with a server of some kind where there is a need to convert to/from TLS.
//  (This is common internal to many protocols, such as SMTP, IMAP, FTP, etc., and it is often called "explicit" SSL/TLS)

//  Connect again, except this time useTls is 0, so we only have a simple TCP connection after this call.
li_UseTls = 0
li_Success = loo_Sock.Connect("tcpbin.com",li_Port,li_UseTls,li_MaxWaitMs)
if li_Success = 0 then
    Write-Debug loo_Sock.LastErrorText
    destroy loo_Sock
    return
end if

//  Convert the existing TCP connection to TLS.
//  (The method name uses "SSL" because long ago, at the time of initial development, TLS 1.0 did not yet exist.)
li_Success = loo_Sock.ConvertToSsl()
if li_Success = 0 then
    Write-Debug loo_Sock.LastErrorText
    destroy loo_Sock
    return
end if

//  OK, we now have a TLS connection.
//  Again, we can see the TLS version:
Write-Debug "TLS version: " + loo_Sock.TlsVersion

loo_Sock.Close(li_MaxWaitMs)


destroy loo_Sock