RSA Шифрование

[Ericnex]

Добрый день! Есть ли у кого-нибудь хорошие исходники шифрования RSA на Delphi, реализующие следующий алгоритм:
Для начала необходимо сгенерировать открытый и секретные ключи:
Возьмем два больших простых числа p and q.
Определим n, как результат умножения p on q (n= p*q).
Выберем случайное число, которое назовем d. Это число должно быть взаимно простым (не иметь ни одного общего делителя, кроме 1) с результатом умножения (p-1)*(q-1).
Определим такое число е, для которого является истинным следующее соотношение (e*d) mod ((p-1)*(q-1))=1.
Hазовем открытым ключем числа e и n, а секретным - d и n.
Для того, чтобы зашифровать данные по открытому ключу {e,n}, необходимо следующее:
разбить шифруемый текст на блоки, каждый из которых может быть представлен в виде числа M(i)=0,1,2..., n-1( т.е. только до n-1).
зашифровать текст, рассматриваемый как последовательность чисел M(i) по формуле C(i)=(M(I)^e)mod n.
Чтобы расшифровать эти данные, используя секретный ключ {d,n}, необходимо выполнить следующие вычисления: M(i) = (C(i)^d) mod n. В результате будет получено множество чисел M(i), которые представляют собой исходный текст.

[f.hump]

ничего лучше, чем это, встречать не приходилось.

[Ericnex]

Не совсем то, хотелось бы что-нибудь без добавления дополнительных crypto-библиотек

[f.hump]

так там все исходники есть (что правда не на Delphi). при желании можно разобраться.

[SecretSilent]

только что писала такой проект на заказ, если интересует, пишите, можем обсудить небесплатный вариант