НОД в Delphi

[AnK0r]

Уважаемые, подскажите плз, как в делфи можно узнать наибольший общий делитель?

[AlDelta]

http://programmersforum.ru/showthrea...E8%F2%E5%EB%FC

P.S.: Поиск по форуму, ключ - наибольший общий делитель

[AnK0r]

Я хочу реализовать шифрование RSA, мне нужно
1. Сгенерировать число d;
2. Проверить являются ли числа d и (p*q) взамнопростыми;
3. Если НОД(n,d)=1 то хорошо иначе переходим к 1.
Вот только не знаю как это сделать.

[AnK0r]

Всем ОГРОМНОЕ спасибо, нашел ответ:

...

p := 3; q := 11;
n := p * q;

...

//Генерация d и проверка является ли НОД(n,d)=1
while a <> 1 do
begin
   d := Random(1000);
   a := n; b := d;
   //Нахождение НОД(n,d)
   c := b; b := a; a := c;
   repeat
      c := a mod b;
      a := b; b := c;
   until b = 0;
end;

...