猪圈 下 Tag 为AzDG 的日记

用PERL实现AzDG可逆加密算法

因为正好想找下加密解密的方法,虽然CPAN上有不少,但很少有基于KEY加密解密的,正好在DZ上看到了通行证的加密算法,就根据它的算法修改下就成了PERL的版本 以下代码在PERL5.87 LINUX下测试通过,并且可正常加解密中文。...