security revision 1.62
11.1Scgd#!/bin/sh -
21.1Scgd#
31.62Satatat#	$NetBSD: security,v 1.62 2001/10/01 02:21:20 atatat 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.45Ssommerfe			# double check the umask value itself; ensure that both the
2021.45Ssommerfe			# 020 and 002 bits are set.
2031.45Ssommerfe			# we handle this in decimal initially to extract the digits,
2041.45Ssommerfe			# and then extract the `2' bit of each digit.
2051.45Ssommerfe			# 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.45Ssommerfe			awk '{ g= ($2 % 100) - ($2 % 10);
2091.45Ssommerfe			       g /= 10;
2101.45Ssommerfe			       g = g % 4;
2111.45Ssommerfe			       g -= g % 2;
2121.45Ssommerfe			       if (g != 2) { print "\tRoot umask is group writeable" }
2131.45Ssommerfe			       o = ($2 % 10);
2141.45Ssommerfe			       o = o % 4;
2151.45Ssommerfe			       o -= o % 2;
2161.45Ssommerfe			       if (o != 2) { print "\tRoot umask is other writeable" } }' |
2171.45Ssommerfe			    sort -u >> $OUTPUT
2181.26Slukem			SAVE_PATH=$PATH
2191.26Slukem			unset PATH
2201.15Smrg			/bin/csh -f -s << end-of-csh > /dev/null 2>&1
2211.15Smrg				source $i
2221.15Smrg				/bin/ls -ldgT \$path > $TMP1
2231.9Scgdend-of-csh
2241.26Slukem			PATH=$SAVE_PATH
2251.15Smrg			awk '{
2261.15Smrg				if ($10 ~ /^\.$/) {
2271.27Slukem					print "\tThe root path includes .";
2281.15Smrg					next;
2291.15Smrg				}
2301.15Smrg			     }
2311.15Smrg			     $1 ~ /^d....w/ \
2321.27Slukem		{ print "\tRoot path directory " $10 " is group writeable." } \
2331.15Smrg			     $1 ~ /^d.......w/ \
2341.27Slukem		{ print "\tRoot path directory " $10 " is other writeable." }' \
2351.15Smrg			< $TMP1 >> $OUTPUT
2361.15Smrg		fi
2371.15Smrg	done
2381.15Smrg	if [ $umaskset = "no" -o -s $OUTPUT ] ; then
2391.27Slukem		printf "\nChecking root csh paths, umask values:\n$list\n\n"
2401.15Smrg		if [ -s $OUTPUT ]; then
2411.15Smrg			cat $OUTPUT
2421.15Smrg		fi
2431.15Smrg		if [ $umaskset = "no" ] ; then
2441.27Slukem		    printf "\tRoot csh startup files do not set the umask.\n"
2451.15Smrg		fi
2461.9Scgd	fi
2471.9Scgd
2481.28Slukem	> $OUTPUT
2491.15Smrg	rhome=/root
2501.15Smrg	umaskset=no
2511.23Slukem	list="/etc/profile ${rhome}/.profile"
2521.15Smrg	for i in $list; do
2531.15Smrg		if [ -f $i ] ; then
2541.15Smrg			if egrep umask $i > /dev/null ; then
2551.15Smrg				umaskset=yes
2561.15Smrg			fi
2571.15Smrg			egrep umask $i |
2581.15Smrg			awk '$2 % 100 < 20 \
2591.27Slukem				{ print "\tRoot umask is group writeable" } \
2601.15Smrg			     $2 % 10 < 2 \
2611.27Slukem				{ print "\tRoot umask is other writeable" }' \
2621.27Slukem			    >> $OUTPUT
2631.26Slukem			SAVE_PATH=$PATH
2641.26Slukem			unset PATH
2651.15Smrg			/bin/sh << end-of-sh > /dev/null 2>&1
2661.15Smrg				. $i
2671.26Slukem				list=\`echo \$PATH | /usr/bin/sed -e \
2681.26Slukem				    's/^:/.:/;s/:$/:./;s/::/:.:/g;s/:/ /g'\`
2691.15Smrg				/bin/ls -ldgT \$list > $TMP1
2701.9Scgdend-of-sh
2711.26Slukem			PATH=$SAVE_PATH
2721.15Smrg			awk '{
2731.15Smrg				if ($10 ~ /^\.$/) {
2741.27Slukem					print "\tThe root path includes .";
2751.15Smrg					next;
2761.15Smrg				}
2771.15Smrg			     }
2781.15Smrg			     $1 ~ /^d....w/ \
2791.27Slukem		{ print "\tRoot path directory " $10 " is group writeable." } \
2801.15Smrg			     $1 ~ /^d.......w/ \
2811.27Slukem		{ print "\tRoot path directory " $10 " is other writeable." }' \
2821.15Smrg			< $TMP1 >> $OUTPUT
2831.9Scgd
2841.15Smrg		fi
2851.15Smrg	done
2861.15Smrg	if [ $umaskset = "no" -o -s $OUTPUT ] ; then
2871.15Smrg		printf "\nChecking root sh paths, umask values:\n$list\n"
2881.15Smrg		if [ -s $OUTPUT ]; then
2891.15Smrg			cat $OUTPUT
2901.15Smrg		fi
2911.15Smrg		if [ $umaskset = "no" ] ; then
2921.27Slukem			printf "\tRoot sh startup files do not set the umask.\n"
2931.15Smrg		fi
2941.9Scgd	fi
2951.9Scgdfi
2961.9Scgd
2971.9Scgd# Root and uucp should both be in /etc/ftpusers.
2981.32Slukem#
2991.31Slukemif checkyesno check_ftpusers; then
3001.28Slukem	> $OUTPUT
3011.28Slukem	list="uucp "`awk '$2 == 0 { print $1 }' $MPBYUID`
3021.27Slukem	for i in $list; do
3031.29Slukem		if /usr/libexec/ftpd -C $i ; then
3041.29Slukem			printf "\t$i is not denied\n" >> $OUTPUT
3051.27Slukem		fi
3061.27Slukem	done
3071.28Slukem	if [ -s $OUTPUT ]; then
3081.28Slukem		printf "\nChecking the /etc/ftpusers configuration:\n"
3091.28Slukem		cat $OUTPUT
3101.28Slukem	fi
3111.9Scgdfi
3121.9Scgd
3131.43Sitojun# Uudecode should not be in the /etc/mail/aliases file.
3141.32Slukem#
3151.31Slukemif checkyesno check_aliases; then
3161.43Sitojun	for f in /etc/mail/aliases /etc/aliases; do
3171.43Sitojun		if [ -f $f ] && egrep '^[^#]*(uudecode|decode).*\|' $f; then
3181.43Sitojun			printf "\nEntry for uudecode in $f file.\n"
3191.43Sitojun		fi
3201.43Sitojun	done
3211.9Scgdfi
3221.9Scgd
3231.9Scgd# Files that should not have + signs.
3241.32Slukem#
3251.31Slukemif checkyesno check_rhosts; then
3261.15Smrg	list="/etc/hosts.equiv /etc/hosts.lpd"
3271.15Smrg	for f in $list ; do
3281.15Smrg		if [ -f $f ] && egrep '\+' $f > /dev/null ; then
3291.15Smrg			printf "\nPlus sign in $f file.\n"
3301.15Smrg		fi
3311.15Smrg	done
3321.15Smrg
3331.15Smrg	# Check for special users with .rhosts files.  Only root and toor should
3341.16Smikel	# have .rhosts files.  Also, .rhosts files should not have plus signs.
3351.15Smrg	awk -F: '$1 != "root" && $1 != "toor" && \
3361.15Smrg		($3 < 100 || $1 == "ftp" || $1 == "uucp") \
3371.20Smycroft			{ print $1 " " $9 }' $MP |
3381.19Smycroft	sort -k2 |
3391.15Smrg	while read uid homedir; do
3401.15Smrg		if [ -f ${homedir}/.rhosts ] ; then
3411.15Smrg			rhost=`ls -ldgT ${homedir}/.rhosts`
3421.46Schristos			printf -- "$uid: $rhost\n"
3431.15Smrg		fi
3441.15Smrg	done > $OUTPUT
3451.15Smrg	if [ -s $OUTPUT ] ; then
3461.15Smrg		printf "\nChecking for special users with .rhosts files.\n"
3471.15Smrg		cat $OUTPUT
3481.15Smrg	fi
3491.15Smrg
3501.15Smrg	while read uid homedir; do
3511.35Sfair		if [ -f ${homedir}/.rhosts -a -r ${homedir}/.rhosts ] && \
3521.41Schristos		    cat -f ${homedir}/.rhosts | egrep '\+' > /dev/null ; then
3531.46Schristos			printf -- "$uid: + in .rhosts file.\n"
3541.15Smrg		fi
3551.29Slukem	done < $MPBYPATH > $OUTPUT
3561.15Smrg	if [ -s $OUTPUT ] ; then
3571.15Smrg		printf "\nChecking .rhosts files syntax.\n"
3581.15Smrg		cat $OUTPUT
3591.15Smrg	fi
3601.9Scgdfi
3611.9Scgd
3621.9Scgd# Check home directories.  Directories should not be owned by someone else
3631.9Scgd# or writeable.
3641.32Slukem#
3651.31Slukemif checkyesno check_homes; then
3661.15Smrg	while read uid homedir; do
3671.15Smrg		if [ -d ${homedir}/ ] ; then
3681.15Smrg			file=`ls -ldgT ${homedir}`
3691.46Schristos			printf -- "$uid $file\n"
3701.9Scgd		fi
3711.29Slukem	done < $MPBYPATH |
3721.15Smrg	awk '$1 != $4 && $4 != "root" \
3731.15Smrg		{ print "user " $1 " home directory is owned by " $4 }
3741.15Smrg	     $2 ~ /^-....w/ \
3751.15Smrg		{ print "user " $1 " home directory is group writeable" }
3761.15Smrg	     $2 ~ /^-.......w/ \
3771.27Slukem		{ print "user " $1 " home directory is other writeable" }' \
3781.27Slukem	    > $OUTPUT
3791.15Smrg	if [ -s $OUTPUT ] ; then
3801.15Smrg		printf "\nChecking home directories.\n"
3811.15Smrg		cat $OUTPUT
3821.15Smrg	fi
3831.15Smrg
3841.15Smrg	# Files that should not be owned by someone else or readable.
3851.27Slukem	list=".Xauthority .netrc"
3861.15Smrg	while read uid homedir; do
3871.15Smrg		for f in $list ; do
3881.15Smrg			file=${homedir}/${f}
3891.15Smrg			if [ -f $file ] ; then
3901.46Schristos				printf -- "$uid $f `ls -ldgT $file`\n"
3911.15Smrg			fi
3921.15Smrg		done
3931.29Slukem	done < $MPBYPATH |
3941.15Smrg	awk '$1 != $5 && $5 != "root" \
3951.15Smrg		{ print "user " $1 " " $2 " file is owned by " $5 }
3961.15Smrg	     $3 ~ /^-...r/ \
3971.15Smrg		{ print "user " $1 " " $2 " file is group readable" }
3981.15Smrg	     $3 ~ /^-......r/ \
3991.15Smrg		{ print "user " $1 " " $2 " file is other readable" }
4001.15Smrg	     $3 ~ /^-....w/ \
4011.15Smrg		{ print "user " $1 " " $2 " file is group writeable" }
4021.15Smrg	     $3 ~ /^-.......w/ \
4031.27Slukem		{ print "user " $1 " " $2 " file is other writeable" }' \
4041.27Slukem	    > $OUTPUT
4051.15Smrg
4061.15Smrg	# Files that should not be owned by someone else or writeable.
4071.19Smycroft	list=".bash_history .bash_login .bash_logout .bash_profile .bashrc \
4081.19Smycroft	      .cshrc .emacs .exrc .forward .history .klogin .login .logout \
4091.27Slukem	      .profile .qmail .rc_history .rhosts .tcshrc .twmrc .xinitrc \
4101.27Slukem	      .xsession"
4111.15Smrg	while read uid homedir; do
4121.15Smrg		for f in $list ; do
4131.15Smrg			file=${homedir}/${f}
4141.15Smrg			if [ -f $file ] ; then
4151.46Schristos				printf -- "$uid $f `ls -ldgT $file`\n"
4161.15Smrg			fi
4171.15Smrg		done
4181.29Slukem	done < $MPBYPATH |
4191.15Smrg	awk '$1 != $5 && $5 != "root" \
4201.15Smrg		{ print "user " $1 " " $2 " file is owned by " $5 }
4211.15Smrg	     $3 ~ /^-....w/ \
4221.15Smrg		{ print "user " $1 " " $2 " file is group writeable" }
4231.15Smrg	     $3 ~ /^-.......w/ \
4241.27Slukem		{ print "user " $1 " " $2 " file is other writeable" }' \
4251.27Slukem	    >> $OUTPUT
4261.15Smrg	if [ -s $OUTPUT ] ; then
4271.15Smrg		printf "\nChecking dot files.\n"
4281.15Smrg		cat $OUTPUT
4291.15Smrg	fi
4301.9Scgdfi
4311.9Scgd
4321.9Scgd# Mailboxes should be owned by user and unreadable.
4331.32Slukem#
4341.31Slukemif checkyesno check_varmail; then
4351.15Smrg	ls -l /var/mail | sed 1d | \
4361.15Smrg	awk '$3 != $9 \
4371.15Smrg		{ print "user " $9 " mailbox is owned by " $3 }
4381.15Smrg	     $1 != "-rw-------" \
4391.15Smrg		{ print "user " $9 " mailbox is " $1 ", group " $4 }' > $OUTPUT
4401.15Smrg	if [ -s $OUTPUT ] ; then
4411.15Smrg		printf "\nChecking mailbox ownership.\n"
4421.15Smrg		cat $OUTPUT
4431.15Smrg	fi
4441.15Smrgfi
4451.15Smrg
4461.32Slukem# NFS exports shouldn't be globally exported
4471.32Slukem#
4481.32Slukemif checkyesno check_nfs && [ -f /etc/exports ]; then
4491.32Slukem	awk '{
4501.22Slukem		# ignore comments and blank lines
4511.39Shubertf		if ($0 ~ /^\#/ || $0 ~ /^$/ )
4521.22Slukem			next;
4531.22Slukem
4541.15Smrg		readonly = 0;
4551.15Smrg		for (i = 2; i <= NF; ++i) {
4561.15Smrg			if ($i ~ /-ro/)
4571.15Smrg				readonly = 1;
4581.15Smrg			else if ($i !~ /^-/)
4591.15Smrg				next;
4601.15Smrg		}
4611.15Smrg		if (readonly)
4621.15Smrg			print "File system " $1 " globally exported, read-only."
4631.15Smrg		else
4641.15Smrg			print "File system " $1 " globally exported, read-write."
4651.32Slukem	}' < /etc/exports > $OUTPUT
4661.32Slukem	if [ -s $OUTPUT ] ; then
4671.15Smrg		printf "\nChecking for globally exported file systems.\n"
4681.15Smrg		cat $OUTPUT
4691.15Smrg	fi
4701.9Scgdfi
4711.9Scgd
4721.9Scgd# Display any changes in setuid files and devices.
4731.32Slukem#
4741.31Slukemif checkyesno check_devices; then
4751.28Slukem	> $ERR
4761.15Smrg	(find / \( ! -fstype local -o -fstype fdesc -o -fstype kernfs \
4771.15Smrg			-o -fstype procfs \) -a -prune -o \
4781.21Smycroft	    \( \( -perm -u+s -a ! -type d \) -o \
4791.21Smycroft	       \( -perm -g+s -a ! -type d \) -o \
4801.24Slukem	       -type b -o -type c \) -print0 | \
4811.24Slukem	xargs -0 ls -ldgTq | sort +9 > $LIST) 2> $OUTPUT
4821.15Smrg
4831.15Smrg	# Display any errors that occurred during system file walk.
4841.15Smrg	if [ -s $OUTPUT ] ; then
4851.28Slukem		printf "Setuid/device find errors:\n" >> $ERR
4861.28Slukem		cat $OUTPUT >> $ERR
4871.28Slukem		printf "\n" >> $ERR
4881.15Smrg	fi
4891.15Smrg
4901.15Smrg	# Display any changes in the setuid file list.
4911.15Smrg	egrep -v '^[bc]' $LIST > $TMP1
4921.15Smrg	if [ -s $TMP1 ] ; then
4931.15Smrg		# Check to make sure uudecode isn't setuid.
4941.15Smrg		if grep -w uudecode $TMP1 > /dev/null ; then
4951.28Slukem			printf "\nUudecode is setuid.\n" >> $ERR
4961.15Smrg		fi
4971.15Smrg
4981.48Sabs		CUR=$backup_dir/setuid.current
4991.48Sabs		BACK=$backup_dir/setuid.backup
5001.9Scgd
5011.15Smrg		if [ -s $CUR ] ; then
5021.15Smrg			if cmp -s $CUR $TMP1 ; then
5031.15Smrg				:
5041.15Smrg			else
5051.15Smrg				> $TMP2
5061.15Smrg				join -110 -210 -v2 $CUR $TMP1 > $OUTPUT
5071.15Smrg				if [ -s $OUTPUT ] ; then
5081.28Slukem					printf "Setuid additions:\n" >> $ERR
5091.28Slukem					tee -a $TMP2 < $OUTPUT >> $ERR
5101.28Slukem					printf "\n" >> $ERR
5111.15Smrg				fi
5121.15Smrg
5131.15Smrg				join -110 -210 -v1 $CUR $TMP1 > $OUTPUT
5141.15Smrg				if [ -s $OUTPUT ] ; then
5151.28Slukem					printf "Setuid deletions:\n" >> $ERR
5161.28Slukem					tee -a $TMP2 < $OUTPUT >> $ERR
5171.28Slukem					printf "\n" >> $ERR
5181.15Smrg				fi
5191.15Smrg
5201.20Smycroft				sort -k10 $TMP2 $CUR $TMP1 | \
5211.27Slukem				    sed -e 's/[	 ][	 ]*/ /g' | \
5221.27Slukem				    uniq -u > $OUTPUT
5231.15Smrg				if [ -s $OUTPUT ] ; then
5241.28Slukem					printf "Setuid changes:\n" >> $ERR
5251.28Slukem					column -t $OUTPUT >> $ERR
5261.28Slukem					printf "\n" >> $ERR
5271.15Smrg				fi
5281.9Scgd
5291.52Satatat				backup_file update $TMP1 $CUR $BACK
5301.9Scgd			fi
5311.15Smrg		else
5321.28Slukem			printf "Setuid additions:\n" >> $ERR
5331.28Slukem			column -t $TMP1 >> $ERR
5341.28Slukem			printf "\n" >> $ERR
5351.52Satatat			backup_file add $TMP1 $CUR $BACK
5361.9Scgd		fi
5371.15Smrg	fi
5381.15Smrg
5391.27Slukem	# Check for block and character disk devices that are readable or
5401.27Slukem	# writeable or not owned by root.operator.
5411.15Smrg	>$TMP1
5421.61Slukem	DISKLIST="ccd ch hk hp ld md ra raid rb rd rl rx \
5431.57Ssimonb	    sd se ss uk up vnd wd xd xy"
5441.27Slukem#	DISKLIST="$DISKLIST ct mt st wt"
5451.15Smrg	for i in $DISKLIST; do
5461.15Smrg		egrep "^b.*/${i}[0-9][0-9]*[a-p]$"  $LIST >> $TMP1
5471.15Smrg		egrep "^c.*/r${i}[0-9][0-9]*[a-p]$"  $LIST >> $TMP1
5481.15Smrg	done
5491.15Smrg
5501.15Smrg	awk '$3 != "root" || $4 != "operator" || $1 !~ /.rw-r-----/ \
5511.25Slukem		{ printf "Disk %s is user %s, group %s, permissions %s.\n", \
5521.25Slukem		    $11, $3, $4, $1; }' < $TMP1 > $OUTPUT
5531.15Smrg	if [ -s $OUTPUT ] ; then
5541.28Slukem		printf "\nChecking disk ownership and permissions.\n" >> $ERR
5551.28Slukem		cat $OUTPUT >> $ERR
5561.28Slukem		printf "\n" >> $ERR
5571.9Scgd	fi
5581.9Scgd
5591.15Smrg	# Display any changes in the device file list.
5601.20Smycroft	egrep '^[bc]' $LIST | sort -k11 > $TMP1
5611.15Smrg	if [ -s $TMP1 ] ; then
5621.48Sabs		CUR=$backup_dir/device.current
5631.48Sabs		BACK=$backup_dir/device.backup
5641.15Smrg
5651.15Smrg		if [ -s $CUR ] ; then
5661.15Smrg			if cmp -s $CUR $TMP1 ; then
5671.15Smrg				:
5681.15Smrg			else
5691.15Smrg				> $TMP2
5701.15Smrg				join -111 -211 -v2 $CUR $TMP1 > $OUTPUT
5711.15Smrg				if [ -s $OUTPUT ] ; then
5721.28Slukem					printf "Device additions:\n" >> $ERR
5731.28Slukem					tee -a $TMP2 < $OUTPUT >> $ERR
5741.28Slukem					printf "\n" >> $ERR
5751.15Smrg				fi
5761.15Smrg
5771.15Smrg				join -111 -211 -v1 $CUR $TMP1 > $OUTPUT
5781.15Smrg				if [ -s $OUTPUT ] ; then
5791.28Slukem					printf "Device deletions:\n" >> $ERR
5801.28Slukem					tee -a $TMP2 < $OUTPUT >> $ERR
5811.28Slukem					printf "\n" >> $ERR
5821.15Smrg				fi
5831.15Smrg
5841.27Slukem				# Report any block device change. Ignore
5851.27Slukem				# character devices, only the name is
5861.27Slukem				# significant.
5871.15Smrg				cat $TMP2 $CUR $TMP1 | \
5881.27Slukem				    sed -e '/^c/d' | \
5891.27Slukem				    sort -k11 | \
5901.27Slukem				    sed -e 's/[	 ][	 ]*/ /g' | \
5911.27Slukem				    uniq -u > $OUTPUT
5921.15Smrg				if [ -s $OUTPUT ] ; then
5931.28Slukem					printf "Block device changes:\n" >> $ERR
5941.28Slukem					column -t $OUTPUT >> $ERR
5951.28Slukem					printf "\n" >> $ERR
5961.15Smrg				fi
5971.9Scgd
5981.52Satatat				backup_file update $TMP1 $CUR $BACK
5991.9Scgd			fi
6001.15Smrg		else
6011.28Slukem			printf "Device additions:\n" >> $ERR
6021.28Slukem			column -t $TMP1 >> $ERR
6031.28Slukem			printf "\n" >> $ERR
6041.52Satatat			backup_file add $TMP1 $CUR $BACK >> $ERR
6051.9Scgd		fi
6061.28Slukem	fi
6071.28Slukem	if [ -s $ERR ] ; then
6081.28Slukem		printf "\nChecking setuid files and devices:\n"
6091.28Slukem		cat $ERR
6101.28Slukem		printf "\n"
6111.9Scgd	fi
6121.9Scgdfi
6131.9Scgd
6141.9Scgd# Check special files.
6151.9Scgd# Check system binaries.
6161.9Scgd#
6171.9Scgd# Create the mtree tree specifications using:
6181.9Scgd#
6191.9Scgd#	mtree -cx -pDIR -kcksum,gid,mode,nlink,size,link,time,uid > DIR.secure
6201.38Skleink#	chown root:wheel DIR.secure
6211.16Smikel#	chmod 600 DIR.secure
6221.9Scgd#
6231.9Scgd# Note, this is not complete protection against Trojan horsed binaries, as
6241.9Scgd# the hacker can modify the tree specification to match the replaced binary.
6251.9Scgd# For details on really protecting yourself against modified binaries, see
6261.9Scgd# the mtree(8) manual page.
6271.32Slukem#
6281.31Slukemif checkyesno check_mtree; then
6291.58Sperry	mtree -e -l -p / -f /etc/mtree/special > $OUTPUT
6301.15Smrg	if [ -s $OUTPUT ]; then
6311.9Scgd		printf "\nChecking special files and directories.\n"
6321.9Scgd		cat $OUTPUT
6331.9Scgd	fi
6341.9Scgd
6351.9Scgd	> $OUTPUT
6361.16Smikel	for file in /etc/mtree/*.secure; do
6371.16Smikel		[ $file = '/etc/mtree/*.secure' ] && continue
6381.9Scgd		tree=`sed -n -e '3s/.* //p' -e 3q $file`
6391.9Scgd		mtree -f $file -p $tree > $TMP1
6401.9Scgd		if [ -s $TMP1 ]; then
6411.9Scgd			printf "\nChecking $tree:\n" >> $OUTPUT
6421.9Scgd			cat $TMP1 >> $OUTPUT
6431.9Scgd		fi
6441.9Scgd	done
6451.15Smrg	if [ -s $OUTPUT ]; then
6461.9Scgd		printf "\nChecking system binaries:\n"
6471.9Scgd		cat $OUTPUT
6481.9Scgd	fi
6491.9Scgdfi
6501.9Scgd
6511.32Slukem# Backup disklabels of available disks
6521.32Slukem#
6531.32Slukemif checkyesno check_disklabels; then
6541.32Slukem		# generate list of old disklabels and remove them
6551.48Sabs	ls -1d $backup_dir/disklabel.* 2>/dev/null |
6561.52Satatat	    egrep -v '\.(backup|current)(,v)?$' > $LABELS
6571.32Slukem	xargs rm < $LABELS
6581.32Slukem
6591.40Sperry	disks=`iostat -x | sed 1d | awk '$1 !~ /^[cfm]d/ { print $1; }'`
6601.32Slukem	for i in $disks; do
6611.48Sabs		dlf="$backup_dir/disklabel.$i"
6621.32Slukem		disklabel $i > $dlf 2>/dev/null
6631.32Slukem	done
6641.32Slukem
6651.32Slukem		# append list of new disklabels, sort list
6661.48Sabs	ls -1d $backup_dir/disklabel.* 2>/dev/null |
6671.52Satatat	    egrep -v '\.(backup|current)(,v)?$' >> $LABELS
6681.32Slukem	sort -u -o $LABELS $LABELS
6691.62Satatat	CHANGELIST="$LABELS $CHANGELIST"
6701.62Satatatfi
6711.62Satatat
6721.62Satatat# Check for changes in the list of installed pkgs
6731.62Satatat#
6741.62Satatatif checkyesno check_pkgs && [ -d $pkg_dbdir ]; then
6751.62Satatat	pkgs=$backup_dir/pkgs
6761.62Satatat	(	cd $pkg_dbdir
6771.62Satatat		pkg_info | sort
6781.62Satatat		echo ""
6791.62Satatat		find . \( -name +REQUIRED_BY -o -name +CONTENTS \) -print0 |
6801.62Satatat			xargs -0 ls -l | sort -t. +1 | sed -e 's, \./, ,'
6811.62Satatat	 ) > $pkgs
6821.62Satatat	echo $pkgs > $PKGS
6831.62Satatat	CHANGELIST="$PKGS $CHANGELIST"
6841.32Slukemfi
6851.32Slukem
6861.9Scgd# List of files that get backed up and checked for any modifications.  Each
6871.48Sabs# file is expected to have two backups, $backup_dir/file.{current,backup}.
6881.9Scgd# Any changes cause the files to rotate.
6891.32Slukem#
6901.31Slukemif checkyesno check_changelist && [ -s /etc/changelist ] ; then
6911.32Slukem	CHANGELIST="/etc/changelist $CHANGELIST"
6921.32Slukemfi
6931.32Slukem
6941.32Slukemif [ -n "$CHANGELIST" ]; then
6951.32Slukem	for file in `egrep -hv "^#|$MP" $CHANGELIST`; do
6961.54Satatat		# old changelist backup names
6971.54Satatat		OCUR=$backup_dir/${file##*/}.current
6981.54Satatat		OBACK=$backup_dir/${file##*/}.backup
6991.54Satatat		# new changelist backup names
7001.54Satatat		CUR=$backup_dir$file.current
7011.54Satatat		BACK=$backup_dir$file.backup
7021.54Satatat		# roll over old backups
7031.54Satatat		if [ ! -d ${CUR%/*} ]; then
7041.54Satatat			mkdir -p ${CUR%/*}
7051.54Satatat		fi
7061.54Satatat		if [ -f $OCUR -a ! -f $CUR ]; then
7071.54Satatat			mv $OCUR $CUR
7081.54Satatat		fi
7091.54Satatat		if [ -f $OCUR,v -a ! -f $CUR,v ]; then
7101.54Satatat			mv $OCUR,v $CUR,v
7111.54Satatat		fi
7121.54Satatat		if [ -f $OBACK -a ! -f $BACK ]; then
7131.54Satatat			mv $OBACK $BACK
7141.54Satatat		fi
7151.54Satatat		# and down to work
7161.30Smycroft		if [ -f $file ]; then
7171.30Smycroft			if [ -f $CUR ] ; then
7181.9Scgd				diff $CUR $file > $OUTPUT
7191.9Scgd				if [ -s $OUTPUT ] ; then
7201.9Scgd		printf "\n======\n%s diffs (OLD < > NEW)\n======\n" $file
7211.9Scgd					cat $OUTPUT
7221.52Satatat					backup_file update $file $CUR $BACK
7231.9Scgd				fi
7241.9Scgd			else
7251.30Smycroft		printf "\n======\n%s added\n======\n" $file
7261.30Smycroft				diff /dev/null $file
7271.52Satatat				backup_file add $file $CUR $BACK
7281.30Smycroft			fi
7291.30Smycroft		else
7301.30Smycroft			if [ -f $CUR ]; then
7311.30Smycroft		printf "\n======\n%s removed\n======\n" $file
7321.30Smycroft				diff $CUR /dev/null
7331.52Satatat				backup_file remove $file $CUR $BACK
7341.9Scgd			fi
7351.9Scgd		fi
7361.9Scgd	done
7371.44Sadfi
7381.44Sad
7391.44Sadif [ -f /etc/security.local ]; then
7401.44Sad	echo ""
7411.44Sad	echo "Running /etc/security.local:"
7421.44Sad	. /etc/security.local
7431.9Scgdfi
744