Hallo zusammen,

bei der Berechung einer Checksumme in einem Übertragungsprotokoll habe ich gerade so meine Probleme.

Hier der entsprechende Auszug aus der Schnittstellenbeschreibung:

Zitat:

The Checksum is derived by the addition of all bytes of the header, data field separators
and data fields (i.e. all characters after the stx-character, up to and including the last '/'
before the checksum field). The 8 Least Significant Bits (LSB) of the result are then
represented as two printable characters. The character containing the 4 Most Significant
Bits (MSB) (of those 8 LSB) shall be transmitted first. For example, if the checksum is 3Ahex
the representation shall be the characters '3' (33hex) and 'A' (41hex).

Die Aufsummierung der entsprechenden Bytes ergibt 2179 (Dezimal), oder 883 (Hex). Das bilden der Checksumme über die "8 Least Significant Bits (LSB)" bringt bei mir nicht das gewünschte Ergebnis. Laut einem Beispiel-Datensatz in der Schnittstellenbeschreibung ist die Checksumme dieses Zeichenkette 55.

Nachlesen der Begriffe LSB und MSB hat mich die letzten Tage leider auch nicht weiter gebracht. Hat wer eine Idee oder einen Lösungsansatz?

lg,
Andi

Dein Algorithmus ist falsch und verwendet nicht alle Zeichen des Frames. Zeig mal den Code.

Die Aufsummierung der Zeichen erledige ich zum Testen mit folgendem Code:

Aufruf mit den betroffenen Zeichen aus dem Beispiel:
Label1.Caption := CreateCheckSum('01/00044/O/01/01720123445/2323//3/54657374/'); Funktion:

zusammenfalten · markieren

Delphi-Quellcode:

function TForm1.CreateCheckSum(InStr: String): String;
var rCount,
    Sum : Integer;
begin
  Sum := 0;
  for rCount := 1 to Length(InStr) do
  begin
    Sum := Sum + Ord(InStr[rCount]);
  end;
  Result := IntToStr(Sum) + ' (' + IntToHex(Sum, 2) + ')';
end;

Der ganze Frame ist:
<stx>01/00044/O/01/01720123445/2323//3/54657374/<chksum><etx>

lg,
Andi

Gut, dann korrigiere ich mich: Der Algorithmus ist korrekt und summiert alle Zeichen. Wenn Du zu 100% den korrekten Frame aus der Beschreibung abgetippt hast (Mich hat. z.B. das 'O' (Oh) stutzig gemacht), dann kontaktiere doch mal den Hersteller...

Oder versuche Folgendes:
Schicke nacheinander den Frame mit allen möglichen Prüfsummen.
Bei genau Einer wird die Gegenstelle positiv reagieren.
Wiederhole dies mit diversen Frames.
Vergleiche deine und die 'korrekte' Prüfsumme.

Hallo,
wir verwenden folgenden Algorithmus:

zusammenfalten · markieren

Delphi-Quellcode:

// Tabelle nach CCITT
Crc16Tab : Array[0..255] of Word = (
$0000, $1021, $2042, $3063, $4084, $50a5, $60c6, $70e7,
$8108, $9129, $a14a, $b16b, $c18c, $d1ad, $e1ce, $f1ef,
$1231, $0210, $3273, $2252, $52b5, $4294, $72f7, $62d6,
$9339, $8318, $b37b, $a35a, $d3bd, $c39c, $f3ff, $e3de,
$2462, $3443, $0420, $1401, $64e6, $74c7, $44a4, $5485,
$a56a, $b54b, $8528, $9509, $e5ee, $f5cf, $c5ac, $d58d,
$3653, $2672, $1611, $0630, $76d7, $66f6, $5695, $46b4,
$b75b, $a77a, $9719, $8738, $f7df, $e7fe, $d79d, $c7bc,
$48c4, $58e5, $6886, $78a7, $0840, $1861, $2802, $3823,
$c9cc, $d9ed, $e98e, $f9af, $8948, $9969, $a90a, $b92b,
$5af5, $4ad4, $7ab7, $6a96, $1a71, $0a50, $3a33, $2a12,
$dbfd, $cbdc, $fbbf, $eb9e, $9b79, $8b58, $bb3b, $ab1a,
$6ca6, $7c87, $4ce4, $5cc5, $2c22, $3c03, $0c60, $1c41,
$edae, $fd8f, $cdec, $ddcd, $ad2a, $bd0b, $8d68, $9d49,
$7e97, $6eb6, $5ed5, $4ef4, $3e13, $2e32, $1e51, $0e70,
$ff9f, $efbe, $dfdd, $cffc, $bf1b, $af3a, $9f59, $8f78,
$9188, $81a9, $b1ca, $a1eb, $d10c, $c12d, $f14e, $e16f,
$1080, $00a1, $30c2, $20e3, $5004, $4025, $7046, $6067,
$83b9, $9398, $a3fb, $b3da, $c33d, $d31c, $e37f, $f35e,
$02b1, $1290, $22f3, $32d2, $4235, $5214, $6277, $7256,
$b5ea, $a5cb, $95a8, $8589, $f56e, $e54f, $d52c, $c50d,
$34e2, $24c3, $14a0, $0481, $7466, $6447, $5424, $4405,
$a7db, $b7fa, $8799, $97b8, $e75f, $f77e, $c71d, $d73c,
$26d3, $36f2, $0691, $16b0, $6657, $7676, $4615, $5634,
$d94c, $c96d, $f90e, $e92f, $99c8, $89e9, $b98a, $a9ab,
$5844, $4865, $7806, $6827, $18c0, $08e1, $3882, $28a3,
$cb7d, $db5c, $eb3f, $fb1e, $8bf9, $9bd8, $abbb, $bb9a,
$4a75, $5a54, $6a37, $7a16, $0af1, $1ad0, $2ab3, $3a92,
$fd2e, $ed0f, $dd6c, $cd4d, $bdaa, $ad8b, $9de8, $8dc9,
$7c26, $6c07, $5c64, $4c45, $3ca2, $2c83, $1ce0, $0cc1,
$ef1f, $ff3e, $cf5d, $df7c, $af9b, $bfba, $8fd9, $9ff8,
$6e17, $7e36, $4e55, $5e74, $2e93, $3eb2, $0ed1, $1ef0
);

