home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / c / cops_104.zip / cops_104 / checkacct / ca.src < prev    next >
Text File  |  1992-03-10  |  14KB  |  568 lines
  1. #!/bin/sh
  2. #
  3. # paths to some important programs
  4. #
  5.  
  6. #
  7. # This is the language used to parse the .rhosts file.  If you rewrite the
  8. # parser in a different language, you should change this.  If it doesn't
  9. # exist, that's "ok".  chkacct will notice that.
  10. #
  11. PERL=perlpath()
  12.  
  13. #
  14. # This is the program used to parse the .rhosts file.  If you rewrite it, you
  15. # should change PERL1 to be the location of your new program.  You should also
  16. # send me a copy because I'm a packrat for stuff like this.
  17. #
  18. PERL1=installpath()lib/chkacct/rhosts.pl
  19.  
  20. #
  21. # This directory contains the info and effect files that chkacct(1L) references.
  22. #
  23. DOCPATH=installpath()lib/chkacct
  24.  
  25. # default variable values prevent nasty surprises
  26. # (its good style, too)
  27. #
  28.  
  29. # The title of the guru to send customers to  (maybe your name if you work at a 
  30. #  small company..)
  31. GURU=gurudude()
  32.  
  33. #
  34. # The name of the security article
  35. #
  36. ARTICLE=Article
  37.  
  38. #
  39. # The name of the pager you want to use to display info files.  This is 
  40. # probably "more" or "less" at most sites, but never cat, because things
  41. # scroll off the screen too quickly.
  42. # 
  43. PAGER=pagerpath()
  44.  
  45. #
  46. # miscellaneous stuff
  47. #
  48. CAT=catpath()
  49. THISSHELL=$$
  50. EXITCOND=0
  51. UNIQUE=1
  52. trap 'echo "Exiting."; %eval^ $stop_dots; exit;' 0;
  53. trap 'echo "Exiting."; %eval^ $stop_dots; exit;' 1;
  54. trap 'echo "Exiting."; %eval^ $stop_dots; exit;' 2;
  55. trap 'echo "Exiting."; %eval^ $stop_dots; exit;' 3;
  56.  
  57. # an example shell command line parser that conforms to the getopt    (ksb)
  58. # standard, Kevin Braunsdorf, ksb@cc.purdue.edu
  59.  
  60. # our program name and usage message
  61. progname=`basename $0`
  62. usage="$progname: usage [-ehinqrv] [-f <startdir>] [-m <homedir>] [-s <username]"
  63.  
  64. # how to slide a single letter option off the beginning of a bundle
  65. # -barf -> -arf
  66. slide='P=$1; %shift^; set _ -`expr "$P" : '\''-.\(.*\)'\''` ${1+"$@"}; %shift^'
  67. param='if [ $# -lt 2 ]; then echo "$progname: missing value for $1" 1>&2 ; exit 1; fi'
  68.  
  69. # default values for all the flags, or leave unset for a ${flag-value) form
  70.  
  71. # verbose by default
  72. VERBOSE=1
  73. # interactive by default
  74. INTERACTIVE=1
  75. # cavalier by default
  76. HARMLESS=0
  77. # check .rhosts file by default
  78. RHOSTS=1
  79.  
  80. # read an environment variable as well as the command line options:
  81. # protect this script from leading -x's with a bogus underbar, then remove it
  82. set _ $ZZZ ${1+"$@"}
  83. %shift^
  84.  
  85. # get the options from the command line (+ any variables)
  86. while [ $# -gt 0 ]
  87. do
  88.     case "$1" in
  89.     -e)
  90.         INTERACTIVE=0
  91.         %shift^
  92.         ;;
  93.     -e*)
  94.         INTERACTIVE=0
  95.         %eval^ "$slide"
  96.         ;;
  97.     -f)
  98.         %eval^ "$param"
  99.                 START_DIR=$2
  100.                 %shift^ ; %shift^
  101.         ;;
  102.     -f*)
  103.         START_DIR=`expr "$1" : '-.\(.*\)'`
  104.                 %shift^
  105.         ;;
  106.     -i)
  107.         INTERACTIVE=1
  108.         %shift^
  109.         ;;
  110.     -i*)
  111.         INTERACTIVE=1
  112.         %eval^ "$slide"
  113.         ;;
  114.     -m)
  115.         %eval^ "$param"
  116.                 HOME=$2
  117.                 %shift^ ; %shift^
  118.         ;;
  119.     -m*)
  120.         HOME=`expr "$1" : '-.\(.*\)'`
  121.                 %shift^
  122.         ;;
  123.     -n)
  124.         HARMLESS=1
  125.         %shift^
  126.         ;;
  127.     -n*)
  128.         HARMLESS=1
  129.         %eval^ "$slide"
  130.         ;;
  131.     -q)
  132.         VERBOSE=0
  133.         %shift^
  134.         ;;
  135.     -q*)
  136.         VERBOSE=0
  137.         %eval^ "$slide"
  138.         ;;
  139.     -r)
  140.         RHOSTS=0
  141.         %shift^
  142.         ;;
  143.     -r*)
  144.         RHOSTS=0
  145.         %eval^ "$slide"
  146.         ;;
  147.     -s)
  148.         %eval^ "$param"
  149.         ME=$2
  150.         HOME=`echo "echo ~${ME}" | cshpath() `;
  151.         %shift^ ; %shift^
  152.         ;;
  153.     -s*)
  154.         ME=`expr "$1" : '-.\(.*\)'`
  155.         HOME=`echo "echo ~${ME}" | cshpath() `;
  156.         %shift^
  157.         ;;
  158.     -v)
  159.         VERBOSE=1
  160.         %shift^
  161.         ;;
  162.     -v*)
  163.         VERBOSE=1
  164.         %eval^ "$slide"
  165.         ;;
  166.     --)
  167.         %shift^
  168.         break
  169.         ;;
  170.     -h|-h*)
  171.         cat <<HERE
  172. $usage
  173. e        expert (non-interactive) do not ask the user any questions
  174. f <startdir>    specify the directory in which to begin the general file check
  175.             (\${HOME} is the default)
  176. h        print this help message
  177. i        interactive mode - ask the user about every file (default)
  178. m <home dir>    specify a home directory (\${HOME} is the default)
  179. n        do not actually alter any file permissions or files
  180. q        perform actions quietly
  181. r        do not check of \${HOME}/.rhosts file
  182. s <username>    run chkacct as if my userid were <username> (also sets \${HOME} to ~username)
  183. v        perform actions verbosely (this is the default)
  184. HERE
  185.         exit 0
  186.         ;;
  187.     -*)
  188.         echo "$usage" 1>&2 
  189.         exit 1
  190.         ;;
  191.     *)
  192.         # process and continue for intermixed options & args
  193.         break
  194.         ;;
  195.     esac
  196. done
  197.  
  198. # set my identity if it hasn't been done yet
  199. if [ -z "${ME}" ]; then
  200.  
  201.     ME=`whoami`;
  202.     if [ \( -z "${ME}" \) -o \( $? -ne 0 \) ]; then
  203.         echo "Cannot determine your identity - exiting, nothing checked.";
  204.         EXITCOND=1;
  205.         exit ${EXITCOND};
  206.     fi;
  207. fi;
  208.  
  209. # set my home directory if it hasn't been set yet
  210. if [ -z "${HOME}" ]; then
  211.  
  212.     HOME=`echo "echo ~${ME}" | cshpath() `;
  213.     if [ -z "${HOME}" ]; then
  214.         echo "Cannot determine your home directory - exiting, nothing checked.";
  215.         EXITCOND=1;
  216.         exit ${EXITCOND};
  217.     fi;
  218. fi;
  219.  
  220. # search only in the home dir by default
  221. if [ -z "${START_DIR}" ]; then
  222.  
  223.     START_DIR=${HOME};
  224. fi
  225.  
  226. #
  227. # For debugging, silly.
  228. #
  229. # echo "Performing account check with username = ${ME}, home dir = ${HOME}, and";
  230. # echo "starting directory ${START_DIR}";
  231.  
  232. #
  233. # Ok, this is actually checkacct.
  234. #
  235.  
  236. #
  237. # Define a routine which will display files.  If sites have their own favorite
  238. # pager or display method, it can be specified here.  If you just wanted
  239. # to use a simple pager, you would define PAGER to be equal to it, and then
  240. # you would change the line below that display it to be:
  241. #   ${PAGER} ${DOCPATH}/${DISPLAY};
  242. # 
  243. # REMEMBER!  Before you call this routine, you must set DISPLAYFILE to be
  244. # the file you want displayed
  245. #
  246. display_file='
  247. if [ -f ${DOCPATH}/${DISPLAYFILE} ]; then
  248.  
  249.     ${PAGER} ${DOCPATH}/${DISPLAYFILE};
  250. fi;'
  251.  
  252. #
  253. # Its crucial that we don't leave shell variables like $* set 
  254. # when we're not expecting it.  For that reason, here's a small routine
  255. # to clear the contents of $* by shift'ing.  For some reason, each set
  256. # successively lengthens $*.
  257. #
  258. clear_args='
  259. for i
  260. do
  261.     %shift^;
  262. done;'
  263.  
  264. #
  265. #  Before each situation where the user might be queried as to the action,
  266. #  one needs to remember to set the following shell variables:
  267. #
  268. #  FIX - the shell command to fix it with \$TARGET to be the file to
  269. #     be operated upon
  270. #  MANPAGES - a list of man pages it will tell you to look at
  271. #  INFO - The name of the info file in which more info is to be found (if any)
  272. #  EFFECT - The name of the file which describes the effect of the fix
  273. #  PROBLEM - This is the problem string -- it may be printed several times.
  274. #
  275. # define the prompt/decision routine which will make the fix if necessary, print
  276. # out specific info, refer someone to a manual page.
  277. prompt='
  278. FIXED=0;
  279. while [ ${FIXED} -eq 0 ]; do
  280.     echo "";
  281.     echo "${PROBLEM}";
  282.     echo "The output of the command \"ls -lsopt()ld ${PROBLEMFILE}\" is:";
  283.     /bin/ls -lsopt()ld ${PROBLEMFILE};
  284.     echo "";
  285.     echo "The suggested fix for this is to execute the command:";
  286.     echo "    ${FIX}";
  287.  
  288.     if [ ${VERBOSE} -eq 1 ]; then
  289.         if [ \( -f ${DOCPATH}/${EFFECT} \) -a \( ! -d  ${DOCPATH}/${EFFECT} \) ]; then
  290.             ${CAT} ${DOCPATH}/${EFFECT};
  291.         fi;
  292.     fi;
  293.  
  294.     if [ ${INTERACTIVE} -eq 1 ]; then
  295.         echo ""; 
  296.         echo "Press a letter (a) to enter automatic mode (no more questions), (f)ix problem,";
  297.         echo "(h)elp me out with this menu, (i)gnore problem, (m)ore info";
  298.         echownl(%Press RETURN/NEWLINE to fix the problem and go on> ^);
  299.         read input;
  300.     else
  301.         input="f";
  302.     fi;
  303.  
  304.     case $input in
  305.         a*)
  306.             echo "";
  307.             echo "This will put you into automatic mode.  No more questions will be asked,";
  308.             echo "and all problems will be automatically fixed unless you specified the";
  309.             echo "\"harmless(-n)\" option on startup.";
  310.             echo "";
  311.             echownl(%Press \"yes\" to enter automatic mode> ^);
  312.             read confirm;
  313.             if [ \( ! -z "$confirm" \) -a \( "$confirm" = "yes" \) ]; then
  314.                 echo "Beginning automatic mode.";
  315.                 INTERACTIVE=0;
  316.                 echo "";
  317.             fi;
  318.             ;;
  319.         h*)
  320.             DISPLAYFILE="prompt.help";
  321.             %eval^ $display_file;
  322.             ;;
  323.         m*)
  324.             DISPLAYFILE=${INFO};
  325.             %eval^ $display_file;
  326.             if [ -n "$MANPAGES" -a ${VERBOSE} -eq 1 ]; then
  327.                 echo "";
  328.                 echo "For additional information, read the manual page for the following";
  329.                 echo "program(s): ${MANPAGES}";
  330.                 echo "The command man <name of program> will show you the manual page.";
  331.                 echo "";
  332.             fi;
  333.             ;;
  334.         i*)
  335.             echo "Ignoring problem -- taking no action.";
  336.             FIXED=1;
  337.             ;;
  338.         *|f*) 
  339.             if [ ${HARMLESS} -eq 0 ]; then
  340.                 echownl(%Fixing problem...^);
  341.                 %eval^ ${FIX};
  342.                 echo "Done.";
  343.             else
  344.                 echo "In \"harmless\" (-n) mode, ignoring problem.";
  345.             fi;
  346.             FIXED=1;
  347.             ;;
  348.        esac;
  349. done;'
  350.  
  351. #
  352. # define the waiting routine that prints those neat dots
  353. #
  354. make_dots='
  355. if [ ${VERBOSE} -eq 1 ]; then
  356.     (touch /tmp/makedots${THISSHELL};while [ -f /tmp/makedots${THISSHELL} ]; do echownl(%.^); sleep 1; done)& 2>&1 >/dev/null;
  357. fi;'
  358.  
  359. stop_dots='sleep 1; /bin/rm -rf /tmp/makedots${THISSHELL};'
  360.  
  361. if [ 1 -eq $VERBOSE ]; then
  362.  
  363.     DISPLAYFILE="Intro";
  364.     %eval^ $display_file;
  365.  
  366. fi
  367.  
  368. if [ ${INTERACTIVE} -eq 1 ]; then
  369.     echownl(%Press RETURN/NEWLINE to begin> ^); read input;
  370. fi;
  371.  
  372. NO_WRITE="rhosts profile login logout cshrc bashrc bash_profile inputrc";
  373. NO_WRITE="$NO_WRITE screenrc kshrc tcshrc netrc forward dbxinit distfile";
  374. NO_WRITE="$NO_WRITE exrc emacsrc remote mh_profile xinitrc xsession Xdefaults";
  375. NO_WRITE="$NO_WRITE Xresources rninit mwmrc twmrc emacs rhosts";
  376. NO_READ="badpass netrc"
  377.  
  378. #
  379. # First, are any of the dot files writable & does the user own every dot file?
  380. #
  381. PERMLINE="FindPermWrite()";
  382.  
  383. if [ ${VERBOSE} -eq 1 ]; then
  384.     echo ""
  385.     echo "Step one (three total) - Evaluating your account's dot files."
  386. fi
  387.  
  388. %eval^ $make_dots;
  389. for i in ${NO_WRITE}
  390. do
  391.     TARGET=${HOME}/.$i;
  392.     if [ -f ${TARGET} -o -d ${TARGET} ]; then
  393.         while [ -f ${HOME}/dangerous.${i}.${UNIQUE} ];
  394.         do
  395.             UNIQUE=`echo "${UNIQUE} + 1" | bc -l`;
  396.         done;
  397.         FIX="/bin/mv -i ${TARGET} ${HOME}/dangerous.${i}.${UNIQUE}";
  398.         MANPAGES="chmod"
  399.         EFFECT="effect.owners"
  400.         INFO="owners"
  401.         RESULT=`/bin/ls -ld ${TARGET}`;
  402.         %eval^ $clear_args;
  403.         set $*=${RESULT};
  404.         if [ $3 != ${ME} ]; then
  405.             PROBLEM="File '${TARGET}' is owned by user $3.";
  406.             PROBLEMFILE=${TARGET};
  407.             EXITCOND=1;
  408.             %eval^ $stop_dots;
  409.             %eval^ $prompt;
  410.             %eval^ $make_dots;
  411.             continue;
  412.         fi
  413.         TEMP="`find ${TARGET} ! -type l \( ${PERMLINE} \) -print`"
  414.         EFFECT="dotwrite";
  415.         INFO="effect.dotwrit";
  416.         FIX="/bin/chmod ChmodPermSymbol()-w ${TARGET};"
  417.         if [ -n "${TEMP}" ]; then
  418.             PROBLEM="File '${TARGET}' is world or group writable.";
  419.             PROBLEMFILE=${TARGET};
  420.             EXITCOND=1;
  421.             %eval^ $stop_dots;
  422.             %eval^ $prompt;
  423.             %eval^ $make_dots;
  424.         fi
  425.     fi
  426. done
  427.  
  428. PERMLINE="FindPermRead()";
  429. EFFECT="effect.read";
  430. INFO="readable";
  431.  
  432. for i in ${NO_READ}
  433. do
  434.     TARGET=${HOME}/.${i};
  435.     if [ -f ${TARGET} ]; then
  436.         FIX="/bin/chmod ChmodPermSymbol()-r ${TARGET};"
  437.         if [ -n "`find ${TARGET} \( ${PERMLINE} \) -exec /bin/ls {} \;`" ]; then
  438.             PROBLEM="File '${TARGET}' is world or group readable.";
  439.             PROBLEMFILE=${TARGET};
  440.             EXITCOND=1;
  441.             %eval^ $stop_dots;
  442.             %eval^ $prompt;
  443.             %eval^ $make_dots;
  444.         fi
  445.     fi
  446. done
  447. %eval^ $stop_dots;
  448.  
  449. if [ ${VERBOSE} -eq 1 ]; then
  450.     echo "Step one complete."
  451.     echo ""
  452.     echo "Step two (three total) - Evaluating the file permissions in your account."
  453. fi
  454.  
  455. #
  456. # Second, do we have any writable files or directories?
  457. #
  458. %eval^ $make_dots
  459. PERMLINE="FindPermWrite()";
  460. RESULT=`(cd ${HOME}; find . -user ${ME} ! -type l \( ${PERMLINE} \) -print)`;
  461. EFFECT="effect.write";
  462. INFO="write";
  463. %eval^ $stop_dots
  464.  
  465. for i in ${RESULT}
  466. do
  467.     FIX="/bin/chmod ChmodPermSymbol()-w ${i};"
  468.     if [ -d $i ]; then
  469.         PROBLEM="Your directory $i is world or group writable.";
  470.         PROBLEMFILE=$i;
  471.         EXITCOND=1;
  472.         %eval^ $prompt;
  473.     else
  474.         PROBLEM="Your file $i is world or group writable.";
  475.         PROBLEMFILE=$i;
  476.         EXITCOND=1;
  477.         %eval^ $prompt;
  478.     fi
  479. done
  480.  
  481. %eval^ $make_dots
  482. PERMLINE="FindPermSuid()";
  483. RESULT=`(cd ${HOME} ; find . -user ${ME} ! \( -type l -o -type d \) \( ${PERMLINE} \) -print)`;
  484. EFFECT="effect.setuid";
  485. INFO="setuid";
  486.  
  487. for i in ${RESULT}
  488. do
  489.     FIX="/bin/chmod ChmodPermSuidSymbol()-s ${i};"
  490.     PROBLEM="Your file $i is user or group setuid.";
  491.     PROBLEMFILE=$i;
  492.     EXITCOND=1;
  493.     %eval^ $stop_dots
  494.     %eval^ $prompt;
  495.     %eval^ $make_dots
  496. done
  497.  
  498. sleep 1
  499. %eval^ $stop_dots
  500.  
  501. if [ ${VERBOSE} -eq 1 ]; then
  502.     echo "Step two complete."
  503.     echo ""
  504.     echo "Step three (three total) - Checking the contents of your rhosts file."
  505. fi
  506.  
  507. FIX="/bin/mv -i ${HOME}/.rhosts ${HOME}/rhosts.$$;"
  508. EFFECT="effect.rhosts";
  509. INFO="rhosts";
  510. MANPAGES="hosts.equiv rlogin";
  511. #
  512. # Third, does our rhost file contain any glaring dangers?
  513. # see "man hosts.equiv"
  514. #
  515. if [ ${RHOSTS} -eq 0 ]; then
  516.  
  517.     echo "The file ${HOME}/.rhosts will not be checked (as requested).";
  518.  
  519. elif [ -f ${HOME}/.rhosts ]; then
  520.     if [ ! -x ${PERL} ]; then
  521.         echo "${PERL} does not exist on your system -- skipping .rhosts check.";
  522.         echo "If you are unfamiliar with the uses of a .rhosts file, you should";
  523.         echo "definately have a ${GURU} take a look at it.";
  524.     else
  525.         ${PERL1} ${HOME}/.rhosts;
  526.         if [ $? -ne 0 ]; then
  527.             PROBLEM="Your .rhosts file is unsafe.";
  528.             PROBLEMFILE=${HOME}/.rhosts;
  529.             EXITCOND=1;
  530.             %eval^ $prompt;
  531.         else
  532.             if [ ${VERBOSE} -eq 1 ]; then
  533.                 echo "Your .rhosts file doesn't appear to be a security hole.";
  534.             fi;
  535.         fi;
  536.     fi;
  537. else
  538.     if [ ${VERBOSE} -eq 1 ]; then
  539.         echo "Congratulations!  You don't have a .rhosts file!";
  540.         echo "(If I had a cookie, I would give you one.)";
  541.     fi;
  542. fi;
  543.  
  544. %eval^ $stop_dots
  545.  
  546. if [ ${VERBOSE} -eq 1 ]; then
  547.     echo "Step 3 complete."
  548.     echo "";
  549.     echo "Checkacct is complete.  If you still have questions about this program,";
  550.     echo "please see a ${GURU}." ;
  551.     echo "";
  552.     if [ ${INTERACTIVE} -eq 1 ]; then
  553.         echo "If you are interested in reading an article on Unix";
  554.         echo "security, type \"yes\" and hit RETURN/NEWLINE now.";
  555.         echownl(%If not, simply hit RETURN/NEWLINE and checkacct will exit.> ^);
  556.         read input;
  557.         if [ \( ! -z "$input" \) -a \( "$input" = "yes" \) ]; then
  558.             DISPLAYFILE=${ARTICLE};
  559.             %eval^ $display_file;
  560.         fi;
  561.     fi;
  562. fi;
  563. if [ \( ${EXITCOND} -eq 0 \) -a \( ${VERBOSE} -eq 1 \) ]; then
  564.     echo "There were no obvious problems with your Unix account.";
  565.     echo "(I owe you a cookie.)";
  566. fi;
  567. exit ${EXITCOND};
  568.