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

04.06.2012, 16:18. **Показов** 4411. **Ответов** 1

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

Помогите написать код для приложения, который бы выплнял Шифр Цезаря, пожалуйста

@PolarFoG · 04.06.2012, 19:46

Помогаю...
Я так понял шифровать будем кириллицу.
Нам понадобится 1 TUTF8Char, 1 array [1..33] of TUTF8Char, и 3 string (ну ещё пара word'ов).
Запихиваем в массив русский алфавит, примерно так...

Pascal

1 2	S:='абвгдеёжзийклмнопрстуфхцчшщъыьэюя'; for i:=1 to 33 do Ms[i]:=s[(i2)-1]+s[i2];

Затем, в цикле от 1 до UTF8Length(S1) (S1 шифруемый текст) забирая из Memo (ну или Edit) по 2 байта кидаем их в TUTF8Char. Сравниваем TUTF8Char с массивом и находим номер элемента... Шифруем его и получаем номер закодированного символа. С помощь всё того же массива прибавляем к S2 (строка с закодированным текстом). Выводим шифровку.

Дешифровка почти то же.

Пробуйте

Fish78
		1
	Шифрование методом Цезаря 04.06.2012, 16:18. Показов 4411. Ответов 1 Метки нет (Все метки) Помогите написать код для приложения, который бы выплнял Шифр Цезаря, пожалуйста

	04.06.2012, 19:46

Опции темы