[转]DZ通行证算法，perl版,php版

OStack程序员社区-中国程序员成长平台 › 门户 › 编程› Perl›Perl教程

原作者: [db:作者] 来自: [db:来源] 收藏邀请

php的

perl的，转自 http://sakuras.cn/2007/01/perlazdg.html

###########加密解密模块开始###############################
use Digest::MD5 qw(md5_hex);
use MIME::Base64;
#加密模块
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;

}

###########加密解密模块结束###############################