perl - 如何从 Perl 脚本输入/回答终端提示？

Question

我正在尝试破解 luks 分区的忘记密码。我生成了一个组合列表，现在我正在尝试从 Perl 脚本解密该卷。
问题是从脚本本身输入提示，因为:system('cryptsetup', ('open', '/dev/sdd1', 'crypt-vol', '--type=luks'))只是吐Enter passphrase for /dev/sdd1并等待我手动输入。
我该如何解决这个问题？
非常感谢您的帮助。
* 这是我的音量，我没有完全忘记密码，所以我创建了组合列表，前提是我记得一些细节。这就像> 6k的可能性，所以打破它应该是可行的。

Answer 1

不要，在 cryptsetup 中使用“ key 文件”。 key 文件可以是 STDIN。
所以:

echo "passphrase_here" | cryptsetup -d - <other  options>

在 perl 中你可以使用 IPC::Run2为此，它允许您读/写 FH，但如果您只需要返回代码来测试密码，则不需要。
例如。 https://blog.sleeplessbeastie.eu/2019/03/27/how-to-test-luks-passphrase/
所以:

open ( my $crypter, '|-', "cryptsetup luksOpen -d - --test-passphrase " )

print {$crypter} "Your passphrase";

close ( $crypter );
print "Got return code of $?"