From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

DOHERTY / Hack-Natas-0.003 / bin / natas16 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
—
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109

              
#!/usr/bin/env perl
use strict;
use warnings;
use v5.16.0;
package
    natas16;
our $VERSION = '0.003'; # VERSION
# ABSTRACT: solve level 16 of overthewire.org's Natas server-side security war games
use Hack::Natas::16;
use Getopt::Long;
my $opts = { version => 0 };
GetOptions( $opts, 'version' );
if ($opts->{version}) {
    say __PACKAGE__ . ' version ' . (__PACKAGE__->VERSION // 'dev');
    exit;
}
my $http_pass = shift || do {
    require Term::ReadPassword;
    Term::ReadPassword::read_password('Password for this level: ');
};
my $hack = Hack::Natas::16->new(http_pass => $http_pass);
local $SIG{INT} = sub { printf "\rPassword so far: %s\n", $hack->password_so_far; exit 1 };
$hack->run;
__END__
=pod
=encoding utf-8
=head1 NAME
natas16 - solve level 16 of overthewire.org's Natas server-side security war games
=head1 VERSION
version 0.003
=head1 SYNOPSIS
B<natas16> [ password ]
=head1 DESCRIPTION
L<overthewire.org|http://www.overthewire.org/wargames/> has a series of war games.
Natas is the server-side security challenge.
Level 16 requires you to do blind shell injection. Guessing each one-character
slice of a 32-character password is tedious and prone to errors if done manually,
so this script automates the process. You will be prompted interactively for the
password to access this level. If you prefer to run noninteractively, you can
give the password as the first argument on the command line, but note that the
password will be visible to other users on the system.
=head1 OPTIONS
=over 4
=item --version
Print the version number and exit
=back
=head1 SEE ALSO
=over 4
=item * L<natas15>
=item * L<App::Natas>
=back
=head1 AVAILABILITY
The project homepage is L<https://hashbang.ca/tag/natas>.
The latest version of this module is available from the Comprehensive Perl
Archive Network (CPAN). Visit L<http://www.perl.com/CPAN/> to find a CPAN
site near you, or see L<https://metacpan.org/module/Hack::Natas/>.
=head1 SOURCE
The development version is on github at L<http://github.com/doherty/Hack-Natas>
and may be cloned from L<git://github.com/doherty/Hack-Natas.git>
=head1 BUGS AND LIMITATIONS
You can make new bug reports, and view existing ones, through the
web interface at L<https://github.com/doherty/Hack-Natas/issues>.
=head1 AUTHOR
Mike Doherty <doherty@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2013 by Mike Doherty.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut