..

[Deathbringer]

Edited January 8, 2011 by JosIsaFucktard

[BrewManNH]

I'm not sure what the Binary function returns, but you need to put quotes around the number in the first line to get to correct number returned. One thing I can tell you though, 4617878467915022336 does not equal 1640 in binary, or even in hex for that matter.

What exactly IS the result of the Binary function returning? The help file is extremely vague as to the return value, and the value returned doesn't make any sense to me.

[PsaltyDS]

I don't know that Binary() accepts INT64 types for integer inputs. Hex(), for example, only accepts INT32. You would have to do a decimal to hex conversion then pass the hex string to Binary():

$iVal = 4617878467915022336
ConsoleWrite("$iVal = " & $iVal & "; Type = " & VarGetType($iVal) & @LF)

$sVal = ""
While 1
    $iMod = Mod($iVal, 16)
    $sVal = $iMod & $sVal
    $iVal = Floor($iVal / 16)
    If Not $iVal Then ExitLoop
WEnd
$sVal = "0x" & $sVal
ConsoleWrite("$sVal = " & $sVal & "; Type = " & VarGetType($sVal) & @LF)

$bVal = Binary($sVal)
ConsoleWrite("$bVal = " & $bVal & "; Type = " & VarGetType($bVal) & @LF)

Result:

$iVal = 4617878467915022336; Type = Int64
$sVal = 0x4016000000001110; Type = String
$bVal = 0x4016000000001110; Type = Binary

Edited December 29, 2010 by PsaltyDS

[MvGulik]

I don't know that Binary() accepts INT64 types for integer inputs.

It will.

Binary(<i32>) := <b32i>[0x87654321]

Binary(<i64>) := <b64i>[0x8765432187654321]

Int(<b32i>) := <i32>[0x1234...]

Int(<b64i>) := <i64>[0x1234...]

note: use int(), number() is slightly bugged.

Edited December 29, 2010 by MvGulik

[MvGulik]

Your code is interesting though. If it weren't for those three 1s at the end of those variables, they would be an endian swapped match for my expected output.

Side effect of float/double to int conversion. (becomes a risk when dealing with int values above, I think is was, 2^40)

$iVal = Floor($iVal / 16)

Edited December 29, 2010 by MvGulik

[MvGulik]

;; int32
$iTmp = 0x1234 ;; 4660 {I3} (0x00.00.12.34)
$bTmp = Binary($iTmp) ;; 0x34120000 {bn}(4)
$iTmp = Int($bTmp) ;; 4660 {I3} (0x00.00.12.34)
;; rev byte order.
$sTmp = String($bTmp) ;; "0x34120000" {St}
$iTmp = Number($sTmp) ;; 873594880 {I3} (0x34.12.00.00)
$iTmp = Number(String(Binary($iTmp))) ;; 4660 {I3} (0x00.00.12.34)

;; int64
$iTmp = Int("0x1234") ;; 4660 {I6} (0x00.00.00.00.00.00.12.34)
$bTmp = Binary($iTmp) ;; 0x3412000000000000 {bn}(8)
$iTmp = Int($bTmp) ;; 4660 {I6} (0x00.00.00.00.00.00.12.34)
;; rev byte order.
$sTmp = String($bTmp) ;; "0x3412000000000000" {St}
$iTmp = Number($sTmp) ;; 3752061439553044480 {I6} (0x34.12.00.00.00.00.00.00)
;~ $iTmp = Number(String(Binary($iTmp))) ;; 0 -> bugged.
$iTmp = int(String(Binary($iTmp))) ;; 4660 {I6} (0x00.00.00.00.00.00.12.34) ...

Edited June 28, 2011 by iEvKI3gv9Wrkd41u

[MvGulik]

Okay, now that we've determined Binary() works on a 64bit integer, can we figure out how to convert 0x0000000000001640 back to 4617878467915022336? Is it even possible?

Kinda stupid question considering my previous post.

[SmOke_N]

More than one way to skin a cat:

Global $s_val = _myBinary_ToInt64(Binary(4617878467915022336))
ConsoleWrite($s_val & @CRLF)


Func _myBinary_ToInt64($s_val)
    Local $t_int64 = DllStructCreate("int64")
    DllStructSetData($t_int64, 1, Binary($s_val))
    Return DllStructGetData($t_int64, 1)
EndFunc

Edit:

Changed func name and example; guess it helps to read the rest of the post than just the outcome desired

Edited December 29, 2010 by SmOke_N

[MvGulik]

nevermind.

Edited June 28, 2011 by iEvKI3gv9Wrkd41u