Question: Code don't work plz help

Can someone please help me on this. I am trying to decode the List [1,128,130]  to get the original list [ 1,2,3] but my program gives me [1, 32,0]. What did i do wrong and how can i get it to give the original list [1,2,3]?

 

 

 

restart:
p:=11:
q:=17:
n:=p*q:

n;
                                     187
L:=[1,2,3]:
F:=(n,e,L)->map(x->x^e mod n,L):
g:=F(187,7,L);

                              g:=  [1, 128, 130]

e:=7:
w:=11:
v:=17:
s:=(p-1)*(q-1);
with(numtheory):
y:=phi(s);

                                     160
                                     64
x:=e^(y-1);
           174251498233690814305510551794710260107945042018748343

igcdex(160, 7, 's', 't'):
s;
z:=t;
                                     
                                          -1
                                  z:=   23

 

o:=map(e->e^z mod n, g);
                                 [0, 0, 0]
 

Please Wait...