Шифр Трисемуса

[Kef1r]

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

В интернете нашел такую вот штучку:

uses crt;
    const alphabet:array[1..4,1..8] of char =
        (('Б', 'А', 'Н', 'Д', 'Е', 'Р', 'О', 'Л'),
         ('Ь', 'В', 'Г' ,'Ж', '3', 'И', 'Й', 'К'),
         ('М', 'П', 'С', 'Т', 'У', 'Ф', 'X', 'Ц'),
         ('Ч', 'Ш', 'Щ', 'Ы', 'Ъ', 'Э', 'Ю', 'Я'));
         
Function encode(c:char):char;
    var i,j:integer;
Begin
    for i:=1 to 4 do
        for j:=1 to 8 do
            if (c = alphabet[i][j]) then
            Begin
                if (i <> 4) then encode:=alphabet[i+1][j]
                else encode:=alphabet[1][j];
            End;
End;
Function decode(c:char):char;
    var i,j:integer;
Begin
    for i:=1 to 4 do
        for j:=1 to 8 do
            if (c = alphabet[i][j]) then
            Begin
                if (i <> 1) then decode:=alphabet[i-1][j]
                else decode:=alphabet[4][j];
            End;
End;
     var s:string;
         i:integer;
begin
writeln('Введите сообщение');
 readln(s);

 
  for i:=1 to length (s) do
    s[i]:=encode(s[i]);
  WriteLn(s);
 
  for i:=1 to length (s) do
    s[i]:=decode(s[i]);
  Readln;
end.

Но в ней слово-ключ задано по умолчанию в коде. Мне же нужно чтобы ключ вписывал я после запуска программы. Нужна помощь, господа.

[p51x]

Так проблема в чем? Найди в инете как вводить строку или массив символов, можете еще про циклы почитать...

[ViktorR]

Так понимаю, что проблема в составлении таблицы.
Могу предложить такой вариант:
Есть строка с алфавитом и есть строка с ключевым словом.
В цикле, до последнего символа ключевого слова:
- берем первый символ ключа и ищем в строке с алфавитом. Если такой символ там есть, то а) пишем символ в таблицу и б) в строке с алфавитом символ замещаем каким либо другим, например, восклицательным знаком или вообще не отображаемым символом (пример - #186).
- берем следующий символ ключа и поступаем так же.
После того, как просмотрели все символы ключа, копируем оставшиеся символы из строки с алфавитом в таблицу (проверяя, что символ - буква).


Как-то так, ...

[Serge_Bliznykov]

ViktorR, точно так.

Kef1r, алгоритм есть, теперь справитесь?

[ViktorR]

Если уж такой код написал сам, то ...

Как-то так, ...

[Serge_Bliznykov]

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

Если уж такой код написал сам, то ...

Это Вы автору темы льстите.
Именно этот код этот только на нашем форуме не один раз публиковался.
и ключевое слово именно "БАНДЕРОЛЬ".

Но то, что он не сам написал, это, как раз, не страшно.
Главное, чтобы понимал, что нужно ввести в программу и умел писать код на Паскале.

[Kef1r]

Алгоритм то я может и понимаю, а с кодом на паскале проблемы.

[Serge_Bliznykov]

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

Алгоритм то я может и понимаю, а с кодом на паскале проблемы.

т.е. Вы даже пытаться написать код на Паскале не собираетесь?

[Kef1r]

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

т.е. Вы даже пытаться написать код на Паскале не собираетесь?

Собираюсь, сегодня нет возможности, завтра буду пробовать

[Serge_Bliznykov]

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

Собираюсь, сегодня нет возможности, завтра буду пробовать

Хорошо. Попробуйте.
Если всё получится - отлично.
если нет - выложите свой код, расскажите, что не получается, Вам обязательно помогут и подскажут.

А вообще, конечно, код там несложный, новичку вполне по силам.