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"