中南大學数学院数论与密码学实验报告.doc

中南大学 《数论与密码学基础实践》 学生姓名 **** 学 号 ****** 专业班级 ****** 指导老师 **** 数学科学与计算技术学院 2013年4月 实验目的： 通过实验, 熟练掌握至少一种密码系统加密解密过程及用Maple实现加密解密过程的方法，掌握初步的密码学基础, 以及能够对数论中相关结论的进行验证，以加深对数论理论知识的认识。 数论是一门理论与实践结合性很强的课程, 在掌握好理论方法的基础之上结合实践, 能够加深印象，巩固学习效果，提高自己对数论的学习兴趣。 实验内容： 必做题 实现ELG公钥密码系统 目的：利用公钥加密，Alice把message.txt中的内容传给Bob message.txt中的内容 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 4）、实现环境 Windows xp Maple9 代码： 生成ELG公钥，私钥的代码 u:=10^10: v:=10^25: 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,F:\\alice\\gya.txt; save p,a,h,F:\\bob\\gya.txt; save x,F:\\alice\\sya.txt; 加密代码 readF:\\bob\\message.txt; readF:\\bob\\gya.txt; myproc:=rand(1..100000): k:=myproc(); u:=a^k mod p; v:=h^k*m mod p; save u,v,F:\\alice\\mw.txt; 解密代码 readF:\\alice\\mw.txt; readF:\\alice\\gya.txt; readF:\\alice\\sya.txt; m:=v*u^(-x) mod p; save m,F:\\alice\\message.txt; 相关文件 （要加密的内容即F:\\bob\\message.txt文件内容为：m:=987456321789527592;） F:\\alice中含有的文件为：gya.txt,sya.txt,mw.txt,message.txt 各文件的内容为： i）gya.txt： p := 3752002035200949113852993; a := 3; h := 2236480489643797363031278;ii）sya.txt： x := 38418; iii）mw.txt： u := 1322988155543706811490587; v := 2559121025161206008098209; iv）message.txt： m := 842045318748718131; F:\\bob中含有的文件为：gya.txt, yw.txt 各文件的内容为： i）gya.txt： p := 3752002035200949113852993; a := 3; h :