Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > .NET Frameworks (точка нет фреймворки) > C# (си шарп)
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.01.2021, 10:40   #1
HoBuCHok
Новичок
Джуниор
 
Регистрация: 24.01.2021
Сообщений: 2
Восклицание ПОмогите перевести из Pascal в C#

Пробовал сам , но не могу понять как перевести некоторые моменты
Код:
var
  p, q, r, fr, e, d, m, c, s: int64;
  z:string;
  i:longint;
  a:array of int64;
function TPower(a,b,n: int64):int64;
Var i,k: int64;
begin
   k:=1; for i:=1 to b do k:=(k*a) mod n;
   TPower:=k;
end;
  
function Inverse(a, n: int64): int64;
var
  i: int64;
begin
  for i := 1 to N - 1 do if (a * i) mod N = 1 then break;
  Inverse := i;
  writeln('Закрытый ключ - ', i);
end;
 
begin
  Writeln('Введите p = ');
  Readln(p);
  Writeln('Введите q = ');
  Readln(q); 
  r := p * q;
  Writeln('Произведение двух простых чисел p и q равно r = ', r);
  fr := (p - 1) * (q - 1);
  Writeln('функция Эйлера f(r) = ', fr);
  Writeln('Введите открытый ключ e < fr, e = ');
  Readln(e);
  d := Inverse(e, fr);
  Writeln('Введите строку: ');readln(z);
  SetLength(a,length(z));
  Writeln('Зашифрованное сообщение: ');
  for i:=1 to length(z) do begin
    m:=ord(z[i]);
    a[i-1] :=  TPower(m,e,r);
    Write(a[i-1],' ');
  end;
  writeln;
  z:='';
  for i:=0 to length(a)-1 do
    z:=z+chr(TPower(a[i],d,r));
  writeln('Расшифрованное сообщение: ',z)  
end.

Последний раз редактировалось HoBuCHok; 24.01.2021 в 10:57.
HoBuCHok вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите пожалуйста перевести код с Pascal в С++ Z4belin Помощь студентам 1 21.06.2018 19:52
Помогите перевести задачу с pascal на с++ Galateya_Fox Помощь студентам 13 15.11.2017 21:20
Помогите пожалуйста перевести код с Pascal в Си Saruman! Фриланс 3 28.05.2017 23:13
Помогите перевести задачу с Turbo Pascal на C Katya2 Общие вопросы C/C++ 3 22.03.2014 21:25