rsa_decryption.m

来自「This program applies Message Digest MD5 」· M 代码 · 共 30 行

%========================================================================
% STEP3: DECRYPTION 
%========================================================================
% Empty array where deciphered data will be stored
decipheredData=[];
cipheredData=xlsread('CipheredData.xlsx');
%cipheredData=double(cipheredData);
[m2,n2]=size(cipheredData);
% First for loop scans all data blocks
% rows loop: each row represents a block of data
 for i=1:m2
    % ciphered block is stored here at every loop
    decipheredBlock=[];
% Second for loop applies ciphering on each block of data
% columns loop
    for j=1:1:n2 
     maple('cipheredData:=',cipheredData(i,j));
     decipheredByte=maple('(cipheredData) &^(d) mod (n)');
     decipheredByte=str2double(decipheredByte);
     decipheredBlock = [decipheredBlock char(decipheredByte)];
    end
 decipheredData = [decipheredData; decipheredBlock];
 end
%decipheredData=decipheredData';
%decipheredData=decipheredData(:);
%decipheredData=decipheredData';
xlswrite('DecipheredData.xlsx',decipheredData);
%disp('Deciphered Data:') 
%disp(char(decipheredData))
% End of program