RSA algorithm for image encryption

clc;

clear all;

format longE

disp('RSA algorithm');

p=input('Enter the prime no. for p: ');%23

q=input('Enter the prime no. for q: ');%13

n=p*q;

fprintf('\n n=%d',n);

phi=(p-1)*(q-1);

fprintf('\n phi(%d) = %d',n,phi);

e=input('\n Enter the value for e relatively prime to phi:');%23

%% find inverse for e

for d=1:phi

f=mod(e*d,phi);

if f==1

break

end

end

c=[2 254 123;214 231 189;241 253 3]% image matrix

A=[];

B=[];

%% cipher image

for i=1:3

for j=1:3

A(i,j)=mod(c(i,j)^(e),n);

end

end

%% decrypted image

for i=1:3

for j=1:3

B(i,j)=mod(A(i,j)^(d),n);

end

end

[Ameer Hamza]

This question might not be appropriate for this forum: https://www.mathworks.com/matlabcentral/answers/438831-is-discussion-of-cryptography-allowed