因为正好想找下加密解密的方法，虽然CPAN上有不少，但很少有基于KEY加密解密的，正好在DZ上看到了通行证的加密算法，就根据它的算法修改下就成了PERL的版本
以下代码在PERL5.87 LINUX下测试通过，并且可正常加解密中文。
#!/use/bin/perl -w
# Azerbaijan Development Group（AzDG）可逆加密算法perl版
# by nsnake(CGI.NET) 2007.1.24
# http://www.xifan.net.cn AND http://sakuras.cn
#算法参考Discuz! Passport
#（http://www.discuz.net/usersguide/advanced_passport.htm）所以类名都用的和PHP版一样
##########################################################################################
#使用说明
#passport_encrypt()是加密函数，用法为 passport_encrypt($txt, $key)，其中 $txt 是待加密的字串，$key 是私有密匙。
#passport_decrypt()是解密函数，用法为 passport_decrypt($txt, $key)，其中 $txt 是加密后的字串，$key 是私有密匙
#LINUX下测试过，PERL 5.87
use Digest::MD5 qw(md5_hex);
use MIME::Base64;my $test=passport_encrypt('的的大倒萨倒萨','dsd@14dsss');
print '加密后的函数'.$test."\n";
print '解密后的函数'.passport_decrypt($test,'dsd@14dsss');#加密模块
sub passport_encrypt
{
my($txt, $key,$ctr,$tmp)=(shift,shift,0,undef);
srand;
my $encrypt_key = md5_hex(rand 32000);
for(my $i = 0; $i < length($txt); $i++) {
#如果 $ctr = $encrypt_key 的长度，则 $ctr 清零
$ctr = $ctr == length($encrypt_key) ? 0 : $ctr;
#$tmp 字串在末尾增加两位，其第一位内容为 $encrypt_key 的第 $ctr 位, 第二位内容为 $txt 的第 $i 位与 $encrypt_key 的 $ctr 位取异或。然后 $ctr = $ctr + 1
$tmp .= substr($encrypt_key,$ctr,1).(substr($txt,$i,1) ^ substr($encrypt_key,$ctr,1));
$ctr++;
}#返回结果，结果为 passport_key() 函数返回值的 base64 编码结果
return encode_base64(passport_key($tmp, $key));
}
#解密模块
sub passport_decrypt{
my ($txt, $key,$tmp)=(shift,shift,undef);
#$txt 的结果为加密后的字串经过 base64 解码，然后与私有密匙一起经过 passport_key() 函数处理后的返回值
$txt = passport_key(decode_base64($txt), $key);#for 循环，$i 为从 0 开始，到小于 $txt 字串长度的整数
for (my $i = 0; $i < length($txt); $i++) {
# $tmp 字串在末尾增加一位，其内容为 $txt 的第 $i 位与 $txt 的第 $i + 1 位取异或。然后 $i = $i + 1
$tmp .= substr($txt,$i,1) ^substr($txt,++$i,1);
}
#返回 $tmp 的值作为结果
return $tmp;}
#密匙模块
sub passport_key {
my ($txt, $encrypt_key,$ctr,$tmp)=(shift,shift,0,undef);
#将 $encrypt_key 赋为 $encrypt_key 经 md5() 后的值
$encrypt_key = md5_hex($encrypt_key);#for 循环，$i 为从 0 开始，到小于 $txt 字串长度的整数
for(my $i = 0; $i < length($txt); $i++) {
#如果 $ctr = $encrypt_key 的长度，则 $ctr 清零
$ctr = $ctr == length($encrypt_key) ? 0 : $ctr;
#$tmp 字串在末尾增加一位，其内容为 $txt 的第 $i 位， 与 $encrypt_key 的第 $ctr + 1 位取异或。然后 $ctr = $ctr + 1
$tmp .= substr($txt,$i,1) ^ substr($encrypt_key,$ctr,1);
$ctr++;
}# 返回 $tmp 的值作为结果
return $tmp;}
