Peter Spiess produced 0,5K in 19 lines...

Hallo Matthias,

Matthias Strack wrote:

...

...

wie kann ich (ausser mit einem Porstscanner) herausfinden welche Ports gerade belegt sind ? bzw welche dämonen gerade laufen ?

entweder mit netstat -p , oder mit lsof -ni

Wo stehen da die Portnummern, die benutzt sind? Sorry, ich finde sie nicht...

wie wär's mit lsof -i -P Gruß, Martin --------------------------------------------------------------------- To unsubscribe, e-mail: suse-linux-unsubscribe@suse.com For additional commands, e-mail: suse-linux-help@suse.com

Nochmal ich :-) es gibt ein Perl-Script namens "showports". Dieses gibt folgendes Ergebnis aus: 744/tcp root 9465 f.... rpc.kmountd 0.0.0.0 6000/tcp root 353 f.... X 0.0.0.0 515/tcp root 211 f.... lpd 0.0.0.0 80/tcp root 180 f.... httpd 0.0.0.0 usw... Weil es nicht allzu groß ist, poste ich es mal: #!/usr/bin/perl # Define the format for output lines format = @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<< $firstpart $address . # Get system info about open ports $response = `netstat -ln`; # Divide by lines @lines = split(/\n/,$response); # The variable `flag' tracks if the header line # has been printed out or not. $flag = 1; foreach (@lines) { # Look only at lines starting by tcp or udp next if ! /^((tcp)|(udp))/; # Parse the line into fields @fields = split(); # Get relevant data: protocol, address and # port $protocol = $fields[0]; ($address,$port) = split(/:/,$fields[3]); # Issue a `fuser' request about protocol #!/usr/bin/perl # Define the format for output lines format = @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<< $firstpart $address . # Get system info about open ports $response = `netstat -ln`; # Divide by lines @lines = split(/\n/,$response); # The variable `flag' tracks if the header line # has been printed out or not. $flag = 1; foreach (@lines) { # Look only at lines starting by tcp or udp next if ! /^((tcp)|(udp))/; # Parse the line into fields @fields = split(); # Get relevant data: protocol, address and # port $protocol = $fields[0]; ($address,$port) = split(/:/,$fields[3]); # Issue a `fuser' request about protocol # and port $response = `fuser -vn $protocol $port`; # Get relevant data from response @rows = split(/\n/,$response); # Header line will be printed once if ($flag) { $flag = 0; print("$rows[1]\n"); } # Print data # and port $response = `fuser -vn $protocol $port`; # Get relevant data from response @rows = split(/\n/,$response); # Header line will be printed once if ($flag) { $flag = 0; print("$rows[1]\n"); } # Print data $firstpart = $rows[2]; write(); } Servus -- Peter Spiess |\:/| peter.spiess@ima-abele.de (o @) http://www.ima-abele.de ---ooO-(_)-Ooo--- Linux, what else ...! --------------------------------------------------------------------- To unsubscribe, e-mail: suse-linux-unsubscribe@suse.com For additional commands, e-mail: suse-linux-help@suse.com