<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body text="#000000" bgcolor="#ffffff">
<div class="moz-text-plain" wrap="true" style="font-family:
-moz-fixed; font-size: 14px;" lang="x-western">
<pre wrap="">The problem in this example is the use of Data.Binary. When using
Data.ByteString.Lazy.Char8 instead, the problem does not exist.
import qualified Codec.Crypto.RSA as Crypto
import System.Random (mkStdGen)
import Data.ByteString.Lazy.UTF8 (toString)
import qualified Data.ByteString.Lazy.Char8 as C8
import qualified Data.ByteString.Lazy
n = 1024
(pubKey,privKey,_) = Crypto.generateKeyPair (mkStdGen n) n
encrypt :: String -> Data.ByteString.Lazy.ByteString
encrypt str = fst $ Crypto.encrypt (mkStdGen n) pubKey (C8.pack str)
decrypt :: Data.ByteString.Lazy.ByteString -> String
decrypt = toString . Crypto.decrypt privKey
decrypt $ encrypt "haskell" = "haskell"
Regards,
Mathias
Am 20.11.2010 13:15, schrieb Charles-Pierre Astolfi:
</pre>
<blockquote type="cite" style="color: rgb(0, 0, 0);">
<pre wrap=""><span class="moz-txt-citetags">> </span>Here's a working example:
<span class="moz-txt-citetags">></span>
<span class="moz-txt-citetags">> </span>import qualified Codec.Crypto.RSA as Crypto
<span class="moz-txt-citetags">> </span>import System.Random (mkStdGen)
<span class="moz-txt-citetags">> </span>import Data.Binary (encode)
<span class="moz-txt-citetags">> </span>import Data.ByteString.Lazy.UTF8 (toString)
<span class="moz-txt-citetags">></span>
<span class="moz-txt-citetags">> </span>n = 1024
<span class="moz-txt-citetags">> </span>(pubKey,privKey,_) = Crypto.generateKeyPair (mkStdGen n) n
<span class="moz-txt-citetags">></span>
<span class="moz-txt-citetags">> </span>encrypt :: (Data.Binary.Binary a) => a ->
<span class="moz-txt-citetags">> </span>Data.ByteString.Lazy.Internal.ByteString
<span class="moz-txt-citetags">> </span>encrypt str = fst $ Crypto.encrypt (mkStdGen n) pubKey (encode str)
<span class="moz-txt-citetags">></span>
<span class="moz-txt-citetags">> </span>decrypt :: Data.ByteString.Lazy.Internal.ByteString -> String
<span class="moz-txt-citetags">> </span>decrypt = toString . Crypto.decrypt privKey
<span class="moz-txt-citetags">></span>
<span class="moz-txt-citetags">> </span>Thus,
<span class="moz-txt-citetags">> </span>decrypt $ encrypt "haskell" = "\NUL\NUL\NUL\NUL\NUL\NUL\NUL\ahaskell"
<span class="moz-txt-citetags">></span>
<span class="moz-txt-citetags">></span>
<span class="moz-txt-citetags">> </span>I'm using Codec.Crypto.RSA and you're quoting Codec.Encryption.RSA,
<span class="moz-txt-citetags">> </span>which is not the same thing; unfortunately I need to use RSAES-OAEP
<span class="moz-txt-citetags">> </span>(SHA1) so I guess I have to stick with Codec.Crypto.RSA.
<span class="moz-txt-citetags">> </span>Any ideas?
<span class="moz-txt-citetags">> </span>--
<span class="moz-txt-citetags">> </span>Cp
<span class="moz-txt-citetags">></span>
<span class="moz-txt-citetags">></span>
<span class="moz-txt-citetags">></span>
<span class="moz-txt-citetags">> </span>On Sat, Nov 20, 2010 at 12:50, Dominic Steinitz <a class="moz-txt-link-rfc2396E" href="mailto:dominic@steinitz.org"><dominic@steinitz.org></a> wrote:
</pre>
<blockquote type="cite" style="color: rgb(0, 0, 0);">
<pre wrap=""><span class="moz-txt-citetags">>> </span>Charles-Pierre Astolfi <cpa <at> crans.org> writes:
<span class="moz-txt-citetags">>></span>
</pre>
<blockquote type="cite" style="color: rgb(0, 0, 0);">
<pre wrap=""><span class="moz-txt-citetags">>>> </span>Hi -cafe,
<span class="moz-txt-citetags">>>></span>
<span class="moz-txt-citetags">>>> </span>I have a question about Codec.Crypto.RSA: how to enforce that
<span class="moz-txt-citetags">>>> </span>(informally) decrypt . encrypt = id
<span class="moz-txt-citetags">>>> </span>Consider this code:
<span class="moz-txt-citetags">>>></span>
</pre>
</blockquote>
<pre wrap=""><span class="moz-txt-citetags">>> </span>That's certainly what I would expect and one of the unit tests that comes with
<span class="moz-txt-citetags">>> </span><a class="moz-txt-link-freetext" href="http://hackage.haskell.org/packages/archive/Crypto/4.2.2/doc/html/Codec-Encryption-RSA.html">http://hackage.haskell.org/packages/archive/Crypto/4.2.2/doc/html/Codec-Encryption-RSA.html</a>
<span class="moz-txt-citetags">>> </span>checks for this. I wasn't able to get you code to compile so I couldn't
<span class="moz-txt-citetags">>> </span>investigate further. Maybe you could post a fully compiling example?
<span class="moz-txt-citetags">>></span>
<span class="moz-txt-citetags">>> </span>_______________________________________________
<span class="moz-txt-citetags">>> </span>Haskell-Cafe mailing list
<span class="moz-txt-citetags">>> </span><a class="moz-txt-link-abbreviated" href="mailto:Haskell-Cafe@haskell.org">Haskell-Cafe@haskell.org</a>
<span class="moz-txt-citetags">>> </span><a class="moz-txt-link-freetext" href="http://www.haskell.org/mailman/listinfo/haskell-cafe">http://www.haskell.org/mailman/listinfo/haskell-cafe</a>
<span class="moz-txt-citetags">>></span>
</pre>
</blockquote>
<pre wrap=""><span class="moz-txt-citetags">> </span>_______________________________________________
<span class="moz-txt-citetags">> </span>Haskell-Cafe mailing list
<span class="moz-txt-citetags">> </span><a class="moz-txt-link-abbreviated" href="mailto:Haskell-Cafe@haskell.org">Haskell-Cafe@haskell.org</a>
<span class="moz-txt-citetags">> </span><a class="moz-txt-link-freetext" href="http://www.haskell.org/mailman/listinfo/haskell-cafe">http://www.haskell.org/mailman/listinfo/haskell-cafe</a>
</pre>
</blockquote>
</div>
</body>
</html>