LRC校验码 c,delphi c# 别人现成的_delphi lrc校验-优快云博客

本文链接：https://blog.youkuaiyun.com/2004v2004/article/details/6586703

本文详细介绍了C语言中CRC校验算法的实现过程，包括初始化、循环累加和返回LRC值。同时提供了Delphi(Pascal)、C#等不同编程语言的实现代码，以及如何将LRC值转换为十六进制字符串的功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

static unsigned char LRC(auchMsg,usDataLen)
　　
　　unsigned char *auchMsg ; /* 要进行计算的消息 */
　　
　　unsigned short usDataLen ; /* LRC 要处理的字节的数量*/
　　
　　{ unsigned char uchLRC = 0 ; /* LRC 字节初始化 */
　　
　　while (usDataLen--) /* 传送消息 */
　　
　　uchLRC += *auchMsg++ ; /* 累加*/
　　
　　return ((unsigned char)(-((char_uchLRC))) ;
　　
　　}

2:Delphi(Pascal) code

function GetLRC(AData: array of Byte; iLen: Integer): Byte;
var
iLoop : Integer;
begin
Result := 0;
for iLoop := 0 to iLen - 1 do Result := Result + AData[iLoop];
Result := Result xor $FF + 1;
end;

function GetHexString(AData: array of Byte; iLen: Integer): String;
var
iLoop: Integer;
begin
Result := '';
for iLoop := 0 to iLen - 1 do
Result := Result + IntToHex(AData[iLoop], 2);
Result := Result + IntToHex(GetLRC(AData, iLen), 2);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
AData: array[0..5] of Byte;
begin
AData[0] := $01;
AData[1] := $02;
AData[2] := $00;
AData[3] := $00;
AData[4] := $00;
AData[5] := $01;
ShowMessage(GetHexString(AData, 6));
end;

3:C# code
static byte LRC(byte[] data)
{
    byte lrc = 0;
    foreach (byte c in data)
    {
      lrc += c;
    }
    return (byte)-lrc;
}