perl实现可打印字符加法（ascii:32-126）

来源：互联网发布：linux安装邮件服务器编辑：程序博客网时间：2024/04/28 19:12

#!/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,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|
|!ZT|
|!ZU|
|!ZV|
|!ZW|
|!ZX|
|!ZY|
|!ZZ|
|!Z[|
|!Z\|
|!Z]|
|!Z^|
|!Z_|
|!Z`|
|!Za|
|!Zb|
|!Zc|
|!Zd|
|!Ze|
|!Zf|
|!Zg|
|!Zh|
|!Zi|
|!Zj|
|!Zk|
|!Zl|
|!Zm|
|!Zn|
|!Zo|
|!Zp|
|!Zq|
|!Zr|
|!Zs|
|!Zt|
|!Zu|
|!Zv|

。。。

0 0