Шифрование в Delphi

Данные надо беречь.Дальше можно не продолжать.Шифруем, шифруем, шифруем!..Сосредоточены они в модуле StrUtils.pas.Используем ее в особенности, чтобы осложнить жизнь хитрому дешифровщику.Преобразуем символ в число командой Ord.От результата отнимаем число, равное позиции данного символа.То, что получилось, запишем обратно из чисел в символы командой Chr.Как видишь, после всех наших манипуляций этот символ уже будет другим.Запишем всю строку навыворот командой ReverseString.