Zitat von
gammatester:
Ich nehme man, daß Du mit 8-Bit-Zeichen arbeitest. Dann xorst Du einfach alle Zeichen und maskierst die 7 Bit (falls alle Zeichen nur 7 Bit haben, ist das eigentlich überflüssig):
Delphi-Quellcode:
function bcc(s: ansistring): byte;
var
t,i: integer;
begin
t := 0;
for i:=1 to length(s) do t := t xor ord(s[i]);
bcc := t and $7f;
end;
Hallo gammatester,
volltreffer, genau das ist es. Im String können teoretisch alle
ASCII Zeichen von 1 bis 127 vorkommen.
Tausend Dank gammatester Du hast mir sehr weitergeholfen.
Gruß Kostas