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