如何解决如何从Perl脚本输入/回答终端提示?
我正试图破解一个luks分区的忘记密码。我生成了一个组合列表,现在我正尝试从Perl脚本中解密该卷。
问题是从脚本本身输入提示,因为:system('cryptsetup',('open','/dev/sdd1','crypt-vol','--type=luks'))
只是吐出Enter passphrase for /dev/sdd1
并等待我手动输入。
我该如何处理?
非常感谢您的帮助。
* 这是我的密码,并且我还没有完全忘记密码,因此,只要我记得一些细节,就可以创建组合列表。就像> 6k的可能性,所以打破它应该是可行的。
解决方法
不要在cryptsetup中使用“密钥文件”。密钥文件可以是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 $?"
,
我实际上很喜欢使用STDIN的想法,因此,如果有人在此页面上亮过,请考虑是否可以根据自己的情况使用STDIN。
但是我想发布自己的答案,该答案使用Expect Perl模块,因为:
- 我使用了它,并且证明它至少可以在Linux上工作(尽管注释中的问题提到该模块在Windows上运行时存在问题);
- 因为问题的标题没有提及
cryptsetup
(可以接受STDIN上的密码),所以Expect模块就像这里的通用解决方案,应该可以在其他工具上使用;
我的解决方案如下。我没有阅读太多文档,因此可能会有更好的方法来做到这一点。对我来说,掌握对象实例化的概念以及期望/发送方法就足够了。
您可以像在终端中启动程序一样创建实例:
my $exp = Expect->new('progName',($arg1,$arg2,$etc));
然后可以通过expect
(等待/确认程序对用户的输出)和send
(允许用户进行“键入”)方法与之交互。
expect
可以在标量或列表上下文中调用(我使用了清单1),并且它接受期望输出多长时间的字符串或正则表达式。如果在指定时间内没有发生预期的输出,则会引发错误:
#sec to wait for #use regexp (don't match exactly) #regexp to match against
my @out = $exp->expect(10,'-re','smth');
send
仅接受输入
$exp->send('some chars');
就是这样,只需要创建一个脚本就可以像人类用户一样工作。
以防万一它可能对某人有用,我将发布针对cryptsetup的完整特定解决方案(我已经在一个能够安装的虚拟卷上对其进行了测试,并且已经在一个虚拟卷上运行了该解决方案。尝试了6k组合的真实体积,而没有任何明显的问题):
*我忘了在这里关闭文件描述符,所以应该在适当的地方添加close($fd)
use strict;
use warnings;
use feature 'say';
# I installed Expect with its deps locally in my situation,so I had to change @INC
BEGIN {
unshift(@INC,'./perl-mods/lib/perl5/');
unshift(@INC,'./perl-mods/lib/perl5/x86_64-linux-thread-multi/');
}
use Expect;
my $devName = '/dev/sdb3';
my $combinationsFileName = 'combs.txt';
open(my $fd,'<',$combinationsFileName);
my $lineCount = 0;
while (<$fd>) {
my $pass = $_;
chomp($_);
say $_ . ' ' . ++$lineCount;
my $exp = Expect->new('cryptsetup',('open',$devName,'crypt-vol')) or die 'err 1';
my @out = $exp->expect(10,'Enter passphrase') or die 'err 2';
$exp->send($pass);
@out = $exp->expect(10,'No key available') or die 'err 3';
#if cryptsetup returned an error code
if ($out[1]) {
die $out[1] . ' ' . $pass;
}
}
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。