用 Haskell 做了一个简单的 Vigenre 加密

Question

Vigenre 加密算法是一个简单替换密码。我的同学大多都用 Java、VB、VC 来实现。
但我想 Haskell 这样的语言去做这样的数学问题应该是很简单的，所以昨天晚上做了一下尝试。
另外还用 wxHaskell 做了一个很简单的界面。

目前算法的情况是，只支持大写字母的加密，小写字母会自动转化成大写字母，还不支持标点。但是要进行改进的话应该也不难。

存在的问题是：
1. 不清楚如何在 Haskell 中使用中文，好像是与编码有关。
2. 运行用 GHC 编译之后的 exe 文件，除了主窗口之外，后面还会出来一个 CMD 一样的窗口，很是难看。
希望知道解决问题方法的前辈们给一下指点。

附件中有两个文件：Vigenre.hs 是算法实现，VigenreFrame.hs 是界面代码。
希望大家多多拍砖。

编译环境是：Windows XP + GHC 6.8.3 + wxHaskell 0.10.3

核心算法如下：

2. module Vigenre (encrypt, decrypt)
3.     where
5. import Data.List
6. import Char
8. -----------------------------------------------------------------
9. -- helper functions
11. alphaString :: String
12. alphaString = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
14. line :: Int -> String
15. line n = b ++ a
16.     where
17.       (a, b) = splitAt n alphaString
19. indexOfElement :: Char -> Int -> Int
20. indexOfElement e n = i
21.     where
22.       (Just i) = elemIndex e (line n)
24. offset :: Char -> Int
25. offset x = ord x - ord 'A'
27. adjustKey :: String -> String -> String
28. adjustKey m k = map toUpper ((concat $ replicate quotient k)
29.                              ++ take remainder k)
30.     where
31.       quotient =  length m `div` length k
32.       remainder = length m `mod` length k
34. -----------------------------------------------------------------
37. encrypt :: String -> String -> String
38. encrypt msgString keyString = zipWith encrypt' msgString' keyString'
39.     where
40.       encrypt' m k = (line $ offset k) !! (offset m)
41.       keyString' = map toUpper (adjustKey msgString keyString)
42.       msgString' = map toUpper msgString
43.       
44. decrypt :: String -> String -> String
45. decrypt msgString keyString = zipWith decrypt' msgString' keyString'
46.     where
47.       decrypt' m k = chr (indexOfElement m (offset k) + ord 'A')
48.       keyString' = map toUpper (adjustKey msgString keyString)
49.       msgString' = map toUpper msgString

复制代码

[ 本帖最后由 swordfish.cn 于 2008-9-12 10:23 编辑 ]

Answer 1

原帖由 swordfish.cn 于 2008-9-12 10:15 发表
存在的问题是：
1. 不清楚如何在 Haskell 中使用中文，好像是与编码有关。

只要将源文件的编码设置为 UTF-8 即可。

2. 运行用 GHC 编译之后的 exe 文件，除了主窗口之外，后面还会出来一个 CMD 一样的窗口，很是难看。

最开始那个窗口是你调用 panel 的时候产生的。至于说怎么去掉，方法肯定是有的，只不过我不知道

Answer 2

原帖由 swordfish.cn 于 2008-9-12 17:29 发表
问题是，我现在不用 Windows 不行。

Hi，高兴点嘛

Answer 3

问题是，我现在不用 Windows 不行。

Answer 4

原帖由 swordfish.cn 于 2008-9-12 17:04 发表
MMMIX 能否帮我看一下那两个问题怎么解决？多谢。

我可以实验下 Linux 下的情况，Windows 没环境。。。

Answer 5

MMMIX 能否帮我看一下那两个问题怎么解决？多谢。

Answer 6

原帖由 drunkedcat 于 2008-9-12 16:43 发表
望洋兴叹中，我什么时候才能到这样的水平呀？。。。。
努力学习中。。。

很简单的，我也是现炒现卖而已。

Answer 7

原帖由 drunkedcat 于 2008-9-12 16:43 发表
望洋兴叹中，我什么时候才能到这样的水平呀？。。。。

take it easy

Answer 8

望洋兴叹中，我什么时候才能到这样的水平呀？。。。。
努力学习中。。。

Answer 9

Pretty good.