modulus-phi ( numbits -- n phi )

Vocabulary

crypto.rsa.private

Inputs

numbits

an object

Outputs

n	an object
phi	an object

Definition

USING: kernel math math.primes ;

IN: crypto.rsa.private

: modulus-phi ( numbits -- n phi )
    dup rsa-primes [ * ] 2keep [ 1 - ] bi@ *
    dup public-key coprime? [ nipd ] [ 2drop modulus-phi ] if ;