Windows NT DGPENSV2LPKMN 10.0 build 14393 (Windows Server 2016) AMD64
Apache/2.4.46 (Win64) OpenSSL/1.1.1h PHP/7.3.25
: 172.16.0.66 | : 172.16.0.254
Cant Read [ /etc/named.conf ]
7.3.25
SYSTEM
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
[ A ]
[ C ]
[ D ]
C: /
laragon /
bin /
git /
usr /
bin /
core_perl /
[ HOME SHELL ]
Name
Size
Permission
Action
corelist
15.01
KB
-rw-rw-rw-
cpan
8.16
KB
-rw-rw-rw-
enc2xs
40.9
KB
-rw-rw-rw-
encguess
3
KB
-rw-rw-rw-
h2ph
28.54
KB
-rw-rw-rw-
h2xs
59.51
KB
-rw-rw-rw-
instmodsh
4.19
KB
-rw-rw-rw-
json_pp
4.88
KB
-rw-rw-rw-
libnetcfg
15.41
KB
-rw-rw-rw-
perlbug
44.15
KB
-rw-rw-rw-
perldoc
262
B
-rw-rw-rw-
perlivp
10.56
KB
-rw-rw-rw-
perlthanks
44.15
KB
-rw-rw-rw-
piconv
8.16
KB
-rw-rw-rw-
pl2pm
4.43
KB
-rw-rw-rw-
pod2html
4.04
KB
-rw-rw-rw-
pod2man
14.68
KB
-rw-rw-rw-
pod2text
10.55
KB
-rw-rw-rw-
pod2usage
4.01
KB
-rw-rw-rw-
podchecker
3.57
KB
-rw-rw-rw-
prove
13.34
KB
-rw-rw-rw-
ptar
3.48
KB
-rw-rw-rw-
ptardiff
2.58
KB
-rw-rw-rw-
ptargrep
4.29
KB
-rw-rw-rw-
shasum
9.75
KB
-rw-rw-rw-
splain
18.99
KB
-rw-rw-rw-
streamzip
7.75
KB
-rw-rw-rw-
xsubpp
5.05
KB
-rw-rw-rw-
zipdetails
68.55
KB
-rw-rw-rw-
Delete
Unzip
Zip
${this.title}
Close
Code Editor : streamzip
#!/usr/bin/perl eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if 0; # ^ Run only under a shell #!/usr/bin/perl # Streaming zip use strict; use warnings; use IO::Compress::Zip qw(zip ZIP_CM_STORE ZIP_CM_DEFLATE ZIP_CM_BZIP2 ) ; use Getopt::Long; my $VERSION = '1.002'; my $compression_method = ZIP_CM_DEFLATE; my $stream = 0; my $zipfile = '-'; my $memberName = '-' ; my $zip64 = 0 ; my $level ; GetOptions("zip64" => \$zip64, "method=s" => \&lookupMethod, "0" => sub { $level = 0 }, "1" => sub { $level = 1 }, "2" => sub { $level = 2 }, "3" => sub { $level = 3 }, "4" => sub { $level = 4 }, "5" => sub { $level = 5 }, "6" => sub { $level = 6 }, "7" => sub { $level = 7 }, "8" => sub { $level = 8 }, "9" => sub { $level = 9 }, "stream" => \$stream, "zipfile=s" => \$zipfile, "member-name=s" => \$memberName, 'version' => sub { print "$VERSION\n"; exit 0 }, 'help' => \&Usage, ) or Usage(); Usage() if @ARGV; my @extraOpts = (); if ($compression_method == ZIP_CM_DEFLATE && defined $level) { push @extraOpts, (Level => $level) } zip '-' => $zipfile, Name => $memberName, Zip64 => $zip64, Method => $compression_method, Stream => $stream, @extraOpts or die "Error creating zip file '$zipfile': $\n" ; exit 0; sub lookupMethod { my $name = shift; my $value = shift ; my %valid = ( store => ZIP_CM_STORE, deflate => ZIP_CM_DEFLATE, bzip2 => ZIP_CM_BZIP2, lzma => 14, xz => 95, zstd => 93, ); my $method = $valid{ lc $value }; Usage("Unknown method '$value'") if ! defined $method; installModule("Lzma") if $method == 14 ; installModule("Xz") if $method == 95 ; installModule("Zstd") if $method == 93; $compression_method = $method; } sub installModule { my $name = shift ; eval " use IO::Compress::$name; use IO::Compress::Adapter::$name ; " ; die "Method '$name' needs IO::Compress::$name\n" if $@; } sub Usage { print <<EOM; Usage: producer | streamzip [OPTIONS] | consumer producer | streamzip [OPTIONS] -zipfile output.zip Stream data from stdin, compress into a Zip container, and stream to stdout. OPTIONS -zipfile=F Write zip container to the filename 'F' Outputs to stdout if zipfile not specified. -member-name=M Set member name to 'M' [Default '-'] -0 ... -9 Set compression level for Deflate [Default: 6] -zip64 Create a Zip64-compliant zip file [Default: No] Enable Zip64 if input is greater than 4Gig. -stream Force a streamed zip file when 'zipfile' option is also enabled. Only applies when 'zipfile' option is used. [Default: No] Stream is always enabled when writing to stdout. -method=M Compress using method 'M'. Valid methods are store Store without compression deflate Use Deflate compression [Deflault] bzip2 Use Bzip2 compression lzma Use LZMA compression [needs IO::Compress::Lzma] xz Use LZMA compression [needs IO::Compress::Xz] zstd Use LZMA compression [needs IO::Compress::Zstd] -version Display version number [$VERSION] Copyright (c) 2019-2021 Paul Marquess. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. EOM exit; } __END__ =head1 NAME streamzip - create a zip file from stdin =head1 SYNOPSIS producer | streamzip [opts] | consumer producer | streamzip [opts] -zipfile=output.zip =head1 DESCRIPTION This program will read data from C<stdin>, compress it into a zip container and, by default, write a I<streamed> zip file to C<stdout>. No temporary files are created. The zip container written to C<stdout> is, by necessity, written in streaming format. Most programs that read Zip files can cope with a streamed zip file, but if interoperability is important, and your workflow allows you to write the zip file directly to disk you can create a non-streamed zip file using the C<zipfile> option. =head2 OPTIONS =over 5 =item -zip64 Create a Zip64-compliant zip container. Use this option if the input is greater than 4Gig. Default is disabled. =item -zipfile=F Write zip container to the filename C<F>. Use the C<Stream> option to force the creation of a streamed zip file. =item -member-name=M This option is used to name the "file" in the zip container. Default is '-'. =item -stream Ignored when writing to C<stdout>. If the C<zipfile> option is specified, including this option will trigger the creation of a streamed zip file. Default: Always enabled when writing to C<stdout>, otherwise disabled. =item -method=M Compress using method C<M>. Valid method names are * store Store without compression * deflate Use Deflate compression [Deflault] * bzip2 Use Bzip2 compression * lzma Use LZMA compression * xz Use xz compression * zstd Use Zstandard compression Note that Lzma compress needs C<IO::Compress::Lzma> to be installed. Note that Zstd compress needs C<IO::Compress::Zstd> to be installed. Default is C<deflate>. =item -0, -1, -2, -3, -4, -5, -6, -7, -8, -9 Sets the compression level for C<deflate>. Ignored for all other compression methods. C<-0> means no compression and C<-9> for maximum compression. Default is 6 =item -version Display version number =item -help Display help =back =head2 Examples Create a zip file bt reading daa from stdin $ echo Lorem ipsum dolor sit | perl ./bin/streamzip >abcd.zip Check the contents of C<abcd,zip> with the standard C<unzip> utility Archive: abcd.zip Length Date Time Name --------- ---------- ----- ---- 22 2021-01-08 19:45 - --------- ------- 22 1 file Notice how the C<Name> is set to C<->. That is the default for a few zip utilities whwre the member name is not given. If you want to explicitly name the file, use the C<-member-name> option as follows $ echo Lorem ipsum dolor sit | perl ./bin/streamzip -member-name latin >abcd.zip $ unzip -l abcd.zip Archive: abcd.zip Length Date Time Name --------- ---------- ----- ---- 22 2021-01-08 19:47 latin --------- ------- 22 1 file =head2 When to write a Streamed Zip File A Streamed Zip File is useful in situations where you cannot seek backwards/forwards in the file. A good examples is when you are serving dynamic content from a Web Server straight into a socket without needing to create a temporary zip file in the filesystsm. Similarly if your workfow uses a Linux pipelined commands. =head1 SUPPORT General feedback/questions/bug reports should be sent to L<https://github.com/pmqs/IO-Compress/issues> (preferred) or L<https://rt.cpan.org/Public/Dist/Display.html?Name=IO-Compress>. =head1 AUTHOR Paul Marquess F<pmqs@cpan.org>. =head1 COPYRIGHT Copyright (c) 2019-2021 Paul Marquess. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
Close
