RSA_CRT

can anyone help me to correct this code this code is for rsa_crt alogorithm but it is not givivng correct answer..and i m not able to claculate 'e' using for loop..

p=vpi(17);
q=vpi(7);
n=vpi(p*q);
phi=vpi((p-1)*(q-1));
e=vpi(5);
d=minv(vpi(e),phi);
dP=minv(vpi(d),p-1);
dQ=minv(vpi(d),q-1);
qlnv=minv(vpi(q),p);
m=vpi((input('enter msg=')));
vpi(disp(m));
mP=powermod(vpi(m),dP,p);
mQ=powermod(vpi(m),dQ,q);
h=mod(vpi(qlnv*(mP-mQ)),p);
Sig=vpi(mQ+h*q);
mm=powermod(vpi(Sig),e,n);
vpi(disp(mm))


thanks in advance.