Attribute VB_Name = "modServer"
'Option Explicit

'Basic Server Settings

Public Const ServerPort = 37125                                 'Which port should our server listen to ?
Public Const MaxCon = 20
Public Const PrvPort = 25006
Public Key(MaxCon) As Long
Public Username(MaxCon) As String
Public bSocketStatus(MaxCon) As Boolean                         'Stores which Sockets are already used



' Creates several Accept sockets
' Sockets 1 to MaxCon are used to accept connections.
' Socket 0 is used to tell a client that the server is already full.
Public Function InitAcceptSockets() As Boolean
    
    On Error GoTo err
    
    Dim i As Integer
    
    For i = 1 To MaxCon
    
        ' creates a copy of frmMain.sckAccept(0) during runtime
        Load frmMain.sckAccept(i)
        Load frmMain.tmrTalk(i)
        
    Next i
    
    ' Everything went fine
    InitAcceptSockets = True
    Exit Function
    
err:
    
    InitAcceptSockets = False
    
End Function



' Returns the Number of a unused Socket.
' if no free sockets are left then 0 is returned
Public Function GetFreeSocket() As Integer
    
    Dim i As Integer
    
    For i = 1 To MaxCon
        
        If bSocketStatus(i) = False Then
            ' socket i is unused.
            GetFreeSocket = i
            Exit Function
        End If
        
    Next i
    
    ' No free sockets left!
    GetFreeSocket = 0
    
End Function



' Add a line of text to the debug textbox and scroll down.
Public Sub DebugText(sText As String)
On Error Resume Next
    With frmMain
        .txtDebug.Text = .txtDebug.Text & sText & vbNewLine
        .txtDebug.SelStart = Len(.txtDebug) - 2
    End With
    
End Sub



' Insert all connected clients into the combobox
Public Sub RefreshComboBox()
    
    ' Clear the combobox
    frmMain.cmbClients.Clear
    
    Dim i As Integer
    
    For i = 1 To MaxCon
    
        ' A client is connected on socket i
        If bSocketStatus(i) = True Then frmMain.cmbClients.AddItem "Client " & i & " (" & frmMain.sckAccept(i).RemoteHostIP & ")"
    
    Next i
    
End Sub
Public Function EnDecrypt(Text As String, Key As Long) As String
Dim X As Long
Dim Y As Long

Dim Stream As String

    Y = 1

    For X = 1 To Len(Text)
        Stream = Stream & Chr(Asc(Mid(Text, X, 1)) Xor Asc(Mid(Key, Y, 1)))
        Y = Y Mod Len(Key) + 1
    Next X
    
    EnDecrypt = Stream
End Function

Function vpData(ByVal toEncode As String) As String
On Error Resume Next
'Use as vpdata("12 123 32 12") etc
Dim toMerge

toMerge = Split(toEncode, " ")

For Each Char In toMerge
    toMerge(nm) = Chr(Char)
    nm = nm + 1
    Next
    
vpData = Join(toMerge, "")
End Function