Delphi прошу помощи у профессионалов

[Тёмыч]

Ребята прошу помощи немогу написать дешифратор текста в Turbo Delphi помогите не откажите сроки поджимают голова не варит вот вам пища для ума помогите если не сложна


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

Требуется написать программу для шифрования сообщений табличным шифром.

Пример: Для следующей таблицы

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

шифрованные фразы «езь» и «ьнеги» расшифровываются как “Кот” и “Буква”.

[AlDelta]

Поиск по форуму, было уже.

[Arkuz]

А что это Turbo Delphi? В 1 раз о таком слышу...

[Дикий]

А что это Turbo Delphi? В 1 раз о таком слышу...

аналогично... слышал о Pascal'е, слышал о Turbo Pascal'e, о Delphi... но Turbo Delphi энто что то новое... хотя кто его знает, прогресс не стоит на месте

[Serge_Bliznykov]

А что это Turbo Delphi?

А что - поисковики опять отменили?!
оф.сайт Turbo Explorer Home Page
вкратце - это обрезанная версия Borland Delphi RAD Studio (Delphi 2007).
Был в двух вариантах - бесплатный и Prof.
В бесплатном ряд ограничений (ну, например, нет компилятора командной строки, нельзя ставить дополнительные компоненты и др.). Скачать можно с оф.сайта.
Теперь продажа Prof версии прекращена.
Существуют программы, снимающие ограничения бесплатной версии...

[evg_m]

набросок алгоритма
записываем таблицу в одну строку
s:='мбеънйшлжьядиаысвоцфрупэгзктухщ ю';
и пищем другую строку аналогичную но со смещением 8 (число букв в строке исходной таблицы)
z:='жьядиаысвоцфрупэгзктухщюмбеънйш л';
теперь шфруем так
находим букву в впервой строке и берем букву из второй строки
расшифровка наоборот ищем во второй берем из первой