數學實驗課件 第12章12.3

12.3MATLAB求解C

=char(A)

將數組

A

轉換為字符數組

從32到127的整數對應于可打印的ASCII字符.ASCII字符表中65到90的整數代表大寫字母A到Z（見表12-3）.序號分組密文密文表值明文表值分組明文1WK2311721GU2VA22149DI3CP316114AN4E513M

A19I5O1513M

C31A6I919S

X248H7G79I

W2325Y8I99I

Z00Z9U219I

R186F10O1521U

Q1723W11W235E

A19I表12-3分組明文12BA210J

19I13L122B

O155E14H814N

D410J15K119I

C31A16E513M

A19I17F64D

C31A18L1214N

W2325Y19W2321U

C31A20V2214N

L124D21E55E

M1313M22I99I

M1313M23C31A

C31A例12.3字符函數char舉例.>>A=[776584766566];>>C=char(A)C='MATLAB'>>whosCNameSizeBytesClassAttributesC1x612char>>a='Hello,World';>>double(a)ans=列1至9721011081081114487111114列10至11108100例12.4加密過程可以通過MATLAB編程直接得到密文，程序如下：m=26;enmat=[12;03];ZERO=64;c=[];e1=[];astr=input('輸入要加密的明文文字(全部為大寫字母)：')whileany(double(astr)>90|double(astr)<65)astr=input('輸入錯誤，應該全部為大寫字母：')enda1=double(astr);lh=length(a1);ifmod(length(a1),2)==1a1=[a1,a1(length(a1))];enda1=a1-ZERO;fori=1:length(a1)ifa1(i)==26a1(i)=0;endendc=reshape(a1,2,length(a1)/2);d1=mod(enmat*c,m);e1=reshape(d1,length(a1),1);e1=e1';e1=e1+ZERO;fori=1:length(e1)ife1(i)==64e1(i)=90;endende1=e1(1:lh);char(e1)%將e1的每個數值轉換為字符例12.5

解密過程可以通過MATLAB編程直接得到原文，程序如下：m=26;enmat=[1,2;0,3];demat=[1,8;0,9];ZERO=64;c=[];e1=[];astr=input('輸入要解密的密文文字（全部為大寫字母）：')while

any(double(astr)>90|double(astr)<65)

astr=input('輸入錯誤，全部應該為大寫字母：')enda1=double(astr);lh=length(a1);if

mod(length(a1),2)==1

a1=[a1,a1(length(a1))];enda1=a1-ZERO;for

i=1:length(a1)

if

a1(i)==26

a1(i)=0;

endendc=reshape(a1,2,length(a1)/2);d1=mod(demat*c,m);e1=reshape(d1,length(a1),1);