URL转换脚本
来源：http://demonalex.nease.net
#!usr/bin/perl -w
print"************************** ";
print"* CopyRight By DemonAlex * ";
print"************************** ";
print"Please enter: ";
$string=<STDIN>;
chop($string);
$num=length($string);
for($num2=0;$num2<$num;$num2++){
$str[$num2]=substr($string,$num2,1);
print(%);
printf("%x",ord($str[$num2]));
}
print" ";
exit 1;
#实例输出:
#**************************
#* CopyRight By DemonAlex *
#**************************
#Please enter:
#demonalex.cn.st
#%64%65%6d%6f%6e%61%6c%65%78%2e%63%6e%2e%73%74
#PS: %64%65%6d%6f%6e%61%6c%65%78%2e%63%6e%2e%73%74就是我的主页地址了。
#有问题请email: demonalex_at_dark2s.org
补充：综合编程 , 安全编程 ,
