1 files changed, 6 insertions, 2 deletions

diff --git a/Data/OpenPGP/Util/Cv25519.hs b/Data/OpenPGP/Util/Cv25519.hs
index d5ac641..abf1ba6 100644
--- a/Data/OpenPGP/Util/Cv25519.hs
+++ b/Data/OpenPGP/Util/Cv25519.hs
@@ -230,13 +230,17 @@ decryptMessage ecdhkey asym encdta = do
         (_,_, Message ps) <- either (const Nothing) Just $ decodeOrFail b1
         return ps
 
-importSecretCv25519 :: Cv25519.SecretKey -> [(Char,MPI)]
-importSecretCv25519 k =
+encodeAlgorithms :: OpenPGP.HashAlgorithm -> OpenPGP.SymmetricAlgorithm -> Integer
+encodeAlgorithms hsh sym = fromIntegral $ 0x03010000 .|. (fromEnum hsh `shiftR` 8) .|. fromEnum sym
+
+importSecretCv25519 :: OpenPGP.HashAlgorithm -> OpenPGP.SymmetricAlgorithm -> Cv25519.SecretKey -> [(Char,MPI)]
+importSecretCv25519 hsh sym k =
     [ ('c', MPI oid_cv25519)
     , ('l', MPI 128)
     , ('n', MPI pub)
     , ('f', MPI 0x40)
     , ('d', MPI sec)
+    , ('e', MPI $ encodeAlgorithms hsh sym)
     ]
  where
     pub = getBigNum $ BA.convert $ Cv25519.toPublic k