PureBasic Forum

Konfiguriert
#PB_NetworkEvent_Connect New Client Socket:36695088
#PB_NetworkEvent_Data Network Client Upgraded to tls cctx = 36695088
#PB_NetworkEvent_Data TLS: [36695088] from ClienID:36691848 IP:127.0.0.1
#PB_NetworkEvent_Data Length=-1
tls_read Fehler:[handshake failed: error:02FFF009:system library:func(4095):Bad file descriptor]

;tls test libressl

EnableExplicit

InitNetwork()

PrototypeC.i Pr_tls_init()
PrototypeC.i Pr_tls_config_new()
PrototypeC.i Pr_tls_load_file_pw(FileName.p-utf8, Length, Password.p-utf8)
PrototypeC.i Pr_tls_load_file(FileName.p-utf8, Length, Passord.s = #Null$)
PrototypeC.i Pr_tls_config_set_ca_mem(*tls_config , Memory.i, Length.i)
PrototypeC.i Pr_tls_config_set_cert_mem(*tls_config , Memory.i, Length.i)
PrototypeC.i Pr_tls_config_set_key_mem(*tls_config , Memory.i, Length.i)
PrototypeC.i Pr_tls_server()
PrototypeC.i Pr_tls_configure(*ctx, *cfg)
PrototypeC.i Pr_tls_error(*ctx)
PrototypeC.i Pr_tls_accept_socket(*ctx, *cctx, Socket.l)
PrototypeC.i Pr_tls_accept_cbs(*ctx, *cctx, read_cb.i, write_cb.i, arg_ch.i = #Null)
PrototypeC.i Pr_tls_read(*cctx, *buffer, Size.i)
PrototypeC.i Pr_tls_handshake(*cctx)
PrototypeC.i Pr_tls_close(*cctx)
PrototypeC.i Pr_tls_free(*ctx)
PrototypeC.i Pr_tls_config_free(*cfg)


#TLS_WANT_POLLIN = -2
#TLS_WANT_POLLOUT   = -3
   
Define libressl_tls = OpenLibrary(#PB_Any, "./libtls.so")

If IsLibrary(libressl_tls)
  Define Call_tls_init = GetFunction(libressl_tls, "tls_init")
  Define Call_tls_config_new = GetFunction(libressl_tls, "tls_config_new")
  Define Call_tls_load_file = GetFunction(libressl_tls, "tls_load_file")
  Define Call_tls_config_set_ca_mem = GetFunction(libressl_tls, "tls_config_set_ca_mem")
  Define Call_tls_config_set_cert_mem = GetFunction(libressl_tls, "tls_config_set_cert_mem")
  Define Call_tls_config_set_key_mem = GetFunction(libressl_tls, "tls_config_set_key_mem")
  Define Call_tls_server = GetFunction(libressl_tls, "tls_server")
  Define Call_tls_configure = GetFunction(libressl_tls, "tls_configure")
  Define Call_tls_error = GetFunction(libressl_tls, "tls_error")
  Define Call_tls_accept_socket = GetFunction(libressl_tls, "tls_accept_socket")
  Define Call_tls_accept_cbs = GetFunction(libressl_tls, "tls_accept_cbs")
  Define Call_tls_read = GetFunction(libressl_tls, "tls_read")
  Define Call_tls_handshake = GetFunction(libressl_tls, "tls_handshake")
  Define Call_tls_close = GetFunction(libressl_tls, "tls_close")
  Define Call_tls_free = GetFunction(libressl_tls, "tls_free")
  Define Call_tls_config_free = GetFunction(libressl_tls, "tls_config_free")
Else
  Debug "Library Not found"
  End
EndIf


Define.Pr_tls_init tls_init = Call_tls_init
Define.Pr_tls_config_new tls_config_new = Call_tls_config_new
Define.Pr_tls_load_file tls_load_file = Call_tls_load_file
Define.Pr_tls_load_file_pw tls_load_file_pw = Call_tls_load_file
Define.Pr_tls_config_set_ca_mem tls_config_set_ca_mem = Call_tls_config_set_ca_mem
Define.Pr_tls_config_set_cert_mem tls_config_set_cert_mem = Call_tls_config_set_cert_mem
Define.Pr_tls_config_set_key_mem tls_config_set_key_mem = Call_tls_config_set_key_mem
Define.Pr_tls_server tls_server = Call_tls_server
Define.Pr_tls_configure tls_configure = Call_tls_configure
Define.Pr_tls_error tls_error = Call_tls_error
Define.Pr_tls_accept_socket tls_accept_socket = Call_tls_accept_socket
Define.Pr_tls_accept_cbs tls_accept_cbs = Call_tls_accept_cbs
Define.Pr_tls_read tls_read = Call_tls_read
Define.Pr_tls_handshake tls_handshake = Call_tls_handshake
Define.Pr_tls_close tls_close = Call_tls_close
Define.Pr_tls_free tls_free = Call_tls_free
Define.Pr_tls_config_free tls_config_free = Call_tls_config_free

Define *ctx, tls_mem_ptr, *cfg, handle, tls_socket, *cctx, *Error
Define Length, ReceivedLength
Define.s Ca, Cert, Key, Password, Error, S_Buffer
Define server_read, client_read, Socket_ID, res, listen
Define SEvent,Server_ID, Client_ID, *Buffer, Quit, BufferSize
BufferSize = 65535
*Buffer = AllocateMemory(BufferSize)
S_Buffer = Space(65535)
*ctx = #Null
*cctx = #Null
*cfg = #Null

If tls_init() = 0
  Debug "Tls_Init Ok"
  *cfg = tls_config_new()
  Debug "Tls_cfg:"+Str(*cfg)
  Ca = "/home/renlin/dev/libressl/sample/test_ca.pem"
  tls_mem_ptr = tls_load_file(Ca, @Length)
  Debug "CA:"+Ca
  If tls_mem_ptr
    Debug "tls_load_file tls_mem_ptr:"+Str(tls_mem_ptr)
    Debug "tls_load_file Length:"+Str(Length)
    Debug "tls_load_file Peeks:"+PeekS(tls_mem_ptr, Length, #PB_Ascii)
    Debug tls_config_set_ca_mem(*cfg, tls_mem_ptr, Length)
  Else
    Debug "load Failed"
    End
  EndIf
 
  Cert = "/home/renlin/dev/libressl/sample/test_server_cert.pem"
  tls_mem_ptr = tls_load_file(Cert, @Length)
  Debug "Cert:"+Cert
  If tls_mem_ptr
    Debug "tls_load_file tls_mem_ptr:"+Str(tls_mem_ptr)
    Debug "tls_load_file Length:"+Str(Length)
    Debug "tls_load_file Peeks:"+PeekS(tls_mem_ptr, Length, #PB_Ascii)
    Debug tls_config_set_cert_mem(*cfg, tls_mem_ptr, Length)
  Else
    Debug "load Failed"
    End
  EndIf
 
  Key = "/home/renlin/dev/libressl/sample/test_server_key.pem" ;/home/renlin/dev/libressl/sample/
  Password = "test-server-pass"
  tls_mem_ptr = tls_load_file_pw(Key, @Length, Password)
  Debug "Key:"+Key
  If tls_mem_ptr
    Debug "tls_load_file tls_mem_ptr:"+Str(tls_mem_ptr)
    Debug "tls_load_file Length:"+Str(Length)
    Debug "tls_load_file Peeks:"+PeekS(tls_mem_ptr, Length, #PB_Ascii)
    Debug tls_config_set_key_mem(*cfg, tls_mem_ptr, Length)
  Else
    Debug "load Failed"
    End
  EndIf
  *ctx = tls_server()
  If *ctx
    Debug "tls_server = " + Str(*ctx)
  Else
    Debug "tls_server failed = " + Str(*ctx)
    End
  EndIf
  If tls_configure(*ctx, *cfg) = 0
    Debug "Konfiguriert"
  Else
    Error = PeekS(tls_error(*ctx),-1,#PB_Ascii)
    Debug "Fehler:["+Error+"]"
    End
  EndIf
  If CreateNetworkServer(0, 1234)
;   Socket_ID = socket_(#AF_INET, #SOCK_STREAM, 6)
;   Debug "Socket ID"+Str(Socket_ID)
;   sockinfo\sin_family = #AF_INET
;   sockinfo\sin_port = htons_(12345)
;   res = bind_(Socket_ID, *sock, SizeOf(sockaddr_in))
;   Debug "Bind" + Str(res)
;   If Socket_ID > 0
;     listen_(Socket_ID, 5)
    ;Warten auf Datenempfang:
     Repeat
   
       SEvent = NetworkServerEvent()
   
      If SEvent
     
        Client_ID = EventClient()
   
        Select SEvent
          Case #PB_NetworkEvent_None
            Delay(1)
          Case #PB_NetworkEvent_Connect
            tls_socket = tls_accept_socket(*ctx, @*cctx, Client_ID)
            If tls_socket = -1
              Error = PeekS(tls_error(*ctx),-1,#PB_Ascii)
              Debug "#PB_NetworkEvent_Connect Fehler:["+Error+"]"
              End
            ElseIf tls_socket = 0
              Debug "#PB_NetworkEvent_Connect New Client Socket:"+Str(*cctx)
            Else
              Debug "Completly Failed"
              End
             
            EndIf 
               
          Case #PB_NetworkEvent_Data
;             Debug "Client "+Str(Client_ID)+" has send a packet !"
;               ;ReceiveNetworkData(Client_ID, *Buffer, 1000)
;               ;Debug "String Undecoded: "+PeekS(*Buffer, -1, #PB_UTF8)
;               ;ReceiveNetworkData(Client_ID, *Buffer, 1000)
;             
;             
;             
            Repeat
              If *cctx = 0
                Debug "#PB_NetworkEvent_Data Socket Upgrade wurde nicht beim Connect durchgeführt"
                tls_socket = tls_accept_socket(*ctx, @*cctx, Client_ID)
                If tls_socket = -1
                  Error = PeekS(tls_error(*ctx),-1,#PB_Ascii)
                  Debug "#PB_NetworkEvent_Data Fehler:["+Error+"]"
                  End
                ElseIf tls_socket = 0
                  Debug "#PB_NetworkEvent_Data Jetzt:"+Str(*cctx)
                Else
                  Debug "Completly Failed."
                  End
                EndIf 
              EndIf
             
              If *cctx > 0
                Debug "#PB_NetworkEvent_Data Network Client Upgraded to tls cctx = " + Str(*cctx)
                Debug "#PB_NetworkEvent_Data TLS: ["+Str(*cctx) + "] from ClienID:" + Str(Client_ID) + " IP:" +IPString(GetClientIP(Client_ID))
                ;Debug "FCNTL: GET:" + Hex(fcntl_(Client_ID, #F_GETFL,0))
;                 If tls_handshake(*ctx) = -1
;                   Debug "#PB_NetworkEvent_Data Handshacke Failed."
;                   End
;                 Else
;                   Debug "#PB_NetworkEvent_Data Handshake I.O."
;                 EndIf
;                  ReceiveNetworkData(Client_ID, *Buffer, 1000)
;                  Debug "String Undecoded: "+PeekS(*Buffer, -1, #PB_Ascii) ; Plain Empfang funktioniert
;                  End
               
                ReceivedLength = tls_read(*cctx, @S_Buffer, 1000)    ; Funktioniert nicht ...
                Debug "#PB_NetworkEvent_Data Length="+Str(ReceivedLength)
               
                If ReceivedLength >= 0
                  ;Debug "String: "+PeekS(*Buffer, ReceivedLength, #PB_UTF8)
                  Debug "String:"+S_Buffer
                  Quit = 1
                  End
                ElseIf ReceivedLength = -1
                  *Error = tls_error(*cctx)
                  If *error > 0
                    Error = PeekS(*Error,-1,#PB_Ascii)
                    Debug "tls_read Fehler:["+Error+"]"
                    End
                  Else
                    Debug *error
                    Debug "End error unknown"
                    End
                  EndIf
                ElseIf ReceivedLength = #TLS_WANT_POLLIN
                  ;Blocked !!!
                  ;How to free ???
                  End
                 
                  ;save_fd = fcntl( create_socket, F_GETFL );
                  ;save_fd |= O_NONBLOCK;
                  ;fcntl( create_socket, F_SETFL, save_fd );
                 
                EndIf
              Else
                Quit = 1
                Error = PeekS(tls_error(*ctx),-1,#PB_Ascii)
                Debug "Fehler:["+Error+"]"
              EndIf
             
            Until Quit = 1
            Quit = 0
          Case #PB_NetworkEvent_Disconnect
            If tls_close(*cctx) <> 0
              *Error = tls_error(*cctx)
              If *error > 0
                Error = PeekS(*Error,-1,#PB_Ascii)
                Debug "tls_read Fehler:["+Error+"]"
                End
              Else
                Debug *error
                Debug "End error unknown"
                End
              EndIf
            Else
              tls_free(*cctx)
            EndIf
           
     
        EndSelect
      EndIf
     
    Until Quit = 1
    tls_free(*ctx)
    tls_config_free(*cfg)
     
  Else
    Debug "NEttwerkfehler"
  EndIf
 
Else
  Debug "Tls Library could Not be initialized"
  End
EndIf

;tls test libressl

EnableExplicit

;InitNetwork()

PrototypeC.i Pr_tls_init()
PrototypeC.i Pr_tls_config_new()
PrototypeC.i Pr_tls_load_file_pw(FileName.p-utf8, Length, Password.p-utf8)
PrototypeC.i Pr_tls_load_file(FileName.p-utf8, Length, Passord.s = #Null$)
PrototypeC.i Pr_tls_config_set_ca_mem(*tls_config , Memory.i, Length.i)
PrototypeC.i Pr_tls_config_set_cert_mem(*tls_config , Memory.i, Length.i)
PrototypeC.i Pr_tls_config_set_key_mem(*tls_config , Memory.i, Length.i)
PrototypeC.i Pr_tls_server()
PrototypeC.i Pr_tls_configure(*ctx, *cfg)
PrototypeC.i Pr_tls_error(*ctx)
PrototypeC.i Pr_tls_accept_socket(*ctx, *cctx, Socket.l)
PrototypeC.i Pr_tls_accept_cbs(*ctx, *cctx, read_cb.i, write_cb.i, arg_ch.i = #Null)
PrototypeC.i Pr_tls_read(*cctx, *buffer, Size.i)
PrototypeC.i Pr_tls_handshake(*cctx)
PrototypeC.i Pr_tls_close(*cctx)
PrototypeC.i Pr_tls_free(*ctx)
PrototypeC.i Pr_tls_config_free(*cfg)


#TLS_WANT_POLLIN = -2
#TLS_WANT_POLLOUT   = -3
   
Define libressl_tls = OpenLibrary(#PB_Any, "./libtls.so")

If IsLibrary(libressl_tls)
  Define Call_tls_init = GetFunction(libressl_tls, "tls_init")
  Define Call_tls_config_new = GetFunction(libressl_tls, "tls_config_new")
  Define Call_tls_load_file = GetFunction(libressl_tls, "tls_load_file")
  Define Call_tls_config_set_ca_mem = GetFunction(libressl_tls, "tls_config_set_ca_mem")
  Define Call_tls_config_set_cert_mem = GetFunction(libressl_tls, "tls_config_set_cert_mem")
  Define Call_tls_config_set_key_mem = GetFunction(libressl_tls, "tls_config_set_key_mem")
  Define Call_tls_server = GetFunction(libressl_tls, "tls_server")
  Define Call_tls_configure = GetFunction(libressl_tls, "tls_configure")
  Define Call_tls_error = GetFunction(libressl_tls, "tls_error")
  Define Call_tls_accept_socket = GetFunction(libressl_tls, "tls_accept_socket")
  Define Call_tls_accept_cbs = GetFunction(libressl_tls, "tls_accept_cbs")
  Define Call_tls_read = GetFunction(libressl_tls, "tls_read")
  Define Call_tls_handshake = GetFunction(libressl_tls, "tls_handshake")
  Define Call_tls_close = GetFunction(libressl_tls, "tls_close")
  Define Call_tls_free = GetFunction(libressl_tls, "tls_free")
  Define Call_tls_config_free = GetFunction(libressl_tls, "tls_config_free")
Else
  Debug "Library Not found"
  End
EndIf


Define.Pr_tls_init tls_init = Call_tls_init
Define.Pr_tls_config_new tls_config_new = Call_tls_config_new
Define.Pr_tls_load_file tls_load_file = Call_tls_load_file
Define.Pr_tls_load_file_pw tls_load_file_pw = Call_tls_load_file
Define.Pr_tls_config_set_ca_mem tls_config_set_ca_mem = Call_tls_config_set_ca_mem
Define.Pr_tls_config_set_cert_mem tls_config_set_cert_mem = Call_tls_config_set_cert_mem
Define.Pr_tls_config_set_key_mem tls_config_set_key_mem = Call_tls_config_set_key_mem
Define.Pr_tls_server tls_server = Call_tls_server
Define.Pr_tls_configure tls_configure = Call_tls_configure
Define.Pr_tls_error tls_error = Call_tls_error
Define.Pr_tls_accept_socket tls_accept_socket = Call_tls_accept_socket
Define.Pr_tls_accept_cbs tls_accept_cbs = Call_tls_accept_cbs
Define.Pr_tls_read tls_read = Call_tls_read
Define.Pr_tls_handshake tls_handshake = Call_tls_handshake
Define.Pr_tls_close tls_close = Call_tls_close
Define.Pr_tls_free tls_free = Call_tls_free
Define.Pr_tls_config_free tls_config_free = Call_tls_config_free

Structure sockaddr
  sa_family.w
  sa_data.s{14}
EndStructure

Structure in_addr
  s_addr.w 
EndStructure

Structure sockaddr_in
  sin_family.w
  sin_port.w
  sin_addr.in_addr
  sin_zero.s{8}
EndStructure

; socket.h
#PF_INET  = 2
#AF_INET  = #PF_INET

; Socket types:
#SOCK_STREAM       =  1      ; stream (connection) socket   
#SOCK_DGRAM         =  2      ; datagram (conn.less) socket   
#SOCK_RAW           =  3      ; raw socket         
#SOCK_RDM           =  4      ; reliably-delivered message   
#SOCK_SEQPACKET   =  5      ; sequential packet socket   
#SOCK_PACKET      = 10      ; linux specific way of   
                               ; getting packets at the dev
                               ; level.  For writing rarp And   
                               ; other similar things on the   
                               ; user level.

#MAX      = 16384
#PORT     = 32356
Define SA.sockaddr
 
Define *ctx, tls_mem_ptr, *cfg, handle, tls_socket, *cctx, *Error
Define Length, ReceivedLength
Define.s Ca, Cert, Key, Password, Error, S_Buffer
Define server_read, client_read, Socket_ID, res, listen
Define SEvent,Server_ID, Client_ID, *Buffer, Quit, BufferSize
Define.i sockfd, connfd, length
Define servaddr.sockaddr_in
Define cli.sockaddr_in
Define.i Ports
Define.s Bindadress
Define buff.s{16384}
Ports = 1235
Bindadress = "127.0.0.1"
servaddr\sin_family = #AF_INET
servaddr\sin_addr\s_addr = Inet_addr_(Bindadress)
servaddr\sin_port = htons_(Ports)

BufferSize = 65535
*Buffer = AllocateMemory(BufferSize)
S_Buffer = Space(65535)
*ctx = #Null
*cctx = #Null
*cfg = #Null

If tls_init() = 0
  Debug "Tls_Init Ok"
  *cfg = tls_config_new()
  Debug "Tls_cfg:"+Str(*cfg)
  Ca = "/home/renlin/dev/libressl/sample/test_ca.pem"
  tls_mem_ptr = tls_load_file(Ca, @Length)
  Debug "CA:"+Ca
  If tls_mem_ptr
    Debug "tls_load_file tls_mem_ptr:"+Str(tls_mem_ptr)
    Debug "tls_load_file Length:"+Str(Length)
    Debug "tls_load_file Peeks:"+PeekS(tls_mem_ptr, Length, #PB_Ascii)
    Debug tls_config_set_ca_mem(*cfg, tls_mem_ptr, Length)
  Else
    Debug "load Failed"
    End
  EndIf
 
  Cert = "/home/renlin/dev/libressl/sample/test_server_cert.pem"
  tls_mem_ptr = tls_load_file(Cert, @Length)
  Debug "Cert:"+Cert
  If tls_mem_ptr
    Debug "tls_load_file tls_mem_ptr:"+Str(tls_mem_ptr)
    Debug "tls_load_file Length:"+Str(Length)
    Debug "tls_load_file Peeks:"+PeekS(tls_mem_ptr, Length, #PB_Ascii)
    Debug tls_config_set_cert_mem(*cfg, tls_mem_ptr, Length)
  Else
    Debug "load Failed"
    End
  EndIf
 
  Key = "/home/renlin/dev/libressl/sample/test_server_key.pem" ;/home/renlin/dev/libressl/sample/
  Password = "test-server-pass"
  tls_mem_ptr = tls_load_file_pw(Key, @Length, Password)
  Debug "Key:"+Key
  If tls_mem_ptr
    Debug "tls_load_file tls_mem_ptr:"+Str(tls_mem_ptr)
    Debug "tls_load_file Length:"+Str(Length)
    Debug "tls_load_file Peeks:"+PeekS(tls_mem_ptr, Length, #PB_Ascii)
    Debug tls_config_set_key_mem(*cfg, tls_mem_ptr, Length)
  Else
    Debug "load Failed"
    End
  EndIf
  *ctx = tls_server()
  If *ctx
    Debug "tls_server = " + Str(*ctx)
  Else
    Debug "tls_server failed = " + Str(*ctx)
    End
  EndIf
  If tls_configure(*ctx, *cfg) = 0
    Debug "Konfiguriert"
  Else
    Error = PeekS(tls_error(*ctx),-1,#PB_Ascii)
    Debug "Fehler:["+Error+"]"
    End
  EndIf
  ;If CreateNetworkServer(0, 1234)
  sockfd = socket_(#AF_INET, #SOCK_STREAM, 0)
  If sockfd = -1
    Debug "socket creation failed..."
    End 1
  Else
    Debug "Socket successfully created.."
  EndIf
  ;// Binding newly created socket To given IP And verification
  If ((bind_(sockfd, @servaddr, SizeOf(servaddr))) <> 0)
    ;PrintN("socket bind failed...")
    Debug "socket bind failed..."
    End 1
  Else
    ;PrintN("Socket successfully binded..")
    Debug "Socket successfully binded.."
  EndIf
  ;// Now server is ready To listen And verification
  If ((listen_(sockfd, 5)) <> 0)
    ;PrintN("Listen failed...")
    Debug "Listen failed..."
    End 1
  Else
    ;PrintN("Server listening..")
    Debug "Server listening.."
  EndIf
  length = SizeOf(cli);
                      ;PrintN("IP:"+Str(servaddr\sin_addr\s_addr))
  Debug "IP:"+Str(servaddr\sin_addr\s_addr)
  ;// Accept the Data packet from client And verification
  connfd = accept_(sockfd, @cli, @length)
  ;PrintN("Accept")
  Debug "Accept"
  If (connfd < 0)
    Debug "server acccept failed...\n"
    End 1
  Else
    Debug "server acccept the client...\n"
    tls_socket = tls_accept_socket(*ctx, @*cctx, connfd)
    If tls_socket = -1
      Error = PeekS(tls_error(*ctx),-1,#PB_Ascii)
      Debug "#PB_NetworkEvent_Connect Fehler:["+Error+"]"
      End
    ElseIf tls_socket = 0
      Debug "#PB_NetworkEvent_Connect New Client Socket:"+Str(*cctx)
    Else
      Debug "Completly Failed"
      End
     
    EndIf 
               
    If *cctx = 0
      Debug "#PB_NetworkEvent_Data Socket Upgrade wurde nicht beim Connect durchgeführt"
      tls_socket = tls_accept_socket(*ctx, @*cctx, Client_ID)
      If tls_socket = -1
        Error = PeekS(tls_error(*ctx),-1,#PB_Ascii)
        Debug "#PB_NetworkEvent_Data Fehler:["+Error+"]"
        End
      ElseIf tls_socket = 0
        Debug "#PB_NetworkEvent_Data Jetzt:"+Str(*cctx)
      Else
        Debug "Completly Failed."
        End
      EndIf 
    EndIf
   
    If *cctx > 0
      Debug "#PB_NetworkEvent_Data Network Client Upgraded to tls cctx = " + Str(*cctx)
      Debug "#PB_NetworkEvent_Data TLS: ["+Str(*cctx) + "] from ClienID:" + Str(connfd) + " IP:" ;+IPString(GetClientIP(connfd))
      ReceivedLength = tls_read(*cctx, @buff, 16384)    ; Funktioniert nicht ...
      Debug "#PB_NetworkEvent_Data Length="+Str(ReceivedLength)
      If ReceivedLength >= 0
        ;Debug "String: "+PeekS(*Buffer, ReceivedLength, #PB_UTF8)
        Debug "String:"+PeekS(@buff,16384, #PB_Ascii)
        Quit = 1
        End
      ElseIf ReceivedLength = -1
        *Error = tls_error(*cctx)
        If *error > 0
          Error = PeekS(*Error,-1,#PB_Ascii)
          Debug "tls_read Fehler:["+Error+"]"
          End
        Else
          Debug *error
          Debug "End error unknown"
          End
        EndIf
      ElseIf ReceivedLength = #TLS_WANT_POLLIN
        ;Blocked !!!
        ;How to free ???
        End
      EndIf
    Else
      Quit = 1
      Error = PeekS(tls_error(*ctx),-1,#PB_Ascii)
      Debug "Fehler:["+Error+"]"
    EndIf
    tls_free(*ctx)
    tls_config_free(*cfg)
    close_(sockfd)
  EndIf
 
Else
  Debug "Tls Library could Not be initialized"
  End
EndIf