Netstat Conexiones Activas

Autor: Desconocido
Descripción: Script que muestra las conexiones activas del host.

sudo ls &>/dev/null
if [ $? -ne 0 ]; then
 echo "El usuario no tiene permisos de administrador"
exit 1
fi

parse_num()
{
    x=$(echo $1 | sed -n 's/0*//p')
    if [ $(echo $x | wc -c) -eq 1 ]
    then
        x=0
    fi
    echo $x
}


hex_to_ip()
{
    index=7
    output=''
    while [ $index -gt 0 ]
    do
        end=$(expr $index + 1)
        value=$(printf "%d" "0x$(parse_num $(echo $1 | cut -b $index-$end))")
        output="$output.$value"
        index=$(expr $index - 2)
    done
    echo $(echo $output | cut -b 2-)
}
printf "         Src IP  Src port          Dst IP  Dst port\n"

cat /proc/net/tcp | while read line; do
    srcip=$(hex_to_ip $(echo $line | sed -n 's/^[0-9]*: //p' | sed 's/:.*//p'))
    srcport=$(printf "%d" 0x$(parse_num $(echo $line | sed  -n 's/^ *[0-9]*: [0-9,A-F]*://p' | cut "-d " -f 1)))
    dstip=$(hex_to_ip $(echo $line | sed -n 's/^[0-9]*: [0-9,A-F]*:[0-9,A-F]* //p' | sed -n 's/:.*//p'))
    dstport=$(printf "%d" 0x$(parse_num $(echo $line | sed -n 's/^ *[0-9]*: [0-9,A-F]*:[0-9,A-F]* [0-9,A-F]*://p' | cut "-d " -f1)))

    printf "%15s %9s %15s %9s\n" $srcip $srcport $dstip $dstport
done

netstat -ant | awk '{print $NF}' | grep -v '[a-z]' | sort | uniq -c

exit 0