Помогите с алгоритмом Rsa на Pascal

  • Автор темы opa95
  • Дата начала
O

opa95

#1
Всем привет , помогите реализовать алгоритм rsa на pascal :)

я начал его делать но в программировании я не давно и некоторые моменты ещё не изучил и возникли проблему с реализацией...
вот что я написал :
Код:
program rsa;
uses crt;
var m,p,q,z,n,c,b : longint;
i,i1,k,k1: integer;
begin
clrscr;
writeln (' 1 этап - поиск простых p и q');
readkey;
while k <> 2 do 
begin 
randomize;
p:=random (35405-10000+1)+10000;
if (p mod 2)=0 then continue
else		 begin 
k:=0
for i:=1 to p do
if (p mod i)= 0 then k:=k+1;
end;
end;
writeln ('p - ');
c:=99999;
b:=50000;
while k1 <> 2 do 
begin 
randomize;
q:=random (c-b+1)+b;
if (q mod 2)=0 then continue
else		 begin 
k1:=0
for i1:=1 to p do
if (q mod i1)= 0 then k1:=k1+1;
end;
end;
writeln ('q - ',q);
readkey;
writeln ('2 этап вычесление n');
readkey;
n:=p*q;
writeln ('n - ',n);
readkey;
writeln ('3 этап поиск функции эйлера');
readkey;
m:=(p-1)*(q-1);
writeln('m - ',m);
readkey;
и всё ((( я застрял Помогите дописать пожалуйста и ответь на вопросы дурака))
1 можно ли увеличить числа , скажем не 2 ^ 31 -1 а больше???
2- как улучшить уже написанную программу через процедру