From 251c7a620008edb41be211d3f547dcdab1d85544 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Tue, 20 Feb 2018 13:25:27 +0100
Subject: lowlevelunit.pas: pruefSumme neu

---
 lowlevelunit.pas | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/lowlevelunit.pas b/lowlevelunit.pas
index f08a80d..5dcf4aa 100644
--- a/lowlevelunit.pas
+++ b/lowlevelunit.pas
@@ -154,6 +154,7 @@ procedure readAnAndorString(var f: file; out s: string; checkEOL: boolean); over
 
 procedure splitStrToInt(s: string; out ia: tLongintArray);
 function vergleicheStrings(s1,s2: string): integer;
+function pruefSumme(s: string; m: longestOrdinal): longestOrdinal; inline;
 
 var
   base64Chars: array[0..63] of char;
@@ -1311,6 +1312,15 @@ begin
   result:=0;
 end;
 
+function pruefSumme(s: string; m: longestOrdinal): longestOrdinal;
+var
+  i: longint;
+begin
+  result:=0;
+  for i:=1 to length(s) do
+    result:=((result*256)+ord(s[i])) mod m;
+end;
+
 var
   b: byte;
 
-- 
cgit v1.2.3-54-g00ecf