Welcher Dienst hinter welchem Port?

[jackie]

Hi!
Ich benütze folgenden Code, um herauszufinden, ob ein Port offen ist (nur im lokalen Netzwerk; nichts illegales :mrgreen: ):

Delphi-Quellcode:

function PortPresent(const URL: String; Port: DWord): Boolean;
// URL can be like [url]www.developers.org[/url] or an IP like 127.0.0.1
var 
  S: TSocket;
  A: SOCKADDR_IN; 
  W: TWsaData; 
  H: pHostEnt;
begin 
  Result := False; 
  if WsaStartup(MakeWord(1, 1), W) = 0 then 
  begin 
    H := GetHostByName(PChar(URL)); 
    if H <> nil then 
    begin 
      FillChar(A, SizeOf(A), 0); 
      A.sin_family := AF_INET; 
      A.sin_addr.S_addr := PDWord(H.h_addr_list^)^; 
      A.sin_port := htons(Port); 
      S := Socket(AF_INET, SOCK_STREAM, 0); 
      if S <> INVALID_SOCKET then 
      begin 
        Result := Connect(S, A, SizeOf(A)) = 0; 
        CloseSocket(S); 
      end; 
    end; 
  end; 
  WSACleanup; 
end;

Mich würde nun interessieren, ob ich irgendwie herausfinden kann, welcher Dienst hinter welchem Port steckt (zB Port 22 = SSH). Gibt es dafür eine Möglichkeit?

[SleepyMaster]

Ja, indem du die Daten in einer art Datenbank speicherst.
Allerdings musst du dir vorher erst mal die Infos sammeln.

Portlist

[jackie]

Gehts nicht einfacher?
zB dass man mit einer Funktion einen Art Identifier - String des Dienstes ausliest? Es kann ja auch sein, dass die Ports vom Systemadmin vertauscht werden. Wenns nicht geht, dann mach ichs mit der Datenbank, aber anders wärs mir lieber.

Aber vorerst mal danke :)

[neolithos]

In der WinSock gibt es...

Aus der MDSN

Code:

struct servent FAR * getservbyport(
  int port,              
  const char FAR *proto  
);

[jackie]

Ich kann kein c. Könntest du mir das für Delphi übersetzen?

[edit]Schon geschafft. Danke[/edit]

[jackie]

Also ich bräuchte jetzt doch ein Beispiel. Ich habe es versucht mit

Delphi-Quellcode:

Edit1.Text := getservbyport(22,nil);

aber es geht nicht.

[Blechwolf]

Zitat:

Zitat von jackie

Delphi-Quellcode:

Edit1.Text := getservbyport(22,nil);

aber es geht nicht.

Was eigentlich auch klar ist, da Dir getservbyport keinen String sondern ein struct (record auf Delphianisch) zurück liefert. (siehe auch getservbyname)

Code:

struct servent {
    char FAR *        s_name;
    char FAR * FAR *  s_aliases;
    short             s_port;
    char FAR *        s_proto;
};

Probiers evtl. mal mit

Delphi-Quellcode:

Edit1.Text := getservbyport(22,nil).s_name;

Ansonsten mußt Du mal schauen, wie Du die Struct-Elemente in Delphi ansprichst.

Grüße

Wolf

[jackie]

Hi Blechwolf!
Auf das mit dem Record hätte ich selber kommen können :wall:
Ich habs jetzt so versucht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := getservbyport(22,nil).s_name;
end;

Aber jedes mal wenn ich auf den Button drücke, bekomme ich eine Access Violation. Wieso? Was mache ich falsch?

[jackie]

Weiß wirklich keiner was? :(

[neolithos]

Delphi-Quellcode:

var p : servent;
    sTmp : String;
begin
  p := getservbyport(22, nil);
  if p = nil then
     begin
       sTmp := p^.s_name; // Kopiere inhalt
       Edit1.Text := sTmp;
     end;
end;