/usr/share/racket/collects/openssl/sha1.rkt is in racket-common 6.1-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 | #lang racket/base
(require ffi/unsafe
racket/runtime-path
(for-syntax racket/base)
(prefix-in r: file/sha1)
"libcrypto.rkt")
(provide sha1
sha1-bytes
(rename-out [r:bytes->hex-string bytes->hex-string])
(rename-out [r:hex-string->bytes hex-string->bytes]))
(define _SHA_CTX-pointer _pointer)
(define SHA1_Init
(and libcrypto
(get-ffi-obj 'SHA1_Init libcrypto (_fun _SHA_CTX-pointer -> _int) (lambda () #f))))
(define SHA1_Update
(and libcrypto
(get-ffi-obj 'SHA1_Update libcrypto (_fun _SHA_CTX-pointer _pointer _long -> _int) (lambda () #f))))
(define SHA1_Final
(and libcrypto
(get-ffi-obj 'SHA1_Final libcrypto (_fun _pointer _SHA_CTX-pointer -> _int) (lambda () #f))))
(define (sha1-bytes in)
(unless (input-port? in) (raise-argument-error 'sha1-bytes "input-port?" in))
(if SHA1_Init
(let ([ctx (malloc 256)]
[tmp (make-bytes 4096)]
[result (make-bytes 20)])
(SHA1_Init ctx)
(let loop ()
(let ([n (read-bytes-avail! tmp in)])
(unless (eof-object? n)
(SHA1_Update ctx tmp n)
(loop))))
(SHA1_Final result ctx)
result)
(r:sha1-bytes in)))
(define (sha1 in)
(unless (input-port? in) (raise-argument-error 'sha1 "input-port?" in))
(r:bytes->hex-string (sha1-bytes in)))
|