(* Your goal is to find testMessage *)
(* testMessage=RandomPrime[{10^1000,10^1050}]; *)

(* encryptions=Table[PowerMod[testMessage,7,Ns[[i]]],{i,1,7}] *)

encryptions = {,,,,,,};

Ns={,,,,,,};

e=7;