mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 21:59:17 +02:00
c52873e8b9
a SRFI 60 installed which imports (scheme base). This can still break in theory if a user installs a third-party SRFI 33 in the search path in front of the Chibi SRFI 33, but we can't always be safe against such behavior. Fixes issue #267.
29 lines
810 B
Scheme
29 lines
810 B
Scheme
|
|
;;> Implementation of the SHA-2 (Secure Hash Algorithm) cryptographic
|
|
;;> hash.
|
|
|
|
(define-library (chibi crypto sha2)
|
|
(import (scheme base))
|
|
(export sha-224 sha-256)
|
|
(cond-expand
|
|
(chibi
|
|
(include "sha2-native.scm")
|
|
(include-shared "crypto"))
|
|
(else
|
|
(cond-expand
|
|
((library (srfi 33)) (import (srfi 33)))
|
|
(else (import (srfi 60))))
|
|
(import (chibi bytevector))
|
|
(include "sha2.scm"))))
|
|
|
|
;;> \procedure{(sha-224 src)}
|
|
;;>
|
|
;;> Computes SHA-224 digest of the \var{src} which can be a string,
|
|
;;> a bytevector, or a binary input port. Returns a hexadecimal string
|
|
;;> (in lowercase).
|
|
|
|
;;> \procedure{(sha-256 src)}
|
|
;;>
|
|
;;> Computes SHA-256 digest of the \var{src} which can be a string,
|
|
;;> a bytevector, or a binary input port. Returns a hexadecimal string
|
|
;;> (in lowercase).
|