Clojure中如何将字节集转换为字符串

Question

以下代码

(defn caesar-block-cypher
  "Computes the caesar block cypher for the given text with the k key. Returns an array of bytes"
  [k text]
  (let [byte-string (.getBytes text)]
    (loop [return-byte-array [] byte-string byte-string]
      (if (= '() byte-string)
        return-byte-array
        (recur
          (conj return-byte-array (byte (+ k (first byte-string))))
          (rest byte-string))))))

返回经过凯撒密码使用密钥k加密处理后的字节数组。我想将字节数组转换回字符串，或者直接使用密文对字符串执行解密操作，但是 (new String return-byte-array) 不起作用。有什么建议吗？

(defn caesar-block-cypher
  "Computes the caesar block cypher for the given text with the k key."
  [k text & more]
    (let [byte-string (.getBytes (apply str text (map str more)))]
      (apply str (map #(char (mod (+ (int %) k) 0x100)) byte-string))))

- Pedro Montoto García

---

你返回的不是一个字节数组而是一个字符串。 (String.b) 将把一个字节数组转换为字符串。 - mac

是的，这正是我一开始的意图。 - Pedro Montoto García

Answer 1

(let [byte-array (caesar-block-cypher 1 "Hello, world!")]
    (apply str (map char byte-array)))

- Mikita Belahlazau

---

通常情况下，Java字节是有符号的：(apply str (map #(char (bit-and % 255)) byte-array)) - Martin Carpenter

Answer 2

使用Java的字符串构造函数可以快速创建字符串，就像这样：

(let [b (caesar-block-cypher 1 "Hello World")]
  (String. b))

- Bo Chen

Answer 3

您可以使用 slurp ，它也适用于字节数组：

来自https://clojuredocs.org/clojure.core/slurp#example-588dd268e4b01f4add58fe33

;; you can read bytes also

(def arr-bytes (into-array Byte/TYPE (range 128)))
(slurp arr-bytes)

- svelten

Answer 4

据我所知，凯撒密码只是简单地移位字符，为什么你要处理字节呢？

（让[s“攻击”
      k 1
      编码（map＃（char（+（int％）k））s）
      解码（map＃（char（-（int％）k））编码）]
  （应用str解码））

- Hamza Yerlikaya