在Ubuntu12.04/12.10 amd64下安裝需要的庫： [cpp] apt-get install libssl0.9.8 之後創建一個鏈接： [plain] www.2cto.com ln -s /lib/x86_64-linux-gnu/libcrypto.so.0.9.8 /usr/lib/ 現在啟動newlisp交互環境，試一下： [plain] (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"
