Шифрующие таблицы Трисемуса

[1keks]

Помогите написать программу на Pascal

Вот описание метода:

Для получения такого шифра замены обычно использовались таблица для записи букв алфавита и ключевое слово. В таблицу сначала вписывалось по строкам ключевое слово, причем повторяющиеся буквы отбрасывались. Затем эта таблица дополнялась не вошедшими в нее буквами алфавита по порядку.
При шифровании находят в этой таблице очередную букву открытого текста и записывают в шифртекст букву, расположенную ниже ее, в том же столбце. Если буква текста оказывается в нижней строке таблицы, тогда для шифртекста берут самую верхнюю букву из того же столбца.
Пример. Для русского алфавита шифрующая таблица может иметь размер 4x8. Выберем в качестве ключа слово БАНДЕРОЛЬ. Шифрующая таблица примет вид:
Б А Н Д Е Р О Л
Ь В Г Ж 3 И И К
М П С Т У Ф X Ц
Ч Ш Щ Ы Ъ Э Ю Я
При шифровании с помощью этой таблицы
сообщения В Ы Л Е Т А Е М П Я Т О Г О
получаем шифртекст П Д К З Ы В З Ч Ш Л Ы Й С Й

[Alex Cones]

Таблицу - в массив(одномер), еще подучись получать ORD и CHR.

[1keks]

Сообщение от Alex Cones

Таблицу - в массив(одномер), еще подучись получать ORD и CHR.

Я понимаю что с массивом, но не могу это реализовать в программу.

[Alex Cones]

Давай с той же "БАНДЕРОЛЬ"ю: Запихиваем последовательно буквы в массив с 1-й по 9-ю ячейки. Но на каждом шаге функой POS определяем, не повторяется ли буква. Затем мы берем массив с русским алфавитом. и тем же посом ищем первую не входящий в массив-ключ букву. Вносим её в ключ. Ещем следующую и т.д, пока не закончится алфавитный массив.

[1keks]

Сообщение от Alex Cones

Давай с той же "БАНДЕРОЛЬ"ю: Запихиваем последовательно буквы в массив с 1-й по 9-ю ячейки. Но на каждом шаге функой POS определяем, не повторяется ли буква. Затем мы берем массив с русским алфавитом. и тем же посом ищем первую не входящий в массив-ключ букву. Вносим её в ключ. Ещем следующую и т.д, пока не закончится алфавитный массив.

Спасибо, буду какнить пробовать начать писать.
нашол прогу на данную тему, но она не правильно работает. может кто посмотрит.

[Serge_Bliznykov]

1keks
НЕ ПОДТВЕРЖДАЮ!

программка GL06 работает, причём, насколько я могу судить, работает правильно!

1) у Вас в первом посте таблица с ОШИБКОЙ.
в русском алфавите сначала идёт твёрдый знак (Ъ),
а потом уже буква Ы

2) кодируемая строка и пароль в программе задаются жёстко (прямо в теле программы присваиваются!)

2) после задания ключевого слова бандероль
и кодируемой фразы:
original:='вылетаем пятого';

получаем:

бандерол
ьвгжзийк
мпстуфхц
чшщъыэюя

вылетаем пятого
пекзъвзч шлъйсй

[1keks]

Сообщение от Serge_Bliznykov

1keks
НЕ ПОДТВЕРЖДАЮ!

программка GL06 работает, причём, насколько я могу судить, работает правильно!

1) у Вас в первом посте таблица с ОШИБКОЙ.
в русском алфавите сначала идёт твёрдый знак (Ъ),
а потом уже буква Ы

2) кодируемая строка и пароль в программе задаются жёстко (прямо в теле программы присваиваются!)

Ух я лажанулся!
Спасибо за помощь!!!

[akrisanov]

Помогите, пожалуйста, разобраться с задачей:
"Найти ключевое слово для метода шифрующих таблиц Трисемуса по известному фрагменту открытого текста, расположенному в начале сообщения. Размер таблицы считать известным."
Не могу придумать алгоритм. Нужно написать программку на C# или др.языке.

[evg_m]

1.по исходному и зашифрованому тексту восстанавливается некая таблица шифрования(шифр простой замены).
АБВГД...Я (знаки исх текста)
цукен...щ (знаки ш текста)

2. из полученной таблицы произвольно выбираются 8(длина кодового слова) колонок и проверяются след. условия.
A. буквы кодового слова кодируются первыми знаками алфавита не входящими в кодовое слово. (для выбранных букв из первой строки во второй должны быть первые знаки алфавита) .
B. буквами кодового слова кодируются последние знаки алфавита не входящие в кодовое слово. (для выбранных букв из ВТОРОЙ строки в первой должны быть последние знаки алфавита)

[akrisanov]

evg_m, не могли бы Вы на примере показать как найти ключ. Я несколько не понимаю описанный Вами способ. Спасибо.