perl的处理问题，请求助

perl处理des，请问要如何实现这个功能，要如何实现，非常紧急，求代码

__****不知道呢