Package: autopsy
Version: 2.03-2
Severity: normal
Tags: patch
Autopsy defines the locations of programs to produce MD5 and SHA1
checksums in /usr/share/autopsy/conf.pl however these variables are not
used everywhere. As a result autopsy tries to use /usr/bin/md5 and
/usr/bin/sha1.
diff -ur lib.orig/Data.pm lib/Data.pm
--- lib.orig/Data.pm 2005-01-21 11:26:05.000000000 +0000
+++ lib/Data.pm 2005-01-21 12:48:50.000000000 +0000
@@ -655,7 +655,7 @@
} # not dls
- Exec::exec_pipe(*OUT, "'$::TSKDIR/dcat' -f $ftype $usize_str '$img'
$block $len | '$MD5_EXE'");
+ Exec::exec_pipe(*OUT, "'$::TSKDIR/dcat' -f $ftype $usize_str '$img'
$block $len | '$::MD5_EXE'");
my $md5 = Exec::read_pipe_line(*OUT);
close(OUT);
@@ -666,11 +666,11 @@
print "MD5 of raw $Fs::addr_unit{$ftype}: $md5\n";
if ($sort == $Data::SORT_HEX) {
- Exec::exec_pipe(*OUT, "'$::TSKDIR/dcat' -f $ftype $usize_str -h
'$img' $block $len | '$::TSKDIR/md5'");
+ Exec::exec_pipe(*OUT, "'$::TSKDIR/dcat' -f $ftype $usize_str -h
'$img' $block $len | '$::MD5_EXE'");
} elsif ($sort == $Data::SORT_ASC) {
- Exec::exec_pipe(*OUT, "'$::TSKDIR/dcat' -f $ftype $usize_str -a
'$img' $block $len | '$::TSKDIR/md5'");
+ Exec::exec_pipe(*OUT, "'$::TSKDIR/dcat' -f $ftype $usize_str -a
'$img' $block $len | '$::MD5_EXE'");
} elsif ($sort == $Data::SORT_STR) {
- Exec::exec_pipe(*OUT, "'$::TSKDIR/dcat' -f $ftype $usize_str
'$img' $block $len | '$::TSKDIR/sstrings' -a | '$::TSKDIR/md5'");
+ Exec::exec_pipe(*OUT, "'$::TSKDIR/dcat' -f $ftype $usize_str
'$img' $block $len | '$::TSKDIR/sstrings' -a | '$::MD5_EXE'");
}
$md5 = Exec::read_pipe_line(*OUT);
diff -ur lib.orig/File.pm lib/File.pm
--- lib.orig/File.pm 2005-01-21 11:26:05.000000000 +0000
+++ lib/File.pm 2005-01-21 12:53:25.000000000 +0000
@@ -1937,7 +1937,7 @@
# Calculate the MD5 value
local *OUT;
Exec::exec_pipe(*OUT,
- "'$::TSKDIR/icat' -f $ftype $recflag '$img' $meta | '$::TSKDIR/md5'");
+ "'$::TSKDIR/icat' -f $ftype $recflag '$img' $meta | '$::MD5_EXE'");
my $md5 = Exec::read_pipe_line(*OUT);
close (OUT);
@@ -1952,7 +1952,7 @@
}
Exec::exec_pipe(*OUT,
- "'$::TSKDIR/icat' -f $ftype $recflag '$img' $meta |
'$::TSKDIR/sha1'");
+ "'$::TSKDIR/icat' -f $ftype $recflag '$img' $meta | '$::SHA1_EXE'");
my $sha1 = Exec::read_pipe_line(*OUT);
close (OUT);
@@ -1968,7 +1968,7 @@
if ($sort == $FIL_SORT_STR) {
Exec::exec_pipe(*OUT,
- "'$::TSKDIR/icat' -f $ftype $recflag '$img' $meta |
'$::TSKDIR/sstrings' -a | '$::TSKDIR/md5'");
+ "'$::TSKDIR/icat' -f $ftype $recflag '$img' $meta |
'$::TSKDIR/sstrings' -a | '$::MD5_EXE'");
$md5 = Exec::read_pipe_line(*OUT);
close (OUT);
@@ -1980,7 +1980,7 @@
Exec::exec_pipe(*OUT,
- "'$::TSKDIR/icat' -f $ftype $recflag '$img' $meta |
'$::TSKDIR/sstrings' -a | '$::TSKDIR/sha1'");
+ "'$::TSKDIR/icat' -f $ftype $recflag '$img' $meta |
'$::TSKDIR/sstrings' -a | '$::SHA1_EXE'");
$sha1 = Exec::read_pipe_line(*OUT);
close (OUT);
@@ -2084,7 +2084,7 @@
local *OUT_MD5;
Exec::exec_pipe(*OUT_MD5,
- "'$::TSKDIR/icat' -f $ftype $recflag '$img' $in |
'$::TSKDIR/md5'");
+ "'$::TSKDIR/icat' -f $ftype $recflag '$img' $in |
'$::MD5_EXE'");
my $md5out = Exec::read_pipe_line(*OUT_MD5);
$md5out = "Error calculating MD5"
diff -ur lib.orig/Hash.pm lib/Hash.pm
--- lib.orig/Hash.pm 2005-01-21 11:26:05.000000000 +0000
+++ lib/Hash.pm 2005-01-21 12:49:14.000000000 +0000
@@ -752,7 +752,7 @@
alarm(5);
local *OUT;
- Exec::exec_pipe (*OUT, "'$::TSKDIR/md5' '$img'");
+ Exec::exec_pipe (*OUT, "'$::MD5_EXE' '$img'");
my $out = Exec::read_pipe_line(*OUT);
diff -ur lib.orig/Meta.pm lib/Meta.pm
--- lib.orig/Meta.pm 2005-01-21 11:26:05.000000000 +0000
+++ lib/Meta.pm 2005-01-21 12:49:27.000000000 +0000
@@ -304,10 +304,10 @@
# MD5 Value
if ($recmode == $File::REC_YES) {
Exec::exec_pipe(*OUT,
- "'$::TSKDIR/icat' -f $ftype -r '$img' $meta |
'$::TSKDIR/md5'");
+ "'$::TSKDIR/icat' -f $ftype -r '$img' $meta | '$::MD5_EXE'");
} else {
Exec::exec_pipe(*OUT,
- "'$::TSKDIR/icat' -f $ftype '$img' $meta | '$::TSKDIR/md5'");
+ "'$::TSKDIR/icat' -f $ftype '$img' $meta | '$::MD5_EXE'");
}
my $md5out = Exec::read_pipe_line(*OUT);
@@ -359,10 +359,10 @@
# SHA-1 Value
if ($recmode == $File::REC_YES) {
Exec::exec_pipe(*OUT,
- "'$::TSKDIR/icat' -f $ftype -r '$img' $meta |
'$::TSKDIR/sha1'");
+ "'$::TSKDIR/icat' -f $ftype -r '$img' $meta | '$::SHA1_EXE'");
} else {
Exec::exec_pipe(*OUT,
- "'$::TSKDIR/icat' -f $ftype '$img' $meta | '$::TSKDIR/sha1'");
+ "'$::TSKDIR/icat' -f $ftype '$img' $meta | '$::SHA1_EXE'");
}
my $sha1out = Exec::read_pipe_line(*OUT);
@@ -555,7 +555,7 @@
}
close(OUT);
- Exec::exec_pipe(*OUT, "'$::TSKDIR/istat' -f $ftype $tz -s $Caseman::ts
'$img' $meta | '$::TSKDIR/md5'");
+ Exec::exec_pipe(*OUT, "'$::TSKDIR/istat' -f $ftype $tz -s $Caseman::ts
'$img' $meta | '$::MD5_EXE'");
my $md5 = Exec::read_pipe_line(*OUT);
close (OUT);
@@ -566,7 +566,7 @@
print "MD5 of istat output: $md5\n";
- Exec::exec_pipe(*OUT, "'$::TSKDIR/istat' -f $ftype $tz -s $Caseman::ts
'$img' $meta | '$::TSKDIR/sha1'");
+ Exec::exec_pipe(*OUT, "'$::TSKDIR/istat' -f $ftype $tz -s $Caseman::ts
'$img' $meta | '$::SHA1_EXE'");
my $sha1 = Exec::read_pipe_line(*OUT);
close (OUT);
-- System Information:
Debian Release: 3.1
APT prefers unstable
APT policy: (500, 'unstable')
Architecture: i386 (i686)
Kernel: Linux 2.6.8-1-686
Locale: LANG=C, LC_CTYPE=C (charmap=ANSI_X3.4-1968)
Versions of packages autopsy depends on:
ii binutils 2.15-5 The GNU assembler, linker and bina
ii perl 5.8.4-5 Larry Wall's Practical Extraction
ii sleuthkit 1.73-4 Tools for forensics analysis
-- no debconf information
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
