http://www10.zippyshare.com/v/12376858/file.html
Thanks you!

Code: Select all
get PDE_SIZE asize
math OFFSET = 0x1000
math SIZE = -1
set PATH string ""
set NAME string ""
callfunction EXTRACT
startfunction EXTRACT
string PATH += NAME
string PATH += /
savepos RET_OFF
goto OFFSET
savepos BASE_OFF
if SIZE < 0
get LIMIT asize
else
xmath LIMIT "OFFSET + SIZE"
endif
do
savepos TMP
if TMP >= LIMIT
math TYPE = 0
else
get TYPE byte
getdstring NAME 0x6f
get TSTAMP longlong
get OFFSET long
get SIZE long
xmath OFFSET "(OFFSET * 0x1000) + 0x1000"
xmath TMP "OFFSET + SIZE"
if TMP u>= PDE_SIZE
math TYPE = 0
endif
if TYPE == 1
set FNAME string PATH
string FNAME += NAME
log FNAME OFFSET SIZE
elif TYPE == 2
callfunction EXTRACT
else
math TYPE = 0
endif
endif
while TYPE != 0
goto RET_OFF
endfunction