如何从Perl脚本输入/回答终端提示?

问题描述

我正试图破解一个luks分区的忘记密码。我生成了一个组合列表,现在我正尝试从Perl脚本中解密该卷。

问题是从脚本本身输入提示,因为:system('cryptsetup',('open','/dev/sdd1','crypt-vol','--type=luks'))只是吐出Enter passphrase for /dev/sdd1并等待我手动输入。

我该如何处理?

非常感谢您的帮助。

* 这是我的密码,并且我还没有完全忘记密码,因此,只要我记得一些细节,就可以创建组合列表。就像> 6k的可能性,所以打破它应该是可行的。

解决方法

暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!

如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@)