//generiere 16Bit CRC nach CCITT
Function GenerateCRC16(Var s1:String):Word;
Var crc16:Word; i:Integer;
Begin
  crc16 := $1D0F;
  For i := 1 to Length(s1) do Begin
    Crc16 := Crc16Tab[((Crc16 shr 8 ) xor Ord(s1[i])) and $ff] xor ((Crc16 shl 8) and $FFFF);
  End;
  Result := crc16;
End;

Grüsse
Rainer

PS: Bin zu faul deinen nachzuvollziehen, deshalb sende ich dir meinen!
Das Teil stammt von einem Kollegen. Details bitte Wikipedia entnehmen.

Erst mal Danke für die Hinweise,

leider komme ich mit keinem Ansatz auf das angestrebte Ergebnis von 55.

Wenn ich die Schnittstellenbeschreibung richtig verstanden habe, sollen erst mal alle Bytes aufsummiert werden. So weit, so gut. Vom Ergebis soll man die 8 LSB als Checksumme nehmen. Und hier ist auch mein Verständnisproblem. Wikipedia & Co haben mir nicht wirklich weitergeholfen, ich hab mich irgendwie festgefahren.

Kann mir wer plausibel erklären, oder einen hilfreichen Link posten, was die 8 LSB meiner Summe 2179 (Dezimal), oder 0883 (Hex) sind. Wenn ich das mal Verstanden habe, kann ich etwas leichter nach weiteren Lösungsansätzen suchen.

lg,
Andi

Die 8 LSBs sind die Bits 0-7 der Binärdarstellung deiner Zahl.
Wenn du 2179 AND $FF berechnest, sollte 131=$83 rauskommen.

Wie auch immer, das ist nicht gleich der gesuchten 55.

zusammenfalten · markieren

Delphi-Quellcode:

function CheckData(s: string): string;
var
  i: integer;
  SumAscii: integer;
  L: integer;
begin
    SumAscii := 0;
    for i := 1 to Length(s) - 3 do
      SumAscii := SumAscii + Ord(s[i]);

    L := (SumAscii shr 8) and $00FF;
    Result := IntToHex(L,1);
end;



procedure TForm1.btn1Click(Sender: TObject);
begin
  lbl1.Caption:= CheckData('01/00044/O/01/01720123445/2323//3/54657374/')
end;

@Memo:

Sorry, aber der Algorithmus hat zwei Fehler:

1. Die for-Schleife muss bis Length(s) laufen
2. Was soll das ShiftRechts? Damit entsorgst du die 8 LSBs.

zusammenfalten · markieren

Delphi-Quellcode:

function CheckData(s: string): string;
var
  i: integer;
  SumAscii: integer;
  L: integer;
begin
    SumAscii := 0;
    for i := 1 to Length(s) do
      SumAscii := SumAscii + Ord(s[i]);
    //ShowMessage(IntToHex(SumAscii,8));
    L := SumAscii and $FF;
    Result := IntToHex(L,1);
end;

procedure TForm2.btn1Click(Sender: TObject);
begin
  ShowMessage(CheckData('01/00044/O/01/01720123445/2323//3/54657374/'));
end;

Mit diesem Code kommt auch wieder $883 und als Checkusmme $83 raus.

Gibt es Schnittstellenbeschreibung und Beispiel online?

Gammatester