newlisp 使用crypto模块
先从这里下载crypto.lsp文件：http://www.newlisp.org/code/modules/crypto.lsp.html
然后在Ubuntu12.04/12.10 amd64下安装需要的库：
(load "crypto.lsp")(lambda (crypto:str crypto:raw-flag) (if crypto:raw-flag (let (crypto:buff (dup "\000" 20)) (cpymem (crypto:RIPEMD160 crypto:str (length crypto:str) 0) crypto:buff 20) crypto:buff) (join (map (lambda (crypto:x) (format "%02x" (& crypto:x 255))) (unpack (dup "c" 20) (crypto:RIPEMD160 crypto:str (length crypto:str) 0))))))> (crypto:md5 "ABC")"902fbdd2b1df0c4f70b4a5d23525e932"
