aboutsummaryrefslogtreecommitdiff
path: root/ubi-utils/old-utils/perl/ubicrc32.pl
blob: add5f9d9d503acca5b669458f5f7cf8a54e1a2da (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
#!/usr/bin/perl -w

# Subroutine crc32(): Calculates the CRC on a given string.

{
    my @table = ();

    # @brief Calculate CRC32 for a given string.
    sub crc32
    {
	unless (@table) {
	    # Initialize the CRC table
	    my $poly = 0xEDB88320;
	    @table = ();

	    for my $i (0..255) {
		my $c = $i;

		for my $j (0..7) {
		    $c = ($c & 1) ? (($c >> 1) ^ $poly) : ($c >> 1);
		}
		$table[$i] = $c;
	    }
	}
	my $s = shift;		# string to calculate the CRC for
	my $crc = shift;	# CRC start value

	defined($crc)
	    or $crc = 0xffffffff; # Default CRC start value

	for (my $i = 0; $i < length($s); $i++) {
	    $crc = $table[($crc ^ ord(substr($s, $i, 1))) & 0xff]
		^ ($crc >> 8);
	}
	return $crc;
    }
}

sub crc32_on_file
{
    my $file = shift;

    my $crc32 = crc32('');
    my $buf = '';
    my $ret = 0;

    while ($ret = read($file, $buf, 8192)) {
	$crc32 = crc32($buf, $crc32);
    }
    defined($ret)
	or return undef;
    printf("0x%x\n", $crc32);
}


# Main routine: Calculate the CRCs on the given files and print the
# results.

{
    if (@ARGV) {
	while (my $path = shift) {
	    my $file;
	    open $file, "<", $path
		or die "Error opening '$path'.\n";
	    
	    &crc32_on_file($file)
		or die "Error reading from '$path'.\n";
	    close $file;
	}
    } else {
	&crc32_on_file(\*STDIN)
	    or die "Error reading from stdin.\n";
    }
}