Telnet Server

[hanibal]

Hallo,
ich möchte ein programm schreiben, welches befehle, welche von einem telnet client kommen, verarbeitet und antwortet, ohne verschlüsselung oder sonst irgendwas. ich habe momtentan aber gar keine ahnung, wie ich so etwas realisieren kann.

[Christian]

Viel erfolg

Nein ernsthaft was ist jetzt die Frage ? Solln wir sowas für dich machen ?
Wie immer wenn es um Internet dinge geht, schau dir Synapse oder LNet an und lerne. Dort sind für die meissten Standartaufgaben Server und Clients implementiert und du musst sie nur leicht abändern.

[hanibal]

Meine Frage is eigentlich, wie mann so einen Server realisieren. z.B. beispiuelmaterialieen.

[Socke]

Hier mal ein paar Anfangsideen, auch wenn ich nicht viel Ahnung von Telnet habe...
Da ich nur LNet (0.6.2) installiert habe, kurz ein paar Sachen dazu:
Es gibt eine Komponente TLTelnetClientComponent; die kannst du dir mal angucken. Ansonsten empfehle ich eine TCP-Verbindung (Komponenten sind auch dabei). Dann darfst du das Telnet-Protokoll selbst implementieren. Wikipedia hat ein paar Links zu den RFC-Dokumenten.

MfG Die Socke

[theo]

Meine Frage is eigentlich, wie mann so einen Server realisieren. z.B. beispiuelmaterialieen.

Bei Synapse ist die echo Demo der einfachste Server.

[mschnell]

Telnet ist eigentlich kein richtiges Protokoll, sondern heißt, dass einfach die Texte als Byte-String über den Socket geschickt werden. Für einen Telnet-Server reicht es also, einfach einen Server-Socket (Default bei Telnet ist Port 23) aufzumachen und auf eine Eingabe von einem Client zu warten.

-Michael

[hanibal]

So, ich kann das prog jetzt compileier (dieses echo demo), aber sobalt man auf den button clickt, beendet sich das programm, und im terminal kommt folgende ausgabe:

Code: Alles auswählen

This binary has no thread support compiled in.
Recompile the application with a thread-driver in the program uses clause before other units using thread.
Runtime error 232 at $0806D987
  $0806D987
  $0806DB85
  $08229361  TTCPECHODAEMON__CREATE,  line 35 of echo.pas
  $080816BB  TFORM1__BUTTON1CLICK,  line 32 of unit1.pas
  $08131139  TCONTROL__CLICK,  line 2043 of ./include/control.inc
  $08142E6F  TBUTTONCONTROL__CLICK,  line 57 of ./include/buttoncontrol.inc
  $08143545  TCUSTOMBUTTON__CLICK,  line 185 of ./include/buttons.inc
  $08143981  TBUTTON__CLICK,  line 318 of ./include/buttons.inc
  $081436FA  TCUSTOMBUTTON__WMDEFAULTCLICKED,  line 240 of ./include/buttons.inc
  $08066FA9

EDIT: das problem ist jetz gelöst, as prog beendet sich nicht mehr, die unit cthreads war nicht mit compiliert.

Jetzt beendet sich das prog nicht mehr, wenn ich auf den button clicke, aber es passwirst sonst auch nichts.
wie kann ich dieses echo demo austesten?

[hanibal]

ah, es leust, ich hab einfach einen protscan gemacht, und daur den port rausgefunden, er erwiedert einfach alles, was ich schreibe.

[hanibal]

So, jet kann ich schon mal sachen an den server schicken, und der kann das dann auch interpretieren, das eluft schonmal super. aber wenn ich sachen zurück scicke, mit "Sendstring" dann kommt das immer in einer zeile, Sprich:
SendString('juhu');
SendString('jaaa');

ergibt beim client:
"juhujaaa"

wie bekomme ich das hin, das der automatisch eine neue zeile danach macht.?

[Christian]

indem du ein #13 mitschickst

[hanibal]

ah, danke funktioniert jezt super

Hätte nicht gedacht, das das so einfach ist.

[af0815]

Rechnen ist auch einfach ... erklär das nur meiner Tochter

BTW: Über die Demos und Sourcen arbeiten brigt sehr viel Verständnis, man darf nur oft den Mut nicht verlieren.

[hanibal]

Ich habe jetzt auch schon einen funktionierenden client, allerdings habe ich da noch ein problem. ich lese die antworten des servers in eine repeat until scheife aus. bis ein punkt an erster stelle kommt. dabwei ergibt sich dann natürlich das problem, dass es auch möglich ist, das ich eine fehler hafte anfrage sende, oder der server abestürzt ist, usw. wie kann ich auslesen, ob es noch daten gibt, welche ich auslesen kann?

momentan siht mein client so aus :

Code: Alles auswählen

program unbenannt;
{$mode objfpc}{$H+}
 
uses crt,blcksock,classes,SysUtils;
var
  sock: TTCPBlockSocket;
  s: string[255];
  r1 : string;
begin
  sock:= ttcpblocksocket.Create;
  try
    sock.Connect('192.168.0.20','12345');
    repeat
    if sock.lastError<>0 then break;
    readln(r1);
    sock.SendString(r1 + CRLF);
    repeat
    s := sock.recvstring(15000);
    writeln(s);
    until s[1] = '.'
    until r1 = 'exit'
//...
  finally
    sock.Free;
  end;
end.

[hanibal]

So, den client, habe ich jetzt auch vertig, is n kelines chat prog geworden.

allerdings sehe ich über all, bei den demos, bei den stellen wo man von einem thread auf eine globale variable zugreift eine TCriticalSection. ich denke, das es dafür ist, das nich2 2 gleichzeitig drauf zugreifen können, oder? is es wichtig das mit einzubauen?

[theo]

is es wichtig das mit einzubauen?

Klar, ausser es kommuniziert nur jeweils ein Client gleichzeitig mit dem Server.