perl实现可打印字符加法（ascii:32-126）
发布时间：2020-12-15 23:48:37 所属栏目：大数据 来源：网络整理
导读：#!/usr/bin/perl -wsub add_32to126{ my $word = $_[0]; $last_char_num = ord(substr($word,-1,1))+1; if($last_char_num == 127){ chop($word); if($word eq ''){ $word .= chr(32); }else{ if(substr($word,1) eq chr(126)){ $word = add_32to126($word);
#!/usr/bin/perl -w
sub add_32to126{
my $word = $_[0];
$last_char_num = ord(substr($word,-1,1))+1;
if($last_char_num == 127){
chop($word);
if($word eq ''){
$word .= chr(32);
}else{
if(substr($word,1) eq chr(126)){
$word = &add_32to126($word);
}else{
$word .= chr(ord(chop($word))+1);
}
}
$word .= chr(32);
return $word;
}else{
$word .= chr(ord(chop($word))+1);
}
}
$pass = ' ';
while(1){
print "|$pass|".$/;
$pass = &add_32to126($pass);
#sleep (1);
}
可以用来爆破。 输出如： |!ZS| 。。。 （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |