|
Registriert seit: 11. Mai 2020
Ort: Freiberg
35 Beiträge
Delphi 10.4 Sydney
|
AW: xor Verknupfungen
13. Apr 2022, 13:04
Hi
ich habe zu deinem Problem ein paar Fragen. Wieviel Byte umfaßt ein Datentransfer?
die dezimale Darstellung von 0x83 ist 131 anstatt 130.
Ein Checkbyte mit 0x00 zu belegen und ein anderes Byte (OP...) mit xor Checkbyte zu verknüpfen macht keinen Sinn: es kommt als Ergebnis wieder OP... heraus.
Du mußt also Byte1 xor Byte2 xor Byte3 ... bilden.
Falls das höherwertige bit des Bytex den wert 1 hat (Bytex>=128 oder Bytex>=0x80) sollen nur die niederwertigen Bytes berücksichtigt werden: Bytex and 0x7F bzw Bytex and 127.
Die Checksumme ist zum Schluß bitweise zu negieren: CheckSum:= not (Ergebnis aller xor-Verknüpfungen)
Good luck
|