де шифрование сообщения RSA

[Rumato]

Здравствуйте, реализую алгоритм RSA, шифрование - де шифрование, на последней стадии, когда нужно найти секретную экспоненту d, которая $e*d = 1mod(f(N))$, нахожу d, циклической подстановкой $e*d = F(N) * k + 1$
$k$ - нахожу перебором, условие выхода из цикла это $ res mod N = res$ Написал программу на питоне.

$res = e *d$

def delit(f):
    res, e, k = 2, 5, 2
    N = 23393
    while True:
        res = f * k + 1
        if res%N == res:
           return res/e
        k = k + 1

Цикл не прекращается, т.е. программа очень долго считает и ничего не выдаёт. Подскажите, пожалуйста в чём ошибка, Заранее благодарен.

-- Вс май 01, 2011 15:57:39 --

в коде программы написаны случайные числа, а вообще беру с методички.