Mostrar conexões de rede ativas
Publicado por José Lucas (última atualização em 17/03/2021)
[ Hits: 1.927 ]
Homepage: https://github.com/NIDObr
Olá, comecei a me aventurar na TCL/TK, estou gostando bastante, é uma linguagem poderosa e cheia de recursos. Este script é só um teste, ainda estou aprendendo esta linguagem.
Mostra conexões de rede ativas, local e remota com base no arquivo "/proc/net/tcp".
#!/usr/bin/tclsh # Autor: MINEMAM # 06/12/2020 # Sobre: Mostra as conexões de rede, usando como base o arquivo "/proc/net/tcp" #------------Funçoes---------------- # Converte hexadecimal(little-edian) para decimal proc hex_to_dec { hex } { set cont 0 set hex_lista {} # Reordena o valor hexadecimal(little-edian) para convertelo while { $cont != [ string length $hex ] } { set hex_conv [ string index $hex $cont ] set par [ regexp {([02468])} $cont par_m ] if { $par == 1} { set indice [ expr $cont + 1 ] set hex_lista [ linsert $hex_lista $indice $hex_conv ] } else { set indice [ expr $cont - 1 ] set hex_lista [ linsert $hex_lista $indice $hex_conv ] } incr cont } # Inverte a ordem da lista set cont 7 set indice 0 set dec_lista {} while { $cont != -1 } { set var_atu [ lindex $hex_lista $cont ] set dec_lista [ linsert $dec_lista $indice $var_atu ] incr cont -1 incr indice } # Converte hexadecimal para decimal usando o "expr 0x" if { [ string length $hex ] == 8 } { set dec1 [ expr 0x[ lindex $dec_lista 0 ][ lindex $dec_lista 1 ] ] set dec2 [ expr 0x[ lindex $dec_lista 2 ][ lindex $dec_lista 3 ] ] set dec3 [ expr 0x[ lindex $dec_lista 4 ][ lindex $dec_lista 5 ] ] set dec4 [ expr 0x[ lindex $dec_lista 6 ][ lindex $dec_lista 7 ] ] set resultado "$dec1.$dec2.$dec3.$dec4" } else { set dec3 [ expr 0x[ lindex $dec_lista 4 ][ lindex $dec_lista 5 ] ] set resultado "$dec3" } return $resultado } #------------Inicio----------------- # Verifica se o arquivo existe if { [ file exists /proc/net/tcp ] } { set tcp_file [ open /proc/net/tcp r ] } else { puts "Arquivo não existe!" exit } set cont 0 while { ! [ eof $tcp_file ] } { if { $cont == 0 } { set tcp_linha [ gets $tcp_file ] puts "Conexão Local: Conexão Remota:" } else { set tcp_linha [ gets $tcp_file ] if { $tcp_linha == "" } { break } # IP:PORTA DE ORIGEM set hex_orig [ lindex $tcp_linha 1 ] set hex_ip_o [ string range $hex_orig 0 7 ] set hex_port_o [ string range $hex_orig 9 12 ] set ip_local [ hex_to_dec $hex_ip_o ] set porta_local [ hex_to_dec $hex_port_o ] # IP:PORTA DE DESTINO set hex_dest [ lindex $tcp_linha 2 ] set hex_ip_d [ string range $hex_dest 0 7 ] set hex_port_d [ string range $hex_dest 9 12 ] set ip_dest [ hex_to_dec $hex_ip_d ] set porta_dest [ hex_to_dec $hex_port_d ] puts "$ip_local:$porta_local $ip_dest:$porta_dest" } incr cont } close $tcp_file
Servidor web pequeno e simples em TCL
Simples visualizador de arquivos texto
Atenção a quem posta conteúdo de dicas, scripts e tal (2)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como criar um robot em NTSL (Nelogica Trading System Language) para Profitchart
Use o Google PageSpeed Insights para verificar um site
Como Atualizar Fedora 39 para 40
Sistema da Coréia do Norte - Red Star OS (29)
filtrar só as pastas onde tem arquivo (4)
Como adicionar módulo de saúde da bateria dos notebooks Acer ao kernel... (31)
Instalacao Manjaro em notebook com placa de video hibrida [RESOLVIDO] (2)