Local $sBasedOn="nine", $iIter=100000, $sOut, $t=TimerInit()
Local $input="10101010", $bin, $ival, $iLen=8, $base=2

For $n=1 To $iIter 
  $iVal = 0

  For $i = 0 to $iLen - 1
    $iVal += Dec(StringMid($input, $iLen - $i, 1)) * ($base^$i)
  Next

  $sOut=Hex(Int($iVal)) &" "&  Int($iVal)

Next

$t=TimerDiff($t)

ConsoleWrite("Based on code from: "& $sBasedOn & @CRLF& " Check: "& $sOut &" "& @CRLF &" "& $iIter &" Iterations in "& $t/1000  &" Seconds" &@CRLF&@CRLF)