使用Delphi的「流」開發一款文件加密器

    利用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； 　Var Source：TFileStream； 　　Target：TmemoryStream； 　　MyFilesize，Position：integer； 　Begin 　　Try 　　　Target：=TmemoryStream.Create； 　　　Source：=TFileStream(SourceFile，fmOpenRead or fmShareDenyNone)； 　　　Try 　　　　Source.Seek(-sizeof(Position)，soFromEnd)； 　　　　Source.ReadBuffer(Position，sizeof(Position))； 　　　　Source.Seek(-Position-sizefo(MyFileSize)，soFromEnd)； 　　　　Source.ReadBuffer(MyFileSize，sizeof(MyFileSize))；{讀出資源大小} 　　　　Source.Seek(-Position-MyFileSize，soFromEnd)；{定位到資源位置} 　　　　Target.CopyFrom(Source，MyFileSize-sizefo(MyFileSize))；{取出資源} 　　　　Target.SaveToFile(TargetFile)；{存放到文件} 　　　finally 　　　　Target.Free； 　　　　Source.Free； 　　　end； 　　except 　　　Result：=false； 　　　Exit； 　　end； 　　Result：=true； 　end； Function Jmf_PassFromFile(var password：string；SourceFile：string)：Boolean； 　Var  　　Source：TFileStream； 　　PassWordSize：interger； 　Begin 　　Try 　　　Source：=TFileStream.Create(SourceFile，fmOpenRead or fmShareDenyNone)； 　　Try 　　　Source.Seek(0，soFromEnd)；{定位到資源位置} 　　　Source.Read(PassWordSize，Sizeof(PassWordSize))； 　　　Source.Seek(-PassWordSize，soFromEnd)； 　　　Source.Read(PassWord，PassWordSize-Sizeof(PassWordSize))； 　　Finally 　　　Source.Free； 　　End； 　　Except 　　　Result：=false； 　　Exit； 　End； 　　Result：=true； 　End； Procedure Tfom1.unbindClick(Sender：TObject)； 　Var 　　S：string； 　　pass，inpass：string； 　begin 　　inpass：=password.text； 　　S：=ChangeFileExt(Application.ExeName，'Jmf')； 　　If Jmf_PassFromFile(pass，Application.ExeName) then 　　　If pass=password.text then 　　　Begin 　　　　Jmf_LordFromFile(Application.ExeName，S)；{取出文件保存在當前路徑下並命名"原文件.Jmf"} 　　　　Winexec(pchar(S)，SW_Show)；{運行"原文件.Jmf"} 　　　　Application.Terminate；{退出程序} 　　　end 　　else 　　　Application.MessageBox('密碼錯誤,從新輸入!'，'密碼錯誤'，MB_OK)； 　　end； Procedure Tform1.openClick(Sender:TObject)； 　begin 　　If OpenDialog1.Execute then position.Text：=OpenDialog1.FileName； 　end； procedure Tform1.secretClick(Sender：TObject)； 　var s：string； 　　spass：string； 　begin 　　s：=ExtractFilePath(position.text)； 　　spass：=pass.Text； 　　if ExtractRes('exefile'，'head'，s+'head.exe') then 　　　if Jmf_AddtoFile(position.text，s+'head.exe'，spass) then 　　　　if DeleteFile(position.text)then  　　　　　if RenameFile(s+'head.exe'，position.text)then 　　　　　　Application.MessageBox('文件加密成功!!'，'信息'，MB_OK) 　　　　　Else 　　　　　　Begin 　　　　　　　If FileExists(s+'head.exe') 　　　　　　　　then DeleteFile(S+'head.exe')； 　　　　　　　　　Application.MessageBox('文件加密失敗!!'，'信息'，MB_OK) 　　　　　　　end； Function ExtractRes(Restype，Resname，ResNewName：string)：Boolean； 　Var Res：TresourceStream； 　begin 　try  　　Res：=TresourceStream.Create(Hinstance，Resname，Pchar(ResType))； 　　try  　　　Res.SaveToFile(ResNewName)； 　　　Result：=true； 　　Finally 　　　Res.Free； 　　end； 　　except 　　　Result：=False； 　end； 大功告成。 OK，