Suuri_alkuluku.jl

#Julia-ohjelma Suuri_alkuluku.jl
# Arpoo halutun bittipituuden kokoisen alkuluvun
# Juhani Kaukoranta 21.11.2019

using Random
rng = RandomDevice()
using Primes

function generateLargePrime(bitsize)
    # Arpoo suuren alkuluvun ja tarkistaa sen
    # Millerin-Rabinin testillä
    lo = big(2)^(bitsize-1)
    hi = big(2)^(bitsize)
    while true
		num = rand(rng,(lo : hi))
		arvaus_alkuluku = nextprime(num)
        if isprime(arvaus_alkuluku)
            return arvaus_alkuluku
        end
    end
end

println("Anna alkuluvun haluttu bittipituus, esim 256, 512,1024,2048 ")
input_txt = readline()
bittipituus = parse(BigInt,input_txt)
println("Suuri alkuluku = ",generateLargePrime(bittipituus))