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

swordfish.cn

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

核心算法如下：

1. 
   
2. module Vigenre (encrypt, decrypt)
   
3.     where
   
4. 
   
5. import Data.List
   
6. import Char
   
7. 
   
8. -----------------------------------------------------------------
   
9. -- helper functions
   
10. 
    
11. alphaString :: String
    
12. alphaString = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    
13. 
    
14. line :: Int -> String
    
15. line n = b ++ a
    
16.     where
    
17.       (a, b) = splitAt n alphaString
    
18. 
    
19. indexOfElement :: Char -> Int -> Int
    
20. indexOfElement e n = i
    
21.     where
    
22.       (Just i) = elemIndex e (line n)
    
23. 
    
24. offset :: Char -> Int
    
25. offset x = ord x - ord 'A'
    
26. 
    
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
    
33. 
    
34. -----------------------------------------------------------------
    
35. 
    
36. 
    
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 编辑 ]

swordfish.cn

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

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

swordfish.cn

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

swordfish.cn

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