OXIESEC PANEL

Name	Size	Modified	Perms
📁 ..	-	10/28/2024 06:50:07 AM	rwxr-xr-x
📄 calcSizes.pl	964 bytes	07/03/2018 06:29:39 PM	rw-r--r--
📄 copy.pl	468 bytes	07/03/2018 06:29:39 PM	rw-r--r--
📄 extract.pl	896 bytes	07/03/2018 06:29:39 PM	rw-r--r--
📄 mailZip.pl	1.58 KB	12/19/2017 06:39:06 PM	rw-r--r--
📄 mfh.pl	656 bytes	07/03/2018 06:29:39 PM	rw-r--r--
📄 readScalar.pl	750 bytes	12/19/2017 06:39:06 PM	rw-r--r--
📄 selfex.pl	1.53 KB	07/03/2018 06:29:39 PM	rw-r--r--
📄 unzipAll.pl	561 bytes	07/03/2018 06:29:39 PM	rw-r--r--
📄 updateTree.pl	838 bytes	07/03/2018 06:29:39 PM	rw-r--r--
📄 updateZip.pl	908 bytes	07/03/2018 06:29:39 PM	rw-r--r--
📄 writeScalar.pl	614 bytes	12/19/2017 06:39:06 PM	rw-r--r--
📄 writeScalar2.pl	613 bytes	12/19/2017 06:39:06 PM	rw-r--r--
📄 zip.pl	666 bytes	07/03/2018 06:29:39 PM	rw-r--r--
📄 zipGrep.pl	1.42 KB	12/19/2017 06:39:06 PM	rw-r--r--
📄 zipcheck.pl	1010 bytes	07/03/2018 06:29:39 PM	rw-r--r--
📄 zipinfo.pl.gz	1.52 KB	07/03/2018 06:29:39 PM	rw-r--r--
📄 ziprecent.pl.gz	2.51 KB	12/19/2017 06:39:06 PM	rw-r--r--
📄 ziptest.pl	1.76 KB	07/03/2018 06:29:39 PM	rw-r--r--

Editing: 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";
}