密码学实验报告序号班级姓名学号日期时间地点1信计10董凤鸿4104017月3日:-9:00实验楼10指引教师:实验名称：密码学数学基础实验实验任务：实验一 密码学数学基础实验（验证性实验，1学时)1、 求最大公约数A、 实验内容：实现欧几里德算法；B、 测试数据:gd(1736,2848)= 8。2、 求元素逆元及求解同余方程A、 实验内容:实现扩展旳欧几里德算法;B、 测试数据：68- md 1937=20。C、 实验方程：。实验二 古典密码学实验（验证性实验，1学时）1、 Vigeere密码和Playfair 密码实验内容:用下列密码，对信息“th ose is beig sold tonht”进行加密。忽视单词间旳间距。并对信息解密得到原明文;A、 密钥为“llars”旳Viener密码B、 lyfa密码,其密钥如下LGDBMHCURIJXVSKZP实验三现代对称密码学实验（验证性实验,2学时)1、 SA、实验内容:熟悉DES算法,并实现ES；、测试数据:任意,并验证加/解密成果。程序清单：实验一1、funtio fcd=f2(a，b)r1=a;r2=；whe(0) =fix(r1/r2)； =r1-q*r2; 1=r2; r2=r;end cd=r1;ed2、unction gbf1（n,)r=n；=b；t10;t1;hi(r20) q=x(12); rr1-q*r2; 1=r2; r2=r; t=t1q*t2; t1=t2；t=;endif（r=1) gb=t1;ndfucti hj=tou(b，d,)r1n；2=b;=0;t2=;whie(r2) =ix(r/r2); =r1-q*r; r=2; r2； =t-*t; t1=t2;2t;nif(=1) fas=；else fprintf(); redh=od(as*d，n);en实验二 古典密码学实验1、 Vigener密码和layfair 密码a. Vigenre密码 求密文：uctioy =hift(,b);% This functinperformstesif ncyio funcon% y x + od 26% e asum that i a tex strig nd sa nubr% Th reslt is keptintet rpreetation xnutxtint(x）;ynum = od(xum + b, 6);=nt2tet(yum);unctiny =igenere1(txt，ky);% This function perorste Vigenere ciphr onhelntext % the varble xt,using y （wesumethe key s n numeical rpresenaion)if( （y), errr（x chacteroutof ag-z）;nd; ke2key - ；key2=tet2int(k)；xn=leth(txt); ln=length(e2）; or j=1:ln, =mod(j,kl); if jmod=0, mod=kln; ed； %map an ndf0to anindx kln y(j)=hift(txt（j)，key2(jo)；end;求明文：fucton y shif（x,b)；% Ths unctin perms the ft encypion futon% y = x + bmo % We ssue hat is a ext strng and bi umber% The reultis kptin text reprsentation num=ext2int(x）；ynum = mod(xnm + , 2)；=n2ext(ynum)；fuctin y = genre2(xt， key）; This funtin perfoms te Vignere ciper n te plinext i%e vrble txt, usig ey(we asum th key isn nmrcl% epresenaion).f (（key z) ）， ror(Texcharacte outo rnge a-z）;end; key2=-(ey a);%y2=textin(ke）;xln=lenth(tt);klnngth(k); r j1:x, mod=mod(j,kn); i jmd=, j=kln; end； %map an inde o 0 into anndex ofn y(j）=st(xt(),y(jod)；end;B、 lyfir密码：加密：clay= g db a; q m he; u r n i f; x v sok; zy wt p；frnt(n）;frtf( g d b an);fprintf(q m h c);fprntf(u / fn);fpintf（x v s o kn）;fprnf(z y t p); p=input(）; pdf;m=er;ff=0;t0; j1； tr whie（p(j）) if p(j) tt0; if p(j）=p(j） p1p1 p(） x; =j+1； ff=0; ee p1=1 p（j) (j+1）; =j+; ff1; end els tt=1; p1p p（j) ; end en cac if ff=0&tt=0; 1=p p(j) ; end tr f ff=1&tt=0; p1=pp（j)x; end catch ed end %suan j3; t while(p1（）) =1;%uwi ry whle（p1(j)=y(i) i=i+1; n c i=8; end qi=fi（i/5）； r=-i5; ;%qiuwei t whie(p1(j1）=(k）) k=k； end ca k=18; nd j=ix（k/）; rj=kqj*5; （ri=) i=q1; end f（rj=) qjj-1; end fq=qi% r=r+; =mod(ri,5); jrj+1; r=m(rj,5)； else f i=% qi=qi； imod（qi,5); q=qj+1； jmo(j，5)； l% ijr; r=j; r=rij; ed end % f(r=0) i=+1; %qj=qj; ed if(rj=0) qjqj+;