字符串生成代码参考(aaa...a to zzz...z)

中国红啊

程序会生成aa...a 到 zz...z这样的字符串，也就是我们常见的多位字符字典
按照程序提示，输入数字，就会生成相应长度的全部字符了
程序本身没有什么太大的意义，但是当用于穷举式破解时，应该能用到下面的代码
（以前写md5crack的时候用for循环实现过，这次用了foreach，从某些角度来说，因为perl中foreach里的名字空间与for循环中的不一样，是局部的，速度也许会快些）

程序中有一个重点和一个技巧：1、重点在eval的用法；2、技巧在转意符“\r”在win32下的用法

print "please input the length : ";
my $i = <>;
#$i = shift;
chomp $i;

for (1..$i) {
        $n[$_] = 0;
        $fun .= "foreach \$n$_ (a..z){\n";
        $str .= "\$n$_.";
}
chop $str;
$fun .= "print \"Now -> \"\, $str\,\"\\r\"\;\n";
$fun .= "}\n"x$i;
eval  $fun;

哥是个传说的

挖- -看不懂啊 啊啊啊