用perl来实现三重des的算法，不要伪代码

三重des的伪代码理解，但是在用perl实现的时候，出现差错，希望有程序

****楼上正解********

http://blog.csdn.net/gary162/article/details/50629749

没实现过，只能推荐了：http://blog.sina.com.cn/s/blog_475cb6780100rft7.html