File Coverage

blib/lib/Metabrik/Network/Wps.pm

Criterion	Covered	Total	%
statement	9	32	28.1
branch	0	14	0.0
condition			n/a
subroutine	3	5	60.0
pod	1	2	50.0
total	13	53	24.5

#
# $Id$
#
# network::wps Brik
#
package Metabrik::Network::Wps;
use strict;
use warnings;

use base qw(Metabrik::Network::Wlan Metabrik::System::Package);

sub brik_properties {
   return {
      revision => '$Revision$',
      tags => [ qw(unstable wifi wlan wireless) ],
      author => 'GomoR ',
      license => 'http://opensource.org/licenses/BSD-3-Clause',
      commands => {
         install => [ ], # Inherited
         brute_force_wps => [ qw(essid bssid|OPTIONAL) ],
      },
      require_modules => {
         'Metabrik::Shell::Command' => [ ],
      },
      require_binaries => {
         'sudo', => [ ],
         'reaver', => [ ],
      },
      need_packages => {
         ubuntu => [ qw(reaver) ],
         debian => [ qw(reaver) ],
         kali => [ qw(reaver) ],
      },
   };
}

sub brute_force_wps {
   my $self = shift;
   my ($essid, $bssid) = @_;

   $self->brik_help_run_undef_arg('brute_force_wps', $essid) or return;

   # If user provided bssid, we skip auto-detection
   if (! defined($bssid)) {
      my $scan = $self->scan;
      if (! defined($scan)) {
         return $self->log->error("brute_force_wps: no AP found?");
      }

      my $ap;
      for my $this (keys %$scan) {
         $self->log->info("this[$this] essid[$essid]");
         if ($scan->{$this}->{essid} eq $essid) {
            $ap = $scan->{$this};
            last;
         }
      }

      if (! defined($ap)) {
         return $self->log->error("brute_force_wps: no AP found by that essid [$essid]");
      }

      $bssid = $ap->{address};
   }

   my $monitor = $self->start_monitor_mode or return;

   my $cmd = "sudo reaver -i $monitor -b $bssid -vv";

   my $sc = Metabrik::Shell::Command->new_from_brik_init($self) or return;
   my $r = $sc->system($cmd);

   $self->stop_monitor_mode;

   return $r;
}

1;

__END__