/*
Routine to convert an Hex IP in a Decimal IP
Use: %res = $Hex2IP( hex_IP )
Alias h2d is used for test purpose only.
Try:: /h2d 598af63b
Output: 89.138.246.59
*/
alias h2d {
var %a = $Hex2IP( $1 )
.echo 4 -a %a
}
alias -l Hex2IP {
var %id = $1
var %d1 = $mid(%id, 0, 2)
var %d2 = $mid(%id, 3, 2)
var %d3 = $mid(%id, 5, 2)
var %d4 = $mid(%id, 7, 2)
return $base( %d1,16,10 ) $+ . $+ $base( %d2,16,10 ) $+ . $+ $base( %d3,16,10 ) $+ . $+ $base( %d4,16,10 )
}