[PerlChina] Re: 请教perl字符串加密算法..于小弟是初学者,学习加密时遇到问题,现求教之:

aes感觉又太大了,这有个方法,只是加密后字符串太长了.

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 Base64encode(passport_key($tmp, $key));
}

#解密模块
sub passport_decrypt{
my ($txt, $key,$tmp)=(shift,shift,undef);
#$txt 的结果为加密后的字串经过 base64 解码，然后与私有密匙一起经过 passport_key() 函数处理后的返回值
$txt = passport_key(Base64decode($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;

}

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---