Hex to Decimal

[redndahead 0]

I see there is a way of turning Decimal to Hex. Is there a way to turn it back from Hex to Decimal?

red

[tylo 2]

Not built in, but you can feed the string from Hex() back into this func:

Func Hex2Dec($number)
  $len = StringLen($number)
  $number = StringUpper($number)
  $ret = 0
  $fac = 1
  For $i = $len To 1 Step -1
    $n = Asc(StringMid($number, $i, 1)) - 48
    If $n > 9 Then $n = $n - 7
    $ret = $ret + ($n * $fac)
    $fac = $fac * 16
  Next
  Return $ret
EndFunc

/EDIT: removed use of ^ operator: Jon, this is straight forward to do in C.

Edited January 20, 2004 by tylo

[Jon 1,251]

I should make that built in really.

This list is getting longer. Arrgrgh.

[redndahead 0]

Thanks Tylo that was exactly what i needed...

I would appreciate it jon that will cut out some unnecessary code.

Thanks everybody again. Give my password encryption program a try.

red