perl skript intapretieren.

[Pindrei P. (pindrei)]

Hallo,

ich versuche momentan ein serielles Kommunikationsprotokoll zu 
implementieren. Dazu benötige ich jedoch am Ende eine Checksumme.
Leider existieren keine Herstellerangaben, jedoch habe ist ein Beispiel 
in "perl" gefunden.

sub checksum16 ($) {
# calculates the checksum 16 of the given string argument
  my @bytes = unpack("C*", $_[0]);
  my $sum = 0;
  foreach(@bytes) {
    $sum += $_;
    $sum %= 2**16;
  }
  return $sum;
}

Bedauerlicherweise habe ich mit Perl noch nie gearbeitet. Kann mir 
jemand erklären, wie die Summe berechnet wird?

MfG

pindrei

[Yalu X. (yalu) (Moderator)]

Pindrei P. schrieb:
> Bedauerlicherweise habe ich mit Perl noch nie gearbeitet.

Ich auch nicht. Trotzdem ist es doch fast offensichtlich, dass hier eine
Bytesequenz Byte für Byte modulo 2**16 (2 hoch 16) aufsummiert wird.

Könnte das hinkommen?

[Pindrei P. (pindrei)]

Yalu X. schrieb:
> dass hier eine
> Bytesequenz Byte für Byte modulo 2**16 (2 hoch 16) aufsummiert wird.

also:

cahr c[10];
for (int i=0;i<10;i++)
{
    y += x[i];
    y %= 65536;
}

ich teste das mal. 2**16 kannte ich nicht.

danke für die schnelle Antwort

[Yalu X. (yalu) (Moderator)]

Ja, so hätte ich gesagt. y musst du vorher natürlich noch auch 0 setzen.
y %= 65536 kann auch am Ende außerhalb der Schleife stehen, das ändert
am Ergebnis nichts. Du kannst diese Anweisung auch ganz weglassen, wenn
du y vom Typ uint16_t machst, da dann jede Addition automatisch modulo
2**16 gerechnet wird.

[Jörg W. (dl8dtl) (Moderator)]

Pindrei P. schrieb:
> 2**16 kannte ich nicht.

Stammt aus FORTRAN-Zeiten.

Wobei ich in Perl auch "% 65536" oder "& 0xFFFF" geschrieben hätte.

[Vlad T. (vlad_tepesch)]

wobei das eine ganz schön schäbige Checksumme für ein 
Kommunikationsprotokoll ist.