‹‹ 上一主题 | 下一主题 ››
发新话题
打印

aschex.pl

冰血封情

老林

团队决策人

Rank: 9Rank: 9Rank: 9

E.S.T运营责任人

帖子
6825 
精华
834 
积分
36073 
阅读权限
255 
性别
男 
来自
中国 
在线时间
590 小时 
注册时间
2004-6-25 
最后登录
2008-10-6 

优秀管理奖 资料收集奖 原创技术奖 核心建议奖

楼主 大 中 小 发表于 2004-7-15 23:59  只看该作者

aschex.pl

文章出处：SUPERHEI
复制内容到剪贴板
代码:
#!/usr/bin/perl
#int2hex & int2asc
#codz by superhei
#welcome to [url]http://www.darkne2s.org[/url] & [url]http://www.4ngel.net[/url]

$ARGC = @ARGV;
if ($ARGC != 2) {
print "Usage: $0 <option> <string>\n";
print " 1：2hex \n";
print " 2：2asc \n";
exit;
}

$option = shift;
$string = shift;

if ($option == 1) {
@todo = split("",$string);
@todo2 = map(ord($_),@todo);
@todo3 = map(&int2hex($_),@todo2);
print "0x";
print @todo3;
}elsif ($option == 2) {
@char = unpack(&#39;C*&#39;, $string);

$asc=join(",",@char);

print $asc;}
else {
print "Invalid option!\n";
exit;
}

#codz by analysist
sub int2hex {
my ($int) = @_;
push(@int,int($int/16));
push(@int,int($int%16));
@xxx = (10,11,12,13,14,15);
@yyy = (A,B,C,D,E,F);
$x = 0;
while ($x < @int) {
$y = 0;
while ($y < @xxx) {
if ($int[$x] eq $xxx[$y]) {
push(@hex,$yyy[$y]);
last;
}
$y++;
}
if ($hex[$x] eq "") {
push(@hex,$int[$x]);
}
$x++;
}
$hex = join("",@hex);
undef @int;
undef @hex;
return $hex;
}
qq310926是我唯一用号，除此之外有其他号码号自称邪八冰血封情，则非本人。

TOP

‹‹ 上一主题 | 下一主题 ››
发新话题