From cdc7ec7aa7f1688f230bec27175b2c0e609a906f Mon Sep 17 00:00:00 2001
From: Sergey Romanov <complefor@rambler.ru>
Date: Mon, 7 Oct 2013 09:17:22 +0400
Subject: [PATCH] fix hash randomisation bug (RT#81442)

---
 lib/Crypt/OpenPGP/SessionKey.pm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/lib/Crypt/OpenPGP/SessionKey.pm b/lib/Crypt/OpenPGP/SessionKey.pm
index a4bbb8f..c78623c 100644
--- a/lib/Crypt/OpenPGP/SessionKey.pm
+++ b/lib/Crypt/OpenPGP/SessionKey.pm
@@ -59,8 +59,8 @@ sub save {
     $buf->put_bytes($key->{key_id}, 8);
     $buf->put_int8($key->{pk_alg});
     my $c = $key->{C};
-    for my $mp (values %$c) {
-        $buf->put_mp_int($mp);
+    for my $prop (sort keys %$c) {
+        $buf->put_mp_int($c->{$prop});
     }
     $buf->bytes;
 }
@@ -69,8 +69,9 @@ sub display {
     my $key = shift;
     my $str = sprintf ":pubkey enc packet: version %d, algo %d, keyid %s\n",
         $key->{version}, $key->{pk_alg}, uc unpack('H*', $key->{key_id});
-    for my $mp (values %{ $key->{C} }) {
-        $str .= sprintf "        data: [%d bits]\n", bitsize($mp);
+    my $c = $key->{C};
+    for my $prop (sort keys %$c) {
+        $str .= sprintf "        data: [%d bits]\n", bitsize($c->{$prop});
     }
     $str;
 }
-- 
1.8.3.4