4 lines
166 B
Text
4 lines
166 B
Text
|
(import (otus ffi))
|
||
|
|
(define libcrypto (load-dynamic-library "libcrypto.so.1.0.0"))
|
||
|
|
(define MD5 (libcrypto type-vptr "MD5" type-string fft-unsigned-long type-string))
|