MATLAB_Hilln密码程序(包括加密、解密及破译三个环节)实验报告书

数模实验一

实验内容：用MATLAB实现Hilln密码程序（包括加密、解密及破译三个环节） 一实验目的

实现Hilln密码体系的关键环节（加密、解密、破译） 二 预备知识

熟悉mod、det、find等Matlab命令 三 实验内容与要求

（1）假设加密矩阵为A=??03??，用

???12?MATLAB编制程序，加密下面一

段明文：SHUXUEJIANMOJINGSAI 命令 function hill() %输入密钥 disp('输入密钥(矩阵)的维数'); n=input(''); disp('输入密钥(矩阵,按行输入)'); key=zeros(n,n); for j=1:n for k=1:n key(j,k)=input(''); end end 结果 IXQTEOBACPQSBABUUCAA 1

d=det(key);%求矩阵的行列式 if d==0%判断矩阵是否可逆 error('密钥矩阵不可逆，无法实现Hill密码'); end %输入明文 message=input('输入明文 \\n','s'); m=size(message); m=m(2); if mod(m,n)~=0 error('输入错误，明文长度应为矩阵维数的倍数'); end for i=1:m if message(i)>='A' && message(i)<='Z' message(i)=message(i)-64; else error('输入错误，应该输入字母'); end end %加密 2

i=1; while i26 A(i)=mod(A(i),26); end A(i)=A(i)+64; end str=char(A); fprintf('密文为%s',str) （2）假设加密矩阵为A=??11??，用MATLAB编制程序，解密下面一?03?段密文：AXSTZOSAOPBSTKSANKOPSAHAUUNSUUAKGAUZCKOPDO 命令 function hill2() %输入密钥 disp('输入密钥(矩阵)的维数'); n=input(''); 结果 YTMHOSTCEVUEEGTC YGEVTCICPKGEPKLG HCU@NGEVSS 3

disp('输入密钥(矩阵,按行输入)'); key=zeros(n,n); for j=1:n for k=1:n key(j,k)=input(' '); end end d=det(key);%求矩阵的行列式 if d==0%判断矩阵是否可逆 error('密钥矩阵不可逆，无法实现Hill密码'); end %输入密文 message=input('输入密文 \\n','s'); m=size(message); m=m(2); if mod(m,n)~=0 error('输入错误，密文长度应为矩阵维数的倍数'); end for i=1:m if message(i)>='A' 4

&&message(i)<='Z' message(i)=message(i)-64; else error('输入错误，应该输入字母'); end end %r1为d的逆 while d>26 d=mod(d,26); end switch d case 1 r1=1; case 3 r1=9; case 5 r1=21; case 7 r1=15 case 9 r1=3; case 11 5