;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;Anfag der Classe;;;;;;;;;;;;;;;;;;;;;
Type Client
;Die Id des streams
Field Id
;Die Ip des Clientes
Field Ip$
;Der Benutzername
Field Username$
;Eingeloggt?
Field logget%
End Type
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Function server_erstellen(port%=22,Timeout%=6000)
;Server erstellen
;Tcp Timeout einstellen
;Timeouts verlängern
TCPTimeouts(Timeout%,0)
;Serverstarten
svrServer%=CreateTCPServer(port%)
;Und fehler abfangen
If svrServer<>0 Then
   Return svrServer%
Else
   Return 0
End If
End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Function Client_accept(tcp)

strStream=AcceptTCPStream(tcp)
;Wenn ein Client sich meldet...
  If strStream Then
;Neuen User erstellen
      usr.Client=New Client
;User Id = Stream
      usr\Id=strStream
;Stream Ip  abfragen
      streamip=TCPStreamIP(usr\Id)
;Ip mit punkten versehen
      Ip$=DottedIP$(streamip)
;Ip in user\Ip ablegen
      usr\Ip=Ip$
;;;;;;;;;;;;;;;;Anmelde Status auf server anzeigen;;;;;;;;;;;;;;;;

      Print "Client hat sich angemeldet Ip:"+usr\Ip+" Am: "+CurrentDate()+"-"+CurrentTime()

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Begrüßung senden
      WriteString(usr\Id,">>Willkommen "+usr\Ip)
      WriteString(usr\Id,">>Serverzeit: "+CurrentTime()+"-"+CurrentDate())
  End If
;Und fertig
End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Function Client_empfangen() ;prüfen ob ein user eine nachricht gesendet hat
For usr.Client=Each Client
If ReadAvail(usr\Id)
Command$=ReadString(usr\Id)
Hdc=Handle(usr)
;///////Eigene functionen hier////////
Befehle(Command$,Hdc)
;/////////////////////////////////////
End If
Next
End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Function Befehle(Command$,usr);Function um die befehle auszuwerten
u.Client=Object.Client(usr)
;//////////////////////////////////////////////

If Instr(Command$,"Auth:",1);Wenn in Command$ "Auth:" an erster stelle kommt

;;;;;;;;;;;;;;;;;;;;;;;;;;
;Pass wort und benutzernam isolieren
    Text1$=Mid$(Command$,6)
    leer%=Instr(Text1$," ",1)
    name$=Mid$(Text1$,1,leer%)
    wort$=Mid$(Text1$,leer%)
    u\Username$=Trim$(name$)
    Passwort$=Trim$(wort$)

;;;;;;;;;;;;;;;;;;;;;;;;;;
;Und die abfrage wenn Passwort$="Werneke" und logget% =0
;Kann aber noch verbessert werden ;-)
  If Passwort$="DasPasswort" And u\logget%=0
    Color 0,255,0
    u\Logget%=1
    Print "Anmeldung als "+u\Username$+" Um "+CurrentTime()+"-"+CurrentDate()
    WriteString(u\Id,"Eingeloggt Just Fun!")
    Color 255,255,255
  Else
    Color 255,0,0
    WriteString(u\Id,"Anmeldung Fehlgeschlagen")
    WriteString(u\Id,"   Schon eingeloggt?")
    Print "logversuch gescheitert User Ip:"+u\Ip+" Um "+CurrentTime()+"-"+CurrentDate()
    Color 255,255,255
 End If
;;;;;;;;;;;;;;;;;;;;;;;;;;

ElseIf Instr(Command$,"Info",1);Wenn in Command$ "Info" an erster stelle kommt

    WriteString(u\Id,"-------Server Info---------")
    WriteString(u\Id,"Server: ~My Server~")
    WriteString(u\Id,"Serverzeit: "+CurrentTime())
    WriteString(u\Id,"Serverdatum: "+CurrentDate())
    WriteString(u\Id,"ServerIp: 127.0.0.1")
    WriteString(u\Id,"-----Server info ende------")

;##################################################
;############Eigene befehle mit Elseif#############
;####################!!Hier!!######################
;##################################################

Else
    WriteString(u\Id,"Befehl nicht gefunden");Wenn nicht zutrift
End If
;///////////////////////////////////////////////
End Function

Include "E:\server.bb"

;Hauptschleife
Print "Server wird gestartet..."
svr=server_erstellen(22,999999999)
While Not KeyHit(1)
;Die functionen aufrufen   
Client_Accept(svr)
Client_Empfangen()
Wend
End

con_ip = Input("Ip des Servers: ")
con_port = Input("Port des Servers: ")

connect = OpenTCPStream(con_ip, con_port)

If connect<>0 Then
   Delay 1000
   Cls
   Print "Erfolgreich verbunden!"
Else
   Print "ERROr"
EndIf
WaitKey
End

con_ip = Input("Ip des Servers: ")

Include "S_lib.bb"

con_ip$ = Input("Ip des Servers: ")
con_port = Input("Port des Servers: ")

connect = OpenTCPStream(con_ip$, con_port)

Repeat

If connect<>0 Then
   Delay 1000
   Cls
   Print "Erfolgreich verbunden!"
   cmd$ = Input("=>")
   Befehle(cmd$, usr)
   Client_Accept(connect)
   Client_Empfangen()
Else
   Print "ERROr"
EndIf

Until KeyHit(1)

WaitKey
End