Delphi(шифрование)

[Начинающий програм]

Все доброго времени суток! Подскажите пожалуйста как решить задачу. Хоть какие-нибудь мысли подкиньте.
Код книга (заранее заготовленный текстовый файл):
Шифрование перестановкой текста символов заменой шифрование книга код поле ключ ключи

Текст для закрытия (вводится с клавиатуры):
текста шифрование заменой код шифрование

закрытый текст (на экран):
03 01 05 08 06

[Stilet]

Если этот пост - таблица то лучше выложи скиншот задания.
Ибо мало понятно что за...

[Начинающий програм]

Я постараюсь объяснить. В текстовом файле заранее хранится какой-либо текст, например: Шифрование перестановкой текста символов заменой шифрование книга код поле ключ ключи

После запуска требуется ввести несколько таких слов из текста, хранящиеся в текстовом файле, которые нужно закрыть. Например введем: текста шифрование заменой код шифрования


После введенных слов должно появиться следующее
закрытый текст:
03 01 05 08 06

Проще говоря, на экране появятся те номера мест, на которых введенные слова стоят в текстовом файле. Наверное я не очень понятно изложил условие, но если кто поймет условие задачи, объясните пожалуйста алгоритм решения(хотя бы на словах).


Надеюсь это Вам поможет понять смысл задачи
Кодировочная книга

Каждому зашифрованному слову ставится в соответствие расположение этого слова в художественной книге, один экземпляр которой находится у шифровальщика, другой у того, кто расшифровывает. Слабым звеном здесь является ключ, т.е. книга. Применительно к ПК этот метод можно видоизменять, рассматривая в качестве кодировочной книги коды ПЗУ компьютера или коды пакета программ, используемого передающей и получающей сторонами. В этом случае коду каждого символа исходного текста ставится в соответствие положение этого кода в ПЗУ.

[DiemonStar]

А чего здесь непонятного? создаёте словарь (массив слов) на основе книги, а потом заменяете шифруемый текст индексами соответствующих слов в словаре.

[Начинающий програм]

Спасибо, попробую, но еще один вопрос, под код слова нужно отводить две цифры то есть 02 09 , а не 2 9. Как это сделать?

[Serge_Bliznykov]

пробуйте

  a := 9;
  ShowMessage( Format('%.2d', [a]) );

[Начинающий програм]

Спасибо! Я попробую.