PollardRho.jl

# RSA-avaimen murtaminen: tulontekijöiden p ja q löytäminen
# Pollard Pho-menetelmällä
# Sopii suurillekin (yli 100 bit avaimille)
# Pääosa source: Pollard Rho algorithm - Wikipedia
# Juhani Kaukoranta, versio 4.9.2019
# Julia ohjelma: PollardRho.jl

function PollardRho(n)
    x, y, p = 2, 2, 1
    f(x) = mod(x^2+1, n)
    while p == 1
        x = f(x)
        y = f(f(y))
        p = gcd(abs(x-y),n)
    end
    if p == n
        println( "Ei tekijöitä, avain alkuluku tms")
    else
        q = div(n,p)
        println("Luvun ",n," tekijät:")
        println(p," ja ",q)
    end
end
time0 = time()
PollardRho(big(901034073179246410820309035297))
time1 = time()
print("Aikaa kului ",time1-time0," sekuntia")