Delphi中的LRC校验和

LRC checksum in Delphi

本文关键字：校验和 LRC 中的 Delphi      更新时间：2023-10-16

我正试图将C代码转换为Delphi/pascal，但不知何故我无法让它工作，我的方法是这样的:

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校验和的正确方法?

我猜这个函数的确切等价可能是:

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。

相关文章：