Вопрос Delphi. Как зашифровать содержимое текстового файла и расшифровать его в программе?

[Дмитрий424]

Здравствуйте. Есть текстовый файл, при открытии которого через блокнот, человек должен увидеть непонятную фигню. А при открытии через программу текст должен быть понятен. Как это можно сделать? Может можно как-то зашифровать на выходе и расшифровать на входе в программу? Было бы хорошо увидеть пример. За ранее спасибо.

 

[inviz]

Любым типом шифра, даже тем же смещением буквы в алфавите на позицию вправо или влево

 

[semenov94]

Выбираем какое-нибудь число от 0 до 255 с равномерным распределением битов: (8 4 2 1 : 8 4 2 1) 1 0 1 0 : 0 1 1 0 A : 6 Итак наше число A6h (шестьнадцетиричное) Читаем символ из файла в integer i i:=i XOR A6h; s:=s + chr(i); Сам файл зашифровываем таким же образом i:=i XOR A6h; s:=s + chr(i); Записываем s в файл