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

Обсуждение

давно
Старший Модератор
31795
6196
16.11.2020, 15:04
общий
это ответ
Здравствуйте, JonMoxley!

Смотрите код:
[code lang=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.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
Посетитель
403446
21
21.11.2020, 10:14
общий
Можно к этой программе сделать расшифровку
Форма ответа