Create SHA256 hash in Clarity

(define-read-only (create-sha256-hash (data (buff 4096)))
  (sha256 (unwrap-panic (to-consensus-buff? data)))
)

;; Example usage
(define-read-only (hash-message (message (string-utf8 200)))
  (create-sha256-hash (unwrap-panic (to-consensus-buff? message)))
)

;; Hash a simple string
(print (hash-message u"Hello World"))

;; Hash a principal
(define-read-only (hash-principal (user principal))
  (sha256 (unwrap-panic (to-consensus-buff? user)))
)

;; Hash a number
(define-read-only (hash-uint (number uint))
  (sha256 (unwrap-panic (to-consensus-buff? number)))
)

;; Hash multiple values together
(define-read-only (hash-tuple (val1 uint) (val2 (string-utf8 50)))
  (sha256 (unwrap-panic (to-consensus-buff? {
    value1: val1,
    value2: val2
  })))
)

(define-map commitments principal (buff 32))

(define-public (commit (commitment (buff 32)))
  (begin
    (map-set commitments tx-sender commitment)
    (ok true)
  )
)

(define-public (reveal (secret (string-utf8 100)) (nonce uint))
  (let (
    (commitment (unwrap! (map-get? commitments tx-sender) (err u1)))
    (calculated-hash (sha256 (unwrap-panic (to-consensus-buff? {
      secret: secret,
      nonce: nonce
    }))))
  )
    (asserts! (is-eq commitment calculated-hash) (err u2))
    ;; Process the revealed secret
    (ok secret)
  )
)

;; This Clarity function produces the same hash as:
;; sha256(serializeCV(stringUtf8CV("Hello World")))
;; in Stacks.js

(define-read-only (compatible-hash (text (string-utf8 200)))
  (sha256 (unwrap-panic (to-consensus-buff? text)))
)