home *** CD-ROM | disk | FTP | other *** search
/ H4CK3R 16 / hacker16 / 16_HACKER16.ISO / linux / tpm-security-server-1.2.1.iso / archive / etc / autopsy / base / autopsy.base next >
Encoding:
Text File  |  2004-01-29  |  16.5 KB  |  720 lines
  1. #
  2. # autopsy gui server
  3. # Autopsy Forensic Browser
  4. #
  5. #
  6. # This file requires The Sleuth Kit 
  7. #    www.sleuthkit.org
  8. #
  9. # version 1.71+
  10. # Brian Carrier [carrier@sleuthkit.org]
  11. # Copyright (c) 2003 by Brian Carrier.  All rights reserved
  12. #
  13. # version 1.5, 1.6, 1.7
  14. # Copyright (c) 2001-2003 by Brian Carrier, @stake Inc.  All rights reserved
  15. #
  16. # version 1.0
  17. # Brian Carrier [carrier@cerias.purdue.edu]
  18. # Copyright (c) 2001 by Brian Carrier.  All rights reserved
  19. #   
  20. #
  21. # This file is part of the Autopsy Forensic Browser (Autopsy)
  22. #
  23. # Autopsy is free software; you can redistribute it and/or modify
  24. # it under the terms of the GNU General Public License as published by
  25. # the Free Software Foundation; either version 2 of the License, or
  26. # (at your option) any later version.
  27. #
  28. # Autopsy is distributed in the hope that it will be useful,
  29. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  30. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  31. # GNU General Public License for more details.
  32. #
  33. # You should have received a copy of the GNU General Public License
  34. # along with Autopsy; if not, write to the Free Software
  35. # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  36. #
  37. #
  38. # THIS SOFTWARE IS NOT AFFILIATED WITH PURDUE UNIVERSITY OR THE CENTER FOR
  39. # EDUCATION IN INFORMATION ASSURANCE AND SECURITY (CERIAS) AND THEY BEAR
  40. # NO RESPONSIBILITY FOR ITS USE OR MISUSE.
  41. #
  42. #
  43. # THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
  44. # WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
  45. # MERCHANTABILITY AND FITNESS FOR ANY PARTICULAR PURPOSE.
  46. # IN NO EVENT SHALL THE AUTHORS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
  47. # INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
  48. # (INCLUDING, BUT NOT LIMITED TO, LOSS OF USE, DATA, OR PROFITS OR
  49. # BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
  50. # WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
  51. # OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
  52. # ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  53. #
  54.  
  55. #
  56. # refer to Security Considerations in README for a description of the 
  57. # cookie authentication
  58. #
  59.  
  60. require 5.002;
  61.  
  62. use autopsyfunc;    
  63. use strict;
  64. use Socket;
  65.  
  66. require 'conf.pl';
  67. require 'define.pl';
  68.  
  69. # Import variables from conf.pl
  70. use vars '$PROGNAME', '$TASKDIR';
  71. use vars '$LOCKDIR', '$INSTALLDIR', '$PICTDIR';
  72. use vars '$SANITIZE_TAG', '$SANITIZE_PICT';
  73. use vars '$USE_STIMEOUT', '$STIMEOUT', '$CTIMEOUT';
  74. use vars '$USE_COOKIE', '$USE_LOG';
  75. use vars '$SAVE_COOKIE', '$STRINGS_EXE', '$GREP_EXE';
  76. use vars '$AUT_HOME_PAGE';
  77. use vars '$HTTP_NL', '$NSRLDB';
  78.  
  79.  
  80. # remove environment stuff that we don't need and that could be insecure
  81. $ENV{PATH} = '';
  82. delete @ENV{ 'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};
  83. $| = 1;
  84.  
  85. sub usage {
  86.     print "usage: $0 [-C] [-d evid_locker] [port [remoteaddr]]\n";
  87.     exit 1;
  88. }
  89.  
  90. if (scalar(@ARGV) > 5) {
  91.     usage();
  92. }
  93.  
  94. # Were options given?
  95. while ((scalar (@ARGV) > 0) && ($ARGV[0] =~ /^-/)) {
  96.     my $f = shift;
  97.  
  98.     # Evidence Locker
  99.     if ($f eq '-d') {
  100.         if (scalar (@ARGV) == 0) {
  101.             print "Missing Directory\n";
  102.             usage();
  103.         }
  104.  
  105.         my $d = shift;
  106.         # We need to do this for the tainting
  107.         # We don't need to check for special characters in this case because
  108.         # all commands will be run with the same permissions as the
  109.         # original user.  We will check for the obvious ';' though
  110.         if ($d =~ /;/) {
  111.             print "Illegal argument\n";
  112.             exit (1);
  113.         }
  114.  
  115.         # If the path is relative, autopsyfunc will get screwed up when
  116.         # this is run from a directory other than where autopsyfunc is
  117.         # so force full paths
  118.         elsif ($d !~ /^\//) {
  119.             print "The evidence locker must be full path (i.e. begin with /)\n";
  120.             exit(1);
  121.         }
  122.         elsif ($d =~ /(.*)/) {
  123.             $LOCKDIR = $1;
  124.         }
  125.     }
  126.  
  127.     # Force no cookie
  128.     elsif ($f eq '-C') {
  129.         $USE_COOKIE = 0;
  130.     }
  131.     else {
  132.         print "Invalid flag: $f\n";
  133.         usage();
  134.     }
  135. }
  136.  
  137.  
  138. # Port Number
  139. my $port;
  140. if (scalar (@ARGV) > 0) {
  141.     $port = shift;
  142.     if ($port =~ /(\d+)/) {
  143.         $port = $1;
  144.     }
  145.     else {
  146.         print "invalid port: $port\n";
  147.         usage();
  148.     }
  149. }
  150. else {
  151.     $port = 9999;
  152. }
  153.  
  154. # remote address
  155. my $rema;
  156. if (scalar (@ARGV) > 0) {
  157.     $rema = shift;
  158. }
  159. else {
  160.     $rema = 'localhost';
  161. }
  162.  
  163.  
  164. # Get remote address
  165. my @acl_addr;        # Array of host addresses
  166. my $hn;                # Host name
  167. my $tmp;
  168. if ($rema =~ /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/) {
  169.     $acl_addr[0] = pack('C4', ($1, $2, $3, $4));
  170.     $hn = $rema;
  171. }
  172. else {
  173.     ($hn, $tmp, $tmp, $tmp, @acl_addr) = gethostbyname($rema);
  174.     unless (defined $tmp) {
  175.         print "Host not found: $rema\n";
  176.         usage();
  177.     }
  178. }
  179.  
  180. # Determine the address that will be used to access this server
  181. my $lclhost;
  182. my @ta = unpack('C4', $acl_addr[0]);
  183.  
  184. # If we are being accessed by localhost, we need that and not the hostname
  185. if (($ta[0] == 127) && ($ta[1] == 0) &&
  186.   ($ta[2] == 0) && ($ta[3] == 1)) {
  187.     $lclhost = "localhost";
  188. }
  189. else {
  190.     $lclhost = `/bin/hostname`;
  191.     chop $lclhost;
  192. }
  193.  
  194.  
  195. # Verify the variables defined in the configuration files
  196. check_vars();
  197.  
  198.  
  199. # Make sure TASKDIR ends with '/'
  200. if ($TASKDIR !~ /.*?\/$/) {
  201.     $TASKDIR .= '/';
  202. }      
  203.  
  204. # Make sure LOCKDIR ends with '/'
  205. if ($LOCKDIR !~ /.*?\/$/) {
  206.     $LOCKDIR .= '/';     
  207. }
  208.  
  209.  
  210. #
  211. # Verify that all of the required executables exist
  212. #
  213.  
  214.  
  215. check_tools();
  216.  
  217. my $date = localtime;
  218. print <<EOF;
  219.  
  220. ============================================================================
  221.  
  222.                        Autopsy Forensic Browser 
  223.                   http://www.sleuthkit.org/autopsy/
  224.                              ver $VER 
  225.  
  226. ============================================================================
  227.  
  228. Evidence Locker: $LOCKDIR
  229. Start Time: $date
  230. EOF
  231.  
  232.  
  233.  
  234. # Setup socket
  235. my $proto = getprotobyname('tcp');
  236. socket (Server, PF_INET, SOCK_STREAM, $proto) 
  237.   or die "Create socket failed: $!";
  238.  
  239. setsockopt(Server, SOL_SOCKET, SO_REUSEADDR, 1) 
  240.   or die "Setsockopt failed: $!";
  241.  
  242. setsockopt(Server, SOL_SOCKET, SO_KEEPALIVE, 1) 
  243.   or die "Setsockopt failed: $!";
  244.  
  245. bind(Server, sockaddr_in($port, INADDR_ANY)) 
  246.   or die "Bind to port $port failed: $!";
  247.  
  248. listen(Server, SOMAXCONN) 
  249.   or die "Listen to socket failed: $!";
  250.  
  251.  
  252. my $magic;        # magic authentication cookie
  253. my $cook_file;
  254. my $cookie_url = "";
  255.  
  256. if  ($USE_COOKIE == 1) {
  257.  
  258.     # Try for a real random device, or use rand if all else fails
  259.     if (-e "/dev/urandom") {
  260.         my $r;
  261.         open RAND, "</dev/urandom" or die "can not open /dev/urandom";
  262.         read RAND, $r, 4;
  263.         $magic = unpack "I", $r;
  264.         read RAND, $r, 4;
  265.         $magic .= unpack "I", $r;
  266.         close RAND;
  267.     }
  268.     else {
  269.         $magic = int(rand 0xffffffff).int(rand 0xffffffff);
  270.     }
  271.  
  272.     $cookie_url = "$magic/";
  273.  
  274.     # Save to file in case the stdout gets overwritten
  275.     if ($SAVE_COOKIE == 1) {
  276.         $cook_file = "$LOCKDIR/.$port.cookie";
  277.         open COOK, ">$cook_file" or
  278.           die "can not open $cook_file";
  279.         chmod 0600, "$cook_file";
  280.         print COOK "$magic\n";
  281.         close COOK;
  282.     }
  283. } 
  284.  
  285. print "Remote Host: $rema\n";
  286. print "Local Port: $port\n\n";
  287. print "Open an HTML browser on the remote host and paste this URL in it:\n\n";
  288. print "\thttp://$lclhost:${port}/${cookie_url}${PROGNAME}\n";
  289. print "\nKeep this process running and use <ctrl-c> to exit\n";
  290.  
  291. log_session_info("Starting session on port $port and $hn\n");
  292.  
  293. # Set the server alarm
  294. $SIG{ALRM} = \&sig_alarm_server;
  295. $SIG{INT} = \&sig_close;
  296. $SIG{CHLD} = sub {
  297.     my $p = wait;
  298. };
  299.  
  300. # Wait for Connections
  301. while (1) {
  302.  
  303.     alarm ($STIMEOUT) if ($USE_STIMEOUT == 1);
  304.  
  305.     my $raddr = accept(CLIENT, Server); 
  306.     next unless ($raddr);
  307.     my ($rport, $riaddr) = sockaddr_in($raddr);
  308.  
  309.     die "Error creating child" unless (defined (my $pid = fork()));
  310.  
  311.     if (0 == $pid) {
  312.         open(STDOUT, ">&CLIENT") or die "Can't dup client to stdout";
  313.         open(STDERR, ">&CLIENT") or die "Can't dup client to stdout";
  314.         open(STDIN, "<&CLIENT") or die "Can't dup client to stdin";
  315.         $| = 1;
  316.  
  317.         my @rip = unpack('C4', $riaddr);
  318.  
  319.         # Check ACL
  320.         foreach $tmp (@acl_addr) {
  321.             if ($tmp eq $riaddr) {
  322.                 spawn_cli($riaddr);
  323.                 close CLIENT;
  324.                 exit 0;
  325.             }
  326.         }
  327.  
  328.         forbid ();
  329.         log_session_info("ERROR: Unauthorized Connection from:".
  330.            "$rip[0].$rip[1].$rip[2].$rip[3]\n");
  331.  
  332.         close CLIENT;
  333.         exit 1;
  334.     }
  335.     else {
  336.         close CLIENT;
  337.     }
  338. }
  339.  
  340.  
  341. # Error messages
  342. sub forbid 
  343. {
  344.     print "HTTP/1.0 403 Forbidden${HTTP_NL}".
  345.       "Content-type: text/html${HTTP_NL}${HTTP_NL}".
  346.       "<HTML><CENTER><BR>\n".
  347.       "<H2>Access Denied</H2></CENTER></HTML>${HTTP_NL}${HTTP_NL}${HTTP_NL}";
  348.     return;
  349. }
  350.  
  351. sub bad_req 
  352. {
  353.     print "HTTP/1.0 404 Bad Request${HTTP_NL}".
  354.       "Content-type: text/html${HTTP_NL}${HTTP_NL}".
  355.       "<HTML><CENTER><BR>\n".
  356.       "<H2>Invalid Location: <TT>".shift()."</TT></H2></CENTER></HTML>".
  357.       "${HTTP_NL}${HTTP_NL}${HTTP_NL}";
  358.     return;
  359. }
  360.  
  361.  
  362. sub sterile
  363. {
  364.     my $url = shift();
  365.     my $lurl = $url;
  366.     $lurl =~ tr/[A-Z]/[a-z]/;
  367.  
  368.     print "HTTP/1.0 200 OK${HTTP_NL}";
  369.     if (($lurl =~ /.jpg/i) || ($lurl =~ /.jpeg/i) || ($lurl =~ /.gif/i) ||
  370.       ($lurl =~ /.png/i) || ($lurl =~ /.bmp/i)) {
  371.  
  372.         open PICT, "<$PICTDIR/$SANITIZE_PICT" or  
  373.           die "can not open $PICTDIR/$SANITIZE_PICT";
  374.  
  375.         print "Content-type: image/jpeg${HTTP_NL}${HTTP_NL}";
  376.         while (<PICT>) {
  377.             print "$_";
  378.         }
  379.         close (PICT);
  380.     }
  381.     else {
  382.         $url =~ tr/\+/ /;
  383.         $url =~ s/%([a-f0-9][a-f0-9])/chr( hex( $1 ) )/eig;
  384.  
  385.         print "Content-type: text/html${HTTP_NL}${HTTP_NL}".
  386.             "<HTML><H1><CENTER>Unable to Complete Request</H1><BR>\n".
  387.             "<TT>Autopsy</TT> will not follow links from ".
  388.             "untrusted HTML pages:<BR><TT>$url</TT><BR>\n";
  389.     }
  390.     print "${HTTP_NL}${HTTP_NL}";
  391. }
  392.  
  393.  
  394. # Alarm Functions
  395. sub sig_alarm_client 
  396. {
  397.     log_session_info("Connection timed out\n");
  398.     close CLIENT;
  399.     exit 1;
  400. }
  401.  
  402. sub sig_alarm_server 
  403. {
  404.     print "Server Timeout ($STIMEOUT seconds), Exiting\n";
  405.     log_session_info("Server Timeout ($STIMEOUT seconds), Exiting\n");
  406.     exit 0;
  407. }
  408.  
  409. # Close the system down when Control-C is given
  410. sub sig_close
  411. {
  412.     # delete the cookie file
  413.     if (($USE_COOKIE == 1) && ($SAVE_COOKIE == 1)) {
  414.         unlink "$cook_file";
  415.     }
  416.  
  417.     print "End Time: ".localtime()."\n";
  418.     log_session_info("Ending session on port $port and $hn\n");
  419.     exit 0;
  420. }
  421.  
  422. # Pass the remote IP address as the argument for logging
  423. sub spawn_cli 
  424. {
  425.     # Set timeout for 10 seconds if we dont get any input
  426.     alarm ($CTIMEOUT);
  427.     $SIG{ALRM} = \&sig_alarm_client;
  428.  
  429.     while (<STDIN>) {
  430.  
  431.         if (/^GET \/+(\S*)\s?HTTP/) {
  432.             my $url = $1;
  433.             my $script;
  434.             my $args;
  435.  
  436.             if (/\x0d\x0a$/) {
  437.                 $HTTP_NL = "\x0d\x0a";
  438.             }
  439.             else {
  440.                 $HTTP_NL = "\x0a";
  441.             }
  442.  
  443.             # Magic Cookie 
  444.             # If we are using cookies, then the url should be:
  445.             # cookie/autopsy?var=val ...
  446.             if ($USE_COOKIE == 1) {
  447.  
  448.                 if (($url =~ /^(\d+)\/+([\w\.\/]+)(?:\?(.*))?$/) && 
  449.                   ($1 == $magic)) {
  450.                     $script = $2;  
  451.                     $args = $3;
  452.                 }
  453.                 else {
  454.                        my @rip = unpack('C4', shift());
  455.                     log_session_info("ERROR: Incorrect Cookie from:".
  456.                       "$rip[0].$rip[1].$rip[2].$rip[3]\n");
  457.                     forbid();
  458.                     return 1;
  459.                 }
  460.             }
  461.  
  462.             # if we aren't using cookies, then it should be:
  463.             # autopsy?var=val ...
  464.             else {
  465.                 if ($url =~ /^\/?([\w\.\/]+)(?:\?(.*))?$/) {
  466.                     $script = $1;
  467.                     $args = $2;
  468.                 }
  469.                 else {
  470.                     bad_req($url);
  471.                     return 1;
  472.                 }
  473.             }
  474.  
  475.             if ($script eq $PROGNAME) {
  476.                 $args = "" unless (defined $args);
  477.  
  478.                 # Turn timer off
  479.                 alarm (0);
  480.  
  481.                 # Print status
  482.                 print "HTTP/1.0 200 OK${HTTP_NL}";
  483.                 autopsy_main($args);
  484.             }
  485.             # Display the sanitized picture or reference error
  486.             elsif ($script eq $SANITIZE_TAG) {
  487.                 sterile($args);
  488.                 return 1;
  489.             }
  490.             # Display a picture or help file
  491.             elsif ( ($script =~ /^(pict\/[\w\.\/]+)/)  ||
  492.               ($script =~ /^(help\/[\w\.\/]+)/) ) {
  493.                 show_file ($1);
  494.             }
  495.             elsif ($script eq 'about') {
  496.                 about();
  497.             }
  498.             else {
  499.                 bad_req($url);
  500.                 log_session_info("Unknown function: $script\n");
  501.                 return 1;
  502.             }
  503.             return 0;
  504.         }
  505.     } # end of while (<>)
  506.  
  507. } # end of spawn_cli
  508.  
  509.  
  510. # Print the contents of a local picture or help file
  511. sub show_file
  512. {
  513.     my $file = "$INSTALLDIR/".shift;
  514.  
  515.     if (-e "$file") {
  516.         print "HTTP/1.0 200 OK${HTTP_NL}";
  517.  
  518.         open FILE, "<$file" or
  519.           die "can not open $file";
  520.  
  521.         if ($file =~ /\.jpg$/i) {
  522.             print "Content-type: image/jpeg${HTTP_NL}${HTTP_NL}";
  523.         } elsif ($file =~ /\.gif$/i) {
  524.             print "Content-type: image/gif${HTTP_NL}${HTTP_NL}";
  525.         } elsif ($file =~ /\.html$/i) {
  526.               print "Content-type: text/html${HTTP_NL}${HTTP_NL}";
  527.         } else {
  528.             print "HTTP/1.0 404 Bad Request${HTTP_NL}".
  529.                 "Content-type: text/html${HTTP_NL}${HTTP_NL}".  
  530.                 "<HTML><H2><CENTER>Unknown Extension</H2>".
  531.                   "</CENTER></HTML>${HTTP_NL}${HTTP_NL}${HTTP_NL}";
  532.             exit(1);
  533.         }
  534.  
  535.         while (<FILE>) {
  536.             print "$_";
  537.         }
  538.         close (FILE);
  539.  
  540.         print "${HTTP_NL}${HTTP_NL}";
  541.     }
  542.     else {
  543.         print "HTTP/1.0 404 Bad Request${HTTP_NL}".
  544.           "Content-type: text/html${HTTP_NL}${HTTP_NL}".
  545.           "<HTML><H2><CENTER>File Not Found</H2>".
  546.           "</CENTER></HTML>${HTTP_NL}${HTTP_NL}${HTTP_NL}";
  547.         exit(1);
  548.     }
  549.  
  550.     return;
  551. }
  552.  
  553. sub about 
  554. {
  555.  
  556.     print "HTTP/1.0 200 OK${HTTP_NL}".
  557.       "Content-type: text/html${HTTP_NL}${HTTP_NL}";
  558.  
  559.  
  560. print <<EOF;
  561.  
  562. <HTML>
  563. <HEAD><TITLE>About Autopsy</TITLE></HEAD>
  564.  
  565. <BODY BGCOLOR=#CCCC99>
  566.  
  567. <CENTER><H2>About Autopsy</H2>
  568.   <BR>
  569.   <IMG SRC=\"pict/logo.jpg\">
  570.   <BR><BR>
  571.   <B>Version</B>: $VER
  572.   <BR>
  573.   <TT><A HREF=$AUT_HOME_PAGE>$AUT_HOME_PAGE</A></TT>
  574.   <BR>
  575. </CENTER>
  576.  
  577.  
  578. <H3>Credits</H3>
  579. <UL>
  580.   <LI>Code Development: Brian Carrier
  581.   <LI>Interface: Samir Kapuria
  582. </UL>
  583.  
  584. <H3>Configuration</H3>
  585. <B>Evidence Locker</B>: <TT>$LOCKDIR</TT><BR>
  586. <B>Sleuth Kit</B>: <TT>$TASKDIR</TT><BR>
  587. <B>strings</B>: <TT>$STRINGS_EXE</TT><BR>
  588. <B>grep</B>: <TT>$GREP_EXE</TT><BR>
  589. <B>NSRL</B>: <TT>$NSRLDB</TT><BR>
  590.  
  591. </BODY></HTML>
  592.  
  593. EOF
  594.     return 0;
  595. }
  596.  
  597.  
  598. ### Check that the required tools are there
  599. sub check_tools
  600. {
  601.     # Sleuth Kit execs
  602.     unless (-x "${TASKDIR}icat") {
  603.         print "ERROR: Sleuth Kit icat executable missing\n";
  604.         exit (1);
  605.     }
  606.     unless (-x "${TASKDIR}istat") {
  607.         print "ERROR: Sleuth Kit istat executable missing\n";
  608.         exit (1);
  609.     }
  610.     unless (-x "${TASKDIR}ifind") {
  611.         print "ERROR: Sleuth Kit ifind executable missing\n";
  612.         exit (1);
  613.     }
  614.     unless (-x "${TASKDIR}ils") {
  615.         print "ERROR: Sleuth Kit ils executable missing\n";
  616.         exit (1);
  617.     }
  618.     unless (-x "${TASKDIR}fls") {
  619.         print "ERROR: Sleuth Kit fls executable missing\n";
  620.         exit (1);
  621.     }
  622.     unless (-x "${TASKDIR}ffind") {
  623.         print "ERROR: Sleuth Kit ffind executable missing\n";
  624.         exit (1);
  625.     }
  626.     unless (-x "${TASKDIR}dcat") {
  627.         print "ERROR: Sleuth Kit dcat executable missing\n";
  628.         exit (1);
  629.     }
  630.     unless (-x "${TASKDIR}dcalc") {
  631.         print "ERROR: Sleuth Kit dcalc executable missing\n";
  632.         exit (1);
  633.     }
  634.     unless (-x "${TASKDIR}dls") {
  635.         print "ERROR: Sleuth Kit dls executable missing\n";
  636.         exit (1);
  637.     }
  638.     unless (-x "${TASKDIR}file") {
  639.         print "ERROR: Sleuth Kit file executable missing\n";
  640.         exit (1);
  641.     }
  642.     unless (-x "${TASKDIR}fsstat") {
  643.         print "ERROR: Sleuth Kit fsstat executable missing\n";
  644.         exit (1);
  645.     }
  646.     unless (-x "${TASKDIR}md5") {
  647.         print "ERROR: Sleuth Kit md5 executable missing\n";
  648.         exit (1);
  649.     }
  650.     unless (-x "${TASKDIR}sorter") {
  651.         print "ERROR: Sleuth Kit sorter executable missing\n";
  652.         exit (1);
  653.     }
  654.     unless (-x "${TASKDIR}hfind") {
  655.         print "ERROR: Sleuth Kit hfind executable missing\n";
  656.         print "  You likely have an old version of The Sleuth Kit or TASK\n";
  657.         exit (1);
  658.     }
  659.  
  660.     unless (-x "$STRINGS_EXE") {
  661.         print "ERROR: strings executable missing\n";
  662.         exit (1);
  663.     }
  664.  
  665.     unless (-x "$GREP_EXE") {
  666.         print "ERROR: grep executable missing\n";
  667.         exit (1);
  668.     }
  669. }
  670.  
  671. # check values that should be defined in the configuration files
  672. # This will show incomplete installations
  673. sub check_vars
  674. {
  675.     unless ( (defined $TASKDIR) && ($TASKDIR ne "") ) {
  676.         print "ERROR: TASKDIR variable not set in configuration file\n";
  677.         print "  This could been caused by an incomplete installation\n";
  678.         exit (1);
  679.     }
  680.  
  681.     unless (-d "$TASKDIR") {
  682.         print "Invalid Sleuth Kit binary directory: $TASKDIR\n";
  683.         exit (1);
  684.     }
  685.  
  686.     # Verify The evidence locker directory
  687.     unless ( (defined $LOCKDIR) && ($LOCKDIR ne "") ) {
  688.         print "ERROR: LOCKDIR variable not set in configuration file\n";
  689.         print "  This could been caused by an incomplete installation\n";
  690.         exit (1);
  691.     }
  692.  
  693.     unless (-d "$LOCKDIR") {
  694.         print "Invalid evidence locker directory: $LOCKDIR\n";
  695.         exit (1);
  696.     }
  697.  
  698.     # Directory Names
  699.     unless ( (defined $IMGDIR) && ($IMGDIR ne "") ) {
  700.         print "ERROR: IMGDIR variable not set in configuration file\n";
  701.         print "  This could been caused by an incomplete installation\n";
  702.         exit (1);
  703.     }
  704.     unless ( (defined $DATADIR) && ($DATADIR ne "") ) {
  705.         print "ERROR: DATADIR variable not set in configuration file\n";
  706.         print "  This could been caused by an incomplete installation\n";
  707.         exit (1);
  708.     }
  709.     unless ( (defined $LOGDIR) && ($LOGDIR ne "") ) {
  710.         print "ERROR: LOGDIR variable not set in configuration file\n";
  711.         print "  This could been caused by an incomplete installation\n";
  712.         exit (1);
  713.     }
  714.     unless ( (defined $REPDIR) && ($REPDIR ne "") ) {
  715.         print "ERROR: REPDIR variable not set in configuration file\n";
  716.         print "  This could been caused by an incomplete installation\n";
  717.         exit (1);
  718.     }
  719. }
  720.