Метод шифрации Опции

[Angelok]

Помогите с задачкой! Я начала решать следующим способом: перевожу коды в 2-ую систему и применяю xor, но у меня получаются одинаковые новые коды. Пожет кто-нибудь решал похожую?
Вот задачка: Один из методов шифрации сообщения является метод шифрования наложением гаммы. Алгоритм шифрования: берётся некоторое случайное число в диапазоне от 127 до 255 – это гамма. Код каждого символа строки заменяют кодом, получившимся в результате операции: новый код = старый код XOR гамма. Зашифруйте и дешифруйте сообщения пользователя.

[Lapp]

перевожу коды в 2-ую систему и применяю xor, но у меня получаются одинаковые новые коды.
...
Зашифруйте и дешифруйте сообщения пользователя.

Angelok, ты перемудрила.
1. Ничего не нужно переводить в двоичную систему, оно уже все в двоичной и так (машины пока работают только в двоичной системе). XOR применяй прямо к самому символу (приведя его к байтовой форме посредством Ord).
2. Не нужно различать шифровку и дешифровку. Операция, примененная один раз - шифрует. Та же самая операция, примененная с результату шифрования - дешифрует.
То есть по сути тебе надо реализовать один цикл:

for i:=1 to Length(s) do s[i]:=Char(Ord(s[i]) xor Gamma)

С клавы нужно вводить название файла со строкой и ключ (Gamma).
Вот так.