#!/usr/bin/perl

use strict;
use warnings;
use Archive::Zip;

(($#ARGV+1) > 0) or die("Usage: $0 0xCRC32");

my $arg  = unpack('H', $ARGV[0]);
my $data = "";
my $crc  = 0;
for (my $i = 0; $i < (4*1024*1024*1024 - 1); $i++)
{
	$data = pack('L', $i);
	$crc  = Archive::Zip::computeCRC32($data, $crc);
	printf("%08x %08x\n", $i, $crc) if (($i % (256*1024)) == 0);
#foreach my $arg (@ARGV)
#{
	if ($crc eq $arg)
	{
		printf("FOUND: %08x %08x\n", $i, $crc);
		last;
	}
#}
}