中南大学数学院数与密码学实验报告1.docVIP

中南大学 《数论与密码学基础实践》 学生姓名 *********** 学 号 ************** 专业班级 **************** 指导老师 ***** 数学与统计学学院 2012年5月7日 实验目的： 通过实验, 熟练掌握两种以上密码系统加密解密过程及用Maple实现加密解密过程的方法, 数论是一门理论与实践结合性很强的课程, 在掌握好理论方法的基础之上结合实践, 能够加深印象，巩固学习效果。 1、找费马素数，要写出你找的范围。n:0到7 seq(fermat(n), n = 0 .. 7); 3, 5, 17, 257, 65537, 4294967297, 18446744073709551617, 340282366920938463463374607431768211457 with(numtheory): Fermat:=proc(n::posint) local i; for i from 0 to n while i=n do if isprime(2^(2^i)+1)=true then print(i,true); else print(i,false); fi; od; end: Fermat(7); 0, true 1, true 2, true 3, true 4, true 5, false 6, false 7, false 所以找n=0,1，，，7时，只有当n=0,1,2,3,4时才是费马素数。 2、实现ELG公钥密码系统 ELG公钥密码系统的描述 Alice要求Bob将信息m加密送回，Alice找到大素数p，p的原根a，大整数（私钥），计算，将，发送给Bob； Bob收到后，随机取，计算，将发送给Alice； Alice收到后，计算，这样就得到了原信息m。 1）、密钥生成 选出一个大素数 p 选出 d 作为群G ( Zp*, ((中的一个成员， 使得 1 ((d ((p ((2 选出 e1作为群 G ( Zp*, (( 中的一个本原根 e2? ( e1d mod p C2? ?(((P ( e2r) mod p? ???????// C1和C2是密文 Public_key? ((?(e1, e2, p)? ???// 公开宣布 Private_key ( d? ????????????// 2）、解密 P (((C2 (C1d) (1] mod p? // P 是明文 (C2 (C1d) (1] mod p =(P ( e2r)(( (e1dr) (1 mod p = P 代码： 生成ELG公钥，私钥的代码 u:=10^11: v:=10^21: myproc:=rand(u..v): b:=myproc(): if irem(b,2)=0 then b:=b+1: fi: while isprime(b)=false do b:=b+2: od: p:=b; isprime(p); with(numtheory); a:=primroot(p); myproc:=rand(10^3..10^5): x:=myproc(): h:=a^x mod p; save p,a,h,D:\\alice\\gya.txt; save p,a,h,D:\\bob\\gya.txt; save x,D:\\alice\\sya.txt; p := 62222089022974121737 true [GIgcd, bigomega, cfrac, cfracpol, cyclotomic, divisors, factorEQ, factorset, fermat, imagunit, index, integral_basis, invcfrac,in