alias dec2hex {
if (!$1) return
else return $+($base($gettok($1,1,46),10,16,2),.,$base($gettok($1,2,46),10,16,2),.,$base($gettok($1,3,46),10,16,2),.,$base($gettok($1,4,46),10,16,2))
}
alias hex2dec {
if (!$1) return
return $iif($len($2) == 8, $longip($base($1,16,10)), $longip($base($remove($1,.),16,10)))
}