matlab DES加密 直接复制运行.doc

《matlab DES加密 直接复制运行.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、%%这是个.m文件，直接赋值运行，密钥密文自己改%%===initialdata===%%===子密钥左移次数===LS=[1122222212222221];%%===importPC-1置换表===PC1=[57494133251791585042342618102595143352719113605244366355473931231576254463830221466153453729211352820124];%%===importPC-2置换表===PC2=[14171124153281562110231912426816727201324152313747553

2、04051453348444939563453464250362932];%%===importIPtable===IP=[58504234261810260524436282012462544638302214664564840322416857494133251791595143352719113615345372921135635547393123157];%%===importE-扩展表===E=[3212345456789891011121312131415161716171819202120212223242524252627282928293031321];%%

3、===importPtable===P=[1672021291228171152326518311028241432273919133062211425];%%===importIP逆置换表===IP_1=[40848165624643239747155523633138646145422623037545135321612936444125220602835343115119592734242105018582633141949175725];%%===importS-Box===S1=[1441312151183106125907015741421311061211953

4、841148136211151297310501512824917511314100613];S2=[1518146113497213120510313471528141201106911501471110413158126932151381013154211671205149];S3=[1009146315511312711428137093461028514121115113649815301112125101471101306987415143115212];S4=[7131430691012851112415138115615034721211014910690121

5、171315131452843150610113894511127214];S5=[2124171011685315130149141121247131501510398642111101378159125630141181271142136150910453];S6=[1211015926801334147511101542712956113140113891415528123704101131164321295151011141760813];S7=[4112141508133129751061130117491101435122158614111312371410156

6、805926111381410795015142312];S8=[1328461511110931450127115138103741256110149271141912142061013153582114741081315129035611];%%===inputdata===%key_in=input('请输入密钥（字符用单引号括起）：');%让用户输入%Text_in=input('请输入明文（字符用单引号括起）：');key_in='加密密钥'%在此输入你要加密的密钥，四个汉字Text_in='加密明文'%在此输入你要加密的明文，四个汉字%%===characters

7、converttobinary===key_in=unicode2native(key_in,'GB2312')%编码转换，把unicode转为GB2312Text_in=unicode2native(Text_in,'GB2312')key_in=dec2bin(key_in)%转换为二进制Text_in=dec2bin(Text_in)key='';Text='';len=length(key_in);fori=1:len%对二进制重新排版，排为一行key=[key,key_in(i,:)];Tex