Wie generiert Ihr eine 8 Bit Prüfsumme ? (gelöst) - #149945 (Allgemeines zu Perl)

rosti

2011-06-24 20:47

User since
2011-03-19
3194 Artikel
BenutzerIn

Ich komme auch auf 230 mit folgender Gegenrechnung:

Code (perl): (dl )

my @x = unpack("C*", "*010 3 476.8 9.84 4691 240.4 16.48 3973 50 3937 ");
my $sum = 0;
for(@x){$sum += $_;} # 2278
$sum %= 256; # 8-Bit-Überträge rausrechnen
print $sum; # 230

D.h.: Dein Code macht genau das was er soll.

--Rosti