tools/hexChecksum.pl

   1 #!/usr/bin/perl -w
   2 #      Copyright (C) 2014 Michael McMaster <michael@codesrc.com>
   3 #
   4 #      This file is part of SCSI2SD.
   5 #
   6 #      SCSI2SD is free software: you can redistribute it and/or modify
   7 #      it under the terms of the GNU General Public License as published by
   8 #      the Free Software Foundation, either version 3 of the License, or
   9 #      (at your option) any later version.
  10 #
  11 #      SCSI2SD is distributed in the hope that it will be useful,
  12 #      but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 #      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 #      GNU General Public License for more details.
  15 #
  16 #      You should have received a copy of the GNU General Public License
  17 #      along with SCSI2SD.  If not, see <http://www.gnu.org/licenses/>.
  18
  19 # Calculates the checksum of all flash data within Cypress PSoC 5lp .hex files
  20 # Allows fixing the checksum after manual hacking of the hex files
  21
  22 use strict;
  23 use warnings;
  24
  25 my $sum = 0;
  26 while (my $line = <>)
  27 {
  28
  29         $line =~ s/[\n\r]//g;
  30
  31         if ($line =~ /^:40[0-9A-F]{4}00(.+)[0-9A-F]{2}$/)
  32         {
  33                 my $binrec = pack('H*', $1);
  34                 $sum += unpack('%16C*', $binrec);
  35         }
  36         elsif ($line eq ":0200000490303A")
  37         {
  38                 my $checksumRec = sprintf(":02000000%04X",  ($sum & 0xffff));
  39
  40                 # create checksum of checksum record.
  41                 my $sum2 = unpack('%8C*',  pack('H*', substr($checksumRec, 1)));
  42                 $checksumRec .= sprintf('%2X', (~$sum2 + 1) & 0xFF);
  43                 print("Flash data checksum record = $checksumRec\n");
  44                 print("(Replace line below ':0200000490303A'\n");
  45                 exit;
  46         }
  47
  48 }