dakishimete Сообщение 23/10/2011 20:33 Копия темы
Шифр цезаря Ребята, кто в делфи может помочь?
Пишу я тут курсач, и дешифрует у меня косячно. Напишите мне в личку плз.
Чота глухо, пойду спать, но вопрос актуален.
Модератору – чойта проекты-то? вопрос по программированию небольшой, просто не хочу выкладывать код.

jenner247450 Сообщение 23/10/2011 21:46 Копия темы
ну и? цезарь – это алфавит, который сдвинут. 
шифрование – сдвиг, дешифрование – обратный сдвиг. что такого сложного?

alex1153 Сообщение 24/10/2011 04:14 Копия темы
покажи код, который шифрует, напишем тебе дешифратор )  Дельфи не исповедую, синтаксис не знаю

Quartz Сообщение 24/10/2011 04:22 Копия темы
:D
Алешка шикарен)

alex1153 Сообщение 24/10/2011 04:23 Копия темы
скорее ленив )

Polyackoff Сообщение 30/10/2011 23:32 Копия темы
написал за 5 минут, но по моему такой программы для курсовой маловато ))) вот процедура

function Caesar(const Data: String; const Change: Integer): String;
  function Calc(C: Char): Char;
  var B: Byte;
  begin
    B := Ord(C) + Change;
    if B > 255 then B := B – 255 else if B < 0 then B := B + 255;
    Result := Char(B);
  end;
var i: integer;
begin
  for i := 1 to Length(Data) do Result := Result + Calc(Data[i]);
end;

Polyackoff Сообщение 30/10/2011 23:32 Копия темы
пример использования var
  S:  String;
begin
  S := 'Тест';
  // Кодируем
  S := Caesar(S, 20);
  // декодируем
  S := Caesar(S, -20);
end;