利用Delphi的"流"实现exe文件的加密解密
先安装Delphi2010,
开始建立两个exe文件,一个用来添加资源到另外一个exe文件里面,称为添加程序。另一个被添加的exe文件称为头文件,该文件的功能是在解密时把添加到自己里面的文件读出来。加密时,首先建立头文件,再将明文追加到头文件尾部并设置一个密码,生成密文;解密时,先校验密码,如正确,则将密文从头文件中读出,生成明文,否则报错。为了exe文件的加密,需要建立三个函数,其原型及功能如下:
(a)Function Jmf_AddtoFile(SourceFile,PassWord,TargetFile:string):Boolean;
实现分别把文件SoureceFile和字符串PassWord添加到文件TargetFile尾部,如果添加成功就返回True;否则返回false。
(b)Function Jmf_LoadFromFile(SourceFile,TargetFile:string):Boolean;
实现从SourceFile中取出文件并另保存为TargetFile。如果取出成功返回True,否则返回false。
(c)Function Jmf_PassFromFile(var Password:string;SourceFile:string):Boolean;
实现从SourceFile中取出密码,保存在Password中。如果取出成功就返回True,否则返回false。
首先建立头文件。使用Delphi新建一工程,在窗口上放上一个TMaskEdit控件(属性name设置为password)和两个Button控件(属性name分别为:Unbind和Cancel;属性Caption分别为"解密"和"取消"),并在Unbind的Click事件中写入代码(参见代码部分),编译此程序生成head.exe头文件,并保留生成的head.res资源文件。
再建一个工程,添加以下控件:二个Tedit控件(属性name分别设置为password和position)、一个OpenFileDialog控件、两个Tbutton控件(其中属性name分别设置为:Select和Encrypt;属性Caption分别设置为"选择文件"和"加密")。在Select的Click事件中实现对被加密exe文件的选择,在Encrpyt的Click事件中实现将明文和密码追加至head.exe文件结尾,需要注意的是,在该事件处理例程中调用了ExtractRes函数,其作用是把head.exe从资源文件中提取出来(在源程序中将head.res资源文件跟程序一起编译),生成编译程序生成可执行文件AddEncrypt.exe。
在对文件进行加密时,先执行程序AddEncrypt,选择需要加密的exe文件,并在password中输入加密密码,点击"加密"按钮。源exe文件将被同名密文取代。解密时,执行加密程序,会弹出对话框询问密码,用户输入密码后,如密码正确则程序正常运行,否则程序将报错,无法运行。需要注意的是,上面的程序只不过简单地把一个文件添加到另一个文件的尾部,实际应用中可改成添加多个文件,实现过程中只要根据实际大小和个数定义好偏移地址就可以了。因为篇幅有限,文中只给出了源程序的关键代码,有兴趣的读者可自行扩弃完善。代码如下:
Function Jmf_AddtoFile(SourceFile,PassWord,TargetFile:String):Boolean; Var Target,Source:TFileStream; MyFileSize,PassWordSize:integer; Begin Try Source:=TFileStream.Create(SoureceFile,fmOpenRead or fmShareExclusive); Target:=TFileStream.Create(TargetFile,fmOpenWrite of fmShareExclusive); Try Target.Seek(0,soFromEnd);{往尾部添加资源} Target.CopyFrom(Source,0); MyFileSize:=Source.Size++Sizeof(MyFileSize);{计算资源大小,并写入辅程尾部} Target.WriteBuffer(MyFilesSize,sizefo(MyFileSize)); PassWordSize:=Sizeof(PassWord)+sizeof(PassWordSize); Target.Seek(0,soFromEnd); Target.WriteBuffer(PassWord,Sizeof(PassWord)); Target.WriteBuffer(PassWordSize,sizeof(PassWordSize)); Finally Target.Free; Source.Free; End; Except Result:=False; Exit; End; Reslut:=True; End; Function Jmf_LoadFromFile(SourceFile,TargetFile:string):Boolean; Function Jmf_PassFromFile(var password:string;SourceFile:string):Boolean; Procedure Tfom1.unbindClick(Sender:TObject); Procedure Tform1.openClick(Sender:TObject); procedure Tform1.secretClick(Sender:TObject); Function ExtractRes(Restype,Resname,ResNewName:string):Boolean; 大功告成。 OK, |