20 lines
482 B
Scheme
Executable File
20 lines
482 B
Scheme
Executable File
#! /usr/bin/env mzscheme
|
|
|
|
#lang scheme/base
|
|
|
|
(require ffi/crypt)
|
|
|
|
(define passwd "foo")
|
|
(define salt "xz")
|
|
(printf ">>> crypt(~s,~s) = ~s\n" passwd salt (crypt passwd salt))
|
|
|
|
;; md5-based version
|
|
(set! salt "$1$somesalt$")
|
|
(printf ">>> crypt(~s,~s) = ~s\n" passwd salt (crypt passwd salt))
|
|
|
|
(newline)
|
|
(define foo "foo bar")
|
|
(define key (string->bytes/utf-8 "my key"))
|
|
(printf ">>> ~s --encrypt--> ~s --decrypt--> ~s\n"
|
|
foo (encrypt foo key) (decrypt (encrypt foo key) key))
|