源码文件 test #!./perl BEGIN { push(@INC, qw(../../../lib ../../lib ../lib lib)); } use DES; $key='00000000'; $ks=DES::set_key($key); @a=spli…