我有一个 perl 代码,但是每当我运行它时,我似乎无法弄清楚如何定义第一个和第二个参数。这是代码,非常感谢帮助。
#!/usr/bin/env perl
use Crypt::PBKDF2;
if (@ARGV < 2) {
print "[!] Error: please specify hash (first argument) and salt (second argument)\n";
exit (1);
}
my $match = pack ("H*", $ARGV[0]); # TODO: check if it is of length 40
my $salt = pack ("H*", $ARGV[1]); # of length 8?
my $iter = 1000;
my $pbkdf2 = Crypt::PBKDF2->new (hash_class => 'HMACSHA1', iterations => $iter);
my $num;
for ($num = 0; $num < 10000; $num++) {
my $pass = sprintf ("%04d", $num);
my $hash = $pbkdf2->PBKDF2 ($salt, $pass);
if ($match eq $hash) {
printf ("%s:%s:%s:%s\n", unpack ("H*", $hash), unpack ("H*", $salt), $iter, $pass);
exit (0);
}
}
exit (1);
最佳答案
如果您引用这两个参数
my $match = pack ("H*", $ARGV[0]); # TODO: check if it is of length 40
my $salt = pack ("H*", $ARGV[1]); # of length 8?
它们是在命令行中定义的。
假设您的脚本文件是 script.pl 在命令行中,您需要运行
perl script.pl <match> <salt>
@ARGV 是包含 Perl 中命令行参数的数组
关于Perl 代码,定义参数,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/27262051/