Вычислить контрольную сумму строки

Posted by Chas under Delphi

Вычислить контрольную сумму строки «58 00 A0 90 CB B7 A6 02 04 4D BC A2 80 60 8C 9A 00 D0 33 5F 5B 54 AF 6A D3″, являющуюся инверсией XORа всех байт.

Serge_Bliznykov
примерно так:

 ks := Stroka[1];

  for i:=2 to Length(Stroka) do

    ks := ks xor Stroka;
  ks := Not ks; {инверсия результата}

Похожие статьи