#DIFFIE HELLMAN KEY EXCHANGE PROTOCOLp=random_prime(10^200,10^300)# a random prime between these numberspq=mod(primitive_root(p),p)# makes the primitive root a number modulo p, not an integerqn=randint(10^15,p)# Alice's random numberm=randint(10^14,p)# Bob's random numbernm