2012-01-19 21:55:25 -05:00
|
|
|
(define-interface encryption-interface
|
|
|
|
|
(export
|
|
|
|
|
blowfish-encrypt
|
2012-01-20 01:07:14 -05:00
|
|
|
blowfish-encrypt
|
|
|
|
|
blowfish-encrypt-block
|
|
|
|
|
blowfish-decrypt-block))
|
2012-01-19 21:55:25 -05:00
|
|
|
|
|
|
|
|
(define-structure schemedoc
|
|
|
|
|
schemedoc-interface
|
|
|
|
|
(open scheme)
|
|
|
|
|
(files blowfish dictionary))
|
|
|
|
|
|
