Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
Image /
ExifTool /
[ HOME SHELL ]
Name
Size
Permission
Action
Charset
[ DIR ]
drwxr-xr-x
Lang
[ DIR ]
drwxr-xr-x
AES.pm
18.66
KB
-rw-r--r--
AFCP.pm
10.38
KB
-rw-r--r--
AIFF.pm
9.59
KB
-rw-r--r--
APE.pm
9.06
KB
-rw-r--r--
APP12.pm
10.44
KB
-rw-r--r--
ASF.pm
30.21
KB
-rw-r--r--
Apple.pm
5.43
KB
-rw-r--r--
Audible.pm
11.52
KB
-rw-r--r--
BMP.pm
10.45
KB
-rw-r--r--
BPG.pm
7.53
KB
-rw-r--r--
BZZ.pm
17.46
KB
-rw-r--r--
BigTIFF.pm
11.27
KB
-rw-r--r--
BuildTagLookup.pm
121.94
KB
-rw-r--r--
CBOR.pm
11.51
KB
-rw-r--r--
Canon.pm
375.39
KB
-rw-r--r--
CanonCustom.pm
84.32
KB
-rw-r--r--
CanonRaw.pm
29.68
KB
-rw-r--r--
CanonVRD.pm
75.2
KB
-rw-r--r--
CaptureOne.pm
7.85
KB
-rw-r--r--
Casio.pm
62.21
KB
-rw-r--r--
Charset.pm
16.01
KB
-rw-r--r--
DICOM.pm
245.09
KB
-rw-r--r--
DJI.pm
6.31
KB
-rw-r--r--
DNG.pm
31.59
KB
-rw-r--r--
DPX.pm
9.51
KB
-rw-r--r--
DV.pm
9.75
KB
-rw-r--r--
DarwinCore.pm
15.43
KB
-rw-r--r--
DjVu.pm
12.46
KB
-rw-r--r--
EXE.pm
50.3
KB
-rw-r--r--
Exif.pm
246.64
KB
-rw-r--r--
FITS.pm
5.73
KB
-rw-r--r--
FLAC.pm
9.89
KB
-rw-r--r--
FLIF.pm
11.65
KB
-rw-r--r--
FLIR.pm
59.45
KB
-rw-r--r--
Fixup.pm
12.43
KB
-rw-r--r--
Flash.pm
27.5
KB
-rw-r--r--
FlashPix.pm
87.44
KB
-rw-r--r--
Font.pm
27.34
KB
-rw-r--r--
FotoStation.pm
7.97
KB
-rw-r--r--
FujiFilm.pm
54.47
KB
-rw-r--r--
GE.pm
2
KB
-rw-r--r--
GIF.pm
21.85
KB
-rw-r--r--
GIMP.pm
8.35
KB
-rw-r--r--
GPS.pm
19.53
KB
-rw-r--r--
GeoTiff.pm
87.51
KB
-rw-r--r--
Geotag.pm
62.87
KB
-rw-r--r--
GoPro.pm
28
KB
-rw-r--r--
H264.pm
39.29
KB
-rw-r--r--
HP.pm
8
KB
-rw-r--r--
HTML.pm
22.1
KB
-rw-r--r--
HtmlDump.pm
32.8
KB
-rw-r--r--
ICC_Profile.pm
45.63
KB
-rw-r--r--
ID3.pm
56.91
KB
-rw-r--r--
IPTC.pm
39.54
KB
-rw-r--r--
ISO.pm
6.81
KB
-rw-r--r--
ITC.pm
6.63
KB
-rw-r--r--
Import.pm
12.83
KB
-rw-r--r--
InDesign.pm
10.4
KB
-rw-r--r--
JPEG.pm
24.3
KB
-rw-r--r--
JPEGDigest.pm
212.38
KB
-rw-r--r--
JSON.pm
6.15
KB
-rw-r--r--
JVC.pm
3.57
KB
-rw-r--r--
Jpeg2000.pm
49.65
KB
-rw-r--r--
Kodak.pm
120.47
KB
-rw-r--r--
KyoceraRaw.pm
4.31
KB
-rw-r--r--
LIF.pm
4.66
KB
-rw-r--r--
LNK.pm
22.02
KB
-rw-r--r--
Leaf.pm
16.34
KB
-rw-r--r--
Lytro.pm
7.56
KB
-rw-r--r--
M2TS.pm
37.11
KB
-rw-r--r--
MIE.pm
102.09
KB
-rw-r--r--
MIEUnits.pod
13.68
KB
-rw-r--r--
MIFF.pm
9.05
KB
-rw-r--r--
MNG.pm
16.22
KB
-rw-r--r--
MOI.pm
4.14
KB
-rw-r--r--
MPC.pm
4.05
KB
-rw-r--r--
MPEG.pm
22.32
KB
-rw-r--r--
MPF.pm
8.94
KB
-rw-r--r--
MRC.pm
18.39
KB
-rw-r--r--
MWG.pm
30.64
KB
-rw-r--r--
MXF.pm
252.65
KB
-rw-r--r--
MacOS.pm
30.7
KB
-rw-r--r--
MakerNotes.pm
68.93
KB
-rw-r--r--
Matroska.pm
34.44
KB
-rw-r--r--
Microsoft.pm
52.13
KB
-rw-r--r--
Minolta.pm
99.93
KB
-rw-r--r--
MinoltaRaw.pm
16.49
KB
-rw-r--r--
Motorola.pm
5.31
KB
-rw-r--r--
Nikon.pm
431.96
KB
-rw-r--r--
NikonCapture.pm
28.13
KB
-rw-r--r--
NikonCustom.pm
290.78
KB
-rw-r--r--
NikonSettings.pm
71.88
KB
-rw-r--r--
Nintendo.pm
3.24
KB
-rw-r--r--
OOXML.pm
13.61
KB
-rw-r--r--
Ogg.pm
8.81
KB
-rw-r--r--
Olympus.pm
139.89
KB
-rw-r--r--
OpenEXR.pm
10.26
KB
-rw-r--r--
Opus.pm
2.22
KB
-rw-r--r--
Other.pm
2.63
KB
-rw-r--r--
PCX.pm
3.72
KB
-rw-r--r--
PDF.pm
90.77
KB
-rw-r--r--
PGF.pm
4.04
KB
-rw-r--r--
PICT.pm
33.2
KB
-rw-r--r--
PLIST.pm
17.07
KB
-rw-r--r--
PLUS.pm
147.71
KB
-rw-r--r--
PNG.pm
60.72
KB
-rw-r--r--
PPM.pm
4.97
KB
-rw-r--r--
PSP.pm
9.02
KB
-rw-r--r--
Palm.pm
11.9
KB
-rw-r--r--
Panasonic.pm
96.62
KB
-rw-r--r--
PanasonicRaw.pm
31.77
KB
-rw-r--r--
Parrot.pm
20.95
KB
-rw-r--r--
Pentax.pm
220.46
KB
-rw-r--r--
PhaseOne.pm
26.24
KB
-rw-r--r--
PhotoCD.pm
18.25
KB
-rw-r--r--
PhotoMechanic.pm
8.09
KB
-rw-r--r--
Photoshop.pm
43.36
KB
-rw-r--r--
PostScript.pm
29.11
KB
-rw-r--r--
PrintIM.pm
3.44
KB
-rw-r--r--
Qualcomm.pm
43.43
KB
-rw-r--r--
QuickTime.pm
409.72
KB
-rw-r--r--
QuickTimeStream.pl
126.03
KB
-rw-r--r--
RIFF.pm
70.97
KB
-rw-r--r--
RSRC.pm
9.58
KB
-rw-r--r--
RTF.pm
13.46
KB
-rw-r--r--
Radiance.pm
4.56
KB
-rw-r--r--
Rawzor.pm
6.17
KB
-rw-r--r--
Real.pm
26.89
KB
-rw-r--r--
Reconyx.pm
14.2
KB
-rw-r--r--
Red.pm
10.82
KB
-rw-r--r--
Ricoh.pm
37.18
KB
-rw-r--r--
Samsung.pm
54.64
KB
-rw-r--r--
Sanyo.pm
11.83
KB
-rw-r--r--
Scalado.pm
3.91
KB
-rw-r--r--
Shift.pl
23.28
KB
-rw-r--r--
Shortcuts.pm
9.81
KB
-rw-r--r--
Sigma.pm
33.16
KB
-rw-r--r--
SigmaRaw.pm
23.45
KB
-rw-r--r--
Sony.pm
439.69
KB
-rw-r--r--
SonyIDC.pm
11.95
KB
-rw-r--r--
Stim.pm
4.53
KB
-rw-r--r--
TagInfoXML.pm
33.14
KB
-rw-r--r--
TagLookup.pm
647.18
KB
-rw-r--r--
TagNames.pod
1.76
MB
-rw-r--r--
Text.pm
8.12
KB
-rw-r--r--
Theora.pm
3.41
KB
-rw-r--r--
Torrent.pm
11.58
KB
-rw-r--r--
Unknown.pm
1.69
KB
-rw-r--r--
VCard.pm
17.31
KB
-rw-r--r--
Validate.pm
29.75
KB
-rw-r--r--
Vorbis.pm
8.13
KB
-rw-r--r--
WTV.pm
12.97
KB
-rw-r--r--
WriteCanonRaw.pl
24.29
KB
-rw-r--r--
WriteExif.pl
130.6
KB
-rw-r--r--
WriteIPTC.pl
29.6
KB
-rw-r--r--
WritePDF.pl
29.02
KB
-rw-r--r--
WritePNG.pl
16.07
KB
-rw-r--r--
WritePhotoshop.pl
10.85
KB
-rw-r--r--
WritePostScript.pl
26.71
KB
-rw-r--r--
WriteQuickTime.pl
89.63
KB
-rw-r--r--
WriteXMP.pl
70.49
KB
-rw-r--r--
Writer.pl
301.76
KB
-rw-r--r--
XMP.pm
176.89
KB
-rw-r--r--
XMP2.pl
81.66
KB
-rw-r--r--
XMPStruct.pl
36.66
KB
-rw-r--r--
ZIP.pm
27.61
KB
-rw-r--r--
ZISRAW.pm
7.85
KB
-rw-r--r--
iWork.pm
7.79
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : BigTIFF.pm
#------------------------------------------------------------------------------ # File: BigTIFF.pm # # Description: Read Big TIFF meta information # # Revisions: 07/03/2007 - P. Harvey Created # # References: 1) http://www.awaresystems.be/imaging/tiff/bigtiff.html #------------------------------------------------------------------------------ package Image::ExifTool::BigTIFF; use strict; use vars qw($VERSION); use Image::ExifTool qw(:DataAccess :Utils); use Image::ExifTool::Exif; $VERSION = '1.07'; my $maxOffset = 0x7fffffff; # currently supported maximum data offset/size #------------------------------------------------------------------------------ # Process Big IFD directory # Inputs: 0) ExifTool object ref, 1) dirInfo ref, 2) tag table ref # Returns: 1 on success, otherwise returns 0 and sets a Warning sub ProcessBigIFD($$$) { my ($et, $dirInfo, $tagTablePtr) = @_; my $raf = $$dirInfo{RAF}; my $verbose = $$et{OPTIONS}{Verbose}; my $htmlDump = $$et{HTML_DUMP}; my $dirName = $$dirInfo{DirName}; my $dirStart = $$dirInfo{DirStart}; my ($offName, $nextOffName); if ($htmlDump) { $verbose = -1; # mix htmlDump into verbose so we can test for both at once $offName = $$dirInfo{OffsetName}; } # loop through IFD chain for (;;) { if ($dirStart > $maxOffset and not $et->Options('LargeFileSupport')) { $et->Warn('Huge offsets not supported (LargeFileSupport not set)'); last; } unless ($raf->Seek($dirStart, 0)) { $et->Warn("Bad $dirName offset"); return 0; } my ($dirBuff, $index); unless ($raf->Read($dirBuff, 8) == 8) { $et->Warn("Truncated $dirName count"); return 0; } my $numEntries = Image::ExifTool::Get64u(\$dirBuff, 0); $verbose > 0 and $et->VerboseDir($dirName, $numEntries); my $bsize = $numEntries * 20; if ($bsize > $maxOffset) { $et->Warn('Huge directory counts not yet supported'); last; } my $bufPos = $raf->Tell(); unless ($raf->Read($dirBuff, $bsize) == $bsize) { $et->Warn("Truncated $dirName directory"); return 0; } my $nextIFD; $raf->Read($nextIFD, 8) == 8 or undef $nextIFD; # try to read next IFD pointer if ($htmlDump) { $et->HDump($bufPos-8, 8, "$dirName entries", "Entry count: $numEntries", undef, $offName); if (defined $nextIFD) { my $off = Image::ExifTool::Get64u(\$nextIFD, 0); my $tip = sprintf("Offset: 0x%.8x", $off); my $id = $offName; ($nextOffName, $id) = Image::ExifTool::Exif::NextOffsetName($et, $id) if $off; $et->HDump($bufPos + 20 * $numEntries, 8, "Next IFD", $tip, 0, $id); } } # loop through all entries in this BigTIFF IFD for ($index=0; $index<$numEntries; ++$index) { my $entry = 20 * $index; my $tagID = Get16u(\$dirBuff, $entry); my $format = Get16u(\$dirBuff, $entry+2); my $count = Image::ExifTool::Get64u(\$dirBuff, $entry+4); my $formatSize = $Image::ExifTool::Exif::formatSize[$format]; unless (defined $formatSize) { $et->HDump($bufPos+$entry,20,"[invalid IFD entry]", "Bad format value: $format", 1, $offName); # warn unless the IFD was just padded with zeros $et->Warn(sprintf("Unknown format ($format) for $dirName tag 0x%x",$tagID)); return 0; # assume corrupted IFD } my $formatStr = $Image::ExifTool::Exif::formatName[$format]; my $size = $count * $formatSize; my $tagInfo = $et->GetTagInfo($tagTablePtr, $tagID); next unless defined $tagInfo or $verbose; my $valuePtr = $entry + 12; my ($valBuff, $valBase, $rational, $subOffName); if ($size > 8) { if ($size > $maxOffset) { $et->Warn("Can't handle $dirName entry $index (huge size)"); next; } $valuePtr = Image::ExifTool::Get64u(\$dirBuff, $valuePtr); if ($valuePtr > $maxOffset and not $et->Options('LargeFileSupport')) { $et->Warn("Can't handle $dirName entry $index (LargeFileSupport not set)"); next; } unless ($raf->Seek($valuePtr, 0) and $raf->Read($valBuff, $size) == $size) { $et->Warn("Error reading $dirName entry $index"); next; } $valBase = 0; } else { $valBuff = substr($dirBuff, $valuePtr, $size); $valBase = $bufPos; } if (defined $tagInfo and not $tagInfo) { # GetTagInfo() required the value for a Condition $tagInfo = $et->GetTagInfo($tagTablePtr, $tagID, \$valBuff); } my $val = ReadValue(\$valBuff, 0, $formatStr, $count, $size, \$rational); if ($htmlDump) { my $tval = $val; # show numerator/denominator separately for rational numbers $tval .= " ($rational)" if defined $rational; my ($tagName, $colName); if ($tagID == 0x927c and $dirName eq 'ExifIFD') { $tagName = 'MakerNotes'; } elsif ($tagInfo) { $tagName = $$tagInfo{Name}; } else { $tagName = sprintf("Tag 0x%.4x",$tagID); } my $dname = sprintf("$dirName-%.2d", $index); # build our tool tip my $tip = sprintf("Tag ID: 0x%.4x\n", $tagID) . "Format: $formatStr\[$count]\nSize: $size bytes\n"; if ($size > 8) { $tip .= sprintf("Value offset: 0x%.8x\n", $valuePtr); $colName = "<span class=H>$tagName</span>"; } else { $colName = $tagName; } $tval = substr($tval,0,28) . '[...]' if length($tval) > 32; if ($formatStr =~ /^(string|undef|binary)/) { # translate non-printable characters $tval =~ tr/\x00-\x1f\x7f-\xff/./; } elsif ($tagInfo and Image::ExifTool::IsInt($tval)) { if ($$tagInfo{IsOffset}) { $tval = sprintf('0x%.4x', $tval); } elsif ($$tagInfo{PrintHex}) { $tval = sprintf('0x%x', $tval); } } $tip .= "Value: $tval"; my ($id, $sid); if ($tagInfo and $$tagInfo{SubIFD}) { ($subOffName, $id, $sid) = Image::ExifTool::Exif::NextOffsetName($et, $offName); } else { $id = $offName; } $et->HDump($entry+$bufPos, 20, "$dname $colName", $tip, 1, $id); if ($size > 8) { # add value data block my $flg = ($tagInfo and $$tagInfo{SubDirectory} and $$tagInfo{MakerNotes}) ? 4 : 0; $et->HDump($valuePtr,$size,"$tagName value",'SAME', $flg, $sid); } } if ($tagInfo and $$tagInfo{SubIFD}) { # process all SubIFD's as BigTIFF $verbose > 0 and $et->VerboseInfo($tagID, $tagInfo, Table => $tagTablePtr, Index => $index, Value => $val, DataPt => \$valBuff, DataPos => $valBase + $valuePtr, Start => 0, Size => $size, Format => $formatStr, Count => $count, ); my @offsets = split ' ', $val; my $i; for ($i=0; $i<scalar(@offsets); ++$i) { my $subdirName = $$tagInfo{Name}; $subdirName .= $i if $i; my %subdirInfo = ( RAF => $raf, DataPos => 0, DirStart => $offsets[$i], DirName => $subdirName, Parent => $dirName, OffsetName => $subOffName, ); $et->ProcessDirectory(\%subdirInfo, $tagTablePtr, \&ProcessBigIFD); } } else { my $tagKey = $et->HandleTag($tagTablePtr, $tagID, $val, Index => $index, DataPt => \$valBuff, DataPos => $valBase + $valuePtr, Start => 0, Size => $size, Format => $formatStr, TagInfo => $tagInfo, RAF => $raf, ); $tagKey and $et->SetGroup($tagKey, $dirName); } } last unless $dirName =~ /^(IFD|SubIFD)(\d*)$/; $dirName = $1 . (($2 || 0) + 1); defined $nextIFD or $et->Warn("Bad $dirName pointer"), return 0; $dirStart = Image::ExifTool::Get64u(\$nextIFD, 0); $dirStart or last; $offName = $nextOffName; } return 1; } #------------------------------------------------------------------------------ # Extract meta information from a BigTIFF image # Inputs: 0) ExifTool object reference, 1) dirInfo reference # Returns: 1 on success, 0 if this wasn't a valid BigTIFF image sub ProcessBTF($$) { my ($et, $dirInfo) = @_; my $raf = $$dirInfo{RAF}; my $buff; return 0 unless $raf->Read($buff, 16) == 16; return 0 unless $buff =~ /^(MM\0\x2b\0\x08\0\0|II\x2b\0\x08\0\0\0)/; if ($$dirInfo{OutFile}) { $et->Error('ExifTool does not support writing of BigTIFF images'); return 1; } $et->SetFileType('BTF'); # set the FileType tag SetByteOrder(substr($buff, 0, 2)); my $offset = Image::ExifTool::Get64u(\$buff, 8); if ($$et{HTML_DUMP}) { my $o = (GetByteOrder() eq 'II') ? 'Little' : 'Big'; $et->HDump(0, 8, "BigTIFF header", "Byte order: $o endian", 0); $et->HDump(8, 8, "IFD0 pointer", sprintf("Offset: 0x%.8x",$offset), 0); } my %dirInfo = ( RAF => $raf, DataPos => 0, DirStart => $offset, DirName => 'IFD0', Parent => 'BigTIFF', ); my $tagTablePtr = GetTagTable('Image::ExifTool::Exif::Main'); $et->ProcessDirectory(\%dirInfo, $tagTablePtr, \&ProcessBigIFD); return 1; } 1; # end __END__ =head1 NAME Image::ExifTool::BigTIFF - Read Big TIFF meta information =head1 SYNOPSIS This module is used by Image::ExifTool =head1 DESCRIPTION This module contains routines required by Image::ExifTool to read meta information in BigTIFF images. =head1 AUTHOR Copyright 2003-2022, Phil Harvey (philharvey66 at gmail.com) This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =head1 REFERENCES =over 4 =item L<http://www.awaresystems.be/imaging/tiff/bigtiff.html> =back =head1 SEE ALSO L<Image::ExifTool::TagNames/EXIF Tags>, L<Image::ExifTool(3pm)|Image::ExifTool> =cut
Close