[source] FTS routeTechnicolor Info

Discussão em 'Dicas e tutoriais' iniciado por kodo no kami, 2 Julho 2016.

  1. kodo no kami
    Offline

    kodo no kami Membro Conhecido

    Afiliado:
    16 Dezembro 2015
    Mensagens:
    229
    Sexo:
    Masculino
    Avaliações:
    +303 / -0
    [​IMG]

    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

    github

    Código (Forge Crash):
    #!/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++;
    }
     
     

Compartilhe esta Página