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

[alex.snap]

Кстати заметил одну не точность в цезаре. Мне кажется что не должен шифровать маленькие буквы заглавными английскими)

[BDA]

Во-первых, есть кнопочка "Правка", чтобы не плодить кучу сообщений
Во-вторых, все зависит от того, какой алфавит использовать.
Я использую общий для всех букв и цифр.

Update код будет меняться в самом первом моем сообщении

[alex.snap]

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

procedure TForm1.Button1Click(Sender: TObject);
var
alfa,x,y: string;
k,i: integer;
c: char;
begin
if RadioGroup1.ItemIndex = 0 then
      begin
alfa := 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ' + 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
k:= StrToInt(Edit1.Text);
x := Memo1.Lines.GetText;
for i := 1 to Length(x) do
  begin
  if pos(x[i],alfa)<>0 then
    c:=alfa[(Pos(x[i],alfa)+k) mod length(alfa)]
  else c:=x[i];
  y:= y+c;
  end;
  memo2.Lines.Clear;
  Memo2.Lines.Add(y);
  Label2.Caption := 'Состояние шифровки: Метод цезаря успешно зашифрован!'
      end;
end;

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

[BDA]

Все же стоит делать -1 и +1.
Ошибка возникает, т.к. получается отрицательное число при расшифровке буквы ю.
Нужно, хотя бы так:

if pos(x[i],alfa)<>0 then
    c:=alfa[(Pos(x[i],alfa)-1+k+length(alfa)) mod length(alfa)+1]
  else c:=x[i];

Еще я брал остаток от деления на длину алфавита от ключа, чтобы уж точно не появилось отрицательных чисел.

[alex.snap]

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

Все же стоит делать -1 и +1.
Ошибка возникает, т.к. получается отрицательное число при расшифровке буквы ю.
Нужно, хотя бы так:

if pos(x[i],alfa)<>0 then
    c:=alfa[(Pos(x[i],alfa)-1+k+length(alfa)) mod length(alfa)+1]
  else c:=x[i];

Еще я брал остаток от деления на длину алфавита от ключа, чтобы уж точно не появилось отрицательных чисел.

Да вы правы, именно этих плюсиков и минусов не хватала.. при расшифровки надо писать

c:=alfa[(Pos(x[i],alfa)-1-k+length(alfa)) mod length(alfa)+1]

З.Ы. для тех кто возможно следит за темой..

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

[BDA]

Вы все же пропустили важное замечание о размере ключа. Для полной устойчивости нужно взять k=k mod length(alfa).
(т.е. в моей реализации сначала производятся все преобразования ключа, а затем уже идет шифрование/дешифрование текста)

[alex.snap]

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

Все таки я оставил, цезаря и не мучал его больше. Так как не нашел необходимости.. Сегодня шифр цезаря прошел проверку на ура) есть пару косяков, но они не с толь значительны, как были раньше..

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

[VIK_aka_TOR]

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