D7net Mini Sh3LL v1
Current File : //libx32/../share/snapd/../locale/ia/../../doc/info/../libroken18-heimdal/../usbmuxd/../liberror-perl/../grub2-common/../libjpeg8/../php7.4-mysql/../gnupg/../python3-apt/../netplan.io/../wget/../libcurl3-gnutls/../libthai-data/../python3-six/../screen/../maria/../libxaw7/../libmnl0/../netplan/../gdisk/../systemd-sysv/../grep/../udisks2/../libacl1/../libxmlb1/../libperl5.30/../automake/../libmpfr6/../apparmor/../time/../libwrap0/../kbd/../at/../libp11-kit0/../tar/../python3-distro/../libfastjson4/../logsave/../zerofree/../libfribidi0/../libfontconfig1/../mawk/../upower/../debianutils/../vim-runtime/../sosreport/../libfuse2/../e2fsprogs/../linux-base/../python3-zipp/../libip4tc2/../libglib2.0-0/../sbsigntool/../libarchive-zip-perl/examples/ziptest.pl |
#!/usr/bin/perl -w
# $Revision: 1.7 $
# Lists the zipfile given as a first argument and tests CRC's.
# Usage:
# perl ziptest.pl zipfile.zip
use strict;
use Archive::Zip qw(:ERROR_CODES :CONSTANTS);
package CRCComputingFileHandle;
use Archive::Zip::MockFileHandle;
use vars qw( @ISA );
@ISA = qw( Archive::Zip::MockFileHandle );
my $crc;
sub writeHook {
my $self = shift;
my $bytes = shift;
my $length = length($bytes);
$crc = Archive::Zip::computeCRC32($bytes, $crc);
}
sub resetCRC { $crc = 0 }
sub crc { $crc }
package main;
die "usage: $0 zipfile.zip\n"
if (scalar(@ARGV) != 1);
my $zip = Archive::Zip->new();
my $status = $zip->read($ARGV[0]);
exit $status if $status != AZ_OK;
print " Length Size Last Modified CRC-32 Name\n";
print "-------- -------- ------------------------ -------- ----\n";
my $fh = CRCComputingFileHandle->new();
my @errors;
foreach my $member ($zip->members()) {
my $compressedSize = $member->compressedSize();
$fh->resetCRC();
$member->desiredCompressionMethod(COMPRESSION_STORED);
$status = $member->extractToFileHandle($fh);
exit $status if $status != AZ_OK;
my $crc = $fh->crc();
my $ct = scalar(localtime($member->lastModTime()));
chomp($ct);
printf(
"%8d %8d %s %08x %s\n",
$member->uncompressedSize(),
$compressedSize, $ct, $member->crc32(), $member->fileName());
if ($member->crc32() != $crc) {
push(
@errors,
sprintf(
"Member %s CRC error: file says %08x computed: %08x\n",
$member->fileName(), $member->crc32(), $crc
));
}
}
if (scalar(@errors)) {
print join("\n", @errors);
die "CRC errors found\n";
} else {
print "All CRCs check OK\n";
}
AnonSec - 2021 | Recode By D7net