VFP 愛用者社區

行者孙 · 註冊時間: 2006-03-11 文章: 43 第 1 樓

VFP编译生成后的EXE文件基本结构为 EXE头＋APP文件＋文件尾，其中所有原始代码都在APP文件中

所以反编译软件都是先找到EXE文件中的那个标准的APP文件再进行文件分离工作，最后在把得到的伪代码

转换为调试信息（即源码）

闲来无事，也写了个分离APP文件中源文件的代码，但没怎么测试！

* 函数名：UNCOMPIAPP()
* 功　能：根据一个标准的VFP APP文件分离出源文件
* 参　数：APPFILENAME 被分离的APP文件名
* 返回：APP文件的源文件
* 算法制作：行者孙(QQ:310727570)-VFP应用程式算法群(12787940)

Function UNCOMPIAPP(APPFILENAME As String )
ON EROR MESSAGEBOX('分离失败','信息提示')
HWND=FOPEN(APPFILENAME)
FSEEK(HWND,5)
st=FREAD(HWND,2)
st=RIGHT(st,1)+left(st,1)
st='0x'+STRCONV(st,15)
F_COUNT=&st
DIMENSION F_LIST[F_COUNT]
DIMENSION DZ1[F_COUNT]
DIMENSION DZ2[F_COUNT]
FSEEK(HWND,13)
BS6=FREAD(HWND,4)
FSEEK(HWND,17)
BS8=FREAD(HWND,4)
FSEEK(HWND,9)
BS5=FREAD(HWND,4)
LDZ=''
LCD=''
GDZ=''
FOR i=4 TO 1 STEP -1
LDZ=LDZ+STRCONV(SUBSTR(BS6,i,1),15 )
LCD=LCD+STRCONV(SUBSTR(BS8,i,1),15 )
GDZ=GDZ+STRCONV(SUBSTR(BS5,i,1),15 )
endf
LDZ='0x'+LDZ
LCD='0x'+LCD
GDZ='0x'+GDZ
FSEEK(HWND,&LDZ)
st=CHR(0)+FREAD(HWND,&LCD)+CHR(0)
k=0
FOR i=1 TO OCCURS(CHR(0),st)
flist=SUBSTR(st,AT(CHR(0),st,i)+1,AT(CHR(0),st,i+1)-AT(CHR(0),st,i))
IF LEN(JUSTFNAME(flist))>0 .AND. AT('.PRG',UPPER(JUSTFNAME(flist)))=0
k=k+1
F_LIST[k]=JUSTFNAME(flist)
endi
endf
FOR i=1 TO F_COUNT
st1=SUBSTR(FREAD(HWND,25),2,8 )
st2=''
FOR k=8 TO 1 STEP -1
st2=st2+SUBSTR(st1,k,1 )
endf
st2=STRCONV(st2,15)
fdz1='0x'+SUBSTR(st2,1,8 )
fdz2='0x'+SUBSTR(st2,9,8 )
DZ1[i]=&fdz1
DZ2[i]=&fdz2
endf
FOR i=1 TO F_COUNT
FSEEK(HWND,DZ2[i])
f_word=FREAD(HWND,DZ1[i]-DZ2[i])
STRTOFILE(f_word,F_LIST[i])
endf
FCLOSE(HWND)
st=''
FOR i=1 TO F_COUNT
st=st+F_LIST[i]+','
IF i=F_COUNT
st=st+F_LIST[i]
endi
endf
***文件分离结束****

从EXE中分离出APP也很简单，把指针移动到0x5e00把此处到文件尾的全部内容读出来再去掉最后14个字节就是一个标准的APP文件。

suenwingfat · 註冊時間: 2003-06-17 文章: 13 第 2 樓

第二行應是 on error

但更正後仍有問題

因為 st='x0000'
所以 f_count=0
以至
DIMENSION F_LIST[F_COUNT]
DIMENSION DZ1[F_COUNT]
DIMENSION DZ2[F_COUNT]
出現 Erro