Шифрование Джованни Порта - нет инфы

[TonyF]

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

Возможно ли ее на Delphi сделать или лучше на другом языке? В общем, прошу Вашей помощи! Сам даже не представляю как сделать

[Vanta11a]

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

Буква лозунга определяет алфавит (заглавные буквы первого столбца), расположенная под ней буква открытого текста ищется в верхнем или нижнем полуалфавите и заменяется соответствующей ей буквой второго полуалфавита

Реализовать можно на любом языке.

[Vanta11a]

Т.е. в первом столбце Вы ищете букву, стоящую на кодируемой позиции (букву лозунга). Когда нашли - идете по строке вправо, ища кодируемую букву. Нашли в верхней строке - выписываете ту, что под ней. Нашли в нижней - ту, что над ней.
Допустим лозунг: АБВ
Кодируемый текст: ГДЕ
Шифротаблица:
А | АБВГ|
Б | ДЕЖЗ|
В | АБВГ|
Г | ЕЖЗД|
Д | АБВГ|
Е | ЖЗДЕ|
...

Буква лозунга (1 позиция) - "А" -> первая строка. В ней ищем букву "Г" (на первой позиции слова) и заменяем её на "З" (т.к. под ней).
2я буква лозунга - "Б" -> вторая строка. В ней ищем букву "Д" и заменяем её на "А".
Повторить для всех букв