4

私は次のClojureコードを持っています：

(ns myproject.hmac-sha256
    (:import (javax.crypto Mac)
             (javax.crypto.spec SecretKeySpec)))

(defn secretKeyInst [key mac]
    (SecretKeySpec. (.getBytes key) (.getAlgorithm mac)))

(defn toString [bytes]
    "Convert bytes to a String"
    (String. bytes "UTF-8"))

(defn sign [key string]
    "Returns the signature of a string with a given 
    key, using a SHA-256 HMAC."
    (let [mac (Mac/getInstance "HMACSHA256")
          secretKey (secretKeyInst key mac)]
          (-> (doto mac
                (.init secretKey)
                (.update (.getBytes "UTF-8")))
              .doFinal
              toString)))

REPLでこの関数を使用するとsign、奇妙なグリフが出力されます。

(sign "key" "The quick brown fox jumps over the lazy dog")
"*��`��n�S�F�|�؏�o�r���"

一方、 https：//en.wikipedia.org/wiki/Hash-based_message_authentication_code#Examples_of_HMAC_.28MD5.2C_SHA1.2C_SHA256.29f7bc83f430538424b13298e6aa6fb143ef4d59a14946175997479dbc2d1a3cd8に従って期待していました

これは間違いなく文字列エンコーディングの問題ですが、エンコーディングについてはよくわかりません。誰か助けてもらえますか？

4

1 に答える 1

8

出力を例と比較できる形式にするには、上記で定義したtoStringを呼び出さずに、代わりに.doFinalの結果をバイト配列として扱い、16進数で出力します。上記の例は、入力文字列の代わりに文字列「UTF-8」に署名しています。

 (defn sign [key string]
  "Returns the signature of a string with a given
    key, using a SHA-256 HMAC."
  (let [mac (Mac/getInstance "HMACSHA256")
        secretKey (secretKeyInst key mac)]
    (-> (doto mac
          (.init secretKey)
          (.update (.getBytes string)))
        .doFinal)))

myproject.hmac-sha256>  (apply str (map #(format "%x" %) (sign "key" "The quick brown fox jumps over the lazy dog")))
"f7bc83f430538424b13298e6aa6fb143ef4d59a14946175997479dbc2d1a3cd8"

次に、toString関数を次のように記述できます。

(defn toHexString [bytes]
  "Convert bytes to a String"
  (apply str (map #(format "%x" %) bytes)))
于 2013-03-16T00:14:18.310 に答える