Написать 2 задачи по шифрованию

[Yaga]

Seqular, оставьте свой емайл!!!

[capta1n]

блин, ты такой куш по пятихатке всем сбил ппц - это же фриланс )) головой надо думать ))

[Эльмирчик (ms)]

а кто поможет мне??? Шифрование по алгоритму RSA.
Исходные данные: p=5, q=19, закрытый ключ Ks=31. Написать программу, реализующую вычисление открытого ключа Kp и шифрование открытым ключом следующей последовательности чисел: 1, 2, 4, 8, 33, 6, 21, 13, 7

[Эльмирчик (ms)]

Открытый ключ находится так(PascalABC):
Program RSA;
Var
p, q, r, fr, Kp, Ks, o: integer;
Begin
Write('Введите простое число p=');
readln(p);
Write('Введите простое число q=');
readln(q);
r:=p*q;
Write('Произведение двух простых чисел p и q равно r=',r);
fr:=(p-1)*(q-1);
Writeln('функция Эйлера f(r)='fr);
Write('Введите закрытый ключ Ks=');
readln(Ks);
Kp:=1;
begin
repeat Kp:=Kp+1 until (Kp*Ks) mod ((p-1)*(q-1))=1;
end;
Writeln('Открытый ключ Kp=',Kp);
End.

[Эльмирчик (ms)]

а дальше не могу.... :'(

[Seqular]

Ну дальше M' = M^Ks mod N (где N=P*Q)
Дешифровка так же M = M'^Kp mod N.

[Эльмирчик (ms)]

Сообщение от Seqular

Ну дальше M' = M^Ks mod N (где N=P*Q)
Дешифровка так же M = M'^Kp mod N.

ну это я понимаю, а как в Паскале это расписать?

[Seqular]

Ну если понимаешь, то нет разницы, какой язык программирования... Я вот в свое время пользовался вот такой функцией, которая возвращает результат: a^d mod m =

Function ModExp(a, d, m: LongInt): LongInt;
Var b: LongInt;
Begin
b := 1;
While (d > 0) do
      Begin
      If (d mod 2 = 0) then
         Begin
         d := d div 2;
         a := (a * a) mod m;
         End
      Else
         Begin
         Dec(d);
         b := (b * a) mod m;
         End;
      End;
ModExp := b;
End;

[airyashov]

есть готовое и 1 и 2 недорого
пишите
airyashov(а)inbox.ru
icq:3(один)7748666

[Yaga]

Ну, в принципе я уже нашел задачи, так что модераторам можно этот раздел закрывать.