[BoRoV]

Самому через FGInt реализовать, это несложно.

Код:

var
  n, d, e, m, c: TFGInt;
// m - сообщение, с - криптотекст
...
Инициализируем n, e(d), m(с)
...
// Шифровка
FGIntModExp(m, e, n, c);

// Дешифровка
FGIntModExp(с, d, n, m);