user-pic

一段测试代码

Vote 0 Votes



功能不做解释,纯粹测试而已


#!/usr/bin/perl
#######################
#BY 路杨
#######################
use CGI::Carp qw(fatalsToBrowser);

print "Content-Type: text/html\n\n";

my $key =  # hex("60d74cca37170860688e2f15daa5d17e");#
 &doit("ffe");
print $key;


sub doit
{
my $md5 = shift;
my $len = length($md5)-1;
my $bit ='';
# my (@bits,$bit,$i);

for my $i(0...$len)
{ my $bittmp = sprintf('%4b',hex(substr($md5,$i,1))).'['.$i.']'; $bit =$bittmp.$bit;}
return $bit;
}

2 Replies

| Add a Reply

Add a Reply

Forum Groups

Good Perl Books

Perl 學習手札

作者:簡信昌

Perl 學習手札 , 一本优秀的中文Perl在线学习资料。

Perl 程序讨论区

12 50

Last Topic: [注意]本区文章归档区 by 路杨 on Oct 16, 2006

事物处理及其他

113 1410

Last Topic: 踩个脚印 by 眼睛oo on Dec 4, 2010

测试私密区

测试私密区

18 88

Notice: 用于测试程序或者不可告人之秘密。不要问我要密码哦。。[此为原LB_ES论坛系统保留项,只限原有权限朋友进入,不再接受注册]

OpenID accepted here Learn more about OpenID