#!/usr/bin/perl -w
use Math::Combinatorics qw(permute);
#引入排列模块
if (@ARGV == 0){
die "错误:No parameter!Enter \"?\" for help.\n";
}
#若无参数,提示错误并退出
if (@ARGV == 1){
if ($ARGV[0] eq '?'){
&help;
}else{die "Error:At least 2 parameter!\n"}
}
#若只有一个参数,判断是否为“?”。若是则调用help函数,否则提示错误并退出
my @parameter_array = @ARGV;
die "Error:Missing \"-o\" parameter!\n" unless(grep(/^-o$/,@parameter_array));
#若参数中没有“-o”,提示错误并退出
my @words_array;
my @numbers_array;
my $filename;
while(@parameter_array){
#处理每一个参数
my $parameter = shift @parameter_array;
if($parameter eq '-w'){
my $para = shift @parameter_array;
&checkword($para);
push @words_array,$para;
#将“-w”后的字符串加入数组@words_array中
}elsif($parameter eq '-d'){
my $para = shift @parameter_array;
&checknum($para);
push
perl社工密码字典生成器
最新推荐文章于 2022-07-11 07:34:00 发布
用perl实现的简单的社工密码字典生成器。例如在人肉的时候搜集的用户ID为tom,名字为李磊,生日为900801,则可以利用该脚本生成密码字典用来爆破。例如上述信息生成的字典为:tomlilei900801Tomlilei900801TOmlilei900801...liLeitoM900801...lilEi900801toM900801tomLILEI等等...
摘要由CSDN通过智能技术生成