鬼仔's Blog

鬼仔注：对3389的SHIFT后门自动扫描的补充

作者：cloie

#!/usr/bin/perl

use warnings;
use Win32::GUI;

use constant WM_CLOSE           => 16;

sub monitor {
my $handle = Win32::GUI::FindWindow('', '中断远程桌面连接');
Win32::GUI::SendMessage($handle, WM_CLOSE, 0, 0);
}

sub monitor1 {
my $handle = Win32::GUI::FindWindow('', '断开 Windows 会话');
Win32::GUI::SendMessage($handle, WM_CLOSE, 0, 0);
}

while(1){
&monitor;
&monitor1;
sleep(2);
}

在进行SHIFT后门扫描时，如果对方3389未开启，MSTSC超时后会提示“中断远程桌面连接”，这时需要点击确定才能退出MSTSC，以上PERL脚本可以自动实现这步骤。在其他FUZZ过程中，这个也很有用。