RSA

[fawr]

бьюсь головой об стол с перерывами на обед...
вот код:

bool prost(int z)
{
        for(int i=2; i<=sqrt((float)z); i++)
                if(z%i == 0)
                        return false;
        return true;
}
 
int NOD(int a,int b)
{
        if(a==b)
                return a;
        else
                if(a>b)
                        return NOD(a-b,b);
                else
                        return NOD(b-a,a);
}
void __fastcall TForm2::FormCreate(TObject *Sender)
{
        int eler,proverka;
        bool flag=false;
        srand((unsigned)time(NULL));
        do
                p = rand()%99+2;
        while(!prost(p));
        do
                q = rand()%99+2;
        while(!prost(q));
        Label2->Caption = "p = "+IntToStr(p)+"; q = "+IntToStr(q)+"; ";
        n = p*q;
        eler = (p-1)*(q-1);
        do
        {
                do
                        e = rand()%99+2;
                while(e>eler);
                if(NOD(e,eler)==1)
                        flag=true;
        }
        while(flag==false);
        Label2->Caption = Label2->Caption + "e = "+IntToStr(e)+"; ";
        flag=false;
        do
        {
                do
                {
                        d = rand()%99+2;
                        proverka = (e*d)%((p-1)*(q-1));
                }
                while(proverka!=1);
                if(NOD(e,d)==1)
                        flag=true;
        }
        while(flag==false);
        Label2->Caption = Label2->Caption + "d = "+IntToStr(d)+";";
}

функция прост проверяет простое ли число
функция нод проверяет взаимнопростые числа или нет
и вот то ли я тупой, то ли не правильно понимаю описание этого алгоритма с википедии...
доходит до генерации Д и уходит в бесконечный цикл.
прошу помощи