Шифр замены, оптимизация

[evg_m]

Ну нет полученного символа в алфавите. И что? Это что меняет вообще???

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

не преследовал цель остаться в рамках алфавита.

это как бы основная задача шифрования, а не кодирования. (буквы ->числа, точки-тире(Морзе), .... )

[Алексей_2012]

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

[BDA]

Там был шифр Виженера (Вики: Шифр Виженера состоит из последовательности нескольких шифров Цезаря с различными значениями сдвига. Шифр Цезаря — это вид шифра подстановки, в котором каждый символ в открытом тексте заменяется символом находящимся на некотором постоянном числе позиций левее или правее него в алфавите.). А в этой теме рассматривается шифр простой замены, но, в принципе, все эти шифры очень близки как по сути так и по криптоустойчивости.

[Алексей_2012]

есть ли советы как сделать шифр более не предсказуемым? то есть допустим сдвигать второй алфавит правее на число length(shifr), а это число допустим записывать с начала новой строчки (пишу уже для текстового редактора) от 0 до richedit1.lines.count-1

[doktor255]

Вот написал простенькую функцию code

function TForm1.code(c: char; i: integer): char;
  const Alphabet = ' абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
  var n, p: integer;
begin
  result := c;
  p := pos(c, Alphabet);
  if p > 0 then 
    begin
      n := (p + i) mod length(Alphabet);
      if n < 1 then n := length(Alphabet) + n;
      Result := Alphabet[n];
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
  var i: integer;
  s: string;
begin
  s:= Edit1.Text;
  for i := 1 to Length(s) do
    s[i] := code(s[i], - Length(s));
  Showmessage(s);
  for i := 1 to Length(s) do
    s[i] := code(s[i], Length(s));
  Showmessage(s);
end;

Попробуй с ней поиграть. Обрати внимание, что на вход функции можно подать абсолютно любой параметр сдвига i (положительный, отрицательный, выходящий за размер Alphabet). В примере этот параметр я задаю отрицательной длиною входной строки. Меняй этот параметр на индекс цикла, сочетание индекса цикла с длиной строки и т.д. и получишь свой уникальный алгоритм шифрования. Так же плюс функции, что она не имеет исключений. Если символа нет в массиве Alphabet, возвращается исходный символ. Такой подход более правильный. И не советую применять функцию AnsiLowerCase, так ты теряешь информацию о регистре буквы.