string - 在 Haskell 中对字符串进行异或

Question

我想编写一个使用异或密码加密文本的程序。这就是我现在所拥有的:

-- XORres 2 strings
stringXor :: String -> String -> String
stringXor s t = map chr $ zipWith xor (map ord s) (map ord t)

-- encryption and decryption
encDec :: String -> String -> String
encDec text key = stringXor (take (length text) (cycle key)) text

但是 encDec "this is a test""k" 的输出是

  "\US\ETX\STX\CANK\STX\CANK\nK\US\SO\CAN\US"

虽然我期待类似 1f0302184b02184b0a4b1f0e181f4b 的内容。

这里可能出现什么问题？我搜索过类似的问题，但没有太大帮助。

Answer 1

stringXor s t = map chr $ zipWith xor (map ord s) (map ord t)

将 chr 映射到 XOR 的结果。这会产生每个 ASCII 值的字符。要将结果显示为十六进制，您需要找到一个不同的函数来替换 chr 或自己编写一个函数。

旁注:在密码学中，通常使用 Base64 表示法来编码二进制数据而不是十六进制，因为它使用更少的字符(因此更少的内存或网络带宽)来表示相同的二进制序列.