2021-06-12 18:31:34 +00:00
|
|
|
#lang racket/base
|
|
|
|
;;; SPDX-License-Identifier: LGPL-3.0-or-later
|
|
|
|
;;; SPDX-FileCopyrightText: Copyright © 2011-2021 Tony Garnock-Jones <tonyg@leastfixedpoint.com>
|
|
|
|
|
2021-06-13 05:57:13 +00:00
|
|
|
(provide (all-from-out crypto)
|
|
|
|
(all-defined-out))
|
2021-06-12 18:31:34 +00:00
|
|
|
|
|
|
|
(require crypto)
|
|
|
|
(require crypto/all)
|
|
|
|
(use-all-factories!)
|
2021-06-13 05:57:13 +00:00
|
|
|
|
|
|
|
(define (sha1 bs)
|
|
|
|
(digest 'sha1 bs))
|
|
|
|
|
|
|
|
(define (sha256 bs)
|
|
|
|
(digest 'sha256 bs))
|