Wiedereinmal XOR

[Florian_Meyer]

Hallo,

ich muss einen Checksumme mit XOR berechnen.

Beispiel:

Zitat:

Hex ASCII Bedeutung
0x02 <STX>
0x0A <CR>
0x53 S erstes Zeichen Befehlswort
0x54 T ...
0x4F O ...
0x50 P ...
0x4D M ...
0x4F O letztes Zeichen Befehlswort
0x03 <ETX>
0x30 0 <BCC1>
0x31 1 <BCC2>
0x37 7 <BCC3>
0x0D <LF>

Zitat:

So, die Checksumme ist dort 017 (<BBC1>, <BBC2>, <BBC3>).
Die Checksumme ist eine Exklusiv-Oder-Verknüpfung aller Bytes (angefangen vom STX bis einschließlich des ETX/ETB).

-XOR-Checksumme 3 Stellen dezimal 000...999

Das ist, was ich aus einer Dokumentation dazu habe. Allerdings weiß ich jetzt nicht, wie ich das realisieren kann, diese Checksumme zu berechnen.

Kann mir da jemand helfen?

Florian M.

[Gollum]

Hallo,

vielleicht hilft Dir das:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var sl  :TStringList;
    i, x:Integer;
    hex :String;
begin
  sl:=TStringList.Create();
  try
    sl.Text:='0x02 <STX>'+#13#10+
             '0x0A <CR>'+#13#10+
             '0x53 S erstes Zeichen Befehlswort'+#13#10+
             '0x54 T ...'+#13#10+
             '0x4F O ...'+#13#10+
             '0x50 P ...'+#13#10+
             '0x4D M ...'+#13#10+
             '0x4F O letztes Zeichen Befehlswort'+#13#10+
             '0x03 <ETX>'+#13#10+
             '0x30 0 <BCC1>'+#13#10+
             '0x31 1 <BCC2>'+#13#10+
             '0x37 7 <BCC3>'+#13#10+
             '0x0D <LF>';
    i:=0;
    repeat
      hex:='$'+Copy(sl.Strings[i], 3, 2);
      if (i>0) then x:=x xor StrToInt(hex)
        else x:=StrToInt(hex);
      Inc(i);
    until (Pos('<ETX>', sl.Strings[i])>0);
    x:=x xor StrToInt('$'+Copy(sl.Strings[i], 3, 2))
  finally
    sl.Free();
  end; // try
  ShowMessage(Format('%0.3d', [x]));
end;

[Der_Unwissende]

HI,
@gollum Ich glaube du machst es dir hier etwas zu schwer, die Daten werden sicherlich direkt empfangen, der Rest ist nur Doku

@florian_meyer:
Wie kommen denn die Daten an? Sieht ein wenig nach der Doku für die kommunikation über eine bestimmte Schnittstelle (z.B. RS 232) aus. Du kannst einfach das tun, was da steht, du nimmst eine Checksumme und für jeden neuen empfangenen Wert berechnest du das eklusive Oder aus der aktuellen Checksumme und dem neuen Wert:

[delphi]
function getChecksum(const Data : TByteArray) : Integer;
var i : Integer;
begin
result := Data[0]; // hier jetzt $02;

for i := 1 to length(Data) - 1 do
begin
result := result xor Data[i];
end;
end;
[delphi]

Enthält Data hier jetzt die Zahlen $02, $0A, ... $03, so bekommst du hier 17 zurück.

Gruß Der Unwissende

[Florian_Meyer]

Hallo,

danke erst einmal für die Antworten.

Also, tut mir leid, das habe ich vergessen zu erwähnen. Ja, es handelt sich um die Kommunikation mit einer RS 232 Schnittstelle.
Ich benötige die Checksumme aus einem String. der String enthält:

0x02 <STX>
0x0A <CR>
0x53 S
0x54 T
0x4F O
0x50 P
0x4D M
0x4F O
0x03 <ETX>

Also: der eigentliche Befehl ist: STOPMO
eingeschlossen ist das ganze von den Steuerbefehlen <STX><CR> und <ETX>

Also ich glaube zumindest, dass das dann ein String sein soll^^
Das ganze soll nämlich rausgeschickt werden, Empfangen funktioniert schon.

Florian M.

[Florian_Meyer]

Falls es noch jemanden interessiert, habe es jetzt so gelöst und es scheint zu funktionieren:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  datastring: string;
  result, i: integer;
begin
  datastring := chr($02)+chr($0A)+chr($53)+chr($54)+chr($4F)+chr($50)+chr($4D)+chr($4F)+chr($03);
  result := 0;
  for i := 1 to length(datastring) do
  begin
    result := result xor ord(datastring[i]);
  end;
end;

MfG
Florian M.

[Hawkeye219]

Florian, hast du den Code schon einmal mit eingeschalteter Bereichsüberprüfung ($R+) laufen lassen?

Gruß Hawkeye

[Florian_Meyer]

Hallo,

öhm..wenn du mir noch sagst, wozu und wie ich das mache, dann könnt ich das tun


Gruß
Florian

[Hawkeye219]

Hallo Florian,

die Bereichsprüfung kannst du in den Compileroptionen einschalten oder über den Compilerschalter {$R+} bzw. {$RANGECHECKS ON}. Ist diese Prüfung aktiviert, erzeugt der Compiler zusätzlichen Code zum Prüfen der Indexwerte für Arrays und Strings.

Dein Code erzeugt einen Fehler beim ersten Schleifendurchlauf. Das erste Zeichen in einem String hat den Index 1, deine Schleife startet mit dem Wert 0.

Gruß Hawkeye

[Florian_Meyer]

Hallo,

ok, das wusste ich nicht, dass das bei strings nicht so ist, weil bei anderen sachen, da fängt es ja immer mit 0 an.
Wieder was dazu gelernt

Gruß
Florian