有关文件的简单问题(100分)

  • 主题发起人 主题发起人 fu_xiang_yu
  • 开始时间 开始时间
F

fu_xiang_yu

Unregistered / Unconfirmed
GUEST, unregistred user!
将一些字符和字符串加入一exe文件末尾,
当exe文件运行时再依顺序读出它们
(假设此exe文件是delphi制作的,用formcreate事件)
 
var
f: file of char;
c: char;
begin
assignfile(f, application.exename);
filemode := 0;//这句一定不能少!将文件操作设位只读!
reset(f);
seek(f, filesize(f) - 10);
read(f, c);
showmessage(c);
closefile(f);
end;
 
exe 头部的 dos stub 有很多没有用的部分,除了第 1,2, 0x1c, 1d,1e,1f ,你随便写。
完全可以把文件的原始长度写入文件。
 
我公布EXE文件加密器的源代码了,你可以去看看,
下载:http://mantousoft.51.net/delphi_work/work_filelock.php
主页:mantousoft.51.net
希望对你有所帮助!!
 
to mikedeakins:
能再说详细点吗,我对文件内部结构一无所知
 
to mantousoft:
我看看,懂了就给分
 
看不懂问我,我会说的:)记得我的份噢!
 
那好吧我,这段时间没空研究
先给你$,以后不懂再向你请教

btw:有没有实行三包啊!?
 
烦!
给分了!

我说
记得随时上门服务啊!
 
后退
顶部