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

[Алексей_2012]

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

[BDA]

for i := 1 to k do
begin
    j := pos(shifr[i], rus);
    if j > 0 then
        result := result + rus1[j]
    else
    begin
        showmessage('FATAL ERROR');
        exit;
    end;
end;

[doktor255]

Сдвиг символов на n позиций, это самый элементарный и наименее защищённый алгоритм шифрования. Твой код действительно сильно громоздкий. Весь сдвиг можно осуществить буквально тремя строками кода, причём по всем символам, а не как у тебя, по выбранному диапазону символов. Смотри.

var s: string;
    i: integer;
begin
  s:= Edit1.Text; // загоняем текст из какого либо источника в string
  for i := 1 to Length(s)  do // в цикле
  s[i] := chr(ord(s[i]) + 1); //получаем порядковый номер символа, сдвигаем на нужное количество индексов, переводим обратно
  ShowMessage(s);//выводим результат

Обратный перевод делаем с точностью наоборот

s[i] := chr(ord(s[i]) - 1);

Пойдёт в качестве оптимизации?

[evg_m]

Весь сдвиг можно осуществить буквально тремя строками кода, причём по всем символам, а не как у тебя, по выбранному диапазону символов.

1. выход за пределы выбранного алфавита
ord('я')=$FF
chr($FF+1)=???
2.невозможно использовать алфавит из нескольких диапазонов
строчные + прописные + знаки препинания

[doktor255]

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

1. выход за пределы выбранного алфавита
ord('я')=$FF
chr($FF+1)=???

evg_m chr($FF+1) = Ā
Это называется юникод.

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

2.невозможно использовать алфавит из нескольких диапазонов
строчные + прописные + знаки препинания

Ни когда не слышал подобного бреда. Возможно использовать и строчные, и прописные, и знаки препинания. Чушь не пиши пожалуйста.

[Пепел Феникса]

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

evg_m chr($FF+1) = Ā
Это называется юникод.

лишь в юникодных Делфях.

[doktor255]

Есть повод изучать. Тем более коли речь идёт о шифровании.

[evg_m]

evg_m chr($FF+1) = Ā
Это называется юникод.

это называется выход за пределы шифруемого алфавита вне зависмости от системы кодировки!
полученного символа НЕТ в том алфавите для которого мы выполняем шифрование.
и исходный алфавит это вовсе не 0-$FF, а всего лишь символы: строчные и прописные, русские и английские.

[doktor255]

Ну нет полученного символа в алфавите. И что? Это что меняет вообще??? Я на 100% уверен что топикстартер не преследовал цель остаться в рамках алфавита.

[evg_m]

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

Невозможно отобразить шифрованный текст, поскольку это уже не текст а просто набор байтов.