Pages: [1]   Go Down
Author Topic: [source] FTS routeTechnicolor Info  (Read 1402 times)
kodo no kami
RegMem
*

Karma: +0/-0
Offline Offline

Posts: 44


« on: September 12, 2015, 04:53:58 PM »



e ae galera aqui um script meu para pegar os vizinhos *** digo digo  vizinhos que rouba sua net, esse meu script ele so funciona com roteadores/modem technicolor nao sei se é todas as versoes dele (poxa da desconto ne tenho poucos roteadores aqui para brincar), o script conecta no roteador e olha a parte estatistica e retorna as maquina conectadas tanto pelo cabo quanto wireless (e as que conectaram e estao off), o script retorna o IP, endereço MAC, nome da maquina, se é IP estatico ou DHCP, e mostra se interface WLAN (wireless) ou LAN (cabo), no caso para usar o script basta abrir ele com editor de texto de sua preferencia e mudar o $IP para o ip do roteador, $LOGIN para o usuario do roteador e a $SENHA para senha do roteador, a sintaxe do script é apenas o nome dele sem nenhum argumento

Quote
$ perl fts_route.pl

github

Code:
#!/usr/bin/perl
#coder: kodo no kami
#route: technicolor

use WWW::Mechanize;

my $IP = "192.168.1.252"; #ip do roteador
my $LOGIN = "admin"; #login
my $SENHA = "admin"; #senha

my $kodo = WWW::Mechanize->new;

print "================================\n" .
"   FTS routeTechnicolor Info\n" .
"================================\n\n";

$kodo->post("http://" . $IP . "/login.cgi",[username=>$LOGIN,password=>$SENHA,isSubmit=>"1"]);
$kodo->get("/status_lanclients.cgi");

@kami = $kodo->content =~ /var vInterfaceName = new Array...(.*)function stopRefresh/s;
@fts_ativo = $kami[0] =~ /vActive.length.*?=.*?(\d+)/gs;
@fts_nome = $kami[0] =~ /vHostName.length.*?=.*?'(.*?)'/gs;
@fts_ip = $kami[0] =~ /vIpAddress.length.*?=.*?'(.*?)'/gs;
@fts_ipv6 = $kami[0] =~ /vIpAddress_v6.length.*?=.*?'(.*?)'/gs;
@fts_mac = $kami[0] =~ /vMacAddress.length.*?=.*?'(.*?)'/gs;
@fts_tipo = $kami[0] =~ /vAddressSource.length.*?=.*?'(.*?)'/gs;
@fts_interface = $kami[0] =~ /vInterfaceName.length.*?=.*?'(.*?)'/gs;

my $kont = 0;
foreach $kamisama(@fts_ativo)
{
print (($kamisama == 1)?"[ON] ":"[OFF] ");
print $fts_nome[$kont] . " (mac: " . $fts_mac[$kont] . "), iface: ". $fts_interface[$kont]. "\n" .  
"ip: " . $fts_ip[$kont] . ", ipv6: " . $fts_ipv6[$kont] . ', tipo: ' . $fts_tipo[$kont] . "\n" .
"..............................\n\n";
$kont++;
}
Logged

Pages: [1]   Go Up
Print
Jump to: