Código: Seleccionar todo

#cs -------------------------------------
AutoIt Version: 3.3.8.1
Author..........: Pink
Script Function...: ReadEOF "Leer EOF (60 byte validos)"
Gracias...........: Strup & DuNeD@i 
Uso..............: $variable = ReadWriteEOF("C:\Users\Usuario\Desktop\File.exe")
#ce -------------------------------------



;Ejemplo
$file="C:\Users\Usuario\Desktop\File.exe"
$datos=FileRead($file)
$EOF=ReadEOF($file) ;leemos y almacenamos

$h=fileopen("test.exe",17)
filewrite($h,$datos)
filewrite($h,$EOF) ;Escribimos
fileclose($h)
;Fin


;>>>>>>>>>>>>>> ReadEOF <<<<<<<<<<<<<<<<<<<<<<<<
Func ReadEOF($file)
local $datos=fileread($file)
local $30=stringmid($datos,FileGetSize($file)-29,30)

If $30=binarytostring("0x000000000000000000000000000000000000000000000000000000000000") then
	 	 $30=""
	  Return $30
	   Else
	  Return $30

EndIf
EndFunc ;==>ReadEOF