Сортировка псевдослучайным перемешиванием, Нужен код программы Опции

[Денис 1988]

Всем доброго здравия, нужна программка,на Turbo Pascal. Надо реализовать программу шифратор текста и использованием перемешанного алфавита. Грубо говоря есть алфавит,мы выводим его на экран и вводим предложение/слово, далее следует перемешивание алфавита и шифрация нашего предложения/слова в соответствии с перемешанным алфавитом. Далее в той же программе,реализовать программу дешифратор, с использованием перемешанного алфавите в качестве ключа..как бы первая часть программы не вызывает затруднений,но все равно хотелось бы увидеть ваши мысли по этому поводу, так как у каждого разная фантазия-мышление) Вся проблема в реализации дешифровки..Желательно написать программу более примитивным чтоли языком..ибо на таком уровне я смекаю ,что к чему..Желательно к вечеру пятницы,получить уже хоть какой-нибудь материал.

Заранее спасибо.
С уважением,Денис

[TarasBer]

Заводим тип-алвафит:

type ab = 'A'..'Z'; // сюда любой диапазон можно задать

название такое от слова "alphabet", сокращено, так как его надо будет часто писать

Заводим два вспомогательных массива для шифровки и дешифровки:

NormToShuffled, ShuffledToNorm: array [ab] of ab;

Составляем перемешанный массив:

for c := Low(ab) to High(ab) do NormToShuffled[c] := c;
for c := High(ab) downto succ(Low(ab)) do begin  // цикл вниз от последнего символа (включительно) до первого (невключительно)
  d := ab(random(integer©-integer(Low(ab))+1)+Low(ab)); // случайный символ от Low(ab) до c включительно
  tmp := NormToShuffled[c];                        // меняем местами элементы на c и на d местах
  NormToShuffled[c] := NormToShuffled[d];
  NormToShuffled[d] := tmp;
end;

Как с его помощью шифровать - понятно?
Для составления аналогичного массив для дешифрации пишем так:

for c := Low(ab) to High(ab) do
  ShuffledToNorm[NormToShuffled[c]] := c;

Как это работает - сам разберись.