Funcion OLE "Orden Little Endian"
Publicado: 16 Ago 2012, 17:27
Les dejo esta función que retorna el orden en que los bytes se almacenan en memoria.
saludos
Código: Seleccionar todo
#cs -------------------------------------------------------
AutoIt Version: 3.3.8.1
Author..........: Pink
Script Function...: OLE
Uso..............: OLE("Valor")
Retorna:El Orden Little Endian de una Serie de bytes
#ce -------------------------------------------------------
;Ejemplo
; En Mi archivo visto en Un Editor Hexadecimal el Valor de l_fanew es "B8000000"
;La Funcion Retorna el Equivalente a la Vista en Memoria
Msgbox(0,"",OLE("B8000000")); Simplemente Revierte los Bytes
Func OLE($Var)
Local $len=stringlen($Var)/2
local $Array[$len+1]
local $Char
local $A=1
local $Result
for $i= 1 to $len
$Char=stringmid($Var,$A,2)
$A+=2
$Array[$i]=$Char
next
for $x = $len to 1 Step -1
$Result&=$Array[$x]
Next
Return $Result
EndFuncsaludos