From ecc7d999913ac8ebd64b839ee82fc9d1cbb056ab Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 25 Jan 2017 11:34:34 +0000
Subject: [PATCH] RxFPC: rxCrc module

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5700 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../rx/trunk/languages/register_rxctrl.po     |  4 +++
 components/rx/trunk/rxtools/rxcrc.pas         | 33 ++++++++++++++++---
 2 files changed, 33 insertions(+), 4 deletions(-)

diff --git a/components/rx/trunk/languages/register_rxctrl.po b/components/rx/trunk/languages/register_rxctrl.po
index 012c1cf4e..1e423145e 100644
--- a/components/rx/trunk/languages/register_rxctrl.po
+++ b/components/rx/trunk/languages/register_rxctrl.po
@@ -1,6 +1,10 @@
 msgid ""
 msgstr "Content-Type: text/plain; charset=UTF-8"
 
+#: register_rxctrl.sloadicon
+msgid "Load icon"
+msgstr ""
+
 #: register_rxctrl.stesttrxlogindialog
 msgid "Test TRxLoginDialog"
 msgstr ""
diff --git a/components/rx/trunk/rxtools/rxcrc.pas b/components/rx/trunk/rxtools/rxcrc.pas
index 2297cbeeb..fe7ee5eba 100644
--- a/components/rx/trunk/rxtools/rxcrc.pas
+++ b/components/rx/trunk/rxtools/rxcrc.pas
@@ -38,17 +38,18 @@ interface
 uses
   Classes, SysUtils;
 
-function crc8(Buffer:String;Polynom,Initial:Cardinal):Cardinal;
+function rxCRC8(Buffer:String;Polynom,Initial:Cardinal):Cardinal; overload;
+function rxCRC8(Buffer:PByteArray; BufferLen:Cardinal; Polynom,Initial:Cardinal):Cardinal; overload;
 implementation
 
 {autor - hansotten
 http://forum.lazarus.freepascal.org/index.php?topic=31532.msg202338#msg202338
 }
-function crc8(Buffer:String;Polynom,Initial:Cardinal):Cardinal;
+function rxCRC8(Buffer:String;Polynom,Initial:Cardinal):Cardinal;
 var
-  i,j                   : Integer;
+  i,j : Integer;
 begin
-  Result:=Initial;
+{  Result:=Initial;
   for i:=1 to Length(Buffer) do
   begin
     Result:=Result xor Ord(buffer[i]);
@@ -60,6 +61,30 @@ begin
         Result:=Result shl 1;
     end;
   end;
+  Result:=Result and $ff;}
+  if Length(Buffer) > 0 then
+    Result:=rxCRC8(@Buffer[1], Length(Buffer), Polynom, Initial)
+  else
+    Result:=Initial;
+end;
+
+function rxCRC8(Buffer: PByteArray; BufferLen: Cardinal; Polynom, Initial: Cardinal
+  ): Cardinal;
+var
+  i,j : Integer;
+begin
+  Result:=Initial;
+  for i:=0 to BufferLen-1 do
+  begin
+    Result:=Result xor Buffer^[i];
+    for j:=0 to 7 do
+    begin
+      if (Result and $80)<>0 then
+        Result:=(Result shl 1) xor Polynom
+      else
+        Result:=Result shl 1;
+    end;
+  end;
   Result:=Result and $ff;
 end;