Простое шифрование

[alex.snap]

Всем доброго времени суток, к завтрешнему дню нужно написать 3 шифра: Шифр Цезаря, Шифрование с периодическим ключом и лозунговый шифр. Почти работает шифр цезаря, но есть некие непонятные мне проблемы, про остальные шифры ничего вообще не знаю. Поиск в гугл ничего к хорошему не привел.
Помогите пожалуйста.

procedure TForm1.Button1Click(Sender: TObject);
var
alfa,x,y: string;
k,i: integer;
c: char;
begin
alfa := 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
if RadioGroup1.ItemIndex = 0 then
k:= StrToInt(Edit1.Text);
x := Memo1.Text;
for i := 1 to Length(x) do
  if Pos(x[i],alfa)<>0 then
  begin
  c:=alfa[(Pos(x[i],alfa)+k) mod length(alfa)];
  Memo2.Lines.Add(c);
  end;
//--------Конец шифра
end;

[waleri]

http://www.codeproject.com/Articles/...ion-Techniques

[alex.snap]

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

http://www.codeproject.com/Articles/...ion-Techniques

если честно то половину не понятно того что там написано. Если можно помогите найти на делфи шифры)

[BDA]

Меня заинтересовала эта тема, поэтому выкладываю свои наработки. Пока только шифр Цезаря. По идее, должен нормально работать (вроде все учел). Возможно появятся и остальные шифры

17:55 Update Шифрование с периодическим ключом - шифр Виженера вроде подходит на эту роль
19:00 Update Чуть изменены функции шифрования и появился незаконченный код лозунгового шифра
20:05 Update сделаны все 3 метода (последний метод не очень красиво реализован)

ПС Все требует тщательного тестирования, так как код пишется в реальном времени, а не берется уже отлаженный из закромов

[VIK_aka_TOR]

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

по возвращении домой с работы проверю тему... и возьмусь за "помощь"...

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

[alex.snap]

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

Меня заинтересовала эта тема, поэтому выкладываю свои наработки. Пока только шифр Цезаря. По идее, должен нормально работать (вроде все учел). Возможно появятся и остальные шифры

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

Поюзал вашего цезаря, работает на ура. вот только не могу понять что куда и зачем.. Не могли бы вы разъеснить сам алгоритм. Заранее спасибо.

Подскажите как можно улучшить код на первом посте?

[BDA]

function Caesar_cipher(str: string; way: integer; skey: string): string;
var
  s: string;
  i, t, key: integer;
begin
  key := strtointdef(skey, 0);//преобразуем строку в ключ - сдвиг
  if key = 0 then//неправильный сдвиг
  begin
    showmessage('Error: wrong key (only key contaning numbers and not equals zero)');
    result := str;
    exit;
  end;
  s := str;//подготавливаем строку для модификации
  if way > 0 then key := -key;//если будет производиться расшифровка, то меняем знак у ключа
  key := key mod lalp;//сдвиг должен быть меньше размера алфавита (выбрасываем лишние обороты по алфавиту)
  for i := 1 to length(str) do//идем по всем символам
  begin
    t := pos(str[i], alp);//находим позицию рассматриваемого символа в алфавите
    if t <> 0 then//если он есть в алфавите
      s[i] := alp[(t - 1 + key + lalp) mod lalp + 1];//самая сложная формула здесь :)
  end;
  result := s;//возвращаем шифрованный (расшифрованный) текст
end;

(t - 1 + key + lalp) mod lalp + 1
t - позиция в алфавите исходной буквы
-1 - из-за mod нужно так сделать (потом делается +1, это как раз одна и та же единица, которая вынесена из-под mod), этот момент не могу сходу объяснить
+key - сдвиг на ключ
+lapl - если t-1 малое число, а key отрицательное и большое, это слагаемое препятствует появлению отрицательных чисел


По-моему, лучше не улучшать (сорри за тафтологию) код из первого поста, а взять чью-нибудь реализацию, т.к. в вашей реализации очень много всего не учтено.

[alex.snap]

Ну если к примеру я возьму ваш код, то мне препод просто не поверит)
то что в первом посте он этот код сам использует и пропагандирует студентам. На паре написал шифровку цезаря, работала слабовато, по крайне мере четырех стишье Пушкина расшифровал) смотрел код программы препода у него почти такой же только он использует два алфавита отдельных как у вас, но не много по другому.. то что писал на паре увы забыл ):

[BDA]

Если преподаватель требует демонстрации, то можно схитрить.
Выбросить всю кучу проверок, но в голове держать список того, каким ключ не может быть, и не вводить такой ключ

[alex.snap]

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