Lösung: Fehlende CAIDs

#!/usr/bin/env perl
# MCA-tool (C) 2012  - dirtyharry123

use strict;
use Getopt::Std;
use Fcntl qw(SEEK_END SEEK_SET SEEK_CUR);
use String::CRC32;

my $offset= 0x07EB4;
my $n = 26;
my $version_offset = 0x04AD9;
my $name_offset = 0x229B0;
my $file = 0;

sub usage{
    print "Usage: $0 [<options>] <filename>\n";
    print "\n";
    print "       options:\n";
    print "       -a                Append CRC32 to file\n";
    print "       -c                Check file-integrity (compare CRC32)\n";
    print "       -e|-r             Replace CRC32\n";
    print "       -s                Show CRC32\n";
    print "       -h                Print this help\n";
    print "\n";
    print "       additional options for mca_cam.upb:\n";
    print "       -x                Extract Info + CAIDs\n";
    print "       -R <list>         Replace CAIDs with \',\'-separated list of CAIDs\n";
    print "       -N <name>         Replace firmware-name\n";
    print "       -v <version>      Replace firmware-version\n";
}

my %opt;
getopts("acershxR:N:v:", \%opt);
if($opt{h} || !$ARGV[0]){
    usage();
    exit(1);
}
$file = $ARGV[0];

my @CAIDS;
my $crc;
my $stored_crc;

my $buffer;
open FILE, "+<", $file or die $!;
if($opt{s} || $opt{a}){
    $crc=crc32(*FILE);
    printf "CRC32 = %08X\n", $crc;
    if($opt{a}){
        seek(FILE, 0, SEEK_END);
        $stored_crc=pack("V", $crc);
        print FILE $stored_crc;
        print "CRC appended\n";
    }
}
else{
    if($opt{x} || $opt{R} || $opt{N} || $opt{v}){
        seek(FILE, $version_offset, SEEK_SET);
        read(FILE, $buffer, 2);
        my $version = unpack("n", $buffer);
        seek(FILE, $name_offset, SEEK_SET);
        read(FILE, $buffer, 4);
        my $name = $buffer;
        seek(FILE, $offset, SEEK_SET);
        for(my $i=0; $i < $n; $i++){
            read(FILE, $buffer, 4);
            push(@CAIDS, sprintf("%04X", unpack("V", $buffer)));
        }
        print "Firmware name:    $name\n";
        print "Firmware version: $version\n";
        print "CAIDS:            " . join(',', @CAIDS) . "\n";
        if($opt{R}){
            @CAIDS = split(",", $opt{R});
            if(scalar(@CAIDS) <= $n){
                printf "Replacing CAIDS: $opt{R}\n";
                seek(FILE, $offset, SEEK_SET);
                foreach my $caid (@CAIDS){
                    print FILE pack("V", hex($caid));
                }
            }
            else{
                printf "Too many CAIDS: " . scalar(@CAIDS) . ", Available slots: $n\n";
            }
        }
        if($opt{N}){
            if(length($opt{N}) <= 3){
                printf "Replacing name: $opt{N}\n";
                seek(FILE, $name_offset, SEEK_SET);
                print FILE $opt{N};
            }
            else{
                printf "Name too long, only 3 Bytes allowed\n";
            }
        }
        if($opt{v}){
            printf "Replacing version: $opt{v}\n";
            seek(FILE, $version_offset, SEEK_SET);
            print FILE pack("n", $opt{v});
        }
    }
    seek(FILE, -4, SEEK_END);
    read(FILE, $buffer, 4);
    $stored_crc=unpack("V", $buffer);
    seek(FILE, 0, SEEK_SET);
    local $/ = undef;
    $buffer = <FILE>;
    $crc=crc32(substr($buffer,0,-4));
    if($opt{e} || $opt{r}){
        printf "Original CRC32 = %08X\n", $stored_crc;
        printf "Calculated CRC32 = %08X\n", $crc;
        if($stored_crc != $crc){
            seek(FILE, -4, SEEK_END);
            $stored_crc=pack("V", $crc);
            print FILE $stored_crc;
            print "CRC replaced\n";
        }
        else{
            print "Nothing to do\n";
        }
    }else{
        if($crc != $stored_crc){
            printf "CRC mismatch (%08X != %08X)\n", $stored_crc, $crc;
        }
        else{
            printf "CRC matched (%08X = %08X)\n", $stored_crc, $crc;
        }
    }
}
close(FILE);