Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
djack
0 / 0 / 0
Регистрация: 19.05.2017
1

Шифрование методом Цезаря/простого перемещения/двойного перемещения/простой замены

05.12.2014, 15:31. Просмотров 835. Ответов 2
Метки нет (Все метки)

Всем привет, так случилось что мне задали за пару дней сделать программу шифрования и дешифрования инф. На Делфи время ни очень мало, + на Делфт не работал никогда. Может у кого то завалялась простая террора имеет по такой теме?

Шифрование методом цезаря/простого перемещения/двойного перемещения/просто замены

Будут очень благодарен

Добавлено через 16 минут
Очень много ошибок. Эх этот телефон ;(
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.12.2014, 15:31
Ответы с готовыми решениями:

Шифрование/дешифрование файла методом простой замены
Плз очень нужна программа на Delphi (способ перестановки символов при ключе...

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

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

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

Шифрование текста методом табличной замены
Способ шифрования текста состоит в табличной замене каждого символа другим...

2
NotBeginner
170 / 157 / 71
Регистрация: 22.02.2013
Сообщений: 1,770
Записей в блоге: 2
05.12.2014, 15:32 2
вот посмотри
0
Алекcей
349 / 343 / 135
Регистрация: 11.12.2013
Сообщений: 1,859
05.12.2014, 15:38 3
Лучший ответ Сообщение было отмечено как решение

Решение

вот функции шифрования и дешифрования методом цезаря
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
const
  n = 3;
 
function CaesarEncipher(toCode: string): string;
var i, T: integer;
begin
  for i := 1 to length(toCode) do begin
  T := (Ord(toCode[ i ]) + n);
  if T >= 256 then dec(T, 256);
  toCode[ i ] := Chr(T);
  end;
  CaesarEncipher := toCode;
end;
 
function CaesarDecipher(toDecode: string): string;
var i, T: integer;
begin
  for i := 1 to length(toDecode) do begin
  T := (Ord(toDecode[ i ]) - n);
  if T < 0 then Inc(T, 256);
  toDecode[ i ] := Chr(T);
  end;
  CaesarDecipher := toDecode;
end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.12.2014, 15:38

Шифрование строки методом циклической замены
Дана строка - предложение на украинском языке и число k (0 &lt; k &lt; 10)....

Программа шифрования и дешифрования файла методом простой замены
Очень нужно написать программу шифрования и дешифрования файла методом простой...

Шифрование текста методом простой подстановки - оптимизировать код
вроде правильно сделала, но препад попросил укоротить программный код в бтн 1 и...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru