=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libimage-exiftool-perl-12.10+dfsg/exiftool-1364- } libimage-exiftool-perl-12.10+dfsg/exiftool:1365: if (system('perldoc',$0)) { libimage-exiftool-perl-12.10+dfsg/exiftool-1366- print "Syntax: exiftool [OPTIONS] FILE\n\n"; ############################################## libimage-exiftool-perl-12.10+dfsg/exiftool-5340- <?php libimage-exiftool-perl-12.10+dfsg/exiftool:5341: eval('$array=' . `exiftool -php -q image.jpg`); libimage-exiftool-perl-12.10+dfsg/exiftool-5342- print_r($array); ############################################## libimage-exiftool-perl-12.10+dfsg/html/exiftool_pod.html-696-<pre><code> <?php libimage-exiftool-perl-12.10+dfsg/html/exiftool_pod.html:697: eval('$array=' . `exiftool -php -q image.jpg`); libimage-exiftool-perl-12.10+dfsg/html/exiftool_pod.html-698- print_r($array); ############################################## libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/MacOS.pm-457- $et->VPrint(0, '(running mdls)'); libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/MacOS.pm:458: my @mdls = `mdls "$fn" 2> /dev/null`; # get MacOS metadata libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/MacOS.pm-459- if ($? or not @mdls) { ############################################## libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/MacOS.pm-567- $et->VPrint(0, '(running xattr)'); libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/MacOS.pm:568: my @xattr = `xattr -lx "$fn" 2> /dev/null`; # get MacOS extended attributes libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/MacOS.pm-569- if ($? or not @xattr) { ############################################## libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/MacOS.pm-613- $et->VPrint(0, '(running stat)'); libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/MacOS.pm:614: my $time = `stat -f '%SB' -t '%Y:%m:%d %H:%M:%S%z' "$fn" 2> /dev/null`; libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/MacOS.pm-615- if ($? or not $time or $time !~ s/([-+]\d{2})(\d{2})\s*$/$1:$2/) { ############################################## libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/WriteExif.pl-1659- Offset => $offset, libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/WriteExif.pl:1660: Where => $where, libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/WriteExif.pl-1661- ImageData => $subdirInfo{ImageData}, ############################################## libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/Panasonic.pm-2682- } elsif ($et->Options('Verbose')) { libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/Panasonic.pm:2683: my $where = sprintf('at offset 0x%x', $pos); libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/Panasonic.pm-2684- $et->VPrint(0, "Leica MakerNote trailer ($len bytes $where):\n"); ############################################## libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/Exif.pm-6307- #### eval Start ($valuePtr, $val) libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/Exif.pm:6308: my $newStart = eval($$subdir{Start}); libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/Exif.pm-6309- unless (Image::ExifTool::IsInt($newStart)) { ############################################## libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/Exif.pm-6354- #### eval Base ($start,$base) libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/Exif.pm:6355: $subdirBase = eval($$subdir{Base}) + $base; libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/Exif.pm-6356- } ############################################## libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/Validate.pm-581- if (defined $$validValue{$tag}) { libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/Validate.pm:582: #### eval ($val, %val) libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/Validate.pm-583- my $result = eval $$validValue{$tag}; ############################################## libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/WriteXMP.pl-53-# Returns: x:xmpmeta opening tag libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/WriteXMP.pl:54:sub XMPOpen($) libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/WriteXMP.pl-55-{ ############################################## libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/WriteXMP.pl-664- my @descStart = sort { $descSize{$a} <=> $descSize{$b} } @$startPt; libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/WriteXMP.pl:665: my $extData = XMPOpen($et) . $rdfOpen; libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/WriteXMP.pl-666- for ($i=0; $i<2; ++$i) { ############################################## libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/WriteXMP.pl-899- # set $xmpOpen now to to handle xmptk tag first libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/WriteXMP.pl:900: my $xmpOpen = $$et{XMP_NO_XMPMETA} ? '' : XMPOpen($et); libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/WriteXMP.pl-901-# ############################################## libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/Jpeg2000.pm-727- #### eval Start ($valuePtr) libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/Jpeg2000.pm:728: $subdirStart = eval($$subdir{Start}); libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/Jpeg2000.pm-729- } ############################################## libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/BuildTagLookup.pm-1993- if ($preserveDate) { libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/BuildTagLookup.pm:1994: my @lines = `grep '<i>Last revised' $htmlFile`; libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/BuildTagLookup.pm-1995- $fileDate = $1 if @lines and $lines[-1] =~ m{<i>Last revised (.*)</i>}; ############################################## libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/MakerNotes.pm-1482- #### eval Start ($valuePtr) libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/MakerNotes.pm:1483: $newStart = eval($$subdir{Start}); libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/MakerNotes.pm-1484- } ############################################## libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/MakerNotes.pm-1489- #### eval Base ($start,$base) libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/MakerNotes.pm:1490: my $baseShift = eval($$subdir{Base}); libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/MakerNotes.pm-1491- # shift directory base (note: we may do this again below ############################################## libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/MakerNotes.pm-1518- #### eval OffsetPt ($valuePtr) libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/MakerNotes.pm:1519: $ifdOffsetPos = eval($$subdir{OffsetPt}) - $dirStart; libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool/MakerNotes.pm-1520- } ############################################## libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool.pm-8568- my $start = $entry + $offset + $dataPos; libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool.pm:8569: $subdirBase = eval($$subdir{Base}) + $base; libimage-exiftool-perl-12.10+dfsg/lib/Image/ExifTool.pm-8570- }