rsa_dec.asv

RSA encrption algorithms

function RSA_DEC
format long
load('RSA','Cipher text','n','e');
maple('n1:=',n);
maple('e1:=',e);
%compute olar function .
Qn=olar(n);
maple('Qn1:=',Qn);
%compute private key
d=maple('(e1) &^(-1) mod (Qn1)');
d=str2double(d);
maple('d1:=',d);
 %%%%%%%%%%%%%%
 % Decryption %
 %%%%%%%%%%%%%%
plaintext=[];
for i=1:1:count
     maple('C1:=',Ciphertext(i));
     m=maple('(C1) &^(d1) mod (n1)');
     m=str2double(m);
     plaintext=[plaintext m];
end
fid=fopen('decmessage.txt','w');
fwrite(fid,plaintext);
fclose(fid);
open 'decmessage.txt';