Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  Re: Längsparität XOR berechnen (BCC)

   
    by gammatester, 4. Mai 2010
  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):
  function bcc(s: ansistring): byte;
  var
  t,i: integer;
  begin
  t := 0;
  for i:=1 to length(s) do t := t xor ord(s);
  bcc := t and $7f;
  end;