/usr/lib/tiger/systems/Linux/2/check_listeningprocs is in tiger 1:3.2.3-10.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 | #!/bin/sh
#
# tiger - A UN*X security checking system
# Copyright (C) 2000, 2001 Javier Fernandez-Sanguino Peña
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# Please see the file `COPYING' for the complete copyright notice.
#
# check_listeningprocs - 08/23/2001
#
# 07/05/2006 jfs Try not to botch when udp6 services are being read
# (Debian Bug #375165)
# 05/15/2005 jfs Proper check for processes in loopback (Debian Bug #307695)
# 05/02/2004 jfs Try to avoid eval problems if handling variables with
# special characters (such as space)
# 09/19/2003 - jfs - Allow empty okprocess and okprocessuser with the patch
# provided by Nicolas François. Also added patch improving the
# use of NETSTAT and LSOF. Information gathered by both is piped to
# the same block to generated the report.
# Reordered changelog.
# 04/23/2003 - jfs - Changed TigerInstallDir to '.'
# 10/16/2002 - jfs - Changed the case statement into an eval in order
# to properly work for more than two processes or users
# (i.e. with "process1|process2")
#
#
# TODO:
# - this script seems to have problems if a program opens an UDP socket
# expecting a reply from a remote host. This might lead to sockets reported
# as open spuriously (see Debian Bug#136991). Should this be fixed?
# (the socket is in fact open and could be accessed remotely)
#
#-----------------------------------------------------------------------------
TigerInstallDir="/usr/lib/tiger"
#
# Set default base directory.
# Order or preference:
# -B option
# TIGERHOMEDIR environment variable
# TigerInstallDir installed location
#
basedir=${TIGERHOMEDIR:=$TigerInstallDir}
for parm
do
case $parm in
-B) basedir=$2; break;;
esac
done
#
# Verify that a config file exists there, and if it does
# source it.
#
[ ! -r $basedir/config ] && {
echo "--ERROR-- [init002e] No 'config' file in \`$basedir'."
exit 1
}
. $basedir/config
. $BASEDIR/initdefs
#
# If run in test mode (-t) this will verify that all required
# elements are set.
#
[ "$Tiger_TESTMODE" = 'Y' ] && {
haveallcmds CUT GREP || exit 1
# Just netstat is needed to run this program, lsof is an addon
haveallcmds LSOF || haveallcmds NETSTAT || exit 1
haveallfiles BASEDIR WORKDIR || exit 1
haveallvars TESTLINK HOSTNAME
message CONFIG init003c "" "$0: Configuration ok..."
exit 0
}
#------------------------------------------------------------------------
echo
echo "# Checking listening processes "
haveallcmds GREP CUT AWK SORT UNIQ || exit 1
haveallcmds LSOF || haveallcmds NETSTAT || exit 1
okprocessusers=${Tiger_Listening_ValidUsers-"root"}
okprocess=${Tiger_Listening_ValidProcs-""}
export okprocess okprocessusers
[ ! -x "$LSOF" ] && message INFO lin004i "" "Using $NETSTAT instead of lsof, information regarding processes will be more limited"
if [ -x "$LSOF" ]
then
$AWK '
BEGIN {
cmd = "$LSOF -FpPcnLt -nPi"
while ((cmd | getline field) > 0){
fieldtype = substr(field,1,1)
sub("^.","",field)
if ("p" == fieldtype) {
}
else if ("c" == fieldtype) {
command = field
}
else if ("L" == fieldtype) {
user = field
}
else if ("t" == fieldtype) {
type = field
}
else if ("P" == fieldtype) {
proto = field
}
else if ("n" == fieldtype) {
addr = field
if (( type == "IPv4" ) && ( addr !~ "->" )) {
printf ("%s %s %s %s\n", user, proto, addr, command)
}
}
}
close(cmd)
}'
else
$NETSTAT -lpeutw --numeric-hosts --numeric-ports |
# remove header
$SED -e '1d;2d' |
while read type x y local remote listen user inode proc
do
[ "$type" = "udp" ] || [ "$type" = "upd6" ] && {
# there is no listen filed, every field are shifted left
user=$listen
proc="$inode $proc"
type="UDP"
}
[ "$type" = "tcp" ] && type="TCP"
[ "$type" = "tcp6" ] && type="TCP"
echo $user $type $local "`echo $proc | $CUT -f 2 -d /`"
done
fi |
# sort on process and remove duplicates
$SORT -k 4 | $UNIQ |
while read user type asocket proc
do
socket=`echo $asocket | $CUT -f 2 -d :`
address=`echo $asocket | $CUT -f 1 -d :`
# Should address = 127.0.0.1 be considered harmful?
# TODO: This could be an option
[ "$address" = "127.0.0.1" ] && address="loopback"
[ "$address" = "0.0.0.0" -o "$address" = "*" ] && address="every"
isokprocess="no"
isokuser="no"
# TODO This should change into a function since it's used twice in the
# code
[ -n "$okprocess" ] && \
isokprocess=`eval "case \"$proc\" in ${okprocess}) echo \"yes\" ;; \
*) echo \"no\" ;; esac"`
# Probably redundant since this is done already at the top
[ -n "$okprocessusers" ] && \
isokuser=`eval "case \"$user\" in ${okprocessusers}) echo \"yes\" ;; \
*) echo \"no\" ;; esac"`
if [ "$isokprocess" = "no" ] ; then
if [ "$isokuser" = "yes" ] ; then
[ "$address" = "every" -a "$Tiger_Listening_Every" != "N" ] && \
message WARN lin002i "" "The process \`$proc' is listening on socket $socket ($type) on $address interface." || \
message INFO lin002i "" "The process \`$proc' is listening on socket $socket ($type) on $address interface."
else
[ "$address" != "loopback" ] && {
message WARN lin003w "" "The process \`$proc' is listening on socket $socket ($type on $address interface) is run by $user."
}
fi # of if okuser
fi # of if okprocess
done
exit 0
|