sshock2_kpbrute.pl

#!/usr/bin/perl
# System Shock 2 keypad bruteforcer by morb (@m0rb on github/twitter)
# Circa 12/15/17

use warnings;
use X11::GUITest qw/:ALL/;
use Data::Dumper;

my @args = 10000..99999;
my @win = FindWindowLike 'System Shock' or die 'nope';
RaiseWindow(@win) or die;
SetInputFocus(@win) or die;
SendKeys('{TAB}');
ClickMouseButton M_RIGHT;

foreach my $test (@args) {
my $what = sprintf("%05s", $test);
SendKeys($what);
}