Работа С двумя текстами Опции

[nekto86]

Не могу составить программу для шифрования текста. Суть в том,что изначально есть какой то текст в файле,пользователь вводит второй текст в программу. Далее берётся по первому символу из обоих текстов,переводится в двоичный код по кодировке Ascii, затем поэтапно складываются разряды у этих символов. В итоге выводится зашифрованный текст. Объясните,пожалуйста,как сделать такую программу.

[Федосеев Павел]

Ну, складывать-то просто.

Пусть
txt, key, res: string;

тогда
{$r-,q-} {директивы компилятора - не проверять переполнение }
res[IndexT] := char( byte(txt[IndexT] ) + byte(key[IndexK] ) ) ; 

Этот трюк называется приведение типов (typecast - тайпкаст).
Как видишь, здесь присутствует два индекса - один для исходной и итоговой строк, другой для строки ключа (той, что пользователь вводит). Потому, что в общем случае на входе и выходе одинаковое количество символов, а в ключевой строке отличное от них.

Надеюсь, что всё остальное (файлы, строки) тебе знакомо.