Шифрование методом Цезаря

11.04.2013, 21:26. Показов 1562. Ответов 0

Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам

Подскажите, пожалуйста, почему со сдвигом 1,2 и 3 шифрует нормально, а с 4, 5 и дальше - по одной только строчке текста, иногда не все буквы зашифровывает

Delphi

procedure TCezarF.BitBtn8Click(Sender: TObject);
var i,o,ofset: integer;
    str, rez:string;
    x:char;
   begin
       rez:='';
str:=Memo1.Lines.Text;
  ofset:=strtoInt(edt1.Text);
         for i:=1 to length(str) do
        begin
        o:=ord(str[i])+ofset;
        if o > 256 then dec(o, 256);
        x:=chr(o);
          rez:=rez+x;
          end;
          Memo2.Text:=rez;
              end;

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

11.04.2013, 21:26

Ответы с готовыми решениями:

Шифрование методом сдвига (Шрифт цезаря)
Доброго времени суток)). Ребят нужна срочная помощь, нужно написать программу для...

Шифрование методом Цезаря/простого перемещения/двойного перемещения/простой замены
Всем привет, так случилось что мне задали за пару дней сделать программу шифрования и дешифрования...

Шифрование текста (методы Атбаш и Цезаря)
Помогите плиз решить задачку на Delphi. Составьте программу для шифрования текста методом Атбаш...

Шифрование. Метод аффинных подстановок Цезаря.
Программа должна шифровать текст из текстового файла и выводить ответ в выходной текстовый файл....

	11.04.2013, 21:26

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

11.04.2013, 21:26

Помогаю со студенческими работами здесь

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

Расшифровка сообщения методом цезаря
Дешифровать сообщение, зашифрованное методом Цезаря, если известно, что буква «X» шифротекста,...

Нужна программка "Шифрование/дешифрование система Цезаря с ключевым словом"
Особенностью этой системы является использование ключевого слова для смещения и изменения порядка...

Шифрование методом сдвига
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх