$a = '01000000'
$b = '02000000'
$c = '0F000000'
$d = '00001000'
$e = 'FF000000'
$f = '64636261'
$g = '440D430D420D41'
MsgBox(0, $a, Dec(_ch($a)))
MsgBox(0, $b, Dec(_ch($b)))
MsgBox(0, $c, Dec(_ch($c)))
MsgBox(0, $d, Dec(_ch($d)))
MsgBox(0, $e, Dec(_ch($e)))
MsgBox(0, $f, BinaryToString('0x' & _ch($f)))
MsgBox(0, $g, BinaryToString('0x' & _ch($g)))
Func _ch($x = '')
$y = ''
$z=StringLen($x)/2
For $i = $z To 1 Step -1
$y &= StringMid($x, $i * 2 - 1, 1)
$y &= StringMid($x, $i * 2, 1)
Next
Return $y
EndFunc ;==>_ch
|