1 files changed, 37 insertions, 0 deletions
diff --git a/script/crc32 b/script/crc32
new file mode 100644
index 0000000..39ce0ab
--- /dev/null
+++ b/script/crc32
@@ -0,0 +1,37 @@
+#!/usr/bin/perl
+
+# Computes and prints to stdout the CRC-32 values of the given files
+
+use 5.006;
+use strict;
+use lib qw( blib/lib lib );
+use Archive::Zip;
+use FileHandle;
+
+use vars qw( $VERSION );
+BEGIN {
+    $VERSION = '1.31_04';
+}
+
+my $totalFiles = scalar(@ARGV);
+foreach my $file (@ARGV) {
+    if ( -d $file ) {
+        warn "$0: ${file}: Is a directory\n";
+        next;
+    }
+    my $fh = FileHandle->new();
+    if ( !$fh->open( $file, 'r' ) ) {
+        warn "$0: $!\n";
+        next;
+    }
+    binmode($fh);
+    my $buffer;
+    my $bytesRead;
+    my $crc = 0;
+    while ( $bytesRead = $fh->read( $buffer, 32768 ) ) {
+        $crc = Archive::Zip::computeCRC32( $buffer, $crc );
+    }
+    printf( "%08x", $crc );
+    print("\t$file") if ( $totalFiles > 1 );
+    print("\n");
+}