brcc32.exe head.rc执行出错 brcc32.exe head.rc执行出错,打不开head.rc文件 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 检查一下head.rc文件有没有写对 加上文件head.rc的路径brcc32.exe x:\xxx\head.rc 我做的是下面的这个例子 我们先来说一下如何制作一个EXE文件加密器吧。 EXE文件加密器的原理:建立两个文件,一个用来添加资源到另外一个EXE文件里面,称为添加程序。另外一个被添加的EXE文件称为头文件。该程序的功能是把添加到自己里面的文件读出来。Windows下的EXE文件结构比较复杂,有的程序还有校验和,当发现自己被改变后会认为自己被病毒感染而拒绝执行。所以我们把文件添加到自己的程序里面,这样就不会改变原来的文件结构了。我们先写一个添加函数,该函数的功能是把一个文件当作一个流添加到另外一个文件的尾部。函数如下:function Cjt_AddtoFile(SourceFile, TargetFile: string): Boolean;varTarget, Source: TFileStream;MyFileSize: integer;begintrySource := TFileStream.Create(SourceFile, fmOpenRead or fmShareExclusive);Target := TFileStream.Create(TargetFile, fmOpenWrite or fmShareExclusive);tryTarget.Seek(0, soFromEnd); //往尾部添加资源Target.CopyFrom(Source, 0);MyFileSize := Source.Size + Sizeof(MyFileSize); //计算资源大小,并写入辅程尾部Target.WriteBuffer(MyFileSize, sizeof(MyFileSize));finallyTarget.Free;Source.Free;end;exceptResult := False;Exit;end;Result := True;end; 有了上面的基础,我们应该很容易看得懂这个函数。其中参数SourceFile是要添加的文件, 参数TargetFile是被添加到的目标文件。比如说把a.exe添加到b.exe里面可以:Cjt_AddtoFile('a.exe', b.exe');如果添加成功就返回True否则返回假。 根据上面的函数我们可以写出相反的读出函数:function Cjt_LoadFromFile(SourceFile, TargetFile: string): Boolean;varSource: TFileStream;Target: TMemoryStream;MyFileSize: integer;begintryTarget := TMemoryStream.Create;Source := TFileStream.Create(SourceFile, fmOpenRead or fmShareDenyNone);trySource.Seek(-sizeof(MyFileSize), soFromEnd);Source.ReadBuffer(MyFileSize, sizeof(MyFileSize)); //读出资源大小Source.Seek(-MyFileSize, soFromEnd); //定位到资源位置Target.CopyFrom(Source, MyFileSize - sizeof(MyFileSize)); //取出资源Target.SaveToFile(TargetFile); //存放到文件finallyTarget.Free;Source.Free;end;exceptResult := false;Exit;end;Result := true;end; 其中参数SourceFile是已经添加了文件的文件名称, 参数TargetFile是取出文件后保存的目标文件名。比如说Cjt_LoadFromFile('b.exe', 'a.txt'); 在b.exe中取出文件保存为a.txt。如果取出成功就返回True否则返回假。 打开Delphi,新建一个工程,在窗口上放上一个Edit控件Edit1和两个Button: Button1和Button2。Button的Caption属性分别设置为“确定”和“取消”。在Button1的Click事件中写代码:var S: string;beginS := ChangeFileExt(Application.ExeName, '.Cjt');if Edit1.Text = '790617' thenbeginCjt_LoadFromFile(Application.ExeName, S);{取出文件保存在当前路径下并命名"原文件.Cjt"}Winexec(pchar(S), SW_Show); {运行"原文件.Cjt"}Application.Terminate; {退出程序}endelseApplication.MessageBox('密码不对,请重新输入!', '密码错误', MB_ICONERROR + MB_OK); 编译这个程序,并把EXE文件改名为head.exe。新建一个文本文件head.rc, 内容为: head exefile head.exe, 然后把它们拷贝到Delphi的BIN目录下,执行Dos命令Brcc32.exe head.rc, 将产生一个head.res的文件,这个文件就是我们要的资源文件,先留着 在Delphi中如何让memo显示完所有的数据再换行 哪位高手有换肤控件的源码,请发给我? 一个日期的问题? 请教一个有关查询参数的问题 问简单SQL语句 FTP的PORT模式和PASV模式的问题。谢谢高手。 Delphi中*.ddp文件有什么用处??? 百思不得其解?Help me!!! 类似于windows的注销 送分,旧帖重贴:精简版InterBase6.0大功告成!欢迎大家都来用,呵呵...(我脸皮真厚)....2.26M! 钩子问题!请问全局狗子里面如何判断键盘鼠标不动,怎样给主程序发送消息! 我的软件下载量已经过万了,祝贺祝贺。
brcc32.exe x:\xxx\head.rc
我们先来说一下如何制作一个EXE文件加密器吧。 EXE文件加密器的原理:建立两个文件,一个用来添加资源到另外一个EXE文件里面,称为添加程序。另外一个被添加的EXE文件称为头文件。该程序的功能是把添加到自己里面的文件读出来。Windows下的EXE文件结构比较复杂,有的程序还有校验和,当发现自己被改变后会认为自己被病毒感染而拒绝执行。所以我们把文件添加到自己的程序里面,这样就不会改变原来的文件结构了。我们先写一个添加函数,该函数的功能是把一个文件当作一个流添加到另外一个文件的尾部。函数如下:
function Cjt_AddtoFile(SourceFile, TargetFile: string): Boolean;
var
Target, Source: TFileStream;
MyFileSize: integer;
begin
try
Source := TFileStream.Create(SourceFile, fmOpenRead or fmShareExclusive);
Target := TFileStream.Create(TargetFile, fmOpenWrite or fmShareExclusive);
try
Target.Seek(0, soFromEnd); //往尾部添加资源
Target.CopyFrom(Source, 0);
MyFileSize := Source.Size + Sizeof(MyFileSize); //计算资源大小,并写入辅程尾部
Target.WriteBuffer(MyFileSize, sizeof(MyFileSize));
finally
Target.Free;
Source.Free;
end;
except
Result := False;
Exit;
end;
Result := True;
end; 有了上面的基础,我们应该很容易看得懂这个函数。其中参数SourceFile是要添加的文件, 参数TargetFile是被添加到的目标文件。比如说把a.exe添加到b.exe里面可以:Cjt_AddtoFile('a.exe', b.exe');如果添加成功就返回True否则返回假。 根据上面的函数我们可以写出相反的读出函数:function Cjt_LoadFromFile(SourceFile, TargetFile: string): Boolean;
var
Source: TFileStream;
Target: TMemoryStream;
MyFileSize: integer;
begin
try
Target := TMemoryStream.Create;
Source := TFileStream.Create(SourceFile, fmOpenRead or fmShareDenyNone);
try
Source.Seek(-sizeof(MyFileSize), soFromEnd);
Source.ReadBuffer(MyFileSize, sizeof(MyFileSize)); //读出资源大小
Source.Seek(-MyFileSize, soFromEnd); //定位到资源位置
Target.CopyFrom(Source, MyFileSize - sizeof(MyFileSize)); //取出资源
Target.SaveToFile(TargetFile); //存放到文件
finally
Target.Free;
Source.Free;
end;
except
Result := false;
Exit;
end;
Result := true;
end; 其中参数SourceFile是已经添加了文件的文件名称, 参数TargetFile是取出文件后保存的目标文件名。比如说Cjt_LoadFromFile('b.exe', 'a.txt'); 在b.exe中取出文件保存为a.txt。如果取出成功就返回True否则返回假。 打开Delphi,新建一个工程,在窗口上放上一个Edit控件Edit1和两个Button: Button1和Button2。Button的Caption属性分别设置为“确定”和“取消”。在Button1的Click事件中写代码:var S: string;
begin
S := ChangeFileExt(Application.ExeName, '.Cjt');
if Edit1.Text = '790617' then
begin
Cjt_LoadFromFile(Application.ExeName, S);
{取出文件保存在当前路径下并命名"原文件.Cjt"}
Winexec(pchar(S), SW_Show); {运行"原文件.Cjt"}
Application.Terminate; {退出程序}
end
else
Application.MessageBox('密码不对,请重新输入!', '密码错误', MB_ICONERROR + MB_OK); 编译这个程序,并把EXE文件改名为head.exe。新建一个文本文件head.rc, 内容为: head exefile head.exe, 然后把它们拷贝到Delphi的BIN目录下,执行Dos命令Brcc32.exe head.rc, 将产生一个head.res的文件,这个文件就是我们要的资源文件,先留着