ciphertexts.m

古典密码学中的一些实现加密的算法

%
%
vvhq=['vvhqwvvrhmusgjgthkihtssejchlsfcbgvwcrlryqtfsvgahwkcuhwauglq', ...
   'hnslrljshbltspisprdxljsveeghlqwkasskuwepwqtwvspgoelkcqyfnsv', ...
   'wljsniqkgnrgybwlwgoviokhkazkqkxzgyhcecmeiujoqkwfwvefqhkijrc', ...
   'lrlkbienqfrjljsdhgrhlsfqtwlauqrhwdmwlgusgikkflryvcwvspgpmlk', ...
   'assjvoqxeggveyggzmljcxxljsvpaivwikvrdrygfrjljslveggveyggeia', ...
   'puuisfpbtgnwwmuczrvtwglrwugumnczvile'];


ycve=['ycvejqwvhqtdtwvwu'];
lcll=['lcllewljazlnnzmvyiylhrmhza'];
edsg=['edsgickxhuklzveqzvkxwkzukcvuh'];
tcab=['tcabtiqmfheqqmrmvmtmaq'];
xkju= ['xkjurowmllpxwznpimbvbqjcnowxpcchhvvfvsllfvxhazityxohulxqojaxelx', ...
     'zxmyjaqfstsrulhhucdskbxknjqidallpqslluhiaqfpbpcidsvcihwhwewthbt', ...
     'xrljnrsncihuvffuxvoukjljswmaqfvjwjsdyljogjxdboxajultucpzmpliwml', ...
     'ubzxvoodybafdskxgqfadshxnxehsaruojaqfpfkndhsaafvulluwtaqfrupwjr', ...
     'szxgpfutjqiynrxnyntwmhcukjfbirzsmehhsjshyonddzzntzmplilrwnmwmlv', ...
     'uryonthuhabwnvw'];

ocwy=['ocwyikoooniwugpmxwktzdwgtssayjzwyemdlbnqaaavsuwdvbrflauplooubfgq', ...
    'hgcscmgzlatoedcsdeidpbhtmuovpiekifpimfnoamvlpqfxejsmxmpgkccaykwf', ...
    'zpyuavtelwhrhmwkbbvgtguvtefjlodfefkvpxsgrsorvgtajbsauhzrzalkwuow', ...
    'hgedefnswmrciwcpaaavogpdnfpktdbalsisurlnpsjyeatcuceesohhdarkhwot', ...
    'ikbroqrdfmzghgucebvgwcdqxgpbgqwlpbdaylooqdmuhbdqgmyweuik'];

hdsf=['hdsfgvmkoowafweetcmfthskucaqbilgjofmaqlgspvatvxqbiryscpcfrmvsw', ...
      'rvnqlszdmgaoqsakmlupsqforvtwvdfcjzvgsoaoqsacjkbrsevbelvbksarls', ...
      'cdcaarmnvrysywxqgvellcyluwwveoafgclazowafojdlhssfiksepsoywxafo', ...
      'wlbfcsocylngqsyzxgjbmlvgrggokgfgmhlmejabsjvgmlnrvqzcrggcrghgeu', ...
      'pcyfgtydycjkhqluhgxgzovqswpdvbwsffsenbxapasgazmyuhgsfhmftayjxm', ...
      'wznrsofrsoaopgauaaarmftqsmahvqecev'];

sci=['themethodusedforthepreparationandreadingofcodemessagesissimplei', ...
     'ntheextremeandatthesametimeimpossibleoftranslationunlessthekeyi', ...
     'sknowntheeasewithwhichthekeymaybechangedisanotherpointinfavorof', ...
     'theadoptionofthiscodebythosedesiringtotransmitimportantmessages', ...
     'withouttheslightestdangeroftheirmessagesbeingreadbypoliticalorb', ...
     'usinessrivalsetc'];

vvhq=['vvhqwvvrhmusgjgthkihtssejchlsfcbgvwcrlryqtfsvgahwkcuhwauglqhns', ...
      'lrljshbltspisprdxljsveeghlqwkasskuwepwqtwvspgoelkcqyfnsvwljsni', ...
      'qkgnrgybwlwgoviokhkazkqkxzgyhcecmeiujoqkwfwvefqhkijrclrlkbienq', ...
      'frjljsdhgrhlsfqtwlauqrhwdmwlgusgikkflryvcwvspgpmlkassjvoqxeggv', ...
      'eyggzmljcxxljsvpaivwikvrdrygfrjljslveggveyggeiapuuisfpbtgnwwmu', ...
      'czrvtwglrwugumnczvile'];



L100= [1, 0, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, ...
       0, 1, 0, 0, 0, 1, 1, 1, 1, 0, 1, 1, 0, 0, 1, 1, 1, 1, 1, 0, 1, 0, ...
       1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 0, 0, 0, 1, ...
       1, 0, 1, 1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, ...
       1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0];

L011= [0, 1, 1, 0, 0, 0, 1, 0, 1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, ...
      0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 1, 0, 1, 1, 1, 0, 0, 1, ...
      1, 1, 0, 1, 0, 1];

L101= [1, 0, 1, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, ...
      1, 1, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 1, 1, 1, 0, 0, 1, 0, 1, 0, 1, ...
      0, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 0, 1, ...
      0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 1, 0, ...
      0, 0];


gaat=['GAATTCGCGGCCGCAATTAACCCTCACTAAAGGGATCTCTAGAACT'];

zirk=['zirkzwopjjoptfapuhfhadrq'];



% Chapter 16

hammingpc=[  0  0  0  0  1  1  1  1  1  1  1 1  0  0  0;
  1  1  1  0  0  0  0  1  1  1  1 0  1  0  0;
  0  1  1  1  0  1  1  0  0  1  1 0  0  1  0;
  1  0  1  1  1  0  1  0  1  0  1 0  0  0  1];

golay=[1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,1,1,1,0,0,0,1, ...
    0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,1,1,0,1,1,1,0,0,0,1, ...
    0,0,1,0,0,0,0,0,0,0,0,0,1,1,0,1,1,0,1,1,1,0,0,0,0,0, ...
    0,1,0,0,0,0,0,0,0,0,1,0,1,0,1,1,0,1,1,1,0,0,0,0,0,0, ...
    1,0,0,0,0,0,0,0,1,0,0,1,0,1,1,0,1,1,1,0,0,0,0,0,0,1, ...
    0,0,0,0,0,0,1,0,0,0,1,0,1,1,0,1,1,1,0,0,0,0,0,0,1,0, ...
    0,0,0,0,1,1,0,0,0,1,0,1,1,0,1,1,0,0,0,0,0,0,0,1,0,0, ...
    0,0,1,1,1,0,0,0,1,0,1,1,0,1,0,0,0,0,0,0,0,0,1,0,0,0, ...
    1,1,1,1,0,0,0,1,0,1,1,0,0,0,0,0,0,0,0,0,0,1,0,0,1,0, ...
    1,1,1,0,0,0,1,0,1,1,0,0,0,0,0,0,0,0,0,0,1,0,1,1,0,1, ...
    1,1,0,0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,1,1,1,1,1, ...
    1,1,1,1,1,1];

golay=reshape(golay,24,12)';

golayb=golay(:,13:24);