Случайное перемешивание

[Opex911]

Всем доброго времени суток. Была поставлена задача некоторое сообщение зашифровать и потом расшифровать методом случайного перемешивания, или шифром перестановки,как я понял точного определения нет. НО, имеется суть так сказать задачи..Для начала есть некий алфавит ,состоящий из маленькиз букв английского алфавита,вроде по таблице ASCII это 97-122 элементы,образно S={a..z};
S'=mix(S);
далее вводим текст, буквы которого состоят из элементов строки S, то бишь все английское..Все элементы текста входят в множество S,вот так правильнее. Далее идет так: text'=crypt(S',text) то бишь как я понимаю, S' это некий ключ,если проводить аналогию с шифром цезаря..в итоге при помощи этого ключа мы шифруем наш текст перемешанным алфавитом и выводим полученный результат. В шифре цезаря используется функция сдвига, здесь же надо перемешивание..Можно все это распределить по файлам,например алфавит пихаем в один файл, перемешанный в другой, шифрованный и дешифрованный тексты в третьем,ну в общем на усмотрение..Собственно в той же программе сунуть дешифратор, text=decrypt(S',text') и вывести, и желательно чтобы не желе и фарш было на экране а цивильненько так, типа нажимая кнопочку один мы пишем текст
на 2 шифруем
на 3 смотрим получившийся результат
на 4 дешифруем
на 5 выход из программы
ну что-то можно объеденить.по усмотрению тут действовать можно)Чем проще будет написано,тем лучше)если бесплатно-вообще шикарно,а если за деньги-знайте меру)

[counter]

каковы сроки?

[VIK_aka_TOR]

у меня лаба была по защите информации.... шифрование табличным методом с одним ключевым словом... только здесь без расшифровки...

[Opex911]

все это желательно до субботы,я ценю вашу помощь и предложенную программу, но есть одна программа..я вижу код понимаю его-легко и доступно могу преподнести его другому человеку,но сам допетрить как и чего делается-не получается(

[VIK_aka_TOR]

духи совсем барзеют.... дуй во фриланс с такими запросами.... там помогут... уж наверняка...

[TinMan]

Эй, Орех - ты бы хоть язык упомянул бы для приличия что ли..

Прога на несколько строк, пишется в 6 сек. Из интересного вижу тут только получение ключа перемешиванием.

[Opex911]

фу ,блин,совсем забыл точно. Язык программирования Pascal

[TinMan]

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

фу ,блин,совсем забыл точно. Язык программирования Pascal

Вот тебе код, разбирайся и делай из него "не желе и фарш" )).

// encrypting with random permutations
// by TinMan, programmersforum.ru

var
  Key,Yek,s: string;
  i,j,AlphaLen: integer;
  c: char;

procedure Crypt(var s: string; k: string);
var
  i: integer;
begin
  for i:=1 to Length(s) do
    if s[i] in ['a'..'z'] then s[i]:= k[Ord(s[i])-Ord('a')+1]
end;

begin
  // create a random encryption key
  Randomize;
  Key:= 'abcdefghijklmnopqrstuvwxyz';
  AlphaLen:= Length(Key);
  for i:=AlphaLen downto 2 do begin
    j:= Random(i)+1;
    c:= Key[i];
    Key[i]:= Key[j];
    Key[j]:= c
  end;
  WriteLn('Encryption Key: ',Key);

  // enter text here
  s:= 'now, is the winter of our discontent made glorious summer by this sun of york!';
  Writeln('Clear text:');
  Writeln(s);

  // encrypting
  Crypt(s,Key);
  Writeln('Encrypted text:');
  Writeln(s);

  // creating the decryption key
  SetLength(Yek,AlphaLen);
  for i:=1 to AlphaLen do Yek[Ord(Key[i])-Ord('a')+1]:= Chr(i+Ord('a')-1);
  Writeln('Decryption Key: ',Yek);

  // decrypting
  Crypt(s,Yek);
  Writeln('Decrypted text:');
  Writeln(s);

  Readln
end.

[Opex911]

преогромнейшее спасибо)прям выручил)все шикарно)

[Opex911]

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