Контрольная сумма LRC в Delphi - PullRequest
Новая
       6

Контрольная сумма LRC в Delphi

0 голосов
/ 15 сентября 2011

Я пытаюсь преобразовать код C в Delphi / паскаль, но почему-то я не могу заставить его работать, мой подход был такой: 

function CheckLRC(s : PChar) : Char;
var
  sum : char;
begin
  sum := #0;
  while (^s <> #0) do
  begin
    sum := (sum XOR ^s);
    inc (s)
  end;
  result := sum;
end;

Исходный код C был: 

   Set LRC = 0
   For each byte b in the buffer
   do
     Set LRC = (LRC + b) AND 0xFF
   end do
   Set LRC = (((LRC XOR 0xFF) + 1) AND 0xFF)

Надеюсь, кто-нибудь сможет мне помочь и сможет подтвердить, что это правильный способ сделать контрольную сумму LRC?

1 Ответ

3 голосов
/ 15 сентября 2011

Полагаю, точная эквивалентность этой функции может быть: 

function CheckLRC(const s: AnsiString): byte;
var i: integer;
begin
  result := 0;
  for i := 1 to length(s) do
    inc(result,ord(s[i]));
  result := (result xor $FF)+1; // or result := (not result)+1;
end;

Все "и $ FF" в исходном коде здесь не нужны, так как мы используем byte в качестве результата.

...