hmac_sha256.cljs

(ns hmac-test.core
  (:require [goog.crypt :as crypt]
            [goog.crypt.Sha256]
            [goog.crypt.Hmac]))

(defn string->bytes [s]
  (crypt/stringToUtf8ByteArray s))

(defn bytes->hex [bytes]
  (crypt/byteArrayToHex bytes))

(defn hmac-sha256 [secret message]
  (let [hasher (goog.crypt.Sha256.)
        secret (string->bytes secret)
        hmac (goog.crypt.Hmac. hasher secret)]
    (bytes->hex (.getHmac hmac message))))