Лидеры рейтинга

ID: 226425

Konstantin Shvetski

Мастер-Эксперт

947

Россия, Северодвинск


ID: 259041

Алексеев Владимир Николаевич

Мастер-Эксперт

512

Россия, пос. Теплоозёрск, ЕАО


ID: 401284

Михаил Александров

Академик

354

Россия, Санкт-Петербург


ID: 137394

Megaloman

Мастер-Эксперт

312

Беларусь, Гомель


ID: 400669

epimkin

Профессионал

191


ID: 400484

solowey

Профессор

71


ID: 401888

puporev

Профессор

53

Россия, Пермский край


8.1.6

02.01.2021

JS: 2.2.2
CSS: 4.2.0
jQuery: 3.5.1


 

Создание программ на языках Pascal, Delphi и Lazarus.

Администратор раздела: Зенченко Константин Николаевич (Старший модератор)


Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 269
Gluck
Статус: 6-й класс
Рейтинг: 263
puporev
Статус: Профессор
Рейтинг: 53
 

Перейти к консультации №:
 

Консультация онлайн # 199606
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: JonMoxley (Посетитель)
Дата: 15.11.2020, 10:13
Поступило ответов: 1

Уважаемые эксперты! Пожалуйста, ответьте на вопрос:Помогите сделать шифрование методом АФИННАЯ СИСТЕМА ПОДСТАНОВОК ЦЕЗАРЯ. и чем быстрее тем лучьше!!! программа должна быть на паскале

Состояние: Консультация закрыта

Здравствуйте, JonMoxley!

Смотрите код:

Код (Pascal) :: выделить код
const
  m=26;
var
  a,b,c:integer;
  n:array[0..m-1]of integer;
  s:string;
begin
  a:=3;
  b:=5;
  for c:=0 to m-1 do n[c]:=(a*c+b)mod m;
  writeln;
  write('Enter string:=');
  readln(s);
  s:=UpperCase(s);
  for c:=1 to length(s)do
    if s[c] in ['A'..'Z']then s[c]:=chr(ord('A')+n[ord(s[c])-ord('A')]);
  writeln('Code string:=',s);
end.

Удачи!


Консультировал: Зенченко Константин Николаевич (Старший модератор)
Дата отправки: 16.11.2020, 15:04

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Мини-форум консультации № 199606

JonMoxley

Посетитель

ID: 403446

1

= общий = |  21.11.2020, 10:14 |  цитировать |  профиль |  личное сообщение

Можно к этой программе сделать расшифровку

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