#!/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社工密码字典生成器
最新推荐文章于 2024-08-07 15:51:02 发布
这是一个使用Perl编写的脚本,用于生成社会工程学密码字典。它接受命令行参数,包括单词和数字,创建所有可能的大小写组合和排列,并将结果输出到指定的文件中。脚本包含了对输入参数的验证,如检查单词是否只包含字母,数字是否只包含数字,以及提供帮助信息。
摘要由CSDN通过智能技术生成