perl社工密码字典生成器

最新推荐文章于 2025-06-27 12:17:31 发布

原创

最新推荐文章于 2025-06-27 12:17:31 发布 · 3.7k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#密码 #perl #社工 #字典 #排列组合

这是一个使用Perl编写的脚本，用于生成社会工程学密码字典。它接受命令行参数，包括单词和数字，创建所有可能的大小写组合和排列，并将结果输出到指定的文件中。脚本包含了对输入参数的验证，如检查单词是否只包含字母，数字是否只包含数字，以及提供帮助信息。

#!/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 @numbers_array,$para;
		#将“-d”后的数字加入到数组@numbers_array中
	}elsif($parameter eq '-o'){
		my $para = shift @parameter_array;
		$filename = $para;
		#将“-o”后的文件名赋值给$filename变量
	}else{
		die