//l=codrsa(mess,u,n) m:=12345701 n:=152415790094497781 decodrsa(l,m,n):={ local mess,s,a,j,b; s:=size(l); mess:=""; for (j:=0;j<s;j++){ b:=l[j]; a:=powmod(b,m,n); mess:=mess+ecritu256(a); } return(mess); };