• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

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

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
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;

}

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



鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
寒假【perl语言学习脚本】3.1 3.2 3.3发布时间:2022-07-22
下一篇:
perl中数组函数:delete和grep发布时间:2022-07-22
热门推荐
热门话题
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap