[source] detectar dispositivos no wifi (sagemcom)

galera um pequeno script que detecta quem ta conectado no wifi do roteador sagemcom (modelo F\@ST 2704N ~ nao sei se vai funcionar nos outros modelos), o script pode ser modificado facilmente para detectar quando certa pessoa entrar na residencia ou tiver perto dela dependendo da força do sinal isso tudo baseado no MAC do celular ( ͡° ͜ʖ ͡°)

github

Código:


#!/usr/bin/perl
#coder: kodo no kami
#modelo router: sagemcom F\@ST 2704N
#descrição: exibe quem tiver conectado no wifi

use WWW::Mechanize;

my $host = "192.168.1.253"; #IP do roteador
my $usuario = "admin"; #login do roteador
my $password = "123456"; #senha do roteador

my $kreq = new WWW::Mechanize;

print "[--- Wireless Authenticate Sagemcom ---]\n".
  "  F\@ST 2704N\n\n" .
  "MAC - ASSOCIADO/AUTORIZADO ~ SSID\n\n";

$kreq->get("http://$usuario:$password\@$host/wlstationlist.cmd");

my @klogado = $kreq->content =~ /<tr> <td><p align=center>.*?\w{2}:\w{2}:\w{2}:\w{2}:\w{2}:\w{2}.*?<\/tr>/sgmi;

foreach my $kl(@klogado){
  my @param = $kl =~ /p align=center>(.*?)</gsim;
 
  $param[0] =~ s/^\ +//g;
  $param[0] =~ s/\ +$//g;
  $param[0] =~ s/&nbsp//g;
  $param[1] =~ s/^\ +//g;
  $param[1] =~ s/\ +$//g;
  $param[2] =~ s/^\ +//g;
  $param[2] =~ s/\ +$//g;
  $param[3] =~ s/^\ +//g;
  $param[3] =~ s/\ +$//g;
  $param[3] =~ s/&nbsp//g;
 
  print "$param[0] - $param[1]/$param[2] ~ $param[3]\n";
}