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

Тема в разделе "Pascal and Delphi", создана пользователем opa95, 16 янв 2011.

  1. opa95

    opa95 Гость

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

    я начал его делать но в программировании я не давно и некоторые моменты ещё не изучил и возникли проблему с реализацией...
    вот что я написал :
    Код (Delphi):
    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- как улучшить уже написанную программу через процедру
     
Загрузка...

Поделиться этой страницей