openssl 1.0.1のHeartbleed問題について修正差分を眺めたり秘密鍵が漏洩するのか調べてみた

openssl 1.0.1のHeartbleed問題の公表から6日。「全世界の17%のウェブサーバに影響がある」という報道にはそんなに少ないのかとびっくりしたけど。Red Hat Enterprise Linux 6 (RHEL6)は6.5でopenssl 1.0.1に上がっているので、それ以前のopensslを採用しているRHEL 6.0〜6.4、RHEL 5.xへのへの影響はないからということかもしれない。それだけ世の中のウェブサーバのセキュリティアップデートはないがしろにされていると思う。

とは言いつつも、既に上記問題への対応は完了したので、腰を落ち着けて、Heartbleed対策のパッチを眺めてみた。 これを発見した人はよく気づいたなぁ、と思う。よく見ると同じようなコードが二ヶ所にまたがってんね、ってことだけ感じたところで時間切れ。

で、影響のあるopensslで使われていた秘密鍵が漏洩するかのコンテスト？（challenge）が4/11にCDNのCloudFlareから出ていた http://blog.cloudflare.com/the-results-of-the-cloudflare-challenge 。当日中にFedor Indutny https://twitter.com/indutny によって秘密鍵が取得されたことが確認されたので、やはり、秘密鍵の再発行とこれまで使っていた秘密鍵の無効化とが必要であることが分かったね、という話でした。

対応への動きが遅い企業もあったりしそうだけど、コスト・難易度は十分に低いので、ちゃんと対応するべきかと思いますね。。。

パッチは以下の通り。

• http://git.openssl.org/gitweb/?p=openssl.git;a=commitdiff;h=96db9023b881d7cd9f379b0c154650d6c108e9a3

diff --git a/ssl/d1_both.c b/ssl/d1_both.c
index 7a5596a..2e8cf68 100644
--- a/ssl/d1_both.c
+++ b/ssl/d1_both.c
@@ -1459,26 +1459,36 @@ dtls1_process_heartbeat(SSL *s)
    unsigned int payload;
    unsigned int padding = 16; /* Use minimum padding */
 
-  /* Read type and payload length first */
-  hbtype = *p++;
-  n2s(p, payload);
-  pl = p;
-
    if (s->msg_callback)
        s->msg_callback(0, s->version, TLS1_RT_HEARTBEAT,
            &s->s3->rrec.data[0], s->s3->rrec.length,
            s, s->msg_callback_arg);
 
+   /* Read type and payload length first */
+   if (1 + 2 + 16 > s->s3->rrec.length)
+       return 0; /* silently discard */
+   hbtype = *p++;
+   n2s(p, payload);
+   if (1 + 2 + payload + 16 > s->s3->rrec.length)
+       return 0; /* silently discard per RFC 6520 sec. 4 */
+   pl = p;
+
    if (hbtype == TLS1_HB_REQUEST)
        {
        unsigned char *buffer, *bp;
+       unsigned int write_length = 1 /* heartbeat type */ +
+                       2 /* heartbeat length */ +
+                       payload + padding;
        int r;
 
+       if (write_length > SSL3_RT_MAX_PLAIN_LENGTH)
+           return 0;
+
        /* Allocate memory for the response, size is 1 byte
         * message type, plus 2 bytes payload length, plus
         * payload, plus padding
         */
-      buffer = OPENSSL_malloc(1 + 2 + payload + padding);
+       buffer = OPENSSL_malloc(write_length);
        bp = buffer;
 
        /* Enter response type, length and copy payload */
@@ -1489,11 +1499,11 @@ dtls1_process_heartbeat(SSL *s)
        /* Random padding */
        RAND_pseudo_bytes(bp, padding);
 
-      r = dtls1_write_bytes(s, TLS1_RT_HEARTBEAT, buffer, 3 + payload + padding);
+       r = dtls1_write_bytes(s, TLS1_RT_HEARTBEAT, buffer, write_length);
 
        if (r >= 0 && s->msg_callback)
            s->msg_callback(1, s->version, TLS1_RT_HEARTBEAT,
-              buffer, 3 + payload + padding,
+               buffer, write_length,
                s, s->msg_callback_arg);
 
        OPENSSL_free(buffer);
diff --git a/ssl/t1_lib.c b/ssl/t1_lib.c
index b82fada..bddffd9 100644
--- a/ssl/t1_lib.c
+++ b/ssl/t1_lib.c
@@ -2588,16 +2588,20 @@ tls1_process_heartbeat(SSL *s)
    unsigned int payload;
    unsigned int padding = 16; /* Use minimum padding */
 
-  /* Read type and payload length first */
-  hbtype = *p++;
-  n2s(p, payload);
-  pl = p;
-
    if (s->msg_callback)
        s->msg_callback(0, s->version, TLS1_RT_HEARTBEAT,
            &s->s3->rrec.data[0], s->s3->rrec.length,
            s, s->msg_callback_arg);
 
+   /* Read type and payload length first */
+   if (1 + 2 + 16 > s->s3->rrec.length)
+       return 0; /* silently discard */
+   hbtype = *p++;
+   n2s(p, payload);
+   if (1 + 2 + payload + 16 > s->s3->rrec.length)
+       return 0; /* silently discard per RFC 6520 sec. 4 */
+   pl = p;
+
    if (hbtype == TLS1_HB_REQUEST)
        {
        unsigned char *buffer, *bp;