криптография. стандартный Encrypt delphi

[zubso]

интересует такой вопрос: как происходит перевод кода из таблицы acsii в символ, когда значение char переваливает за 255?

const
  StartKey        = 981;  	{Ключ1}
  MultKey	  = 12674;	{Ключ2}
  AddKey	  = 35891;	{Ключ3}

for I := 1 to Length(InString) do
  begin
    Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
    StartKey := (Byte(Result[I]) + StartKey) * MultKey + AddKey;
  end;

[Volt]

Если я не ошибаюсь то при переваливании значения char за 255 все начинается заново т.е 256=0 257=1 .... 289=33 итд.

[zubso]

видимо не верно (или я считаю неправильно): считал самостоятельно, не получается на выходе тот символ, который выдает прога.... =(
пример. пошагово:

ввел m (startkey=981):
byte(m) = 109
startkey = 981
startkey shr 8 = 855
(byte(m)) xor (startkey shr 8) = 826
result "="

а программа-шифровщик выдает "n"

[Alt]

Кривой компилятор, видимо, у вас. Volt правильно всё сказал.