我将一个加密程序(VFP写的)反编译后得到LOCK.SCT 应该是加密过程
但是我看不懂反编译出来的是什么代码
if !empty(thisform.text1.value) then
if !empty(thisform.text2.value) then
desfile=desfile+ltrim(rtrim(thisform.text2.value))+".wb"
if ltrim(rtrim(thisform.text3.value))=ltrim(rtrim(thisform.text4.value)) then
select 1
use lockinf excl
locate all for lockfile=ltrim(rtrim(thisform.text2.value))
if found() then
desfile=getdc(sourcefile)
messagebox("请重新输入目标文件，加密库"+chr(13)+chr(13)+"中已经有相同的目标文件了！",0+64,"信息")
return
else
if !file(thisform.text1.value) then
messagebox("加密文件不存在！",0+64,"信息")
return
endif
=CAPIEncryptFile(sourcefile,desfile,ltrim(rtrim(thisform.text4.value)))
dele file &sourcefile
go bottom
insert blank
go bottom
repl lockfile with ltrim(rtrim(thisform.text2.value)),unlockfile with getff(sourcefile),passwd with encstr(ltrim(rtrim(thisform.text3.value)),"82699705")
use
messagebox("加密成功！",0+64,"信息")
copyfile=getdc(sourcefile)+"config.fpw"
if !file(copyfile) then
copy file "config.fpw" to getdc(sourcefile)
endif
endif
else
desfile=getdc(sourcefile)
messagebox("两次输入的密码不一致！",0+64,"信息")
endif
else
messagebox("请填上加密后的文件名！",0+64,"信息")
endif
else
messagebox("没选择要加密的文件！",0+64,"信息")
endif
