wmiss414 发表于 2011-12-19 13:56

SSH通信协议浅析

<SPAN class=a14c id=zoom>&nbsp;
<P style="TEXT-INDENT: 2em">第一部分:协议概览
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">整个通讯过程中,经过下面几个阶段协商实现认证连接。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">第一阶段:
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">由客户端向服务器发出 TCP 连接请求。TCP 连接建立后,客户端进入等待,服务器向客户端发送第一个报文,宣告自己的版本号,包括协议版本号和软件版本号。协议版本号由主版本号和次版本号两部分组成。它和软件版本号一起构成形如:
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">"SSH-&lt;主协议版本号&gt;.&lt;次协议版本号&gt;-&lt;软件版本号&gt;\n"
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">的字符串。其中软件版本号字符串的最大长度为40个字节,仅供调试使用。客户端接到报文后,回送一个报文,内容也是版本号。客户端响应报文里的协议版本号这样来决定:当与客户端相比服务器的版本号较低时,如果客户端有特定的代码来模拟,则它发送较低的版本号;如果它不能,则发送自己的版本号。当与客户端相比服务器的版本号较高时,客户端发送自己的较低的版本号。按约定,如果协议改变后与以前的相兼容,主协议版本号不变;如果不相兼容,则主主协议版本号升高。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">服务器接到客户端送来的协议版本号后,把它与自己的进行比较,决定能否与客户端一起工作。如果不能,则断开TCP 连接;如果能,则按照二进制数据包协议发送第一个二进制数据包,双方以较低的协议版本来一起工作。到此为止,这两个报文只是简单的字符串,你我等凡人直接可读。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">第二阶段:
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">协商解决版本问题后,双方就开始采用二进制数据包进行通讯。由服务器向客户端发送第一个包,内容为自己的 RSA主机密钥(host key)的公钥部分、RSA服务密钥(server key)的公钥部分、支持的加密方法、支持的认证方法、次协议版本标志、以及一个 64 位的随机数(cookie)。这个包没有加密,是明文发送的。客户端接收包后,依据这两把密钥和被称为cookie的 64 位随机数计算出会话号(session id)和用于加密的会话密钥(session key)。随后客户端回送一个包给服务器,内容为选用的加密方法、cookie的拷贝、客户端次协议版本标志、以及用服务器的主机密钥的公钥部分和服务密钥的公钥部分进行加密的用于服务器计算会话密钥的32 字节随机字串。除这个用于服务器计算会话密钥的 32字节随机字串外,这个包的其他内容都没有加密。之后,双方的通讯就是加密的了,服务器向客户端发第二个包(双方通讯中的第一个加密的包)证实客户端的包已收到。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">第三阶段:
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">双方随后进入认证阶段。可以选用的认证的方法有:
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">(1) ~/.rhosts 或 /etc/hosts.equiv 认证(缺省配置时不容许使用它);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">(2) 用 RSA 改进的 ~/.rhosts 或 /etc/hosts.equiv 认证;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">(3) RSA 认证;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">(4) 口令认证。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">如果是使用 ~/.rhosts 或 /etc/hosts.equiv 进行认证,客户端使用的端口号必须小于1024。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">认证的第一步是客户端向服务器发 SSH_CMSG_USER 包声明用户名,服务器检查该用户是否存在,确定是否需要进行认证。如果用户存在,并且不需要认证,服务器回送一个SSH_SMSG_SUCCESS 包,认证完成。否则,服务器会送一个 SSH_SMSG_FAILURE 包,表示或是用户不存在,或是需要进行认证。注意,如果用户不存在,服务器仍然保持读取从客户端发来的任何包。除了对类型为 SSH_MSG_DISCONNECT、SSH_MSG_IGNORE 以及 SSH_MSG_DEBUG 的包外,对任何类型的包都以 SSH_SMSG_FAILURE 包。用这种方式,客户端无法确定用户究竟是否存在。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">如果用户存在但需要进行认证,进入认证的第二步。客户端接到服务器发来的 SSH_SMSG_FAILURE 包后,不停地向服务器发包申请用各种不同的方法进行认证,直到时限已到服务器关闭连接为止。时限一般设定为 5 分钟。对任何一个申请,如果服务器接受,就以 SSH_SMSG_SUCCESS 包回应;如果不接受,或者是无法识别,则以 SSH_SMSG_FAILURE 包回应。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">第四阶段:
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">认证完成后,客户端向服务器提交会话请求。服务器则进行等待,处理客户端的请求。在这个阶段,无论什么请求只要成功处理了,服务器都向客户端回应 SSH_SMSG_SUCCESS包;否则回应 SSH_SMSG_FAILURE 包,这表示或者是服务器处理请求失败,或者是不能识别请求。会话请求分为这样几类:申请对数据传送进行压缩、申请伪终端、启动 X11、TCP/IP 端口转发、启动认证代理、运行 shell、执行命令。到此为止,前面所有的报文都要求 IP 的服务类型(TOS)使用选项 IPTOS_THROUGHPUT。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">第五阶段:
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">会话申请成功后,连接进入交互会话模式。在这个模式下,数据在两个方向上双向传送。此时,要求 IP 的服务类型(TOS)使用 IPTOS_LOWDELAY 选项。当服务器告知客户端自己的退出状态时,交互会话模式结束。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">(注意:进入交互会话模式后,加密被关闭。在客户端向服务器发送新的会话密钥后,加密重新开始。用什么方法加密由客户端决定。)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">第二部分:数据包格式和加密类型
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">二进制数据包协议:
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">包 = 包长域(4字节:u_int32_t) + 填充垫(1-7字节)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">+ 包类型域(1字节:u_char) + 数据域
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">+ 校验和域(4字节)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">加密部分 = 填充垫 + 包类型 + 数据 + 校验和
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">包长 = 1(包类型) + 数据字节长度 + 4(校验和)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">数据包压缩:
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">如果支持压缩,包类型域和数据域用 gzip 压缩算法进行压缩。压缩时在两个数据传送方向的任何一个上,包的压缩部分(类型域+数据域)被构造得象是它连在一起,形成一个连续的数据流。在两个数据传送方向上,压缩是独立进行的。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">数据包加密:
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">现时支持的数据加密方法有这样几种:
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">SSH_CIPHER_NONE 0 不进行加密
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">SSH_CIPHER_IDEA 1 IDEA 加密法(CFB模式)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">SSH_CIPHER_DES 2 DES 加密法(CBC模式)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">SSH_CIPHER_3DES 3 3DES 加密法(CBC模式)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">SSH_CIPHER_ARCFOUR 5 Arcfour加密法)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">SSH_CIPHER_BLOWFISH 6 Blowfish 加密法
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">协议的所有具体实现都要求支持3DES。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">DES 加密:
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">从会话密钥中取前8个字节,每个字只用高7位,忽略最低位,这样构成56位的密钥供加密使用。加密时使用CBC 模式,初使矢量被初始化为全零。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">3DES 加密:
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">3DES 是 DES 的变体,它三次独立地使用 CBC 模式的DES 加密法,每一次的初始矢量都是独立的。第一次用DES 加密法对数据进行加密;第二次对第一次加密的结果用 DES 加密法进行解密;第三次再对第二次解密的
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">结用 DES 加密法进行加密。注意:第二次解密的结果并不就是被加密的数据,因为三次使用的密钥和初始矢量都是分别不同的。与上面的 DES 加密采用的方法类似,第一次从会话密钥中取起始的前8个字节生成加密密钥,第二次取下一个紧跟着的8个字节,第三次取再下一个紧跟着的8个字节。三次使用的初始矢量都初始化为零。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">IDEA 加密:
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">加密密钥取自会话密钥的前16个字节,使用 CFB 模式。初始矢量初始化为全零。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">RC4 加密:
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">会话密钥的前16个字节被服务器用作加密密钥,紧接着的下一个16字节被客户端用作加密密钥。结果是两个数据流方向上有两个独立的129位密钥。这种加密算法非常快。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">第二部分:密钥的交换和加密的启动
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">在服务器端有一个主机密钥文件,它的内容构成是这样的:
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">1. 私钥文件格式版本字符串;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">2. 加密类型(1 个字节);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">3. 保留字(4 个字节);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">4. 4 个字节的无符号整数;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">5. mp 型整数;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">6. mp 型整数;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">7. 注解字符串的长度;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">8. 注解字符串;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">9. 校验字(4 个字节);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">10. mp 型整数;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">11. mp 型整数;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">12. mp 型整数;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">13. mp 型整数;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">其中 4、5、6 三个字段构成主机密钥的公钥部分;10、11、12、13 四个字段构成主机密钥的私钥部分。9、10、11、12、13 五个字段用字段 2 的加密类型标记的加密方法进行了加密。4 个字节的校验字交叉相等,即第一个字节与第三个字节相等,第二个字节与第四个字节相等。在服务器读取这个文件时进行这种交叉相等检查,如果不满足这个条件,则报错退出。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">服务器程序运行的第一步,就是按照上面的字段划分读取主机密钥文件。随后生成一个随机数,再调用函数
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">void rsa_generate_key
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">(
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">RSAPrivateKey *prv,
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">RSAPublicKey *pub,
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">RandomState *state,
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">unsigned int bits
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">生成服务密钥,服务密钥也由公钥和私钥两部分组成。上面的这个函数第一个指针参数指向服务密钥的私钥部分,第二个指向公钥部分。然后把主机密钥的公钥部分和服务密钥的公钥部分发送给客户端。在等到客户端回应的包后,服务器用自己的主机密钥的私钥部分和服务密钥的私钥部分解密得到客户端发来的 32 字节随机字串。然后计算自己的会话号,并用会话号的前 16字节 xor 客户端发来的 32 字节随机字串的前 16 字节,把它作为自己的会话密钥。注意,服务器把8个字节的 cookie、主机密钥的公钥部分、和服务密钥的公钥部分作为参数来计算自己的会话号。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">再来看客户端。客户端启动后的第一步骤也是读取主机密钥。然后等待服务器主机密钥、服务密钥、和 8个字节的cookie。注意,服务器发送来的只是主机密钥和服务密钥的公钥部分。接到包后,客户端立即把从服务器端收到cookie、主机密钥、和服务密钥作为参数计算出会话号。从上面可以看出,服务器和客户端各自计算出的会话号实际是一样的。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">随后,客户端检查用户主机列表和系统主机列表,查看从服务器收到的主机密钥是否在列表中。如果不在列表中,则把它加入列表中。然后就生成 32 字节的随机字串,这个32 字节的随机字串就是客户端的会话密钥。客户端用 16字节的会话密钥 xor 它的前 16 字节,把结果用服务器的主机密钥和服务密钥进行双重加密后发送给服务器。产生 32字节随机字串时,随机数种子由两部分组成,其中一部分从系统随机数种子文件中得到,这样来避免会话密钥被猜出。从上面服务器和客户端各自计算会话密钥的过程可以看出,服务器和客户端计算出的会话密钥是一样的。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">上面的这几步,总结起来就要交换确定会话密钥,因为无论是 des、idea、3des、arcfour、还是 blowfish 都是对称加密方法,只有一把密钥,双方都知道了会话密钥才能启动加密。但会话密钥不能在网络上明文传送,否则加密就失去意义了。于是使用 RSA 公钥体系对会话密钥进行加密。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">RSA 公钥体系的办法是用公钥加密私钥解密,它依据这样的数学定理:
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">若 p、q 是相异的两个质数,整数 r 和 m 满足
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">rm == 1 (mod (p-1)(q-1))
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">a 是任意的整数,整数 b、c 满足 b == a^m (mod pq),
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">c == b^r (mod pq)。则
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">c == a (mod pq)。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">具体实现是这样的:
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">(1) 找三个正整数 p、q、r,其中 p、q 是相异的质数,
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">r 是与(p-1)、(q-1)互质的数。这三个数 p、q、r
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">就是私钥(private key)。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">(2) 再找一个正整数 m 满足 rm == 1 (mod(p-1)(q-1))。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">计算 n = pq,m、n 就是公钥(public key)。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">(3) 被加密对象 a 看成是正整数,设 a &lt; n。若 a &gt;= n,
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">将 a 表示成 s (s &lt; n,通常取 s = 2^t) 进制的,
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">然后对每一位分别编码。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">(4) 加密:计算 b == a^m (mod n) (0 &lt;= b &lt; n),b 为
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">加密结果。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">(5) 解密:计算 c == b^r (mod n) (0 &lt;= c &lt; n),c 为
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">解密结果。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">从上面的数学定理可知,最后结果 c = a。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">计算 RSA 密钥的方法及过程是,调用下面的函数计算 RSA公钥和 RSA 私钥:
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">_______________________________________________________
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">void rsa_generate_key
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">(
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">RSAPrivateKey *prv, RSAPublicKey *pub,
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">RandomState *state, unsigned int bits
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">MP_INT test, aux;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">unsigned int pbits, qbits;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">int ret;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_init(&amp;prv-&gt;q);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_init(&amp;prv-&gt;p);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_init(&amp;prv-&gt;e);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_init(&amp;prv-&gt;d);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_init(&amp;prv-&gt;u);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_init(&amp;prv-&gt;n);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_init(&amp;test);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_init(&amp;aux);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* 计算质数 p、q 的位数 */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">pbits = bits / 2;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">qbits = bits - pbits;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">retry0:
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">fprintf(stderr, "Generating p: ");
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* 生成随机质数 p */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">rsa_random_prime(&amp;prv-&gt;p, state, pbits);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">retry:
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">fprintf(stderr, "Generating q: ");
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* 生成随机质数 q */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">rsa_random_prime(&amp;prv-&gt;q, state, qbits);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* 判断是否 p == q,如果是返回重新生成 */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">ret = mpz_cmp(&amp;prv-&gt;p, &amp;prv-&gt;q);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">if (ret == 0)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">fprintf(stderr,
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">"Generated the same prime twice!\n");
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">goto retry;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">if (ret &gt; 0)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_set(&amp;aux, &amp;prv-&gt;p);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_set(&amp;prv-&gt;p, &amp;prv-&gt;q);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_set(&amp;prv-&gt;q, &amp;aux);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* 确定 p、q 是否很接近 */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_sub(&amp;aux, &amp;prv-&gt;q, &amp;prv-&gt;p);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_div_2exp(&amp;test, &amp;prv-&gt;q, 10);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">if (mpz_cmp(&amp;aux, &amp;test) &lt; 0)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">fprintf(stderr,
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">"The primes are too close together.\n");
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">goto retry;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* Make certain p and q are relatively prime (in case
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">one or both were false positives... Though this is
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">quite impossible). */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_gcd(&amp;aux, &amp;prv-&gt;p, &amp;prv-&gt;q);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">if (mpz_cmp_ui(&amp;aux, 1) != 0)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">fprintf(stderr,
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">"The primes are not relatively prime!\n");
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">goto retry;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* 从质数 p、q 导出私钥 */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">fprintf(stderr, "Computing the keys...\n");
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">derive_rsa_keys(&amp;prv-&gt;n, &amp;prv-&gt;e, &amp;prv-&gt;d,
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">&amp;prv-&gt;u, &amp;prv-&gt;p, &amp;prv-&gt;q, 5);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">prv-&gt;bits = bits;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* 从质数 p、q 导出公钥 */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">pub-&gt;bits = bits;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_init_set(&amp;pub-&gt;n, &amp;prv-&gt;n);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_init_set(&amp;pub-&gt;e, &amp;prv-&gt;e);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* 测试公钥和密钥是否有效 */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">fprintf(stderr, "Testing the keys...\n");
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">rsa_random_integer(&amp;test, state, bits);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_mod(&amp;test, &amp;test, &amp;pub-&gt;n); /* must be less than n. */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">rsa_private(&amp;aux, &amp;test, prv);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">rsa_public(&amp;aux, &amp;aux, pub);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">if (mpz_cmp(&amp;aux, &amp;test) != 0)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">fprintf(stderr,
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">"**** private+public failed to decrypt.\n");
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">goto retry0;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">rsa_public(&amp;aux, &amp;test, pub);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">rsa_private(&amp;aux, &amp;aux, prv);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">if (mpz_cmp(&amp;aux, &amp;test) != 0)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">fprintf(stderr,
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">"**** public+private failed to decrypt.\n");
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">goto retry0;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_clear(&amp;aux);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_clear(&amp;test);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">fprintf(stderr, "Key generation complete.\n");
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">_______________________________________________________
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">在上面的函数成一对密钥时,首先调用函数
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">_______________________________________________________
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">void rsa_random_prime
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">(
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">MP_INT *ret, RandomState *state,
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">unsigned int bits
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">MP_INT start, aux;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">unsigned int num_primes;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">int *moduli;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">long difference;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_init(&amp;start);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_init(&amp;aux);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">retry:
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* 挑出一个随机的足够大的整数 */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">rsa_random_integer(&amp;start, state, bits);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* 设置最高的两位 */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_set_ui(&amp;aux, 3);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_mul_2exp(&amp;aux, &amp;aux, bits - 2);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_ior(&amp;start, &amp;start, &amp;aux);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* 设置最低的两位为奇数 */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_set_ui(&amp;aux, 1);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_ior(&amp;start, &amp;start, &amp;aux);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* 启动小质数的 moduli 数 */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">moduli = malloc(MAX_PRIMES_IN_TABLE * sizeof(moduli));
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">if (moduli == NULL)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">printf(stderr, "Cann't get memory for moduli\n");
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">exit(1);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">if (bits &lt; 16)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">num_primes = 0;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* Don\'t use the table for very small numbers. */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">else
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">for (num_primes = 0;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">small_primes != 0; num_primes++)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_mod_ui(&amp;aux, &amp;start, small_primes);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">moduli = mpz_get_ui(&amp;aux);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* 寻找一个数,它不能被小质数整除 */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">for (difference = 0; ; difference += 2)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">unsigned int i;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">if (difference &gt; 0x70000000)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">fprintf(stderr, "rsa_random_prime: "
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">"failed to find a prime, retrying.\n");
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">if (moduli != NULL)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">free(moduli);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">else
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">exit(1);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">goto retry;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* 检查它是否是小质数的乘积 */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">for (i = 0; i &lt; num_primes; i++)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">while (moduli + difference &gt;= small_primes)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">moduli -= small_primes;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">if (moduli + difference == 0)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">break;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">if (i &lt; num_primes)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">continue; /* Multiple of a known prime. */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* 检查通过 */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">fprintf(stderr, ".");
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* Compute the number in question. */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_add_ui(ret, &amp;start, difference);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* Perform the fermat test for witness 2.
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">This means: it is not prime if 2^n mod n != 2. */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_set_ui(&amp;aux, 2);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_powm(&amp;aux, &amp;aux, ret, ret);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">if (mpz_cmp_ui(&amp;aux, 2) == 0)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* Passed the fermat test for witness 2. */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">fprintf(stderr, "+");
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* Perform a more tests. These are probably unnecessary. */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">if (mpz_probab_prime_p(ret, 20))
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">break; /* It is a prime with probability 1 - 2^-40. */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* Found a (probable) prime. It is in ret. */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">fprintf(stderr, "+ (distance %ld)\n", difference);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* Free the small prime moduli; they are no longer needed. */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">if (moduli != NULL)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">free(moduli);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">else
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">exit(1);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* Sanity check: does it still have the high bit set (we might have
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">wrapped around)? */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_div_2exp(&amp;aux, ret, bits - 1);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">if (mpz_get_ui(&amp;aux) != 1)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">fprintf(stderr,
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">"rsa_random_prime: high bit not set, retrying.\n");
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">goto retry;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_clear(&amp;start);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_clear(&amp;aux);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">_______________________________________________________
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">随机产生一对大质数(p,q)。这对随机大质数要符合的条件是p 必须小于 q。然后调用下面的函数来生成公钥和私钥对的其他组员:
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">static void derive_rsa_keys
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">(
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">MP_INT *n, MP_INT *e, MP_INT *d, MP_INT *u,
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">MP_INT *p, MP_INT *q,
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">unsigned int ebits
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">MP_INT p_minus_1, q_minus_1, aux, phi, G, F;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">assert(mpz_cmp(p, q) &lt; 0);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_init(&amp;p_minus_1);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_init(&amp;q_minus_1);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_init(&amp;aux);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_init(&amp;phi);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_init(&amp;G);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_init(&amp;F);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* 计算 p-1 和 q-1. */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_sub_ui(&amp;p_minus_1, p, 1);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_sub_ui(&amp;q_minus_1, q, 1);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* phi = (p - 1) * (q - 1) */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_mul(&amp;phi, &amp;p_minus_1, &amp;q_minus_1);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* G is the number of "spare key sets" for a given
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">modulus n. The smaller G is, the better. The
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">smallest G can get is 2. */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_gcd(&amp;G, &amp;p_minus_1, &amp;q_minus_1);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">if (mpz_cmp_ui(&amp;G, 100) &gt;= 0)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">fprintf(stderr, "Warning: G=");
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_out_str(stdout, 10, &amp;G);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">fprintf(stderr,
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">" is large (many spare key sets); key may be bad!\n");
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* F = phi / G; the number of relative prime
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">numbers per spare key set. */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_div(&amp;F, &amp;phi, &amp;G);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* Find a suitable e (the public exponent). */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_set_ui(e, 1);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_mul_2exp(e, e, ebits);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_sub_ui(e, e, 1); /*make lowest bit 1, and substract 2.*/
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* Keep adding 2 until it is relatively prime
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">to (p-1)(q-1). */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">do
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_add_ui(e, e, 2);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_gcd(&amp;aux, e, &amp;phi);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">while (mpz_cmp_ui(&amp;aux, 1) != 0);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* d is the multiplicative inverse of e, mod F.
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">Could also be mod (p-1)(q-1); however, we try to
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">choose the smallest possible d. */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_mod_inverse(d, e, &amp;F);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* u is the multiplicative inverse of p, mod q,
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">if p &lt; q. It is used when doing private key
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">RSA operations using the chinese remainder
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">theorem method. */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_mod_inverse(u, p, q);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* n = p * q (the public modulus). */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_mul(n, p, q);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* Clear auxiliary variables. */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_clear(&amp;p_minus_1);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_clear(&amp;q_minus_1);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_clear(&amp;aux);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_clear(&amp;phi);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_clear(&amp;G);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_clear(&amp;F);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">_______________________________________________________
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">最后为检验所生成的一对密钥的有效性,它调用下面的函数产生一个随机整数。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">_______________________________________________________
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">void rsa_random_integer(MP_INT *ret, RandomState *state,
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">unsigned int bits)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">unsigned int bytes = (bits + 7) / 8;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">char *str = xmalloc(bytes * 2 + 1);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">unsigned int i;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* 生成一个适当大小的16进制随机数,把它转化成mp型整数 */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">for (i = 0; i &lt; bytes; i++)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">sprintf(str + 2 * i, "%02x", random_get_byte(state));
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* 转化到内部表示 */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">if (mpz_set_str(ret, str, 16) &lt; 0)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">fprintf("Intenal error, mpz_set_str returned error");
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">exit(1);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* Clear extra data. */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">memset(str, 0, 2 * bytes);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">if (str != NULL)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">free(str);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">else
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">exit(1);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* Reduce it to the desired number of bits. */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_mod_2exp(ret, ret, bits);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">_______________________________________________________
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">服务密钥生成后,服务器发送一个包把两把密钥发送给客户端,一个是主机密钥的公钥,另一个是服务密钥的公钥。跟随这个包一起发送的还有服务器支持的加密类型和8个字节即64位的随机字串 cookie。客户端依据这两把密钥计算会话号,会话号长16字节即128位。计算方法是:
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">会话号 = MD5(主机公钥模数 n || 服务公钥模数 n || cookie)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">计算函数是:
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">void compute_session_id
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">(
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">unsigned char session_id,
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">unsigned char cookie,
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">unsigned int host_key_bits,
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">MP_INT *host_key_n,
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">unsigned int session_key_bits,
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">MP_INT *session_key_n
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">unsigned int bytes = (host_key_bits + 7) / 8 +
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">(session_key_bits + 7) / 8 + 8;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">unsigned char *buf = xmalloc(bytes);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">struct MD5Context md;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mp_linearize_msb_first(buf, (host_key_bits + 7 ) / 8, host_key_n);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mp_linearize_msb_first(buf + (host_key_bits + 7 ) / 8,
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">(session_key_bits + 7) / 8, session_key_n);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">memcpy(buf + (host_key_bits + 7) / 8 + (session_key_bits + 7) / 8,
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">cookie, 8);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">MD5Init(&amp;md);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">MD5Update(&amp;md, buf, bytes);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">MD5Final(session_id, &amp;md);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">xfree(buf);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">void mp_linearize_msb_first
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">(
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">unsigned char *buf, unsigned int len,
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">MP_INT *value
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">unsigned int i;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">MP_INT aux;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_init_set(&amp;aux, value);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">for (i = len; i &gt;= 4; i -= 4)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">unsigned long limb = mpz_get_ui(&amp;aux);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">PUT_32BIT(buf + i - 4, limb);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_div_2exp(&amp;aux, &amp;aux, 32);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">for (; i &gt; 0; i--)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">buf = mpz_get_ui(&amp;aux);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_div_2exp(&amp;aux, &amp;aux, 8);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_clear(&amp;aux);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">随后客户端计算会话密钥,计算过程是首先生成32个字节即256位随机字串:
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">for (i = 0; i &lt; 32; i++)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">session_key = random_get_byte(state);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">然后用16字节的会话号 xor 这32字的随机字串的前16字节,并安 msb 次序来排列构成一个MP型整数:
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_init_set_ui(&amp;key, 0);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">for (i = 0; i &lt; 32; i++)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_mul_2exp(&amp;key, &amp;key, 8);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">if (i &lt; 16)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_add_ui(&amp;key,&amp;key, session_key^session_id);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">else
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">mpz_add_ui(&amp;key,&amp;key, session_key);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">把结果发给服务器。在用服务器发来主机公钥和服务公钥对这个MP型整数作两次 RSA 加密后,客户端发一个包把这个MP型整数交给服务器。跟随这个包一起还有客户端选定的加密类型。注意,在客户端,它用上面最初的32字节随机串 session_key 来作为会话密钥进行加密,而不是发给服务器的会话密钥 key。服务器接到上面MP型整数后,把它转换成32字节即256位的字串。再用自己计算出的16字节的会话号xor 这个字串的前16字节,把结果作为会话密钥。服务器计算自己的16字节会话号时也是把发给客户端的主机公钥、服务公钥、和16字节随机串 cookie 作为输入,因此它计算出的会话号与客户端计算出的一样。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">在这之后,所有的数据传输都用选用客户端指定的加密方法进行加密了,加密时使用上面的会话密钥。加密使用的代码在 arcfour.c、des.c、idea.c、blowfish.c 中。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">ssh 声称避免了 IP 欺骗,使用的方法在上面的密钥交换中服务器给客户端发了一个64位 cookie,要求客户端原样拷贝送回。看不出这能避免 IP 欺骗。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">第三部分:认证
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">RSA公钥和RSA私钥数据结构为:
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">typedef struct
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">unsigned int bits; /* 模数大小 */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">MP_INT e; /* 公钥指数 */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">MP_INT n; /* 模数 */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">} RSAPublicKey;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">typedef struct
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">unsigned int bits; /* 模数大小 */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">MP_INT n; /* 模数 */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">MP_INT e; /* 公钥指数 */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">MP_INT d; /* 私钥指数 */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">MP_INT u; /* Multiplicative inverse of p mod q. */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">MP_INT p; /* 质数 p */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">MP_INT q; /* 质数 q */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">} RSAPrivateKey;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">RSA 认证的过程是,客户端向服务器提交自己 RSA公钥的模数成员,服务器先读取用户 .ssh 目录中的公钥文件进行有效性检验,再生成一个 256 位二进制随机数 cookie。随后把这个随机数 cookie 用从公钥文件读出的公钥加密后传给客户端,客户端接到 cookie 后,先用自己的私钥解密,再对这个 cookie 和会话号计算出 16 字节的 md5水印,把两个水印相加后发给服务器。服务器把它收到 md5水印和它自己对 cookie 和会话号计算出的水印和进行比较,如果相等,则认证通过。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">第四部分:shell 和 X11 调用
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">ssh 提供的一个重要功能就是 X 转发功能,它可以在客户端的显示屏上把服务器端 X 程序的运行结果以图形形式显示出来显示在客户端的显示屏幕上。例如运行 xterm 程序启动一个 X 终端,该 X 终端窗口显示在客户端的显示屏上。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">先来看看 X 窗口系统本身的情况。X 窗口系统是 UNIX的图形用户界面(GUI),它采用"客户/服务器"模式,二者之间的通讯遵从 X 协议。每台主机运行一个 X 服务器,且只能运行一个 X 服务器,但一个 X 服务器可以控制多个显示屏幕(显示器)。应用程序要想进行图形显示必须以客户的方式向 X 服务器提交显示请求,由 X 服务器统一控制进行显示。用户运行 X 程序时,实际是调用 XOpenDisplay 库函数打开一个 PF_UNIX 或 TCP socket 连接到 X 服务器,然后通过这个连接向它提交显示请求。连接建立后, X 客户所做的第一件事就是:按用户的 $DISPLAY 环境变量的值读取用户配置文件 .Xauthority 中的显示记录,把这条记录的有关内容提交给 X 服务器进行认证。如果认证通过,就可以提交显示请求了,这个过程称为打开一个 X 显示。作为客户的 X 程序在提交显示请求时,实际上是把 X 显示数据写入上面打开的 socket。在打开 X 显示时,必须提供协议号、认证钥(hexkey)、和屏幕号,如果 X 服务器不是在本地运行,还需要提供运行 X 服务器的远程主机名。这些都记录在用户配置文件 .Xauthority 中,所给的协议号、认证钥、和屏幕号从这个列表中取出。可以用 xauth 命令来查看显示列表里的内容:
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">&gt; /usr/openwin/bin/xauth list
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">***.***.***/unix:10 MIT-MAGIC-COOKIE-1 92b404e556588ced6c1acd4ebf053f68
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">***.***.***/unix:11 MIT-MAGIC-COOKIE-1 92b404e556588ced6c1acd4ebf053f68
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">***.***.***:10 MIT-MAGIC-COOKIE-1 92b404e556588ced6c1acd4ebf053f68
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">***.***.***/unix:10 MIT-MAGIC-COOKIE-1 92b404e556588ced6c1acd4ebf053f68
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">***.***.***:11 MIT-MAGIC-COOKIE-1 92b404e556588ced6c1acd4ebf053f68
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">***.***.***/unix:11 MIT-MAGIC-COOKIE-1 92b404e556588ced6c1acd4ebf053f68
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">&gt; echo $DISPLAY
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">***.***.***:10.0
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">&gt; /usr/openwin/bin/xauth
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">Using authority file /home/wangdb/.Xauthority
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">xauth&gt; list ***.***.***:10.0
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">***.***.***:10 MIT-MAGIC-COOKIE-1 92b404e556588ced6c1acd4ebf053f68
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">xauth&gt; quit
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">&gt;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">.Xauthority 文件的显示记录里各个字段的含义如下,第一个字段的***.***.*** 是主机名,":"号后的"."前面的数字是 X 服务器标号,"."后面的数字是显示屏幕(显示器)标号。这个字段称为显示名,$DISPLAY 环境变量里填入这个字段。第二个字段是协议标号,第三个字段是十六进制的认证钥。认证钥是由系统给的,打开 X 显示时如果认证钥给的不对,X 服务器拒绝处理显示请求。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">ssh 实现 X 转发的第一步是,客户端调用 popen 函数执行 "xauth list $DISPLAY" 命令,读取 X 显示的屏幕号、协议号、和认证钥,然后把协议号和认证钥保存在内存中。客户端并不把自己的认证钥发送给服务器,而是生成一个 8位二进制随机数序列,以十六进制打印,把这个十六进制数字串发送给服务器作为认证钥。等到服务器发来打开 X 显示请求时,客户端使用自己真正的认证钥打开 X 显示。采用这种方法,客户保证了自己的认证钥不会泄露给外界,安全性得到保证。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">服务器接到客户端的 X 转发请求后,读取客户端发来的屏幕号、协议号、和认证钥,然后打开一个 socket 并绑定它,设置成侦听模式,并用这个 socket 设置一个通道。随后就从服务器自己的配置文件读出 X 服务器标号,调用gethostname函数获取本机主机名,把这两者和客户发来的屏幕号结合在一起构成显示列表记录的第一字段。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">在服务器处理客户端执行命令或启动 shell 的请求时,它用前面设置的通道接受一个 TCP 连接,返回一个 socket,再用这个 socket 设置一个新通道。然后发一个包给客户端要求它打开一个 X 显示。客户端接到这个包后打开一个socket 与本地 X 服务器连接,即打开一个 X 显示:
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">_____________________________________________________
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">int display_number, sock;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">const char *display;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">struct sockaddr_un ssun;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* Try to open a socket for the local X server. */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">display = getenv("DISPLAY");
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">if (!display)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">error("DISPLAY not set.");
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">goto fail;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* Now we decode the value of the DISPLAY variable
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">* and make a connection to the real X server.
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">*/
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* Check if it is a unix domain socket. Unix domain
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">* displays are in one of the following formats:
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">* unix:d[.s], :d[.s], ::d[.s]
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">*/
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">if (strncmp(display, "unix:", 5) == 0 ||
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">display == ':')
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* Connect to the unix domain socket. */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">if (sscanf(strrchr(display, ':') + 1,
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">"%d", &amp;display_number) != 1)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">error("Could not parse display number "
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">"from DISPLAY: %.100s", display);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">goto fail;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* Create a socket. */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">sock = socket(AF_UNIX, SOCK_STREAM, 0);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">if (sock &lt; 0)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">error("socket: %.100s", strerror(errno));
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">goto fail;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* Connect it to the display socket. */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">ssun.sun_family = AF_UNIX;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">#ifdef HPSUX_NONSTANDARD_X11_KLUDGE
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* HPSUX release 10.X uses
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">* /var/spool/sockets/X11/0
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">* for the unix-domain sockets, while earlier
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">* releases stores the socket in
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">* /usr/spool/sockets/X11/0
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">* with soft-link from
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">* /tmp/.X11-unix/`uname -n`0
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">*/
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">struct stat st;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">if (stat("/var/spool/sockets/X11", &amp;st) == 0)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">sprintf(ssun.sun_path, "%s/%d",
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">"/var/spool/sockets/X11", display_number);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">else
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">if (stat("/usr/spool/sockets/X11", &amp;st) == 0)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">sprintf(ssun.sun_path, "%s/%d",
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">"/usr/spool/sockets/X11", display_number);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">else
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">struct utsname utsbuf;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* HPSUX stores unix-domain sockets in
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">* /tmp/.X11-unix/`hostname`0
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">* instead of the normal /tmp/.X11-unix/X0.
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">*/
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">if (uname(&amp;utsbuf) &lt; 0)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">fatal("uname: %.100s", strerror(errno));
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">sprintf(ssun.sun_path, "%.20s/%.64s%d",
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">X11_DIR, utsbuf.nodename, display_number);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">#else /* HPSUX_NONSTANDARD_X11_KLUDGE */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">struct stat st;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">if (stat("/var/X", &amp;st) == 0)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">sprintf(ssun.sun_path, "%.80s/X%d",
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">"/var/X/.X11-unix", display_number);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">else if (stat(X11_DIR, &amp;st) == 0)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">sprintf(ssun.sun_path, "%.80s/X%d",
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">X11_DIR, display_number);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">else
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">sprintf(ssun.sun_path, "%.80s/X%d",
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">"/tmp/.X11-unix", display_number);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">#endif /* HPSUX_NONSTANDARD_X11_KLUDGE */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">if (connect(sock, (struct sockaddr *)&amp;ssun,
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">AF_UNIX_SIZE(ssun)) &lt; 0)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">{
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">error("connect %.100s: %.100s",
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">ssun.sun_path, strerror(errno));
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">close(sock);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">goto fail;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* OK, we now have a connection to the display. */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">goto success;
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">}
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">success:
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">/* We have successfully obtained a connection to
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">* the real X display.
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">*/
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">#if defined(O_NONBLOCK) &amp;&amp; !defined(O_NONBLOCK_BROKEN)
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">(void)fcntl(sock, F_SETFL, O_NONBLOCK);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">#else /* O_NONBLOCK &amp;&amp; !O_NONBLOCK_BROKEN */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">(void)fcntl(sock, F_SETFL, O_NDELAY);
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">#endif /* O_NONBLOCK &amp;&amp; !O_NONBLOCK_BROKEN */
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">______________________________________________________
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">随后客户端用这个 socket 设置一个新通道。注意,如果客户端主机的本地没有终端显示器,在这一步,它也按自己的环境变量 $DISPLAY 的值,打开一个 TCP socket 与远程 X服务器连接。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">最后服务器把前面已经构造出的显示列表记录第一字段和客户端发送来的协议号与认证钥结合在一起构成一条显示记录,置入用户的.Xauthority 文件中。并把 $DIAPLAY 环境变量的值设置为这条记录第一个字段的显示名。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">做了这些之后,就可以进行 X 转发了。服务器运行 X程序时使用这个虚拟的 X 显示提交图形显示请求,把图形显示数据写入这个虚拟的 X 显示,也即写入上面新建的通道发给客户端。客户端取得这些数据后再把它写入自己刚刚建立的与 X 服务器连接的通道,也即向 X 服务器提交显示请求。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">为什么客户端不直接把自己 .Xauthority 文件中一条显示配置记录交给服务器,由服务器按这条记录直接打开 TCPsocket 与客户端的 X 建立连接呢?ssh 的安全性也就在这里,如果这样做,就把等于把自己的 X 服务器完全奉送给外界来使用,而 X 服务器本身又是问题多多的。前面伪造一个认证钥也是出于这个考虑,因为如果知道了认证钥,显示记录里别的几个字段是很容易猜出的。
<P style="TEXT-INDENT: 2em">
<P style="TEXT-INDENT: 2em">尽管做了这些,还是存在问题的。如果一个攻击者侵入或掌握着 ssh 服务器运行的主机,那么他/她发现一个 ssh连接并进行 X 转发服务时,设法获取连接者的 $DISPLAY 环境变量值,再执行一下 "xauth value_of_$DISPLAY" 命令,就得到显示记录了。随后他/她用 "xauth add" 命令把这条记录加入自己的 .Xauthority 文件中,再把自己的$DISPLAY环境变量设置成这条记录的显示名。这样他/她就可以在 X转发连接期间运行 X 程序,X 程序的显示请求全部提交给客户端的 X 服务器了。如果 X 服务器有什么漏洞的话,他/她可以自由运用了。 </P></SPAN>
页: [1]
查看完整版本: SSH通信协议浅析