Linux Bedienung über Telnet [Erledigt]

Elektrolurch · Beitrag von **Elektrolurch** » 16.10.2007 22:02

Hi und Heureka

Ich hab mir mal den Code von Shardik zu Gemüte geführt.
Da ich ja im Prinzip immer den gleichen Server anwähle konnte ich das parsen etwas vereinfachen aber es klappt.
Ich kann mich in den Linux Rechner einloggen und meine Befehle absetzen.

Falls es mal einer braucht hier ist mein Code.

Code: Alles auswählen

DatenBuffer.s = Space(100) 
If InitNetwork() = 0 
  MessageRequester("Error", "Can't initialize the network !", 0) 
  End 
EndIf 
IP.s="192.168.178.24"
Port = 23 
ConID = OpenNetworkConnection(IP, Port) 
If ConID 
  ;Erste Sequenz vom Server prüfen und beantworten
  ReceiveNetworkData(ConID, @DatenBuffer, Len(DatenBuffer)) 
  Soll.s=Chr(255)+Chr(253)+Chr(24)+Chr(255)+Chr(253)+Chr(32)+Chr(255)+Chr(253)+Chr(35)+Chr(255)+Chr(253)+Chr(39)
  If Mid(DatenBuffer,0,12)=Soll
  An.s=Chr(255)+Chr(252)+Chr(24)+Chr(255)+Chr(252)+Chr(32)+Chr(255)+Chr(252)+Chr(35)+Chr(255)+Chr(252)+Chr(39);+Chr(13)+Chr(10)
  If SendNetworkData(ConID, @An, 12) = -1 
  MessageRequester("Error", "Server akzeptiert Antwort nicht.!", 0)  
  EndIf
  Else
  MessageRequester("Error", "Serversequenz unbekannt!", 0)
  EndIf
  Delay (500)
  ;Zweite Sequenz vom Server prüfen und beantworten
  ReceiveNetworkData(ConID, @DatenBuffer, Len(DatenBuffer))
  Soll.s=Chr(255)+Chr(251)+Chr(3)+Chr(255)+Chr(253)+Chr(1)+Chr(255)+Chr(253)+Chr(31)+Chr(255)+Chr(251)+Chr(5)+Chr(255)+Chr(253)+Chr(33)
  If Mid(DatenBuffer,0,15)=Soll
  An.s=Chr(255)+Chr(252)+Chr(1)+Chr(255)+Chr(252)+Chr(31)+Chr(255)+Chr(252)+Chr(33);+Chr(255)+Chr(252)+Chr(39);+Chr(13)+Chr(10)
  If SendNetworkData(ConID, @An, 9) = -1 
  MessageRequester("Error", "Server akzeptiert Antwort nicht.!", 0)  
  EndIf
  Else
  MessageRequester("Error", "Serversequenz unbekannt!", 0)
  EndIf
  Delay (500)
  ;Dritte Sequenz vom Server Login 
  ReceiveNetworkData(ConID, @DatenBuffer, Len(DatenBuffer))
  ;Debug DatenBuffer
  An.s=Chr(255)+Chr(253)+Chr(1)+ "root"+Chr(13)+Chr(10)
  If SendNetworkData(ConID, @An, 9) = -1 
  MessageRequester("Error", "Server akzeptiert Antwort nicht.!", 0)  
  EndIf
  Delay (500)
  ;Vierte Sequenz vom Server Password
  ReceiveNetworkData(ConID, @DatenBuffer, Len(DatenBuffer))
  An.s=Chr(255)+Chr(253)+Chr(1)+ "root"+Chr(13)+Chr(10)
  If SendNetworkData(ConID, @An, 9) = -1 
  MessageRequester("Error", "Server akzeptiert Antwort nicht.!", 0)  
  EndIf
  Delay (500)
  ;Fünfte Sequenz vom Server Linuxbefehl
  ReceiveNetworkData(ConID, @DatenBuffer, Len(DatenBuffer))
  An.s=Chr(255)+Chr(253)+Chr(1)+ "mkdir /audio/import/test/"+Chr(13)+Chr(10)
  la.l=Len(An)
  If SendNetworkData(ConID, @An, la) = -1 
  MessageRequester("Error", "Server akzeptiert Antwort nicht.!", 0)  
  EndIf
 CloseNetworkConnection(ConID) 
Else 
  MessageRequester("PureBasic - Client", "Can't find the server (Is it launched ?).", 0) 
EndIf 
End

Danke für eure Anregungen
Andre