频道栏目
首页 > 程序开发 > 软件开发 > C++ > 正文
newlisp 使用crypto模块
2013-01-25 08:16:40      个评论      
收藏   我要投稿
在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"  

 

点击复制链接 与好友分享!回本站首页
相关TAG标签 模块
上一篇:特殊的数——九度oj(1402)
下一篇:vector和set的区别
相关文章
图文推荐
点击排行

关于我们 | 联系我们 | 广告服务 | 投资合作 | 版权申明 | 在线帮助 | 网站地图 | 作品发布 | Vip技术培训 | 举报中心

版权所有: 红黑联盟--致力于做实用的IT技术学习网站