PureBasic Forums - English

Code: Select all

openssl req -newkey rsa:2048 -new -nodes -x509 -days 3650 -keyout "key.rsa" -out "cert.pem"

Code: Select all

Define.i Con, Timeout, Length, Format
Define Receive$, Key$, Cert$, ClientID
Define *Buffer
Global tmpKey.s = ""
Global tmpCert.s = ""

If ReadFile(0, "server.key")        ; if the file could be read, we continue ...
  Format = ReadStringFormat(0)
  While Eof(0) = 0                ; loop as long the 'end of file' isn't reached
    tmpKey = tmpKey + ReadString(0, Format)   ; display line by line in the debug window
  Wend
  CloseFile(0)                    ; close the previously opened file
Else
  MessageRequester("Information", "Couldn't open the file!")
EndIf

If ReadFile(0, "server.crt")        ; if the file could be read, we continue ...
  Format = ReadStringFormat(0)
  While Eof(0) = 0                ; loop as long the 'end of file' isn't reached
    tmpCert = tmpCert + ReadString(0, Format)   ; display line by line in the debug window
  Wend
  CloseFile(0)                    ; close the previously opened file
Else
  MessageRequester("Information", "Couldn't open the file!")
EndIf  
  
Debug "key - "+tmpKey
Key$ = tmpKey

Debug "cert - "+tmpCert
Cert$ = tmpCert

UseNetworkTLS(Key$, Cert$)
Con = CreateNetworkServer(#PB_Any, 20252, #PB_Network_TCP | #PB_Network_IPv4 | #PB_Network_TLSv1_3)
*Buffer = AllocateMemory(1000)

If Con
  Timeout = 10000
  
  Debug ("TCP Server with TLSv1_3")
  Debug ("Server Running on port : 20253")
  Repeat
    
      ClientID = EventClient()  
    
      Select NetworkServerEvent()
          
        Case #PB_NetworkEvent_Connect
          Debug ("client connected  ["+Str(ClientID)+"]")
        Case #PB_NetworkEvent_Disconnect  
          Debug ("client disconnected ["+Str(ClientID)+"]")
        Case #PB_NetworkEvent_Data
          
          Debug "Data !"
          PokeA(*Buffer, 0)
          Debug ReceiveNetworkData(ClientID, *Buffer, 1000)
          
          Debug ( "MsgReceived: "+PeekS(*Buffer, -1, #PB_UTF8) )
          SendNetworkString(ClientID, "Well received !!!")
          
        Case #PB_NetworkEvent_None
          Delay(200)
          Timeout - 1
      EndSelect
          
    Until Timeout = 0
    
    CloseNetworkServer(Con)
  Else
    Debug "Can't create the server"
EndIf