#!/bin/bash
BINPORT=""
HEXPORT=""

for (( i=1; i<=32 ; i++ ))
    do
   if [ $i == $1 ]
       then BINPORT=${BINPORT}"1"
       else BINPORT=${BINPORT}"0"
   fi   
    done
   
echo "BIN: $BINPORT"

for (( i=0; i<=7; i++ ))
    do
   case "${BINPORT:$i*4:4}" in
       "0000" ) HEXPORT=${HEXPORT}"0";;
       "0001" ) HEXPORT=${HEXPORT}"1";;
       "0010" ) HEXPORT=${HEXPORT}"2";;
       "0100" ) HEXPORT=${HEXPORT}"4";;
       "1000" ) HEXPORT=${HEXPORT}"8";;
   esac
    done
echo "HEX: $HEXPORT"

#!/usr/bin/perl
printf "%8.8X",1<<(32-<>);

#!/usr/bin/perl
use strict;

my $port = $ARGV[0];
printf "%8.8X",1<<(32-$port);

printf "%16.16X",1<<(64-$num);

./dlink_ports.pl -ports 1,5,7-9
8b800000
./dlink_ports.pl -snmp 8b800000
1,5,7-9