Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Help - XoR [D7]

Exile © (2007-04-16 10:26:00)
Доброго времени суток.
Люди подскажите плиз в чем косяк,
суть такова, написал что то вроде блокнота с функцией бонального шифрования текста хором, в котором можно задавать число смечения, после чего каждий символ в Memo будет шифроваться по очереди, проблема в том что при шифровании текст со смещением на 2 шифруется и расшифровывается все нормально, но со смещение на 101 после расшифровки большая половина текста изчезает, либо (если большой текст) остается вообще пару слов в первой строке.
В чем проблема подскажите плиз.
Шифрую так:
For i:=1 to length(str) do str[i]:=chr(ord(str[i]) xor key);
думаю пояснения тут не уместны:)

Exile (2007-04-16 10:53:00) [1]
Понял спасибо

Сергей М. (2007-04-16 10:47:00) [2]
В Ansi код символа 'e' = 101

101 xor 101 = 0

Exile (2007-04-16 10:36:00) [3]

> Может потому что после исключающего или в строке появляются
> символы #0.

да нет вроде, если я правильно понял, просто тупо считывается содержимое мемо и шифруется, а после расшифровки символы #0 нету, ну например шифруютю файл блокнота в котором около 50 строк
первоя строка Counter-Strike
а дальше сплошной текст, после расшифровки остается только Counter-Strike
все остальное изчезает.
повторюсь со смещением на 2 все норм, а на 101 глючит.
может я не правильно понял, если не турдно можно по подробнее

Yanis (2007-04-16 10:29:00) [4]
Может потому что после исключающего или в строке появляются символы #0.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »