RxFPC: rxCrc module

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5700 8e941d3f-bd1b-0410-a28a-d453659cc2b4

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 ""

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;