Шифрование по алгоритму RSA

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

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

Открытый ключ находится так(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.

[basker2007]

http://programmersforum.ru/showthrea...&highlight=RSA
ищи там мой ответ.