security revision 1.63
11.1Scgd#!/bin/sh -
21.1Scgd#
31.63Slukem#	$NetBSD: security,v 1.63 2001/10/03 00:12:17 lukem Exp $
41.9Scgd#	from: @(#)security	8.1 (Berkeley) 6/9/93
51.1Scgd#
61.1Scgd
71.9ScgdPATH=/sbin:/usr/sbin:/bin:/usr/bin
81.1Scgd
91.31Slukemif [ -f /etc/rc.subr ]; then
101.31Slukem	. /etc/rc.subr
111.31Slukemelse
121.31Slukem	echo "Can't read /etc/rc.subr; aborting."
131.31Slukem	exit 1;
141.31Slukemfi
151.31Slukem
161.9Scgdumask 077
171.1Scgd
181.15Smrgif [ -s /etc/security.conf ]; then
191.15Smrg	. /etc/security.conf
201.15Smrgfi
211.15Smrg
221.56SlukemSECUREDIR=`mktemp -d /tmp/_securedir.XXXXXX` || exit 1
231.56Slukem
241.56Slukemtrap "/bin/rm -rf $SECUREDIR ; exit 0" EXIT INT QUIT
251.15Smrg
261.56Slukemif ! cd "$SECUREDIR"; then
271.56Slukem	echo "Can not cd to $SECUREDIR".
281.15Smrg	exit 1
291.15Smrgfi
301.15Smrg
311.34Sabsif [ -z "$max_loginlen" ];then
321.56Slukem	max_loginlen=8
331.34Sabsfi
341.34Sabs
351.49Sjdolecekif [ -z "$max_grouplen" ]; then
361.56Slukem	max_grouplen=8
371.49Sjdolecekfi
381.49Sjdolecek
391.15SmrgERR=secure1.$$
401.15SmrgTMP1=secure2.$$
411.15SmrgTMP2=secure3.$$
421.28SlukemMPBYUID=secure4.$$
431.29SlukemMPBYPATH=secure5.$$
441.27SlukemLIST=secure6.$$
451.27SlukemOUTPUT=secure7.$$
461.32SlukemLABELS=secure8.$$
471.62SatatatPKGS=secure9.$$
481.15Smrg
491.48Sabs# Handle backup_dir not being set in .conf file
501.48Sabsbackup_dir=${backup_dir:-/var/backups}
511.62SatatatCHANGELIST=""
521.62Satatatpkg_dbdir=${pkg_dbdir:-/var/db/pkg}
531.48Sabs
541.15SmrgMP=/etc/master.passwd
551.9Scgd
561.27Slukem# these is used several times.
571.34Sabsawk -F: '!/^+/ { print $1 " " $3 }' $MP | sort -k2n > $MPBYUID
581.29Slukemawk -F: '{ print $1 " " $9 }' $MP | sort -k2 > $MPBYPATH
591.9Scgd
601.9Scgd# Check the master password file syntax.
611.32Slukem#
621.31Slukemif checkyesno check_passwd; then
631.34Sabs	awk -v "len=$max_loginlen" '
641.25Slukem	BEGIN {
651.25Slukem		while ( getline < "/etc/shells" > 0 ) {
661.39Shubertf			if ($0 ~ /^\#/ || $0 ~ /^$/ )
671.25Slukem				continue;
681.25Slukem			shells[$1]++;
691.25Slukem		}
701.25Slukem		FS=":";
711.25Slukem	}
721.25Slukem
731.25Slukem	{
741.15Smrg		if ($0 ~ /^[	 ]*$/) {
751.25Slukem			printf "Line %d is a blank line.\n", NR;
761.15Smrg			next;
771.15Smrg		}
781.34Sabs		if (NF != 10 && ($1 != "+" || NF != 1))
791.25Slukem			printf "Line %d has the wrong number of fields.\n", NR;
801.34Sabs		if ($1 == "+" )  {
811.34Sabs			if (NF != 1 && $3 == 0)
821.34Sabs			    printf "Line %d includes entries with uid 0.\n", NR;
831.34Sabs			next;
841.34Sabs		}
851.53Satatat		if ($1 !~ /^[A-Za-z0-9]([-A-Za-z0-9]*[A-Za-z0-9])*$/)
861.25Slukem			printf "Login %s has non-alphanumeric characters.\n",
871.25Slukem			    $1;
881.34Sabs		if (length($1) > len)
891.34Sabs			printf "Login %s has more than "len" characters.\n", $1;
901.15Smrg		if ($2 == "")
911.25Slukem			printf "Login %s has no password.\n", $1;
921.59Sperry		if (length($2) != 13 && 
931.59Sperry		    length($2) != 20 && 
941.59Sperry		    length($2) != 34 &&
951.59Sperry		    $2 != "" &&
961.59Sperry		    $2 !~ /^\*[A-z-]+$/ &&
971.59Sperry		    $1 != "toor") {
981.25Slukem			if ($10 == "" || shells[$10])
991.27Slukem		    printf "Login %s is off but still has a valid shell (%s)\n",
1001.25Slukem				    $1, $10;
1011.25Slukem		} else if (! shells[$10])
1021.25Slukem			printf "Login %s does not have a valid shell (%s)\n",
1031.25Slukem			    $1, $10;
1041.15Smrg		if ($3 == 0 && $1 != "root" && $1 != "toor")
1051.25Slukem			printf "Login %s has a user id of 0.\n", $1;
1061.15Smrg		if ($3 < 0)
1071.25Slukem			printf "Login %s has a negative user id.\n", $1;
1081.15Smrg		if ($4 < 0)
1091.25Slukem			printf "Login %s has a negative group id.\n", $1;
1101.15Smrg	}' < $MP > $OUTPUT
1111.15Smrg	if [ -s $OUTPUT ] ; then
1121.15Smrg		printf "\nChecking the $MP file:\n"
1131.15Smrg		cat $OUTPUT
1141.15Smrg	fi
1151.15Smrg
1161.15Smrg	awk -F: '{ print $1 }' $MP | sort | uniq -d > $OUTPUT
1171.15Smrg	if [ -s $OUTPUT ] ; then
1181.15Smrg		printf "\n$MP has duplicate user names.\n"
1191.15Smrg		column $OUTPUT
1201.15Smrg	fi
1211.15Smrg
1221.37Swrstuden# To not exclude 'toor', a standard duplicate root account, from the duplicate
1231.37Swrstuden# account test, uncomment the line below (without egrep in it)and comment
1241.37Swrstuden# out the line (with egrep in it) below it.
1251.37Swrstuden#
1261.37Swrstuden#	< $MPBYUID uniq -d -f 1 | awk '{ print $2 }' > $TMP2
1271.36Swrstuden	< $MPBYUID egrep -v '^toor ' | uniq -d -f 1 | awk '{ print $2 }' > $TMP2
1281.15Smrg	if [ -s $TMP2 ] ; then
1291.15Smrg		printf "\n$MP has duplicate user id's.\n"
1301.15Smrg		while read uid; do
1311.28Slukem			grep -w $uid $MPBYUID
1321.15Smrg		done < $TMP2 | column
1331.15Smrg	fi
1341.9Scgdfi
1351.9Scgd
1361.9Scgd# Backup the master password file; a special case, the normal backup
1371.9Scgd# mechanisms also print out file differences and we don't want to do
1381.9Scgd# that because this file has encrypted passwords in it.
1391.32Slukem#
1401.48SabsCUR=$backup_dir/${MP##*/}.current
1411.48SabsBACK=$backup_dir/${MP##*/}.backup
1421.9Scgdif [ -s $CUR ] ; then
1431.9Scgd	if cmp -s $CUR $MP; then
1441.9Scgd		:
1451.9Scgd	else
1461.52Satatat		backup_file update $MP $CUR $BACK
1471.9Scgd	fi
1481.9Scgdelse
1491.52Satatat	backup_file add $MP $CUR $BACK
1501.9Scgdfi
1511.9Scgd
1521.9Scgd# Check the group file syntax.
1531.32Slukem#
1541.31Slukemif checkyesno check_group; then
1551.15Smrg	GRP=/etc/group
1561.49Sjdolecek	awk -F: -v "len=$max_grouplen" '{
1571.15Smrg		if ($0 ~ /^[	 ]*$/) {
1581.25Slukem			printf "Line %d is a blank line.\n", NR;
1591.15Smrg			next;
1601.15Smrg		}
1611.34Sabs		if (NF != 4 && ($1 != "+" || NF != 1))
1621.25Slukem			printf "Line %d has the wrong number of fields.\n", NR;
1631.34Sabs		if ($1 == "+" )  {
1641.34Sabs			next;
1651.34Sabs		}
1661.53Satatat		if ($1 !~ /^[A-Za-z0-9]([-A-Za-z0-9]*[A-Za-z0-9])*$/)
1671.25Slukem			printf "Group %s has non-alphanumeric characters.\n",
1681.25Slukem			    $1;
1691.49Sjdolecek		if (length($1) > len)
1701.49Sjdolecek			printf "Group %s has more than "len" characters.\n", $1;
1711.15Smrg		if ($3 !~ /[0-9]*/)
1721.25Slukem			printf "Login %s has a negative group id.\n", $1;
1731.15Smrg	}' < $GRP > $OUTPUT
1741.15Smrg	if [ -s $OUTPUT ] ; then
1751.15Smrg		printf "\nChecking the $GRP file:\n"
1761.15Smrg		cat $OUTPUT
1771.15Smrg	fi
1781.15Smrg
1791.15Smrg	awk -F: '{ print $1 }' $GRP | sort | uniq -d > $OUTPUT
1801.15Smrg	if [ -s $OUTPUT ] ; then
1811.15Smrg		printf "\n$GRP has duplicate group names.\n"
1821.15Smrg		column $OUTPUT
1831.15Smrg	fi
1841.9Scgdfi
1851.9Scgd
1861.9Scgd# Check for root paths, umask values in startup files.
1871.9Scgd# The check for the root paths is problematical -- it's likely to fail
1881.9Scgd# in other environments.  Once the shells have been modified to warn
1891.9Scgd# of '.' in the path, the path tests should go away.
1901.32Slukem#
1911.31Slukemif checkyesno check_rootdotfiles; then
1921.28Slukem	> $OUTPUT
1931.15Smrg	rhome=`csh -fc "echo ~root"`
1941.15Smrg	umaskset=no
1951.15Smrg	list="/etc/csh.cshrc /etc/csh.login ${rhome}/.cshrc ${rhome}/.login"
1961.15Smrg	for i in $list ; do
1971.15Smrg		if [ -f $i ] ; then
1981.45Ssommerfe			if egrep '^[ \t]*umask[ \t]+[0-7]+' $i > /dev/null ; then
1991.15Smrg				umaskset=yes
2001.15Smrg			fi
2011.63Slukem			# Double check the umask value itself; ensure that
2021.63Slukem			# both the 020 and 002 bits are set.
2031.63Slukem			# We handle this in decimal initially to extract the
2041.63Slukem			# digits, and then extract the `2' bit of each digit.
2051.63Slukem			# This is made especially painful because 
2061.45Ssommerfe			# bitwise operations were left out of awk.
2071.45Ssommerfe			egrep '^[ \t]*umask[ \t]+[0-7]+' $i |
2081.63Slukem			awk '{
2091.63Slukem				g= ($2 % 100) - ($2 % 10);
2101.63Slukem				g /= 10;
2111.63Slukem				g = g % 4;
2121.63Slukem				g -= g % 2;
2131.63Slukem				if (g != 2) {
2141.63Slukem					print "\tRoot umask is group writeable"
2151.63Slukem				}
2161.63Slukem				o = ($2 % 10);
2171.63Slukem				o = o % 4;
2181.63Slukem				o -= o % 2;
2191.63Slukem				if (o != 2) {
2201.63Slukem					print "\tRoot umask is other writeable"
2211.63Slukem			    	}
2221.63Slukem			    }' | sort -u >> $OUTPUT
2231.26Slukem			SAVE_PATH=$PATH
2241.26Slukem			unset PATH
2251.15Smrg			/bin/csh -f -s << end-of-csh > /dev/null 2>&1
2261.15Smrg				source $i
2271.15Smrg				/bin/ls -ldgT \$path > $TMP1
2281.9Scgdend-of-csh
2291.26Slukem			PATH=$SAVE_PATH
2301.15Smrg			awk '{
2311.15Smrg				if ($10 ~ /^\.$/) {
2321.27Slukem					print "\tThe root path includes .";
2331.15Smrg					next;
2341.15Smrg				}
2351.15Smrg			     }
2361.15Smrg			     $1 ~ /^d....w/ \
2371.27Slukem		{ print "\tRoot path directory " $10 " is group writeable." } \
2381.15Smrg			     $1 ~ /^d.......w/ \
2391.27Slukem		{ print "\tRoot path directory " $10 " is other writeable." }' \
2401.15Smrg			< $TMP1 >> $OUTPUT
2411.15Smrg		fi
2421.15Smrg	done
2431.15Smrg	if [ $umaskset = "no" -o -s $OUTPUT ] ; then
2441.27Slukem		printf "\nChecking root csh paths, umask values:\n$list\n\n"
2451.15Smrg		if [ -s $OUTPUT ]; then
2461.15Smrg			cat $OUTPUT
2471.15Smrg		fi
2481.15Smrg		if [ $umaskset = "no" ] ; then
2491.27Slukem		    printf "\tRoot csh startup files do not set the umask.\n"
2501.15Smrg		fi
2511.9Scgd	fi
2521.9Scgd
2531.28Slukem	> $OUTPUT
2541.15Smrg	rhome=/root
2551.15Smrg	umaskset=no
2561.23Slukem	list="/etc/profile ${rhome}/.profile"
2571.15Smrg	for i in $list; do
2581.15Smrg		if [ -f $i ] ; then
2591.15Smrg			if egrep umask $i > /dev/null ; then
2601.15Smrg				umaskset=yes
2611.15Smrg			fi
2621.15Smrg			egrep umask $i |
2631.15Smrg			awk '$2 % 100 < 20 \
2641.27Slukem				{ print "\tRoot umask is group writeable" } \
2651.15Smrg			     $2 % 10 < 2 \
2661.27Slukem				{ print "\tRoot umask is other writeable" }' \
2671.27Slukem			    >> $OUTPUT
2681.26Slukem			SAVE_PATH=$PATH
2691.26Slukem			unset PATH
2701.15Smrg			/bin/sh << end-of-sh > /dev/null 2>&1
2711.15Smrg				. $i
2721.26Slukem				list=\`echo \$PATH | /usr/bin/sed -e \
2731.26Slukem				    's/^:/.:/;s/:$/:./;s/::/:.:/g;s/:/ /g'\`
2741.15Smrg				/bin/ls -ldgT \$list > $TMP1
2751.9Scgdend-of-sh
2761.26Slukem			PATH=$SAVE_PATH
2771.15Smrg			awk '{
2781.15Smrg				if ($10 ~ /^\.$/) {
2791.27Slukem					print "\tThe root path includes .";
2801.15Smrg					next;
2811.15Smrg				}
2821.15Smrg			     }
2831.15Smrg			     $1 ~ /^d....w/ \
2841.27Slukem		{ print "\tRoot path directory " $10 " is group writeable." } \
2851.15Smrg			     $1 ~ /^d.......w/ \
2861.27Slukem		{ print "\tRoot path directory " $10 " is other writeable." }' \
2871.15Smrg			< $TMP1 >> $OUTPUT
2881.9Scgd
2891.15Smrg		fi
2901.15Smrg	done
2911.15Smrg	if [ $umaskset = "no" -o -s $OUTPUT ] ; then
2921.15Smrg		printf "\nChecking root sh paths, umask values:\n$list\n"
2931.15Smrg		if [ -s $OUTPUT ]; then
2941.15Smrg			cat $OUTPUT
2951.15Smrg		fi
2961.15Smrg		if [ $umaskset = "no" ] ; then
2971.27Slukem			printf "\tRoot sh startup files do not set the umask.\n"
2981.15Smrg		fi
2991.9Scgd	fi
3001.9Scgdfi
3011.9Scgd
3021.9Scgd# Root and uucp should both be in /etc/ftpusers.
3031.32Slukem#
3041.31Slukemif checkyesno check_ftpusers; then
3051.28Slukem	> $OUTPUT
3061.28Slukem	list="uucp "`awk '$2 == 0 { print $1 }' $MPBYUID`
3071.27Slukem	for i in $list; do
3081.29Slukem		if /usr/libexec/ftpd -C $i ; then
3091.29Slukem			printf "\t$i is not denied\n" >> $OUTPUT
3101.27Slukem		fi
3111.27Slukem	done
3121.28Slukem	if [ -s $OUTPUT ]; then
3131.28Slukem		printf "\nChecking the /etc/ftpusers configuration:\n"
3141.28Slukem		cat $OUTPUT
3151.28Slukem	fi
3161.9Scgdfi
3171.9Scgd
3181.43Sitojun# Uudecode should not be in the /etc/mail/aliases file.
3191.32Slukem#
3201.31Slukemif checkyesno check_aliases; then
3211.43Sitojun	for f in /etc/mail/aliases /etc/aliases; do
3221.43Sitojun		if [ -f $f ] && egrep '^[^#]*(uudecode|decode).*\|' $f; then
3231.43Sitojun			printf "\nEntry for uudecode in $f file.\n"
3241.43Sitojun		fi
3251.43Sitojun	done
3261.9Scgdfi
3271.9Scgd
3281.9Scgd# Files that should not have + signs.
3291.32Slukem#
3301.31Slukemif checkyesno check_rhosts; then
3311.15Smrg	list="/etc/hosts.equiv /etc/hosts.lpd"
3321.15Smrg	for f in $list ; do
3331.15Smrg		if [ -f $f ] && egrep '\+' $f > /dev/null ; then
3341.15Smrg			printf "\nPlus sign in $f file.\n"
3351.15Smrg		fi
3361.15Smrg	done
3371.15Smrg
3381.15Smrg	# Check for special users with .rhosts files.  Only root and toor should
3391.16Smikel	# have .rhosts files.  Also, .rhosts files should not have plus signs.
3401.15Smrg	awk -F: '$1 != "root" && $1 != "toor" && \
3411.15Smrg		($3 < 100 || $1 == "ftp" || $1 == "uucp") \
3421.20Smycroft			{ print $1 " " $9 }' $MP |
3431.19Smycroft	sort -k2 |
3441.15Smrg	while read uid homedir; do
3451.15Smrg		if [ -f ${homedir}/.rhosts ] ; then
3461.15Smrg			rhost=`ls -ldgT ${homedir}/.rhosts`
3471.46Schristos			printf -- "$uid: $rhost\n"
3481.15Smrg		fi
3491.15Smrg	done > $OUTPUT
3501.15Smrg	if [ -s $OUTPUT ] ; then
3511.15Smrg		printf "\nChecking for special users with .rhosts files.\n"
3521.15Smrg		cat $OUTPUT
3531.15Smrg	fi
3541.15Smrg
3551.15Smrg	while read uid homedir; do
3561.35Sfair		if [ -f ${homedir}/.rhosts -a -r ${homedir}/.rhosts ] && \
3571.41Schristos		    cat -f ${homedir}/.rhosts | egrep '\+' > /dev/null ; then
3581.46Schristos			printf -- "$uid: + in .rhosts file.\n"
3591.15Smrg		fi
3601.29Slukem	done < $MPBYPATH > $OUTPUT
3611.15Smrg	if [ -s $OUTPUT ] ; then
3621.15Smrg		printf "\nChecking .rhosts files syntax.\n"
3631.15Smrg		cat $OUTPUT
3641.15Smrg	fi
3651.9Scgdfi
3661.9Scgd
3671.9Scgd# Check home directories.  Directories should not be owned by someone else
3681.9Scgd# or writeable.
3691.32Slukem#
3701.31Slukemif checkyesno check_homes; then
3711.15Smrg	while read uid homedir; do
3721.15Smrg		if [ -d ${homedir}/ ] ; then
3731.15Smrg			file=`ls -ldgT ${homedir}`
3741.46Schristos			printf -- "$uid $file\n"
3751.9Scgd		fi
3761.29Slukem	done < $MPBYPATH |
3771.15Smrg	awk '$1 != $4 && $4 != "root" \
3781.15Smrg		{ print "user " $1 " home directory is owned by " $4 }
3791.15Smrg	     $2 ~ /^-....w/ \
3801.15Smrg		{ print "user " $1 " home directory is group writeable" }
3811.15Smrg	     $2 ~ /^-.......w/ \
3821.27Slukem		{ print "user " $1 " home directory is other writeable" }' \
3831.27Slukem	    > $OUTPUT
3841.15Smrg	if [ -s $OUTPUT ] ; then
3851.15Smrg		printf "\nChecking home directories.\n"
3861.15Smrg		cat $OUTPUT
3871.15Smrg	fi
3881.15Smrg
3891.15Smrg	# Files that should not be owned by someone else or readable.
3901.27Slukem	list=".Xauthority .netrc"
3911.15Smrg	while read uid homedir; do
3921.15Smrg		for f in $list ; do
3931.15Smrg			file=${homedir}/${f}
3941.15Smrg			if [ -f $file ] ; then
3951.46Schristos				printf -- "$uid $f `ls -ldgT $file`\n"
3961.15Smrg			fi
3971.15Smrg		done
3981.29Slukem	done < $MPBYPATH |
3991.15Smrg	awk '$1 != $5 && $5 != "root" \
4001.15Smrg		{ print "user " $1 " " $2 " file is owned by " $5 }
4011.15Smrg	     $3 ~ /^-...r/ \
4021.15Smrg		{ print "user " $1 " " $2 " file is group readable" }
4031.15Smrg	     $3 ~ /^-......r/ \
4041.15Smrg		{ print "user " $1 " " $2 " file is other readable" }
4051.15Smrg	     $3 ~ /^-....w/ \
4061.15Smrg		{ print "user " $1 " " $2 " file is group writeable" }
4071.15Smrg	     $3 ~ /^-.......w/ \
4081.27Slukem		{ print "user " $1 " " $2 " file is other writeable" }' \
4091.27Slukem	    > $OUTPUT
4101.15Smrg
4111.15Smrg	# Files that should not be owned by someone else or writeable.
4121.19Smycroft	list=".bash_history .bash_login .bash_logout .bash_profile .bashrc \
4131.19Smycroft	      .cshrc .emacs .exrc .forward .history .klogin .login .logout \
4141.27Slukem	      .profile .qmail .rc_history .rhosts .tcshrc .twmrc .xinitrc \
4151.27Slukem	      .xsession"
4161.15Smrg	while read uid homedir; do
4171.15Smrg		for f in $list ; do
4181.15Smrg			file=${homedir}/${f}
4191.15Smrg			if [ -f $file ] ; then
4201.46Schristos				printf -- "$uid $f `ls -ldgT $file`\n"
4211.15Smrg			fi
4221.15Smrg		done
4231.29Slukem	done < $MPBYPATH |
4241.15Smrg	awk '$1 != $5 && $5 != "root" \
4251.15Smrg		{ print "user " $1 " " $2 " file is owned by " $5 }
4261.15Smrg	     $3 ~ /^-....w/ \
4271.15Smrg		{ print "user " $1 " " $2 " file is group writeable" }
4281.15Smrg	     $3 ~ /^-.......w/ \
4291.27Slukem		{ print "user " $1 " " $2 " file is other writeable" }' \
4301.27Slukem	    >> $OUTPUT
4311.15Smrg	if [ -s $OUTPUT ] ; then
4321.15Smrg		printf "\nChecking dot files.\n"
4331.15Smrg		cat $OUTPUT
4341.15Smrg	fi
4351.9Scgdfi
4361.9Scgd
4371.9Scgd# Mailboxes should be owned by user and unreadable.
4381.32Slukem#
4391.31Slukemif checkyesno check_varmail; then
4401.63Slukem	ls -l /var/mail | \
4411.63Slukem	awk '	NR == 1 { next; }
4421.63Slukem	    	$3 != $9 {
4431.63Slukem			print "user " $9 " mailbox is owned by " $3
4441.63Slukem		}
4451.63Slukem		$1 != "-rw-------" {
4461.63Slukem			print "user " $9 " mailbox is " $1 ", group " $4
4471.63Slukem		}' > $OUTPUT
4481.15Smrg	if [ -s $OUTPUT ] ; then
4491.15Smrg		printf "\nChecking mailbox ownership.\n"
4501.15Smrg		cat $OUTPUT
4511.15Smrg	fi
4521.15Smrgfi
4531.15Smrg
4541.32Slukem# NFS exports shouldn't be globally exported
4551.32Slukem#
4561.32Slukemif checkyesno check_nfs && [ -f /etc/exports ]; then
4571.32Slukem	awk '{
4581.22Slukem		# ignore comments and blank lines
4591.39Shubertf		if ($0 ~ /^\#/ || $0 ~ /^$/ )
4601.22Slukem			next;
4611.22Slukem
4621.15Smrg		readonly = 0;
4631.15Smrg		for (i = 2; i <= NF; ++i) {
4641.15Smrg			if ($i ~ /-ro/)
4651.15Smrg				readonly = 1;
4661.15Smrg			else if ($i !~ /^-/)
4671.15Smrg				next;
4681.15Smrg		}
4691.15Smrg		if (readonly)
4701.15Smrg			print "File system " $1 " globally exported, read-only."
4711.15Smrg		else
4721.15Smrg			print "File system " $1 " globally exported, read-write."
4731.32Slukem	}' < /etc/exports > $OUTPUT
4741.32Slukem	if [ -s $OUTPUT ] ; then
4751.15Smrg		printf "\nChecking for globally exported file systems.\n"
4761.15Smrg		cat $OUTPUT
4771.15Smrg	fi
4781.9Scgdfi
4791.9Scgd
4801.9Scgd# Display any changes in setuid files and devices.
4811.32Slukem#
4821.31Slukemif checkyesno check_devices; then
4831.28Slukem	> $ERR
4841.15Smrg	(find / \( ! -fstype local -o -fstype fdesc -o -fstype kernfs \
4851.15Smrg			-o -fstype procfs \) -a -prune -o \
4861.21Smycroft	    \( \( -perm -u+s -a ! -type d \) -o \
4871.21Smycroft	       \( -perm -g+s -a ! -type d \) -o \
4881.24Slukem	       -type b -o -type c \) -print0 | \
4891.24Slukem	xargs -0 ls -ldgTq | sort +9 > $LIST) 2> $OUTPUT
4901.15Smrg
4911.15Smrg	# Display any errors that occurred during system file walk.
4921.15Smrg	if [ -s $OUTPUT ] ; then
4931.28Slukem		printf "Setuid/device find errors:\n" >> $ERR
4941.28Slukem		cat $OUTPUT >> $ERR
4951.28Slukem		printf "\n" >> $ERR
4961.15Smrg	fi
4971.15Smrg
4981.15Smrg	# Display any changes in the setuid file list.
4991.15Smrg	egrep -v '^[bc]' $LIST > $TMP1
5001.15Smrg	if [ -s $TMP1 ] ; then
5011.15Smrg		# Check to make sure uudecode isn't setuid.
5021.15Smrg		if grep -w uudecode $TMP1 > /dev/null ; then
5031.28Slukem			printf "\nUudecode is setuid.\n" >> $ERR
5041.15Smrg		fi
5051.15Smrg
5061.48Sabs		CUR=$backup_dir/setuid.current
5071.48Sabs		BACK=$backup_dir/setuid.backup
5081.9Scgd
5091.15Smrg		if [ -s $CUR ] ; then
5101.15Smrg			if cmp -s $CUR $TMP1 ; then
5111.15Smrg				:
5121.15Smrg			else
5131.15Smrg				> $TMP2
5141.15Smrg				join -110 -210 -v2 $CUR $TMP1 > $OUTPUT
5151.15Smrg				if [ -s $OUTPUT ] ; then
5161.28Slukem					printf "Setuid additions:\n" >> $ERR
5171.28Slukem					tee -a $TMP2 < $OUTPUT >> $ERR
5181.28Slukem					printf "\n" >> $ERR
5191.15Smrg				fi
5201.15Smrg
5211.15Smrg				join -110 -210 -v1 $CUR $TMP1 > $OUTPUT
5221.15Smrg				if [ -s $OUTPUT ] ; then
5231.28Slukem					printf "Setuid deletions:\n" >> $ERR
5241.28Slukem					tee -a $TMP2 < $OUTPUT >> $ERR
5251.28Slukem					printf "\n" >> $ERR
5261.15Smrg				fi
5271.15Smrg
5281.20Smycroft				sort -k10 $TMP2 $CUR $TMP1 | \
5291.27Slukem				    sed -e 's/[	 ][	 ]*/ /g' | \
5301.27Slukem				    uniq -u > $OUTPUT
5311.15Smrg				if [ -s $OUTPUT ] ; then
5321.28Slukem					printf "Setuid changes:\n" >> $ERR
5331.28Slukem					column -t $OUTPUT >> $ERR
5341.28Slukem					printf "\n" >> $ERR
5351.15Smrg				fi
5361.9Scgd
5371.52Satatat				backup_file update $TMP1 $CUR $BACK
5381.9Scgd			fi
5391.15Smrg		else
5401.28Slukem			printf "Setuid additions:\n" >> $ERR
5411.28Slukem			column -t $TMP1 >> $ERR
5421.28Slukem			printf "\n" >> $ERR
5431.52Satatat			backup_file add $TMP1 $CUR $BACK
5441.9Scgd		fi
5451.15Smrg	fi
5461.15Smrg
5471.27Slukem	# Check for block and character disk devices that are readable or
5481.27Slukem	# writeable or not owned by root.operator.
5491.15Smrg	>$TMP1
5501.61Slukem	DISKLIST="ccd ch hk hp ld md ra raid rb rd rl rx \
5511.57Ssimonb	    sd se ss uk up vnd wd xd xy"
5521.27Slukem#	DISKLIST="$DISKLIST ct mt st wt"
5531.15Smrg	for i in $DISKLIST; do
5541.15Smrg		egrep "^b.*/${i}[0-9][0-9]*[a-p]$"  $LIST >> $TMP1
5551.15Smrg		egrep "^c.*/r${i}[0-9][0-9]*[a-p]$"  $LIST >> $TMP1
5561.15Smrg	done
5571.15Smrg
5581.15Smrg	awk '$3 != "root" || $4 != "operator" || $1 !~ /.rw-r-----/ \
5591.25Slukem		{ printf "Disk %s is user %s, group %s, permissions %s.\n", \
5601.25Slukem		    $11, $3, $4, $1; }' < $TMP1 > $OUTPUT
5611.15Smrg	if [ -s $OUTPUT ] ; then
5621.28Slukem		printf "\nChecking disk ownership and permissions.\n" >> $ERR
5631.28Slukem		cat $OUTPUT >> $ERR
5641.28Slukem		printf "\n" >> $ERR
5651.9Scgd	fi
5661.9Scgd
5671.15Smrg	# Display any changes in the device file list.
5681.20Smycroft	egrep '^[bc]' $LIST | sort -k11 > $TMP1
5691.15Smrg	if [ -s $TMP1 ] ; then
5701.48Sabs		CUR=$backup_dir/device.current
5711.48Sabs		BACK=$backup_dir/device.backup
5721.15Smrg
5731.15Smrg		if [ -s $CUR ] ; then
5741.15Smrg			if cmp -s $CUR $TMP1 ; then
5751.15Smrg				:
5761.15Smrg			else
5771.15Smrg				> $TMP2
5781.15Smrg				join -111 -211 -v2 $CUR $TMP1 > $OUTPUT
5791.15Smrg				if [ -s $OUTPUT ] ; then
5801.28Slukem					printf "Device additions:\n" >> $ERR
5811.28Slukem					tee -a $TMP2 < $OUTPUT >> $ERR
5821.28Slukem					printf "\n" >> $ERR
5831.15Smrg				fi
5841.15Smrg
5851.15Smrg				join -111 -211 -v1 $CUR $TMP1 > $OUTPUT
5861.15Smrg				if [ -s $OUTPUT ] ; then
5871.28Slukem					printf "Device deletions:\n" >> $ERR
5881.28Slukem					tee -a $TMP2 < $OUTPUT >> $ERR
5891.28Slukem					printf "\n" >> $ERR
5901.15Smrg				fi
5911.15Smrg
5921.27Slukem				# Report any block device change. Ignore
5931.27Slukem				# character devices, only the name is
5941.27Slukem				# significant.
5951.15Smrg				cat $TMP2 $CUR $TMP1 | \
5961.27Slukem				    sed -e '/^c/d' | \
5971.27Slukem				    sort -k11 | \
5981.27Slukem				    sed -e 's/[	 ][	 ]*/ /g' | \
5991.27Slukem				    uniq -u > $OUTPUT
6001.15Smrg				if [ -s $OUTPUT ] ; then
6011.28Slukem					printf "Block device changes:\n" >> $ERR
6021.28Slukem					column -t $OUTPUT >> $ERR
6031.28Slukem					printf "\n" >> $ERR
6041.15Smrg				fi
6051.9Scgd
6061.52Satatat				backup_file update $TMP1 $CUR $BACK
6071.9Scgd			fi
6081.15Smrg		else
6091.28Slukem			printf "Device additions:\n" >> $ERR
6101.28Slukem			column -t $TMP1 >> $ERR
6111.28Slukem			printf "\n" >> $ERR
6121.52Satatat			backup_file add $TMP1 $CUR $BACK >> $ERR
6131.9Scgd		fi
6141.28Slukem	fi
6151.28Slukem	if [ -s $ERR ] ; then
6161.28Slukem		printf "\nChecking setuid files and devices:\n"
6171.28Slukem		cat $ERR
6181.28Slukem		printf "\n"
6191.9Scgd	fi
6201.9Scgdfi
6211.9Scgd
6221.9Scgd# Check special files.
6231.9Scgd# Check system binaries.
6241.9Scgd#
6251.9Scgd# Create the mtree tree specifications using:
6261.9Scgd#
6271.9Scgd#	mtree -cx -pDIR -kcksum,gid,mode,nlink,size,link,time,uid > DIR.secure
6281.38Skleink#	chown root:wheel DIR.secure
6291.16Smikel#	chmod 600 DIR.secure
6301.9Scgd#
6311.9Scgd# Note, this is not complete protection against Trojan horsed binaries, as
6321.9Scgd# the hacker can modify the tree specification to match the replaced binary.
6331.9Scgd# For details on really protecting yourself against modified binaries, see
6341.9Scgd# the mtree(8) manual page.
6351.32Slukem#
6361.31Slukemif checkyesno check_mtree; then
6371.58Sperry	mtree -e -l -p / -f /etc/mtree/special > $OUTPUT
6381.15Smrg	if [ -s $OUTPUT ]; then
6391.9Scgd		printf "\nChecking special files and directories.\n"
6401.9Scgd		cat $OUTPUT
6411.9Scgd	fi
6421.9Scgd
6431.9Scgd	> $OUTPUT
6441.16Smikel	for file in /etc/mtree/*.secure; do
6451.16Smikel		[ $file = '/etc/mtree/*.secure' ] && continue
6461.9Scgd		tree=`sed -n -e '3s/.* //p' -e 3q $file`
6471.9Scgd		mtree -f $file -p $tree > $TMP1
6481.9Scgd		if [ -s $TMP1 ]; then
6491.9Scgd			printf "\nChecking $tree:\n" >> $OUTPUT
6501.9Scgd			cat $TMP1 >> $OUTPUT
6511.9Scgd		fi
6521.9Scgd	done
6531.15Smrg	if [ -s $OUTPUT ]; then
6541.9Scgd		printf "\nChecking system binaries:\n"
6551.9Scgd		cat $OUTPUT
6561.9Scgd	fi
6571.9Scgdfi
6581.9Scgd
6591.32Slukem# Backup disklabels of available disks
6601.32Slukem#
6611.32Slukemif checkyesno check_disklabels; then
6621.32Slukem		# generate list of old disklabels and remove them
6631.48Sabs	ls -1d $backup_dir/disklabel.* 2>/dev/null |
6641.52Satatat	    egrep -v '\.(backup|current)(,v)?$' > $LABELS
6651.32Slukem	xargs rm < $LABELS
6661.32Slukem
6671.63Slukem	disks=`iostat -x | awk 'NR > 1 && $1 !~ /^[cfm]d/ { print $1; }'`
6681.32Slukem	for i in $disks; do
6691.48Sabs		dlf="$backup_dir/disklabel.$i"
6701.32Slukem		disklabel $i > $dlf 2>/dev/null
6711.32Slukem	done
6721.32Slukem
6731.32Slukem		# append list of new disklabels, sort list
6741.48Sabs	ls -1d $backup_dir/disklabel.* 2>/dev/null |
6751.52Satatat	    egrep -v '\.(backup|current)(,v)?$' >> $LABELS
6761.32Slukem	sort -u -o $LABELS $LABELS
6771.62Satatat	CHANGELIST="$LABELS $CHANGELIST"
6781.62Satatatfi
6791.62Satatat
6801.62Satatat# Check for changes in the list of installed pkgs
6811.62Satatat#
6821.62Satatatif checkyesno check_pkgs && [ -d $pkg_dbdir ]; then
6831.62Satatat	pkgs=$backup_dir/pkgs
6841.62Satatat	(	cd $pkg_dbdir
6851.62Satatat		pkg_info | sort
6861.62Satatat		echo ""
6871.62Satatat		find . \( -name +REQUIRED_BY -o -name +CONTENTS \) -print0 |
6881.62Satatat			xargs -0 ls -l | sort -t. +1 | sed -e 's, \./, ,'
6891.62Satatat	 ) > $pkgs
6901.62Satatat	echo $pkgs > $PKGS
6911.62Satatat	CHANGELIST="$PKGS $CHANGELIST"
6921.32Slukemfi
6931.32Slukem
6941.9Scgd# List of files that get backed up and checked for any modifications.  Each
6951.48Sabs# file is expected to have two backups, $backup_dir/file.{current,backup}.
6961.9Scgd# Any changes cause the files to rotate.
6971.32Slukem#
6981.31Slukemif checkyesno check_changelist && [ -s /etc/changelist ] ; then
6991.32Slukem	CHANGELIST="/etc/changelist $CHANGELIST"
7001.32Slukemfi
7011.32Slukem
7021.32Slukemif [ -n "$CHANGELIST" ]; then
7031.32Slukem	for file in `egrep -hv "^#|$MP" $CHANGELIST`; do
7041.54Satatat		# old changelist backup names
7051.54Satatat		OCUR=$backup_dir/${file##*/}.current
7061.54Satatat		OBACK=$backup_dir/${file##*/}.backup
7071.54Satatat		# new changelist backup names
7081.54Satatat		CUR=$backup_dir$file.current
7091.54Satatat		BACK=$backup_dir$file.backup
7101.54Satatat		# roll over old backups
7111.54Satatat		if [ ! -d ${CUR%/*} ]; then
7121.54Satatat			mkdir -p ${CUR%/*}
7131.54Satatat		fi
7141.54Satatat		if [ -f $OCUR -a ! -f $CUR ]; then
7151.54Satatat			mv $OCUR $CUR
7161.54Satatat		fi
7171.54Satatat		if [ -f $OCUR,v -a ! -f $CUR,v ]; then
7181.54Satatat			mv $OCUR,v $CUR,v
7191.54Satatat		fi
7201.54Satatat		if [ -f $OBACK -a ! -f $BACK ]; then
7211.54Satatat			mv $OBACK $BACK
7221.54Satatat		fi
7231.54Satatat		# and down to work
7241.30Smycroft		if [ -f $file ]; then
7251.30Smycroft			if [ -f $CUR ] ; then
7261.9Scgd				diff $CUR $file > $OUTPUT
7271.9Scgd				if [ -s $OUTPUT ] ; then
7281.9Scgd		printf "\n======\n%s diffs (OLD < > NEW)\n======\n" $file
7291.9Scgd					cat $OUTPUT
7301.52Satatat					backup_file update $file $CUR $BACK
7311.9Scgd				fi
7321.9Scgd			else
7331.30Smycroft		printf "\n======\n%s added\n======\n" $file
7341.30Smycroft				diff /dev/null $file
7351.52Satatat				backup_file add $file $CUR $BACK
7361.30Smycroft			fi
7371.30Smycroft		else
7381.30Smycroft			if [ -f $CUR ]; then
7391.30Smycroft		printf "\n======\n%s removed\n======\n" $file
7401.30Smycroft				diff $CUR /dev/null
7411.52Satatat				backup_file remove $file $CUR $BACK
7421.9Scgd			fi
7431.9Scgd		fi
7441.9Scgd	done
7451.44Sadfi
7461.44Sad
7471.44Sadif [ -f /etc/security.local ]; then
7481.44Sad	echo ""
7491.44Sad	echo "Running /etc/security.local:"
7501.44Sad	. /etc/security.local
7511.9Scgdfi
752