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

php的

function passport_encrypt($txt, $key) {
    srand((double)microtime() * 1000000);
    $encrypt_key = md5(rand(0, 32000));
    $ctr = 0;
    $tmp = '';
    for($i = 0;$i < strlen($txt); $i++) {
        $ctr = $ctr == strlen($encrypt_key) ? 0 : $ctr;
        $tmp .= $encrypt_key[$ctr].($txt[$i] ^ $encrypt_key[$ctr++]);
    }
    return base64_encode(passport_key($tmp, $key));
}

function passport_decrypt($txt, $key) {
    $txt = passport_key(base64_decode($txt), $key);
    $tmp = '';
    for($i = 0;$i < strlen($txt); $i++) {
        $md5 = $txt[$i];
        $tmp .= $txt[++$i] ^ $md5;
    }
    return $tmp;
}

function passport_key($txt, $encrypt_key) {
    $encrypt_key = md5($encrypt_key);
    $ctr = 0;
    $tmp = '';
    for($i = 0; $i < strlen($txt); $i++) {
        $ctr = $ctr == strlen($encrypt_key) ? 0 : $ctr;
        $tmp .= $txt[$i] ^ $encrypt_key[$ctr++];
    }
    return $tmp;
}

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;

}

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